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
;
;	JGD		  MODIFIED TO WORK ON RSX11M V3.2 WITH THE
;			  SPAWN DIRECTIVE.
%
-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?
-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
/