MCRDIS.MAC;2/AU/BF=MCRDIS.MAC;1
\
-2,2
	.IDENT	/1.04X/
-33
;
;	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.

%
-286,286,/; 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
-371,374,/; RJDK2/
				; DELETE TESTS FOR HT & SPACE 
				; INCLUDE IN MORE GENERAL LATER
-379,379,/; 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
-425,427,/; RJDK1/
	CALL	$CAT5		; CONVERT 3 CHARS TO RAD50
	BCC	40$		;
	JMP	LODCCL		; USE CCL TO DECODE IT
-443,443,/; RJDK1/
44$:	JMP	LODCCL		; SYNTAX ERROR
-506,,/; RJDK1/
LODCCL:	MOV	(PC)+,R1	; GET CCL'S NAME
	.RAD50	/CCL/		; 
	BR	LDTSK		; AND LOAD IT
-536,536,/; 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
-697,,/; 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
/