A large commit.

[pdp8.git] / sw / os8 / v3d / sources / devext / dectapes / dectape1 / ccldat.ma

diff --git a/sw/os8/v3d/sources/devext/dectapes/dectape1/ccldat.ma b/sw/os8/v3d/sources/devext/dectapes/dectape1/ccldat.ma
new file mode 100644 (file)
index 0000000..1ba4598
--- /dev/null
+++ b/sw/os8/v3d/sources/devext/dectapes/dectape1/ccldat.ma
@@ -0,0 +1,187 @@
+/
+/
+/
+/COPYRIGHT  (C)  1979 BY DIGITAL EQUIPMENT CORPORATION
+/
+/
+/
+/THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE
+/AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
+/CORPORATION.  DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
+/FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
+/
+/THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER
+/UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
+/(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH
+/SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.
+/
+/DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
+/OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
+/DIGITAL.
+/
+/
+/
+
+\f
+/VERSION=V3A (D.H.)
+\f/3    CCL DATE COMMAND
+
+       .ENTRY DATE
+       .EXTERNAL PRINT,OTOD,PRWD,PRMESG
+       .EXTERNAL CRLF,LOOK,CHAIN
+       .EXTERNAL YDATE
+
+       DATWD=7666
+       BATCCL=7777
+
+       .RSECT CCLDAT
+       FIELD 1
+
+DATE,  0
+       TAD I (DATWD
+       SNA
+       JMP NODATE
+       DCA DATEM
+       TAD DATEM
+       CLL RTL
+       RTL
+       RAL
+       AND (17
+       DCA TM1
+       TAD TM1
+       TAD (MONLST-1
+       DCA TM2
+       TAD I TM2
+       DCA 4$
+       TAD DATEM
+       AND (7
+       DCA T$
+       CDF 0
+       TAD I (BATCCL
+       CDF 10
+       CLL RTR
+       RTR
+       AND (30
+       TAD T$
+       DCA TM2
+       TAD TM2
+       TAD (70.
+       JMS I (OTOD
+       DCA YEAR
+       TAD DATEM
+       CLL RTR
+       RAR
+       AND (37
+       DCA DATEM
+       TAD DATEM
+       JMS I (OTOD
+       DCA DAY
+       STL CLA RTL     /2
+       TAD TM2
+       CLL RTR
+       SNL SMA
+       JMP 1$
+       ISZ I (JAN
+       ISZ I (FEB
+1$:    AND (37
+       TAD TM2
+       TAD (3
+       TAD DATEM
+       DCA DATEM
+       TAD TM1
+       TAD (JAN-1
+       DCA TM1
+       TAD I TM1
+       TAD DATEM
+2$:    CLL
+       TAD (-7
+       SZL
+       JMP 2$
+       TAD (7
+       TAD (WEEKLST
+       DCA TM2
+       TAD I TM2
+       DCA 3$
+       STA             /DON'T CRLF AND PRINT IN LOWER CASE
+       JMS I (PRINT
+3$:    0
+       STA
+       JMS I (PRINT
+       DAYDAY
+       CLA IAC
+       JMS I (PRINT
+4$:    0
+       STL CLA RAR
+       JMS I (PRWD     /SPACE
+       TAD DAY
+       JMS I (PRWD
+       CLA IAC
+       JMS I (PRINT
+       COM19
+       TAD YEAR
+       JMS I (PRWD
+       JMS I (CRLF
+       JMS I (LOOK     /LOOKUP SYS:DATE.SV
+       YDATE
+       JMP I DATE      /DO NOTHING IF IT'S NOT THERE
+       JMP I (CHAIN    /CHAIN TO IT, IF IT'S THERE
+T$:    0
+\fNODATE,       JMS I (PRMESG
+       NONE
+TM1,   0
+TM2,   0
+DATEM, 0
+DAY,   0
+YEAR,  0
+
+NONE,  TEXT    /NONE/
+       PAGE
+\fMONLST,       MON1
+       MON2
+       MON3
+       MON4
+       MON5
+       MON6
+       MON7
+       MON8
+       MON9
+       MON10
+       MON11
+       MON12
+\fMON1, TEXT    /JANUARY/
+MON2,  TEXT    /FEBRUARY/
+MON3,  TEXT    /MARCH/
+MON4,  TEXT    /APRIL/
+MON5,  TEXT    /MAY/
+MON6,  TEXT    /JUNE/
+MON7,  TEXT    /JULY/
+MON8,  TEXT    /AUGUST/
+MON9,  TEXT    /SEPTEMBER/
+MON10, TEXT    /OCTOBER/
+MON11, TEXT    /NOVEMBER/
+MON12, TEXT    /DECEMBER/
+\fCOM19,        TEXT    /, 19/
+
+WEEKLST,DAY1
+       DAY2
+       DAY3
+       DAY4
+       DAY5
+       DAY6
+       DAY7
+
+       .ENABLE ASCII
+DAY1,  TEXT    /Satur/
+DAY2,  TEXT    /Sun/
+DAY3,  TEXT    /Mon/
+DAY4,  TEXT    /Tues/
+DAY5,  TEXT    /Wednes/
+DAY6,  TEXT    /Thurs/
+DAY7,  TEXT    /Fri/
+DAYDAY,        TEXT    /day /
+       .ENABLE SIXBIT
+
+JAN,   0
+FEB,   3
+       4;0;2;5;0;3;6;1;4;6
+