-2,2
	.IDENT	/01.7X/	;RSX11M+ MCRDIS CORRECTORS
-/PL125/+2,.
;	GCE001	31-OCT-80 REMOVE LEADING CTL CHARS IN A LINE, ALLOW CMDS
;	WITH <3 CHARS TO GO TO CA., AND ALLOW #FILE TO INVOKE ...PIN.
-/...MCR/
-/$MCREP::/
-/MCRPMT/
-/GET COMMAND NAME/
-/$CAT5/,.+2
	CMPB	@R0,#'#		;ATTEMPT TO LOAD ...PIN?	;GCE001
	BNE	32$		;IF NO, TRY AS NORMAL CMD	;GCE001
	MOVB	#40,@R0		;IF SO, REPLACE # BY SPACE	;GCE001
	CLR	$MPARS+10	;CLR CMD NAME BUFFER	;GCE001
	JMP	LODPIN		;AND RUN PIN TO DO CMD FILE	;GCE001
32$:				;REF LABEL		;GCE001
	CALL	$CAT5		; CONVERT 3 CHARS TO RAD50	;**-1
	BCC	37$		; 				;HJL076
;FOLLOWING LINE DELETED FOR CHANGE:
;	JMP	DISER1		; ERROR, NOT GOOD COMMAND	;**-1
34$:	TST	R1		;DID ANYTHING GET CONVERTED?	;GCE001
	BNE	37$		;IF SO LET IT BY...MAY BE OK	;GCE001
	CMPB	R2,#40		;CHAR BETTER BE PRINTABLE	;GCE001
	BHI	37$		;IF OK, LET IT BY AS NORMAL	;GCE001
	JMP	DISE10		;ELSE SYNTAX ERROR		;GCE001
-/44$:/,.
44$:	CMPB	R2,#40		; CHAR PRINTABLE?	;GCE001
	BGT	45$		; IF SO GIVE CA. A CHANCE AT IT. ;GCE001
	JMP	DISE10		; SYNTAX ERROR
-/LODAT:/+1
LODPIN:	MOV	#^RPIN,R1	;SET TO START ...PIN	;GCE001
	BR	LDTSK		;AND DO	;GCE001
-/GETLIN:/
-/SEARCH FOR PROMPT OR COMPLETE COMMAND/
-/IF NO TRAILING EXCLAMATION MARK IS FOUND/
-/90$:/
-/R1,#SPA/,.+5
;NEXT 4 LINES DELETED TO USE MORE GENERAL CODE LATER	;GCE001
;	CMPB	R1,#SPA		; IS A SPACE?		;HJL073
;	BEQ	180$		; YES			;HJL073
;	CMPB	R1,#HT		; IS HORIZONTAL TAB?	;HJL073
;	BEQ	180$		; YES			;HJL073
	CMPB	R1,#IE.EOF	; CTRL/Z?		;HJL073
	BEQ	208$		; YES			;HJL073
	TST	$DSLEN		;ANY TEXT YET? ;GCE001
	BNE	100$		;IF SO, USUAL TESTS OK	;GCE001
	CMPB	R1,#SPA		;CONTROL OR SPACE?	;GCE001
	BLE	90$		;IF SO IGNORE IT	;GCE001
100$:	CMPB	R1,#SPA		;GENERAL SPACES & CONTROLS ;GCE001
	BLE	180$		;MAKE JUST 1 SPACE	;GCE001
/