18-FEB-78 MACMAC.MA 51 20-AUG-78 MAC24 .MA 122 28-SEP-78 COMPIL.BI 5 15-JAN-71 XFUTIL.BI 1 19-JAN-71 LINK .BI 2 19-JAN-71 LNKCAL.MA 18 25-JUL-78 PATCH1.BI 4 19-JAN-71 LNKLSD.MA 85 12-JUL-78 LNKCD .MA 45 26-SEP-78 LNKALL.MA 102 26-SEP-78 LNKMAP.MA 77 26-SEP-78 LNKBN1.MA 22 24-JUL-78 LNKBN2.MA 106 30-AUG-78 LNKMSG.MA 12 30-AUG-78 LNKMAN.MA 68 26-SEP-78 15 files in 720 blocks - 10 free blocks MACLOD.MA 7 25-AUG-78 MACTBL.MA 9 02-OCT-77 31 files in 720 blocks - 10 free blocks "PFLTBL", WHICH CONTAINS ONE WORD /PER TASK. A TASK MAY ALTER ITS WORD IN THIS TABLE BY SENDING A /MESSAGE TO THE POWER-FAIL TASK. THE FORMAT OF THE MESSAGE IS: /WORD 1 EVENT FLAG (RTS-8 PUTS TASK NUMBER IN LOW BITS) /WORDS 2-3 RESERVED FOR RTS-8 /WORD 4 NEW TABLE ENTRY VALUE /IF THE TABLE ENTRY VALUE IS 0, NOTHING WILL BE DONE FOR THE /CORRESPONDING TASK. IF THE VALUE IS 7777, THE TASK'S EVENT FLAG /WAIT BIT WILL BE CLEARED. IF THE VALUE IS BETWEEN 0 AND 7777, IT /IS CONSIDERED TO BE THE ADDRESS OF A SUBROUTINE IN THE TASK'S FIELD /TO WHICH THE TASK WILL BE DERAILED WITH ITS EVENT FLAG WAIT BIT CLEARED. INIWT= 0 /INITIALIZATION CODE .FSECT PWRFF, LEVEL=0 .EXTERNAL MSGTBL IFNZRO KL8A < .EXTERNAL KL8ACT > .TASK PWRF,PW