File CCLDAT.MA (MACREL macro assembler source file)

Directory of image this file is from
This file as a plain text file

/
/
/
/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.
/
/
/


/VERSION=V3A (D.H.)
/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
NODATE, JMS I (PRMESG NONE TM1, 0 TM2, 0 DATEM, 0 DAY, 0 YEAR, 0 NONE, TEXT /NONE/ PAGE
MONLST, MON1 MON2 MON3 MON4 MON5 MON6 MON7 MON8 MON9 MON10 MON11 MON12
MON1, 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/
COM19, 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



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search