X-Git-Url: http://git.sky-visions.com/cgi-bin/gitweb.cgi/retro-software/dec/tops10/v4.5.git/blobdiff_plain/8c11230d54654d010d9027c672dcf4011d2cf539..e6cdcf9f28fd4956d9c22090b705d9d8396b5cde:/src/common.mac diff --git a/src/common.mac b/src/common.mac index 0a25637..e7ad159 100644 --- a/src/common.mac +++ b/src/common.mac @@ -928,18 +928,18 @@ XJBPFI: XWD .,0 ;LH FILLED IN WITH EXTERNAL JOBPFI (SEE JOBDAT) ;MONTH TABLE FOR DAYTIME COMMAND PRINTING PMONTB: POINT 6,MONTAB(TAC),5 ;POINTER TO NUMBER OF DAYS INMONTH -MONTAB: EXP ^D30B5+"JAN - EXP ^D27B5+"FEB - EXP ^D30B5+"MAR - EXP ^D29B5+"APR - EXP ^D30B5+"MAY - EXP ^D29B5+"JUN - EXP ^D30B5+"JUL - EXP ^D30B5+"AUG - EXP ^D29B5+"SEP - EXP ^D30B5+"OCT - EXP ^D29B5+"NOV - EXP ^D30B5+"DEC +MONTAB: EXP ^D30B5+"JAN" + EXP ^D27B5+"FEB" + EXP ^D30B5+"MAR" + EXP ^D29B5+"APR" + EXP ^D30B5+"MAY" + EXP ^D29B5+"JUN" + EXP ^D30B5+"JUL" + EXP ^D30B5+"AUG" + EXP ^D29B5+"SEP" + EXP ^D30B5+"OCT" + EXP ^D29B5+"NOV" + EXP ^D30B5+"DEC" MIDNIT: EXP ^D60*^D60*^D24*JIFSEC ;NO OF JIFFIES TILL MIDNIGHT ;STOP PROCEDURE WHEN SHUTTING DOWN SYSTEM ;BECAUSE OF CATOSTROPHIC FAILURE OR ANY OTHER REASON