INSPS.MAC=[12,10]INSPS.VGN/AU
\
-2,2
	.IDENT	/08.1/
-/HH063/,,
;
;	PRS01	4/7/82 -- ADD '/RTC' SWITCH AS SHORT FORM FOR :
;			'/TASK=...XXX/CMD="XXX COMMAND LINE"'
;			ANY '/TASK=' SWITCH TAKES PRECEDENCE OVER '/RTC='
;
%
-/.WORD...INSCMD/,,/;PRS01/
	.WORD	131$
	.WORD	INSRTC
-/.ASCIZ...CMD/,,/;PRS01/
131$:	.ASCIZ	/RTC/
-/INSCMD:/,.,/;PRS01/
;
;	HANDLE /RTC="XXX COMMAND LINE"
;
INSRTC:
	BIT	#2,KEYFLG	;HAD A "/TASK=" ?
	BNE	INSCMD		;LET "/TASK=" HAVE PRIORITY
	MOV	R0,R4		;COPY CURRENT POINTER
	CMPB	(R0)+,#'"	;CHECK FOR QUOTE
	BNE	9$		;BRANCH IF NOT THERE, SYNTAX ERRROR
	MOV	PC,R1		;ALLOW "." IN TASK NAME
	CALL	$CAT5		;CONVERT TO RAD50
	BCC	10$		;BRANCH IF OK
10$:	MOV	R4,R0		;RESTORE POINTER
	MOV	#^R...,$TASK	;SET 1ST 3 CHARS. TO "..."
	MOV	R1,$TASK+2	;SAVE 2ND HALF OF TASK NAME
INSCMD:
-/INSTSK:/,,/;PRS01
	CLR	2(R4)		;CLEAN OUT ANYTHING SET BY '/RTC'
/