.TITLE	BOOTON -- BOOT LOGON PROCEDURE
	.IDENT	/JRBARR/
	.MCALL	SMACIT
	SMACIT
	.MCALL	DIR$,EXIT$S,GTIM$,VSDR$
;
;	DATA AREA
;
	.PSECT	DATA,RW
SNDBUF:
ACTION:	.RAD50	/TON/
SETUIC:	.WORD	0
DEVICE:	.WORD	0
UNIT:	.WORD	0
TIME:	.BLKW	8.
;
GTIM:	GTIM$	TIME
SNDRR:	VSDR$	LOGGER,,,1,1,SNDBUF,12.
;
;
	.PSECT	,RW
BOOTON:
	LET R5 := .CRTSK	;ATL POINTER
	LET R4 := A.TI(R5)	;PUD POINTER
	LET SETUIC := U.UI(R4)	;UIC THIS PUD
	LET DEVICE := U.DN(R4)	;ASCII DEVICE NAME
	LET UNIT :B= U.UN(R4)	;BINARY UNIT NUMBER
	DIR$	#GTIM
	DIR$	#SNDRR
	EXIT$S
;
	.END	BOOTON