X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=sw%2Fos8%2Fv3d%2Fsources%2Fdevext%2Fdectapes%2Fdectape1%2Fccldat.ma;fp=sw%2Fos8%2Fv3d%2Fsources%2Fdevext%2Fdectapes%2Fdectape1%2Fccldat.ma;h=1ba4598d67e6ce0f10d313d4811b6da3d6972cf0;hb=81e70d488b71bf995c459ca3a02c025993460ffa;hp=0000000000000000000000000000000000000000;hpb=07ec0278333ed187ac242dedcff13c56cf1b0b91;p=pdp8.git

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