.TITLE	LP RESTART TASK
	.IDENT	/V01.1B/
 
	.MCALL	TCSMC$,EXIT$S,GMCR$,DIR$,QIOW$
 
	TCSMC$
 
TILUN=1
TIFLG=20.
TIPRI=50
 
BAD:	.ASCII	/BAD COMMAND LINE - TRY AGAIN/
B.SIZ=.-BAD
	.EVEN
 
BUFFER:	.ASCII	/OPR LP/
UNIT:	.ASCII	/0/
	.ASCII	':/RS'
LENGTH=.-BUFFER
	.EVEN
 
GETMCR:	GMCR$
CTDB:	CDBDF$	BUFFER,LENGTH,TS.DOT,ERRBLK
ERRBLK:	ESBDF$
BADLIN:	QIOW$	IO.WVB,TILUN,TIFLG,TIPRI,,,<BAD,B.SIZ,40>
 
START:	DIR$	#GETMCR
	MOV	#GETMCR+G.MCRB,R1
	MOV	$DSW,R2
1$:	DEC	R2
	BLE	10$
	CMPB	(R1)+,#40
	BNE	1$
	MOVB	(R1),UNIT
	CHN$T	#CTDB
	BCS	5$
4$:	EXIT$S
5$:	MOV	ERRBLK+T.ERR,R1
	MOV	ERRBLK+T.ERR+2,R2
	HALT
10$:	DIR$	#BADLIN
	BR	4$
 
	.END	START