;MONTH TABLE FOR DAYTIME COMMAND PRINTING\r
\r
PMONTB: POINT 6,MONTAB(TAC),5 ;POINTER TO NUMBER OF DAYS INMONTH\r
-MONTAB: EXP ^D30B5+"JAN\r
- EXP ^D27B5+"FEB\r
- EXP ^D30B5+"MAR\r
- EXP ^D29B5+"APR\r
- EXP ^D30B5+"MAY\r
- EXP ^D29B5+"JUN\r
- EXP ^D30B5+"JUL\r
- EXP ^D30B5+"AUG\r
- EXP ^D29B5+"SEP\r
- EXP ^D30B5+"OCT\r
- EXP ^D29B5+"NOV\r
- EXP ^D30B5+"DEC\r
+MONTAB: EXP ^D30B5+"JAN"\r
+ EXP ^D27B5+"FEB"\r
+ EXP ^D30B5+"MAR"\r
+ EXP ^D29B5+"APR"\r
+ EXP ^D30B5+"MAY"\r
+ EXP ^D29B5+"JUN"\r
+ EXP ^D30B5+"JUL"\r
+ EXP ^D30B5+"AUG"\r
+ EXP ^D29B5+"SEP"\r
+ EXP ^D30B5+"OCT"\r
+ EXP ^D29B5+"NOV"\r
+ EXP ^D30B5+"DEC"\r
MIDNIT: EXP ^D60*^D60*^D24*JIFSEC ;NO OF JIFFIES TILL MIDNIGHT\r
\f;STOP PROCEDURE WHEN SHUTTING DOWN SYSTEM\r
;BECAUSE OF CATOSTROPHIC FAILURE OR ANY OTHER REASON\r