BYE.MAC;2/AU:72.=BYE.MAC;1
\
-2,2
	.IDENT	/JN3.1A/
-39
;	JN3.1A	13-APR-79 BY J. NEELAND, HUGHES RESEARCH LABS, TO ADD
;		SUPPORT FOR TLOGGR TASK, REMOVE DIRECT MESSAGES TO CO:
%
-42,,/;JN3.1A/
	.MCALL	SDAT$,RQST$,GLUN$
-77,,/;JN3.1A/
MSGBUF:	.WORD	2		;BEGINNING OF MSG BUFFER FOR SEND TO
	.BLKW	6		; TLOGGR TASK.  OPCODE=2 FOR LOGOUT.
LUNBUF:	.BLKW	6		;USE MSG BUFFER FOR LUN INFO TOO

GLUN:	GLUN$	1,LUNBUF	;GET INFO ABOUT TERMINAL
SND:	SDAT$	TLOGGR,MSGBUF,1	;SEND TO TLOGGR TASK, WAIT FOR EFN #1
RQST:	RQST$	TLOGGR		;ACTIVATE TLOGGR TASK IF NOT RUNNING
-173,175,/;JN3.1A/
BYE1:				;REF. LABEL
	MOV	#MSGBUF+1,R0	;SET POINTER TO BEGIN OF MSG AREA
	DIR$	#GLUN		;GET THE NEEDED INFO RE THE TERMINAL
	MOVB	LUNBUF+G.LUNU,(R0)+ ;COPY OUT THE TERMINAL NUMBER
	MOVB	LUNBUF+G.LUNA,(R0)+ ; FOLLOWED BY THE NAME
	MOVB	LUNBUF+G.LUNA+1,(R0)+
	DIR$	#SND,PRINT1	;SEND UNLESS ERROR
	WTSE$S	#1		;WAIT UNTIL SEND IS COMPLETE
	DIR$	#RQST		;REQUEST ACTIVATION OF TLOGGR
;
PRINT1:	GTIM$S	#TIMBUF		; GET TIME
-205,208,/;JN3.1A/
-243,280,/;JN3.1A/
/