MCRCCL.MAC;2/-AU/-BF=LB:[12,10]MCRDIS.MAC;1
-33
;
;	RJDK001	28-JUL-78 REMOVE CONTROLS & LEADING SPACES
;			  ALSO CALLS CCL ON NO TASK/ SYNTAX ERROR

-371,374
				; DELETE TESTS FOR HT & SPACE [RJDK001]
				; INCLUDE IN MORE GENERAL LATER
-379,379
7$:	TST	DISLEN		; ANY TEXT YET?			[RJDK001]
	BNE	71$		; YES 				[RJDK001]
	CMPB	R1,#SPA		; CONTROL OR SPACE		[RJDK001]
	BLE	6$		; YES JUST IGNORE IT		[RJDK001]
71$:	CMPB	R1,#SPA		; GENERAL SPACES & CONTROLS	[RJDK001]
	BLE	10$		; YES - THEN MAKE JUST 1 SPACE	[RJDK001]
	TST	COMFLG		; COMMENT IN PROGRESS?				;HJL070
-425,427
	CALL	$CAT5		; CONVERT 3 CHARS TO RAD50
	BCC	40$		;
	JMP	LODCCL		; USE CCL TO DECODE IT		[RJDK001]
-443,443
44$:	JMP	LODCCL		; SYNTAX ERROR			[RJDK001]
-506
LODCCL:	MOV	(PC)+,R1	; GET CCL'S NAME		[RJDK001]
	.RAD50	/CCL/		; 				[RJDK001]
	BR	LDTSK		; AND LOAD IT			[RJDK001]
-536,536
	BCC	16$		; FOUND IT			[RJDK001]
	CLR	R5		; SET NO PARENT			[RJDK001]
	MOV	(PC)+,R1	; GET CCL NAME			[RJDK001]
	.RAD50	/CCL/		; 				[RJDK001]
	MOV	R1,$MPARS+2	; AND SET FOR LATER		[RJDK001]
	CALL	$SRSTD		; SEARCH FOR CCL INSTEAD	[RJDK001]
	BCS	17$		; NOT IN SYSTEM
16$:				; REF LABEL			[RJDK001]
-697
	MOV	#<^RCCL>,R1	; OR IS IT CCL?			[RJDK001]
	CMP	R1,$MPARS+2	; ...CCL?			[RJDK001]
	BEQ	35$		; YES DONT PROMPT		[RJDK001]
	CMP	R1,$MPARS	; OR CCLXN			[RJDK001]
	BEQ	35$		; YES NEITHER FOR THIS		[RJDK001]
/