.ENABL	LC
	.TITLE	RSTLOG - Report system restart to ACNTLG
	.IDENT	/01/
;+
; Title:	RSTLOG - Send system restart message to ACNTLG
; Version:	01
; By:		Greg Thompson (Informatics/PMI)
; Date:		6/19/78
;-
	.MCALL	EXIT$S,GTIM$,DIR$,SDAT$,RQST$,QIOW$
;
;	Send data control block
;
ACNT:	.WORD	3		; 3 = RSTLOG
TIME:	.BLKW	8.		; Time from GTIM$
	.BLKW	4		; Not used
;
GTIM:	GTIM$	TIME		; Get current time
SDAT:	SDAT$	ACNTLG,ACNT	; Send restart message to ACNTLG
RQST:	RQST$	ACNTLG,,,1,2	; Request ACNTLG to run
GINFO:	QIOW$	SF.GMC,5,5,,,,<TERMBF,2> ; Get info about TI:
TERMBF:	.BYTE	TC.PRI,0	; TI: device info buffer
;
RSTLOG:	DIR$	#GTIM		; Get current time
	BCS	10$		; Exit if error
	DIR$	#GINFO		; Find out about issuing terminal
	BCS	10$		; Exit if error
	TSTB	TERMBF+1	; Is issuing terminal privileged?
	BEQ	10$		; No, just exit
	DIR$	#SDAT		; Send message
	BCS	10$		; Exit if error
	DIR$	#RQST		; Request task to run
10$:	EXIT$S			; Exit task
;
	.END	RSTLOG		; End of code