-2,2 .IDENT /2.07X/ -63,63 ; G. Everhart 11/23/82 - allow all commands to ...ca. even if <3 lett. -1259,1260 ; FOLLOWING LINES ADDED G. EVERHART 11/23/82 BCC 192$ ; IF CC GO AHEAD WITH IT CMPB @R3,#40 ; WAS CODE PRINTABLE ASCII? BLO 340$ ; IF NOT, ERROR, ELSE GIVE ...CA. A SHOT AT IT ; BCS 340$ ; IF CS, INVALID COMMAND ERROR 192$: MOV R1,$MCMD+2 ; SAVE COMMAND NAME ;END GCE MOD -1289 ; GCE : ALLOW LOG AS LOGIN ONLY IF TERMINAL NOT LOGGED IN NOW. BIT #U2.LOG,U.CW2(R5) ;TERMINAL LOGGED IN NOW BEQ 280$ ; IF EQ YES, LOG IS NORMAL COMMAND (ELSE LOGIN) /