File: CCLDAT.LS of Disk: V50/Source/Source-Listing-MAC-1
(Source file text)
/CCL DATE+TIME FOR KBM V50 MACREL-V2C WED 03-JUN-92 PAGE 1
FILE # 1
1 /CCL DATE+TIME FOR KBM V50
2 /
3 /
4 /
5 /
6 /
7 / CCL DATE COMMAND
8 / VERSION=5A
9
10 .ENTRY DATE
11 .EXTERNAL WEEKLST,MONLST
12 .EXTERNAL OTOD,PRWD,LISPRT
13 .EXTERNAL CRLF,LOOK,CHAIN
14 .EXTERNAL YDATE,ERROR
15
118
119 0000 .RSECT CCLDAT
120 0001 FIELD 1
121
122 0000 * OVLSTR==. /START OF OVERLAYS
123 /*** DATE MUST BE LEVEL 1 OVERLAY 0 ***
124 /AND FIRST SUBROUTINE IN THAT LEVEL
/CCL DATE+TIME FOR KBM V50 MACREL-V2C WED 03-JUN-92 PAGE 3
FILE # 1
125
126
127
128
129
130
131
132
133 10000 0000 DATE, 0
134 10001 6254 SM8 /SKIP ON MULTI8
135 10002 7610 SKP CLA
136 10003 4777 JMS I (TIME
137 10004 3776 DCA I (JAN /INIT JANUARY,FEBRUARY
138 10005 7325 CLA STL IAC RAL /AC0003
139 10006 3775 DCA I (FEB
140 10007 1774 TAD I (MDATE
141 10010 7450 SNA
142 10011 5327 JMP NODATE
143 10012 3334 DCA DATEM
144 10013 1334 TAD DATEM
145 10014 7002 BSW
146 10015 7112 CLL RTR
147 10016 0373 AND (17
148 10017 3332 DCA TM1 /MONTH
149 10020 1334 TAD DATEM
150 10021 0372 AND (7
151 10022 3333 DCA TM2 /MOD 8 YEAR
152 10023 6201 CDF 0
153 10024 1771 TAD I (BATCCL
154 10025 6211 CDF 10
155 10026 7112 CLL RTR
156 10027 7012 RTR
157 10030 0370 AND (70
158 10031 1333 TAD TM2
159 10032 3333 DCA TM2 /FROM 1970 YEAR
160 10033 1333 TAD TM2
161 10034 1367 TAD (70.
162 10035 4766 JMS I (OTOD
163 10036 3336 DCA YEAR /YEAR STRING
164 10037 7630 SZL CLA /LINK HAS HUNDREDS
165 10040 1365 TAD ('20-'19
166 10041 1364 TAD ('19
167 10042 3331 DCA CNTURY
168 10043 1334 TAD DATEM
169 10044 7112 CLL RTR
170 10045 7010 RAR
171 10046 0363 AND (37
172 10047 3334 DCA DATEM /DAY IN MONTH
173 10050 1334 TAD DATEM
174 10051 4766 JMS I (OTOD
175 10052 3335 DCA DAY /DAY STRING
176 10053 7326 STL CLA RTL /2
177 10054 1333 TAD TM2 /1972=4, 1976=8, ETC
178 10055 7112 CLL RTR
179 10056 7520 SNL SMA
/CCL DATE+TIME FOR KBM V50 MACREL-V2C WED 03-JUN-92 PAGE 3-1
FILE # 1
180 10057 5262 JMP 1$
181 10060 2776 ISZ I (JAN /FOR NORMAL YEARS
182 10061 2775 ISZ I (FEB
183 10062 0363 1$: AND (37 /1 DAY MORE FOR LEAPIES
184 10063 1333 TAD TM2 /1 DAY PER NORMAL YEAR
185 10064 1362 TAD (3 /OFFSET FOR 1970
186 10065 1334 TAD DATEM
187 10066 3334 DCA DATEM
188 10067 1332 TAD TM1
189 10070 1361 TAD (JAN-1
190 10071 3333 DCA TM2
191 10072 1733 TAD I TM2 /GET MONTH OFFSET
192 10073 1334 TAD DATEM
193 10074 7100 2$: CLL
194 10075 1360 TAD (-7 /MODULO 7
195 10076 7430 SZL
196 10077 5274 JMP 2$
197 10100 1372 TAD (7
198 10101 4757 JMS I (LISPRT /PRINT WEEKDAY,
199 10102 0000 * WEEKLST
200 10103 1356 TAD (',
201 10104 4755 JMS I (PRWD
202 .IF DF GERMAN <
203 TAD DAY
204 JMS I (PRWD /PRINT DATE.
205 TAD ('.
206 JMS I (PRWD>
207 10105 1332 TAD TM1
208 10106 4757 JMS I (LISPRT /PRINT MONTH,
209 10107 0000 * MONLST
210 .IF NDF GERMAN <
211 10110 1354 TAD (' @
212 10111 4755 JMS I (PRWD /SPACE
213 10112 1335 TAD DAY
214 10113 4755 JMS I (PRWD>
215 10114 1356 TAD (',
216 10115 4755 JMS I (PRWD
217 10116 1331 TAD CNTURY /PRINT ", 19" OR ", 20"
218 10117 4755 JMS I (PRWD
219 10120 1336 TAD YEAR
220 10121 4755 JMS I (PRWD /PRINT REST OF YEAR
221 10122 4753 JMS I (CRLF
222 10123 4752 JMS I (LOOK /LOOKUP SYS:DATE.SV
223 10124 0000 * YDATE
224 10125 5600 JMP I DATE /DO NOTHING IF IT'S NOT THERE
225 10126 5751 JMP I (CHAIN /CHAIN TO IT, IF IT'S THERE
/CCL DATE+TIME FOR KBM V50 MACREL-V2C WED 03-JUN-92 PAGE 4
FILE # 1
226
227
228
229
230
231
232
233
234 10127 4750 NODATE, JMS I (ERROR
235 10130 0024 20.
236 10131 6171 CNTURY, '19
237 10132 0000 TM1, 0
238 10133 0000 TM2, 0
239 10134 0000 DATEM, 0
240 10135 0000 DAY, 0
241 10136 0000 YEAR, 0
242
243
------
10150 0000 *
10151 0000 *
10152 0000 *
10153 0000 *
10154 4000
10155 0000 *
10156 5440
10157 0000 *
10160 7771
10161 0224 +
10162 0003
10163 0037
10164 6171
10165 0067
10166 0000 *
10167 0106
10170 0070
10171 7777
10172 0007
10173 0017
10174 7666
10175 0226 +
10176 0225 +
10177 0200 +
244 0200 PAGE
/CCL DATE+TIME FOR KBM V50 MACREL-V2C WED 03-JUN-92 PAGE 5
FILE # 1
245
246
247
248
249
250
251
252
253 10200 0000 TIME, 0
254 10201 7200 CLA
255 10202 6770 GIOT /GET TIME OF DAY
256 10203 3224 DCA T$
257 10204 1224 TAD T$
258 10205 7002 BSW
259 10206 0377 AND (77
260 10207 1376 TAD (100. /KLUDGE TO PREVENT SPACES
261 10210 4775 JMS I (OTOD
262 10211 4774 JMS I (PRWD
263 10212 1373 TAD (':@
264 10213 4774 JMS I (PRWD
265 10214 1224 TAD T$
266 10215 0377 AND (77
267 10216 1376 TAD (100. /IDEM
268 10217 4775 JMS I (OTOD
269 10220 4774 JMS I (PRWD
270 10221 1372 TAD ('
271 10222 4774 JMS I (PRWD
272 10223 5600 JMP I TIME
273 10224 0000 T$: 0
274 10225 0000 JAN, 0
275 10226 0003 FEB, 3
276 10227 0004 4;0;2;5;0;3;6;1;4;6
10230 0000
10231 0002
10232 0005
10233 0000
10234 0003
10235 0006
10236 0001
10237 0004
10240 0006
------
10372 4040
10373 7200
10374 0000 *
10375 0000 *
10376 0144
10377 0077
277 0400 PAGE
/CCL DATE+TIME FOR KBM V50 MACREL-V2C WED 03-JUN-92 PAGE 6
SYMBOL TABLE
AMFLAG 0017 LOOK X ****
BATBUF 4400 LXR 0034
BATCCL 7777 MDATE 7666
BATERR 7000 MIFILE 7617
BATIN 5400 MMISC 7777
BATOUT 7400 MOFILE 7600
BATSPL 7200 MONLOD 7605
BATTBL 6600 MONLST X ****
BATVFY 5600 MONSAV 7600
BEGLN 1000 MPARAM 7643
BFR 3000 MREAD 7757
CCLBLK 0067 MSOVL2 0055
CCLDAT 0400 RSECT NAME1 0023
CCLDEV 0001 NAME2 0024
CCLHND 0000 NAME3 0025
CCLINC 0054 NAME4 0026
CCLNUM 0265 NAME5 0027
CCLSW 0435 NMBASE 0037
CCLTAB 0265 NODATE 0127+ CCLDAT
CCLVER 0301 OS78BI 7771
CHAIN X **** OTOD X ****
CLXR 0035 OV 1375
CNTURY 0131+ CCLDAT OVLSTR G 0000+ CCLDAT
CRLF X **** PRMES 0330
CTRLCK 1241 PRQMRK 1357
DATE E 0000+ CCLDAT PRWD X ****
DATEM 0134+ CCLDAT PTR 0036
DAY 0135+ CCLDAT REMBLO 0065
DEASAD 0427 REMSPA 4000
DEF 0022 REST 5000
DEFALT 0033 SBLOCK 7776
DELIM 0032 SCOPE 7726
DEV1 0030 SHNDLR 7607
DEV2 0031 SM8 6254
DOLFLG 7776 SOFSET 7747
DVHNDL 7647 SPLNUM 7777
ERRET 0033 SWSTBL 7360
ERROR X **** SYBLKN 7774
EXTTBL 6600 SYCNT 7775
FEB 0226+ CCLDAT SYSTEM 0022
FILDMY 0002 T 0020
FILETB 7000 TBLTBL 6100
FLD: 0 0200 ASECT TESBUF 2000
F0STUF 7200 TIME 0200+ CCLDAT
GETCCL 1362 TM1 0132+ CCLDAT
GIOT 6770 TM2 0133+ CCLDAT
GLINE 1200 TT 0021
HNDLR 4400 USR 0200
JAN 0225+ CCLDAT WEEKLS X ****
JSBITS 7746 XFERV G 0070
KEYMON 0403 XR 0016
KMNTRY 0400 XR2 0015
LISPRT X **** YDATE X ****
LONGTB 5000 YEAR 0136+ CCLDAT