.TITLE	LOGI
	.IDENT	/V03.0/
;
;	ARAP SPECIFIC PATCH.
;
;	MODIFIES LOGIN PROCEDURE SO THAT ALL LOGIN'S RUN ...NOT TO CHECK
;	DISK STORAGE USEAGE.  ALL NOTICES ARE FROM LB0:[1,1]NOTICE.TXT
;	
	.PSECT	LOGI,RO,I
;
LOGI=.
;
.=LOGI+2674
	NOP
;
;	PATCH LGINOT TO CALL ...NOT AND CHECK NOTICE FLAG. IF
;	NOTICE THEN SENT NOT TI:=LB0:[1,1]NOTICE.TXT, IF NO NOTICE THEN
;	SENT NOT TI:=LB0:[1,1]BATNOTICE.TXT.
;
.=LOGI+220
LGI.NO	=	001		; NOTICE FLAG
	BIT	#LGI.NO,QUFLG
;
.=LOGI+234
	MOV	2(R3),R2	; ADDRESS OF NF1: OR BF1: ('LB0:').
	MOVB	#1,(R2)+	; HEADER BYTE OF "1
	MOVB	USRUIC,(R2)+	; MOVE UIC TO COMMAND LINE
	MOVB	USRUIC+1,(R2)+
	MOVB	#1,(R2)+	; TRAILER BYTE OF "1
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
;
;	CHANGE PIP TO NOT
;
.=LOGI+324
	.ASCII	/NO/
	.ASCII	/T /
;
;
	.END