OU:INSFL.MAC/AU=IN:[12,10]INSFL.VGN \ -2,2 .IDENT /10.03X/ ; ; JGD16 23-JUL-79 ON RUN $ OR INS $ LOOK ALSO IN $LBUIC FOR ; TASK. ; ; JGD18 03-DEC-80 DON'T ENDLESSLY LOOP IF A '$' SEEN AFTER AN ; OPTION SWITCH. ; ; JGD19 24-MAR-82 Also search $NTUIC for task. Search order is ; LIBUIC, SYSUIC, NETUIC ; % -/; LOCAL DATA/+1,,/; JGD16/ DLRFLG: .WORD 0 ; Set if '$' seen, increment each pass ; through '$' code BUFADR: .WORD 0 ; TEMP STORAGE FOR COMMAND LINE BUFFER ADDRESS -/.IFT/,,/; JGD16/ MOV R5,BUFADR ; IN CASE WE HAVE TO SCAN THROUGH TWICE -/FINIT$/,,/; JGD16/ 11$: ; REF LABEL -/15$:/ -/BNE 121$/,,/; JGD18/ INC DLRFLG ; COUNT HOW MANY TIMES WE SEE A '$' -,,/; JGD19/ CMP DLRFLG,#3 ; HAVE WE SEEN TOO MANY '$'? -,,/; JGD18/ BLE 1500$ ; NO, CONTINUE JMP INSFL2 ; YES, FLAG AS SYNTAX ERROR IF SO 1500$: ; REF LABEL -/$SYUIC/,.+1,/; JGD19/ CMP DLRFLG,#1 ; Is this the first time through BEQ 1501$ ; IF EQ, must be LIBUIC CMP DLRFLG,#2 ; Is this the second pass through BEQ 1502$ ; If EQ, must be NETUIC BISB $NTUIC+1,R1 ; Set group number for NTUIC BR 1510$ ; Do it 1501$: BISB $LBUIC+1,R1 ; SET GROUP NUMBER BR 1510$ ; Do it 1502$: BISB $SYUIC+1,R1 ; Set group number for SYSUIC BR 1510$ ; Do it 1510$: CLR R2 ; SUPPRESS LEADING BLANKS -/$SYUIC/,.,/; JGD19/ CMP DLRFLG,#1 ; Is this the first time through BEQ 1511$ ; If EQ yes, try LIBUIC CMP DLRFLG,#2 ; Is this the second time through BEQ 1512$ ; If EQ, yew try SYSUIC BISB $NTUIC,R1 ; Finally try NETUIC BR 1520$ ; Do IT 1511$: BISB $LBUIC,R1 ; Set LIBUIC member # BR 1520$ ; And proceed 1512$: BISB $SYUIC,R1 ; Set SYSUIC member # BR 1520$ ; And procede 1520$: ; REF LABEL -/16$:/ -/17$:/ -/BEQ INSFL2/,.,/; JGD18/ BEQ 1902$ ; YES -/INSFL3/,.,/; JGD16/ BNE 19$ ; IF NE, NO -,,/; JGD18/ TST DLRFLG ; MAYBE THIS IS NOT A '$' SCAN AT ALL BEQ 1903$ ; IF SO, FILE NOT FOUND -,,/; JGD19/ CMP DLRFLG,#3 ; IS THIS THE LAST TIME TO TRY -,,/; JGD18/ BEQ 1903$ ; YES, FILE NOT FOUND -,,/; JGD16/ MOV BUFADR,R5 ; RESTORE ADDRESS IN R5 CLR OPTN ; RESET OPTION FLAG JMP 11$ ; TRY ONE MORE TIME USING LIBUIC 19$: ; REF LABEL -/BEQ INSFL6/,.,/; JGD18/ BEQ 1906$ ; YES -/BEQ INSFL7/,.+1,/; JGD18/ BEQ 1907$ ; YES JMP INSFL8 ; NO, DEVICE OFFLINE 1902$: JMP INSFL2 ; SYNTAX ERROR 1903$: JMP INSFL3 ; FILE NOT FOUND 1906$: JMP INSFL6 ; DEVICE NOT MOUNTED 1907$: JMP INSFL7 ; DEVICE NOT IN SYSTEM /