INSFL.MAC;2/AU=[12,10]INSFL.VGN;1
\
-2,2
	.IDENT	/04.01X/
-/JAK007/,,
;
;	JGD16	23-JUL-79	ON RUN $ OR INS $ LOOK ALSO IN $LBUIC FOR
;				TASK.
;
%
-/; LOCAL DATA/+1,,/; JGD16/
	.IFNDF	R$$PRV		; IF SYSCM CHANGES NOT MADE
$LBUIC:	.WORD	454		; DEFAULT TO [1,54]
	.ENDC			; .ENDC R$$PRV
DLRFLG:	.WORD	0		; SET IF '$' SEEN, DEC EACH PASS THROUGH '$' CODE
BUFADR:	.WORD	0		; TEMP STORAGE FOR COMMAND LINE BUFFER ADDRESS
-/BCS	INSFL1/,.,/; JGD16/
	BCC	1$		; IF CC NO ERROR
	JMP	INSFL1		; ERROR
1$:				; REF LABLE
-/.IFT/,,/; JGD16/
	MOV	R5,BUFADR	; IN CASE WE HAVE TO SCAN THROUGH TWICE
-/FINIT$/,,/; JGD16/
11$:				; REF LABLE
-/15$:/,,/; JGD16/
	TST	DLRFLG		; ARE WE ALREADY SET
	BNE	1500$		; IF NE YES
	MOV	#2,DLRFLG	; ELSE SET FLAG THE FIRST TIME THROUGH
1500$:				;
-/$SYUIC/,.+1,/; JGD16/
	CMP	DLRFLG,#2	; IS THIS THE FIRST THROUGH
	BNE	1501$		; IF NE, NO, IT MUST BE SECOND TIME,  TRY SYSUIC
	BISB	$SYUIC+1,R1	; SET GROUP NUMBER
	BR	1503$		; SKIP LIBUIC
1501$:	BISB	$LBUIC+1,R1	; SET GROUP NUMBER
1503$:	CLR	R2		; SUPPRESS LEADING BLANKS
-/$SYUIC/,.,/; JGD16/
	CMP	DLRFLG,#2	; IS THIS THE FIRST TIME THROUGH
	BNE	1505$		; IF NE, NO, ITS SECOND TIME THROUGH, TRY LIBUIC
	BISB	$SYUIC,R1	; YES, TRY SYSUIC FOR MEMBER NUMBER
	BR	1507$		; SKIP
1505$:	BISB	$LBUIC,R1	; SET MEMBER NUMBER
1507$:	DEC	DLRFLG		; SHOW WE'VE BEEN THIS WAY ONCE
-/17$:/
-/INSFL3/,.,/; JGD16/
	BNE	19$		; IF NE, NO
	TST	DLRFLG		; IF EQ, WE'VE TRIED 2 TIMES, TIME TO GIVE UP
	BEQ	INSFL3		; YES
	MOV	BUFADR,R5	; RESTORE ADDRESS IN R5
	CLR	OPTN		; RESET OPTION FLAG
	JMP	11$		; TRY ONE MORE TIME USING LIBUIC
19$:				; REF LABLE
/