MCRDIS.MAC;2=[12,10]MCRDIS.VGN;1/AU
\
-2,2
	.IDENT	/02.20XB/
-51
;
;	JGD	15-MAY-79 REMOVE CONTROL CHARACTERS AND LEADING
;			  LEADING SPACES FROM MCR COMMAND LINE.
;			  MCR WILL NOT LONGER PRODUCE AN ERROR 
;			  MESSAGE IF COMMAND PRECEDED BY A SPACE.
;			  NOTE THAT NO ATTEMPT IS MADE TO MAKE
;			  MCRDIS SUPPORT THE /NOLI SWITCH IF
;			  PARENT/OFSPRING TASKING IS NOT SUPPORTED.
;
;	JGD03	16-MAY-79 ALLOW COMMANDS <3 CHARACTERS TO BE PASSED
;			  TO CATCHALL TASK
;
;	JGD17   27-JUL-79 ALLOW COMMANDS CONSISTING OF 3 CHARACTERS FOLLOWED
;			  BY A NON RAD50 CHARACTER TO BE DISPATCHED TO
;			  ...CA. TO ALLOW COMMANDS LIKE XYZ? TO BE 
;			  TREATED AS HELP XYZ.  ALLOW A PRECEDING '#'
;			  TO DISPATCH PIN IN MUCH THE SAME WAY THAT
;			  '@' DISPATCHES ...AT.
;
;	JGD18	20-AUG-79 BUMP COUNTER IN UCB EACH TIME ...AT. IS RUN
;
;	JGD19	24-OCT-79 FIX PROBLEM WITH DECNET SUPPORT WHEN M$$CLI
;			  IS DEFINED
;
%
-/EQUATED SYMBOLS/,,/; JGD18/
;
	.IF DF	T$$CPU
	.MCALL	UCBDF$
	UCBDF$
-,,/; JGD19/
	.IFNDF	M$$CLI		; IF NO MULTIPLE CLI SUPPORT
U.ATCT=U.LUIC-16		; OFFSET INTO @ COUNTER
	.IFF			; IF MULTIPLE CLI SUPPORT EXISTS(DECNET)
U.ATCT=U.CLI-16			; OFSET FROM U.CLI RATHER THAN U.LUIC
	.ENDC			; .END M$$CLI
-,,/; JGD18/
	.ENDC			; .END T$$CPU
-/MCR2:/
-/R1,#SPA/,.+3,/; JGD/
				; DELETE TESTS FOR TAB & SPACE 
				; INCLUDE IN MORE GENERAL LATER
-/7$:/,.,/; JGD/
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?
-/; GET COMMAND NAME/
-/BEQ	LODAT/,,/; JGD17/
	CMPB	(R0),#'#	; ARE WE TRYING TO START UP PIN
	BNE	32$		; NO, SKIPOVER
	MOVB	#40,(R0)	; SHOVE IN A SPACE
	BR	LODPIN		; AND SEND IT TO PIN
32$:				; REF LABLE
-/JMP	DISER1/,.,/; JGD03/
35$:	MOV	#3,$MERRN	; PRETEND IT'S NO SUCH TASK FOR ...CA.
	JMP	DISERR		; AND GO TRY SENDING IT ONCE TO ...CA.
-/44$:/,.,/; JGD17/
44$:	BR	35$		; PRETEND IT'S NO SUCH TASK FOR ...CA.
-/LODSYS:/
-/BR	LDTSK/,,/; JGD17/
LODPIN:	MOV	(PC)+,R1	; SET NAME FOR PROCEDURE INTERPRETER
	.RAD50	/PIN/		; PROCEDURE INTERPRETER TASK
	BR	LDTSK		; GO DO IT
-/LODAT:/,.,/; JGD18/
LODAT:				; REF LABLE
	.IF DF	T$$CPU		; IF KMS ACCOUNTING OFFSETS ENABLED
	MOV	$TKTCB,R1	; GET OUR TASK HEADER
	MOV	T.UCB(R1),R1	; GET OUR UCB ADDRESS
	INC	U.ATCT(R1)	; BUMP COUNTER
	.ENDC			; .END T$$CPU
	MOV	(PC)+,R1	; SET NAME FOR INDIRECT
/