MAIMAIL.MAC;2/AU=MAIMAIL.VGN;1
\
-3,3
	.IDENT	/1.1X/
-28
; JGD16		J DOWNWARD	29-JUL-79	ADD SUPPORT FOR USING THE ACCOUNT NUMBER
;						TO HELP MAITSK TRACK DOWN USER WHO HAS 
;						CHANGED HIS/HER UIC.
%
-/MAIL:/
-/13$:/,,/; JGD16/
	MOV	ENTRY,SDPACK+4		; SET ACCOUNT NUMBER IN SEND PACKET
-408,409,/; JGD16/
	BR	44$			; 
40$:					; REF LABLE				
	TST	#ACCNUM			; SEE IF WE SHOULD TRY AND GET ACCOUNT NUMBER
	BEQ	44$			; IF A GBL PATCH SETS IT =0, WE SHOULD	
	MOV	ENTRY,R0		; START OF ACCOUNT BLOCK		
	MOV	A.ACN(R0),ENTRY 	; GET ACCOUNT NUMBER ,FOR PUTTING IN THE SEND BUFFER
44$:	LEAVE				;RESTORE THE REGISTERS			
	RETURN				;
 
 
/