SEARCH	SYS
	SEARCH	SYSSYM

START:	PHDR	-2,0,PH$REE!PH$REU
	MOV	JOBCUR,A0
	CMMW	JOBUSR(A0),#402
	BNE	ERROR
	CMMW	JOBDEV(A0),#[DSK]
	BNE	ERROR
	TSTW	JOBDRV(A0)
	BNE	ERROR
	EXIT

ERROR:	TYPECR	<? this command can only be run from DSK0:[1,2]>
	CLRW	JOBCMS(A0)
	CLRW	JOBCMZ(A0)
	CRLF
	EXIT

	END

.