.title WAKUP .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]WAKUP ; Build File: N/A ; Module Name: WAKUP ; Machine/System: PDP-11/70 IAS V3.0 ; Type/Language: Subroutine/Assembler ; Abstract: This subroutine "WAKES-UP" the LG.... handler to ; check its LOG file, and also to reschedule it's ; timeout for the new day. ; Subroutines Used: ; Edits: ;No. Date By Reason ;--- --------- ------ ---------------------------------------------------- ; none .sbttl Start Mainline code .PSECT WAKUP,I,RW,REL,LCL .GLOBL WAKUP,$STAT0,$STAT1,NEWFIL,$IODUN,$WAIT,IS.SUC .MCALL CMKT$S ; Basically, all this module does is to call cancel any ; outstanding Mark-times, call NEWFIL to process the new ; LOG file, then return to the wait loop. ; The basic syntax of the QIO used to access this function is: ; QIOW$ LG.CHK,LUN,EF,PRI,IOSB,AST,<0> WAKUP: MOV #IS.SUC,$STAT0 ; Set success initially CLR $STAT1 ; 2nd status word not used CMKT$S ; Cancel marktime CALL NEWFIL ; Get newfile and new marktime CALL $IODUN ; Do I/O done processing JMP $WAIT ; Return to wait loop .END