.title LGINI .ident "V01.0" .enabl lc .nlist me,cnd,bex .sbttl Author's Credits ; Author: Henry R. Tumblin ; Version: 1.0 ; Date: 08-Sep-79 ; For: Systems ; Residence: [311,33]LGINI.MAC ; Build File: LGINI.DCL ; Module Name: LGINI ; Machine/System: PDP-11/70 IAS V3.0 ; Type/Language: Main/Assembler ; Abstract: This module will re-initialize the handler upon ; system startup. ; Subroutines Used: ; Edits: ;No. Date By Reason ;--- --------- ------ ---------------------------------------------------- ; none .sbttl mcalls and Local macros .MCALL QIOW$,LGDEF$,DIR$,EXIT$S,PUSH,POP,GTIM$ .sbttl DPB's of interest LGDEF$ ; Define LG function codes LGDPB: QIOW$ 0,2,10,100,IOSB,,<0,0,0,0,0,0> ; DPB to comminicate with LG IOSB: .WORD 0,0 ; Status block MSGBUF: .BLKB 80. TIMBUF: .BLKW 8. ; Time buffer GTIM: GTIM$ TIMBUF .sbttl Messages MSG01: .ASCIZ "%NIAS Booted, T = %3Z, %Y" .EVEN .sbttl Start MAINLINE START: MOV #LG.CHK,LGDPB+Q.IOFN ; SET WAKEUP FUNCTION CODE DIR$ #LGDPB ; WAKE UP HANDLER DIR$ #GTIM ; Get system time MOV #TIMBUF,R0 ; Point to time buffer -> R0 ; Set up argument list for LG.... PUSH PUSH MOV #MSGBUF,R0 ; Point to output area MOV #MSG01,R1 ; Point to format string MOV SP,R2 ; Point to argument list CALL $EDMSG ; Format string MOV #LG.LOG,LGDPB+Q.IOFN ; Set function code MOV #MSGBUF,LGDPB+Q.IOPL ; Set buffer pointer MOV R1,LGDPB+Q.IOPL+2 ; Set buffer length DIR$ #LGDPB ; Perform I/O EXIT$S ; And exit .END START