MAITSK.MAC;2/AU=MAITSK.VGN;1
\
-3,3
	.IDENT	/1.1X/
-28
; JGD16		J. DOWNWARD	29-JUL-79	IF CAN'T FIND UIC AS A MATCH TRY USING
;						THE ACCOUNT NUMBER AS THAT STAYS FIXED
;						IN THE UCB EVEN IF A SET /UIC CHANGES UIC.
%
-53,,/; JGD16/
UACN:	.WORD	0
 
 
-78,80,/; JGD16/
	CMP	U.LUIC(R1),BUF+4	; DID HE GET THE MAIL(LOGON UIC MATCHES)
	BEQ	22$			; GOT IT				
	TST	#ACCNUM			; SHOULD WE CHECK FURTHER(GLBDEF =1 IF YES)
	BEQ	23$			; IF NO MOST LIKELY RUN PRIV NOT BUILT IN
	MOV	#U.LUIC,UACN		;					
	SUB	#4,UACN			; SUBTRACT OFF 4			
	ADD	UACN,R1			; POINT TO U.LUIC-4 IN UCB		
	TST	(R1)			; IF ACCOUNT NUMBER=0 GIVE UP		
	BEQ	23$			; NO, MOST LIKELY RUN PRIVLEGES NOT BUILT IN
					; USER MAY NOT HAVE IMPLEMENTED ACCOUNT NUMBER
	CMP	(R1),BUF+10		; DOES ACCOUNT NUMBER MATCH		
	BNE	23$			; IF NE, NO				
22$:					; REF LABLE				
/