MCRDIS.MAC/AU::10.=MCRDIS.VGN
-/; MODIFIED FOR RSX-11M-PLUS V3.0 UPDATE B BY:/+4,,/ ** RLH001/
;
;	RLH001	Modified to pass fewer than 3 character commands to CA.
;
-/CALL	$CAT5/+1,.,/ ** RLH001/
	BHIS	193$		; If carry clear, command passed, so continue.
	MOV	#^RCA.,R1	; Push in command name CA.
	MOV	R3,R0		; Reset starting pointer for buffer.
193$:				; If got good command, jump here.
/