.TITLE	BYE -- LOGOFF PROCESSOR
	.IDENT	/JRBARR/
	.MCALL	SMACIT
	SMACIT		;CALL IN SUPER MAC
	.MCALL	DIR$,GTIM$,VSDR$,EXIT$S
;
;
;  LOCAL PURE DATA
;
;
	.PSECT	PURE,RO
GTIM:	GTIM$	TIME
VSDR:	VSDR$	LOGGER,,,1,1,SNDBUF,12.
;
;  LOCAL IMPURE DATA
;
	.PSECT	IMPURE,RW
SNDBUF:
ACTION:	.RAD50	/BYE/
SETUIC:	.WORD	0
DEVICE:	.WORD	0
UNIT:	.WORD	0
TIME:	.BLKW	8.
;
;  ALL CODE IS PURE
;
	.PSECT	PURE,RO
;
	PROCEDURE BYE
	  LET R0 := .CRTSK	;ATL POINTER
	  LET R1 := A.TI(R0)	;PUD POINTER
	  LET DEVICE := U.DN(R1);DEVICE
	  LET UNIT :B= U.UN(R1)	;UNIT NUMBER
	  LET SETUIC := U.UI(R1);UIC CURRENTLY LOGGED ON TO
	  DIR$ #GTIM
	  DIR$ #VSDR
	  LET U.TF(R1) := U.TF(R1) OFF.BY #UT.LG!UT.PR
	  LET U.UI(R1) := #0
	  EXIT$S
	ENDPROCEDURE BYE
	.END BYE