MCRDIS.MAC;2/AU=MCRDIS.VGN;1
\
-2,2
	.IDENT	/1.06X/
-39
;
;	RJDK001	28-JUL-78 REMOVE CONTROLS & LEADING SPACES
;			  ALSO CALLS CCL ON NO TASK/ SYNTAX ERROR
;	RJDK002	......... DONT PROMPT AFTER U2.AT. COMMAND LEAVE IT TO AT.
;	JGD		  THIS SLP FILE IS FOR RSX11MV3.2 WITHOUT THE SPAWN
;			  DIRECTIVE.  IT DISABLES  PROMPTS IF U2.AT SET.
;			  SYSTEMS WITH THE SPAWN DIRECTIVE SHOULD NOT
;			  USE THIS.  THIS IS ESCENTIALLY IDENTICAL TO THE MOD
;			  WHICH WORKED ON V3.1, HOWEVER ONCE USED IT WILL
;			  BE NECESSARY TO APPLY A SLP PATCH TO SAVE ALSO.

%
-295,295,/; RJDK2/
MCRPMT:	MOV	$MUCB,R0	; IS AT. SET?
	BIT	#U2.AT.,U.CW2(R0) ; ..
	BNE	1$		; YES  SKIP PROMPT
	CALL	PROMPT		; NO, ISSUE PROMPT STRING
1$:				; REF LABEL
-407,410,/; RJDK2/
				; DELETE TESTS FOR HT & SPACE 
				; INCLUDE IN MORE GENERAL LATER
-415,415,/; RJDK1/
7$:	TST	DISLEN		; ANY TEXT YET?
	BNE	71$		; YES 
	CMPB	R1,#SPA		; CONTROL OR SPACE
	BLE	6$		; YES JUST IGNORE IT
71$:	CMPB	R1,#SPA		; GENERAL SPACES & CONTROLS
	BLE	10$		; YES - THEN MAKE JUST 1 SPACE
	TST	COMFLG		; COMMENT IN PROGRESS?			;HJL070
-461,463,/; RJDK1/
	CALL	$CAT5		; CONVERT 3 CHARS TO RAD50
	BCC	40$		;
	JMP	LODCCL		; USE CCL TO DECODE IT
-479,479,/; RJDK1/
44$:	JMP	LODCCL		; SYNTAX ERROR
-542,,/; RJDK1/
LODCCL:	MOV	(PC)+,R1	; GET CCL'S NAME
	.RAD50	/CCL/		; 
	BR	LDTSK		; AND LOAD IT
-572,572,/; RJDK1/
	BCC	16$		; FOUND IT
	CLR	R5		; SET NO PARENT
	MOV	(PC)+,R1	; GET CCL NAME
	.RAD50	/CCL/		; 
	MOV	R1,$MPARS+2	; AND SET FOR LATER
	CALL	$SRSTD		; SEARCH FOR CCL INSTEAD
	BCS	17$		; NOT IN SYSTEM
16$:				; REF LABEL
-758,,/; RJDK1/
	MOV	#<^RCCL>,R1	; OR IS IT CCL?
	CMP	R1,$MPARS+2	; ...CCL?
	BEQ	35$		; YES DONT PROMPT
	CMP	R1,$MPARS	; OR CCLXN
	BEQ	35$		; YES NEITHER FOR THIS
/