File: CCLREM.LS of Disk: V50/Source/Source-Listing-MAC-1
(Source file text)
/CCL RECOLLECTION FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 1
FILE # 1
1 /CCL RECOLLECTION FOR KBM V50
2 /
3 /
4 /
5 /
6 /
7 /
8 /
9 /COPYRIGHT (C) 1979 BY DIGITAL EQUIPMENT CORPORATION
10 /
11 /
12 /
13 /
14 /
15 /
16 /THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE
17 /AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
18 /CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
19 /FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
20 /
21 /THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER
22 /UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
23 /(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH
24 /SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.
25 /
26 /DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
27 /OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
28 /DIGITAL.
29 /
30 /
31 /
32
/CCL RECOLLECTION FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 2
FILE # 1
33
34
35 /1 CCL RECOLLECTION ROUTINES
36 / VERSION=5A
37
38 .EXTERNAL REMD,SCAN,LBEGIN,PTBL,BATCH
39 .EXTERNAL ERROR,PRINT,TYPE,MOVE
40 .ENTRY REMEM,FOREVER,RECALL,GTOSUB
41
/CCL RECOLLECTION FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 4
FILE # 1
144
145
146 0000 .RSECT CCLREM
147 0001 FIELD 1
148
149 /CCL REMEMBERS UP TO 8 COMMAND LINES (EACH UP TO 56 DECIMAL
150 /SIXBIT CHARACTERS LONG) IN BLOCK 65 ON THE SYSTEM DEVICE.
151 /THIS BLOCK WHEN READ INTO 04000-04377 HAS THE FOLLOWING FORMAT:
152
153 /4000-4037 REM-LINE 0
154 /4040-4177 REM-LINE 1
155 /4100-4137 REM-LINE 2
156 /4140-4177 REM-LINE 3
157 /4200-4237 REM-LINE 4
158 /4240-4277 REM-LINE 5
159 /4300-4337 REM-LINE 6
160 /4340-4377 REM-LINE 7
161
162 /EACH REM-LINE HAS THE FOLLOWING FORMAT:
163
164 /WORD 0: IN-USE FLAG, MUST BE '1234' TO SHOW LINE WAS REMEMBERED HERE
165 /WORD 1: DATE LINE WAS REMEMBERED
166 /WORD 2: COMMAND DEPENDENT INFORMATION
167 /WORD 3: RESERVED FOR FUTURE EXPANSION
168 /WORDS 4-37 COMMAND LINE NOT INCLUDING KEYWORD OR FOLLOWING SPACES
169 / PACKED IN 6-BIT AND TERMINATED OR NOT BY A 6-BIT 0.
170
171 /ROUTINES:
172
173 / TAD (DEP
174 / JMS REMEM
175 / N
176
177 /REMEMBERS CURRENT LINE IN REM-LINE N. AC IS LINE DEPENDENT INFORMATION.
178 /IF LINE IS TOO BIG, THIS PRINTS A WARNING MESSAGE AND RETURNS AS IF OK.
179 /IF N=-1 THE CONTENTS OF THE ENABLED REMEMBRANCES ARE PRINTED ('UX')
180
181 / JMS RECALL
182 / N
183
184 /RECALLS REM-LINE N INTO BUFFER
185 /IF NOTHING THERE, PRINTS A BAD SYNTAX MESSAGE AND RETURNS TO OS/8.
186 /UPON RETURN, LINE-DEPENDENT INFO IS IN AC.
187 /IF DATES DON'T MATCH, IT'S NOT THERE UNLESS DATE = -1
188
189 /0 USED BY COMPILE, EXECUTE, PAL AND TEXT COMMANDS
190 /1 USED BY LOAD AND LINK COMMANDS
191 /2 USED BY TECO, MAKE COMMANDS AND EDIT, CREATE COMMANDS
192 /3 USED BY UA COMMAND
193 /4 USED BY UB COMMAND
194 /5 USED BY UC COMMAND
195 /6 USED BY FOCAL COMMAND
196 / DEPENDENT WORD IS PTR TO FIRST ENTRY IN MAIN TABLE
197
198 / JMS FOREVER
/CCL RECOLLECTION FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 4-1
FILE # 1
199
200 /CAUSES NEXT CALL TO REMEM TO INSERT -1 AS DATE
/CCL RECOLLECTION FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 5
FILE # 1
201
202
203 10000 0000 REMEM, 0
204 10001 3252 DCA DEP
205 10002 1777 TAD I (REMD
206 10003 7700 SMA CLA
207 10004 5600 JMP I REMEM /DON'T REMEMBER IF JUST RECALLED
208 10005 4776 JMS I (RDREM
209 10006 5775 JMP I (MEMBIG
210 10007 1600 TAD I REMEM
211 10010 2200 ISZ REMEM
212 10011 7510 SPA
213 10012 5774 JMP I (REMALL /GO TO PRINT REMEMBRANCE 'UX'
214 10013 7002 BSW
215 10014 7110 CLL RAR /MULTIPLY BY 40
216 10015 1373 TAD (REMSPACE
217 10016 3254 DCA LPTR
218 10017 1372 TAD (-40-1
219 10020 3253 DCA LCTR
220 10021 1371 TAD (1234
221 10022 4256 JMS LPUT
222 10023 1770 FORVR, TAD I (MDATE /REPLACED BY CMA IF WANT NO DATE
223 10024 4256 JMS LPUT /STORE DATE
224 10025 1252 TAD DEP
225 10026 4256 JMS LPUT /STORE DEPENDENT INFO
226 10027 4256 JMS LPUT /RESERVED
227 10030 4767 JMS I (SCAN /GO PAST KEYWORD AND BLANKS
228 10031 1766 TAD I (LBEGIN
229 10032 3016 DCA XR
230 10033 3255 L$: DCA TML
231 10034 4765 JMS I (GETF
232 10035 5245 JMP 2$
233 10036 7002 BSW
234 10037 3255 DCA TML
235 10040 4765 JMS I (GETF
236 10041 5245 JMP 2$
237 10042 1255 TAD TML
238 10043 4256 JMS LPUT
239 10044 5233 JMP L$
240 10045 1255 2$: TAD TML
241 10046 4256 JMS LPUT
242 10047 4764 JMS I (WRREM
243 10050 5775 JMP I (MEMBIG
244 10051 5600 REMGO, JMP I REMEM
/CCL RECOLLECTION FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 6
FILE # 1
245
246
247 10052 0000 DEP, 0
248 10053 7737 LCTR, -41
249 10054 0000 LPTR, 0 /PTS TO REM-LINE
250 10055 0000 TML, 0 /TEMP
251
252 /PUT INTO REM-LINE
253
254 10056 0000 LPUT, 0
255 10057 6201 CDF 0
256 10060 3654 DCA I LPTR
257 10061 6211 CDF 10
258 10062 2254 ISZ LPTR
259 10063 2253 ISZ LCTR
260 10064 5656 JMP I LPUT
261 10065 5775 JMP I (MEMBIG
262
263 10066 0000 RECALL, 0
264 10067 4776 JMS I (RDREM
265 10070 5763 JMP I (REMERR
266 10071 1666 TAD I RECALL
267 10072 2266 ISZ RECALL
268 10073 4277 JMS RECSUB
269 10074 5762 JMP I (REMER2
270 10075 1252 TAD DEP
271 10076 5666 JMP I RECALL
/CCL RECOLLECTION FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 7
FILE # 1
272
273
274 10077 0000 RECSUB, 0
275 10100 7002 BSW
276 10101 7110 CLL RAR
277 10102 1373 TAD (REMSPACE
278 10103 3254 DCA LPTR
279 10104 1372 TAD (-40-1
280 10105 3253 DCA LCTR
281 10106 4347 JMS LGET
282 10107 1361 TAD (-1234
283 10110 7640 SZA CLA
284 10111 5677 JMP I RECSUB
285 10112 4347 JMS LGET
286 10113 7450 SNA
287 10114 5677 JMP I RECSUB
288 10115 7040 LCMA, CMA
289 10116 7450 SNA
290 10117 5324 JMP 1$
291 10120 7001 IAC
292 10121 1770 TAD I (MDATE /SAME DAY?
293 10122 7640 SZA CLA
294 10123 5677 JMP I RECSUB
295 10124 2277 1$: ISZ RECSUB
296 10125 4347 JMS LGET
297 10126 3252 DCA DEP
298 10127 4347 JMS LGET /IGNORE RESERVED WORD
299 10130 7200 CLA
300 10131 1360 TAD (BEGLN-1
301 10132 3016 DCA XR
302 10133 1360 TAD (BEGLN-1
303 10134 3766 DCA I (LBEGIN
304 10135 4347 L$: JMS LGET
305 10136 3255 DCA TML
306 10137 1255 TAD TML
307 10140 7002 BSW
308 10141 4757 JMS I (PUTF
309 10142 5677 JMP I RECSUB
310 10143 1255 TAD TML
311 10144 4757 JMS I (PUTF
312 10145 5677 JMP I RECSUB
313 10146 5335 JMP L$
/CCL RECOLLECTION FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 8
FILE # 1
314
315
316 10147 0000 LGET, 0
317 10150 6201 CDF 0
318 10151 2253 ISZ LCTR /IF END SKIP TAD
319 10152 1654 TAD I LPTR
320 10153 6211 CDF 10
321 10154 2254 ISZ LPTR
322 10155 5747 JMP I LGET
------
10157 0200 +
10160 0777
10161 6544
10162 0216 +
10163 0214 +
10164 0234 +
10165 0251 +
10166 0000 *
10167 0000 *
10170 7666
10171 1234
10172 7737
10173 4000
10174 0265 +
10175 0220 +
10176 0223 +
10177 0000 *
323 0200 PAGE
/CCL RECOLLECTION FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 9
FILE # 1
324
325
326 10200 0000 PUTF, 0
327 10201 0377 AND (77
328 10202 7450 SNA
329 10203 5210 JMP PUTZ
330 10204 2200 ISZ PUTF
331 10205 1376 TAD (240
332 10206 0377 AND (77
333 10207 1376 TAD (240
334 10210 6201 PUTZ, CDF 0
335 10211 3416 DCA I XR
336 10212 6211 CDF 10
337 10213 5600 JMP I PUTF
338
339 10214 4775 REMERR, JMS I (ERROR
340 10215 0025 21. /#I/O Error trying to recall
341 10216 4775 REMER2, JMS I (ERROR
342 10217 0026 22. /#No recollection
343 10220 4774 MEMBIG, JMS I (PRINT
344 10221 1151 + MEMWRN /%Can't remember
345 10222 5773 JMP I (REMGO
346
347 10223 0000 RDREM, 0
348 10224 6202 CIF 0
349 10225 4772 JMS I (SHNDLR
350 10226 0200 200 /READ 2 PAGES INTO FIELD 0
351 10227 4000 4000 /LOCATION 4000
352 10230 0065 REMBLOCK
353 10231 7610 SKP CLA
354 10232 2223 ISZ RDREM
355 10233 5623 JMP I RDREM
356
357 10234 0000 WRREM, 0
358 10235 6202 CIF 0
359 10236 4772 JMS I (SHNDLR
360 10237 4200 4200 /WRITE 2 PAGES FROM FIELD 0
361 10240 4000 4000 /LOCATION 4000
362 10241 0065 REMBLOCK
363 10242 7610 SKP CLA
364 10243 2234 ISZ WRREM
365 10244 5634 JMP I WRREM
/CCL RECOLLECTION FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 10
FILE # 1
366
367
368 10245 0000 FOREVER,0
369 10246 1371 TAD (STA /DATE =-1 MEANS FOREVER
370 10247 3770 DCA I (FORVR
371 10250 5645 JMP I FOREVER
372
373 /GET FROM INPUT LINE VIA XR
374
375 10251 0000 GETF, 0
376 10252 6201 CDF 0
377 10253 1416 TAD I XR
378 10254 6211 CDF 10
379 10255 7440 SZA
380 10256 2251 ISZ GETF
381 10257 1367 TAD (-340
382 10260 7500 SMA
383 10261 1376 TAD (240 /CONVERT LC
384 10262 1376 TAD (240
385 10263 0377 AND (77
386 10264 5651 JMP I GETF
/CCL RECOLLECTION FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 11
FILE # 1
387
388
389 10265 7200 REMALL, CLA
390 10266 4774 JMS I (PRINT
391 10267 0600 + REMMSG /GIVE HEADER
392 10270 1366 TAD (-7
393 10271 3325 DCA REMCNT
394 10272 1365 LOOP, TAD (7
395 10273 1325 TAD REMCNT
396 10274 4764 JMS I (RECSUB
397 10275 5322 JMP NONE
398 10276 1363 TAD (REMTBL+7
399 10277 1325 TAD REMCNT
400 10300 3304 DCA M$
401 10301 1704 TAD I M$
402 10302 3304 DCA M$
403 10303 4774 JMS I (PRINT
404 10304 0000 M$: 0
405 10305 1362 TAD (-100
406 10306 4761 JMS I (MOVE
407 10307 6201 CDF 0
408 10310 1000 BEGLN
409 10311 6211 CDF 10
410 10312 0400 + REMLOC
411 10313 1760 TAD I (DEP
412 10314 7440 SZA
413 10315 4757 JMS I (REVPRS
414 10316 1376 MSGEND, TAD (240
415 10317 4756 JMS I (TYPE
416 10320 4774 JMS I (PRINT
417 10321 0400 + REMLOC
418 10322 2325 NONE, ISZ REMCNT
419 10323 5272 JMP LOOP
420 10324 5773 JMP I (REMGO
/CCL RECOLLECTION FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 12
FILE # 1
421
422
423 10325 7771 REMCNT, -7
424 10326 0753 + REMTBL, COMMSG
425 10327 0775 + LADMSG
426 10330 1017 + EDIMSG
427 10331 1041 + UAMSG
428 10332 1063 + UBMSG
429 10333 1105 + UCMSG
430 10334 1127 + FOCMSG
------
10356 0000 *
10357 0500 +
10360 0052 +
10361 0000 *
10362 7700
10363 0335 +
10364 0077 +
10365 0007
10366 7771
10367 7440
10370 0023 +
10371 7240
10372 7607
10373 0051 +
10374 0000 *
10375 0000 *
10376 0240
10377 0077
431 0400 PAGE
/CCL RECOLLECTION FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 13
FILE # 1
432
433
434 10400 0000 REMLOC, ZBLOCK 100
435
436 10500 0000 REVPRS, 0 /DO A REVERSE PARSE FOR EXECUTE COMMAND
437 10501 7041 CIA
438 10502 3340 DCA T$ /-TABLE ENTRY
439 10503 1377 TAD (PTBL
440 10504 3337 DCA P$
441 10505 6201 L$: CDF 0
442 10506 1737 TAD I P$
443 10507 2337 ISZ P$
444 10510 1340 TAD T$
445 10511 7640 SZA CLA
446 10512 5305 JMP L$
447 10513 1337 TAD P$
448 10514 7041 CIA
449 10515 1377 TAD (PTBL
450 10516 3337 DCA P$ /-# OF COMMAND 1-XXX
451 10517 1376 TAD (401
452 10520 3341 DCA TBLPT
453 10521 7240 STA
454 10522 3342 DCA HALF
455 10523 2337 N$: ISZ P$
456 10524 5333 JMP M$
457 10525 4343 MO$: JMS GETBL
458 10526 7450 SNA
459 10527 5775' JMP MSGEND
460 10530 1374 TAD (100
461 10531 4773 JMS I (TYPE
462 10532 5325 JMP MO$
463 10533 4343 M$: JMS GETBL
464 10534 7650 SNA CLA
465 10535 5323 JMP N$
466 10536 5333 JMP M$
467 10537 0000 P$: 0
468 10540 0000 T$: 0
/CCL RECOLLECTION FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 14
FILE # 1
469
470
471 10541 0401 TBLPT, 401
472 10542 7777 HALF, -1
473 10543 0000 GETBL, 0
474 10544 6201 CDF 0
475 10545 2342 ISZ HALF
476 10546 5352 JMP RT$
477 10547 1741 TAD I TBLPT
478 10550 7002 BSW
479 10551 5356 JMP IN$
480 10552 7240 RT$: STA
481 10553 3342 DCA HALF
482 10554 1741 TAD I TBLPT
483 10555 2341 ISZ TBLPT
484 10556 0372 IN$: AND (37
485 10557 5743 JMP I GETBL
486
------
10572 0037
10573 0000 *
10574 0100
10575 0316 +
10576 0401
10577 0000 *
487 0600 PAGE
/CCL RECOLLECTION FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 15
FILE # 1
488
489
490 .ENABLE ASCII
491 .DISABLE FILL
492 .NOLIST BE
493
494 .IF DF GERMAN <
495 REMMSG, TEXT \Alle Erinnerungen die heute oder immer da sind:\
496 215
497 212
498 TEXT \-----------------------------------------------\
499 215
500 212
501 0
502 COMMSG, TEXT \Kompilieren: _\
503 LADMSG, TEXT \Lade-Befehle: _\
504 EDIMSG, TEXT \Edit und Teco: _\
505 UAMSG, TEXT \UA Befehl: _\
506 UBMSG, TEXT \UB Befehl: _\
507 UCMSG, TEXT \UC Befehl: _\
508 FOCMSG, TEXT \Focal-Befehl: _\
509 MEMWRN, TEXT \%Befehl wird nicht vermerkt\;0
510 LABNFO, TEXT \%Die folgende GOTO-Adresse fehlt: $\
511 LABEL, ZBLOCK 11
512 NOBATC, TEXT \#BATCH ist alt oder nicht aktiv\;0
513 NONSYS, TEXT \#Kein GOTO mit BATCH-Geraet\;0
514 BATEOF, TEXT \#Kein $END in BATCH-Datei\;0
515 >
516 .IF NDF GERMAN <
517 10600 0301 REMMSG, TEXT \All remembrances which are active today or forever:\
518 10663 0215 215
519 10664 0212 212
520 10665 0255 TEXT \---------------------------------------------------\
521 10750 0215 215
522 10751 0212 212
523 10752 0000 0
524 10753 0303 COMMSG, TEXT \Compile class: _\
525 10775 0314 LADMSG, TEXT \Loading class: _\
526 11017 0305 EDIMSG, TEXT \Edit and Teco: _\
527 11041 0325 UAMSG, TEXT \UA Command: _\
528 11063 0325 UBMSG, TEXT \UB Command: _\
529 11105 0325 UCMSG, TEXT \UC Command: _\
530 11127 0306 FOCMSG, TEXT \Focal Command: _\
531 11151 0245 MEMWRN, TEXT \%Will not remember this command\;0
532 11211 0245 LABNFO, TEXT \%The following label is missing: $\
533 11253 0000 LABEL, ZBLOCK 11
534 11264 0243 NOBATC, TEXT \#Old or inactive BATCH processor\;0
535 11325 0243 NONSYS, TEXT \#No GOTO with BATCH handler\;0
536 11361 0243 BATEOF, TEXT \#No $END in BATCH file\;0
537 >
538 .ENABLE FILL
539 .LIST BE
540 1600 PAGE
/CCL RECOLLECTION FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 16
FILE # 1
541
542
543 11600 0000 GTOSUB, 0
544 11601 4777 JMS I (SCAN
545 11602 1016 TAD XR
546 11603 3207 DCA F$
547 11604 1376 TAD (-10
548 11605 4775 JMS I (MOVE
549 11606 6201 CDF 0
550 11607 0000 F$: 0
551 11610 6211 CDF 10
552 11611 1253 + LABEL
553 11612 4774 JMS I (BATCH
554 11613 5316 JMP BATVER
555 11614 3773 DCA I (BATEXE
556 11615 7240 STA
557 11616 1773 TAD I (BATEXE
558 11617 3262 DCA BATACC
559 11620 4261 JMS BATCDF
560 11621 1772 TAD I (BATVFY
561 11622 1371 TAD (-2214
562 11623 7640 SZA CLA
563 11624 5316 JMP BATVER
564 11625 1770 TAD I (SYCNT
565 11626 3264 DCA HLDCNT
566 11627 1767 TAD I (SYBLKN
567 11630 3265 DCA HLDBLK
568 11631 1766 TAD I (BATTBL+4
569 11632 7450 SNA
570 11633 5321 JMP NSYERR
571 11634 3767 DCA I (SYBLKN
572 11635 1365 TAD (-601
573 11636 3770 DCA I (SYCNT
574 11637 3764 DCA I (BATIN+7
575 11640 4763 JOLOOP, JMS I (BATGET
576 11641 4266 JMS COMPAR
577 11642 1253 + LABEL
578 11643 5600 GTOOUT, JMP I GTOSUB /FOUND LABEL
579 11644 4266 JMS COMPAR
580 11645 1713 + EN
581 11646 5250 JMP GOTEND
582 11647 5240 JMP JOLOOP
583 11650 4261 GOTEND, JMS BATCDF
584 11651 3764 DCA I (BATIN+7
585 11652 1265 TAD HLDBLK
586 11653 3767 DCA I (SYBLKN
587 11654 1264 TAD HLDCNT
588 11655 3770 DCA I (SYCNT
589 11656 4762 JMS I (PRINT
590 11657 1211 + LABNFO
591 11660 5600 JMP I GTOSUB
/CCL RECOLLECTION FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 17
FILE # 1
592
593
594 11661 0000 BATCDF, 0
595 11662 7402 BATACC, HLT
596 11663 5661 JMP I BATCDF
597
598 11664 0000 HLDCNT, 0
599 11665 0000 HLDBLK, 0
600
601 11666 0000 COMPAR, 0
602 11667 1666 TAD I COMPAR
603 11670 3311 DCA COML /ADRESS OF LABEL OR EN
604 11671 2266 ISZ COMPAR
605 11672 1361 TAD (REMLOC
606 11673 3312 DCA COMB /ADDRESS OF BATCH LINE
607 11674 1711 CL$: TAD I COML
608 11675 7450 SNA
609 11676 5666 JMP I COMPAR /END OF LABEL FOUND : OK
610 11677 7041 CIA
611 11700 1712 TAD I COMB
612 11701 0360 AND (37
613 11702 7640 SZA CLA
614 11703 5307 JMP CB$
615 11704 2312 ISZ COMB
616 11705 2311 ISZ COML
617 11706 5274 JMP CL$
618 11707 2266 CB$: ISZ COMPAR
619 11710 5666 JMP I COMPAR /NOT FOUND
620 11711 0000 COML, 0
621 11712 0000 COMB, 0
/CCL RECOLLECTION FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 18
FILE # 1
622
623
624 11713 0305 EN, TEXT \EN\
11714 0316
11715 0000
625 11716 4762 BATVER, JMS I (PRINT
626 11717 1264 + NOBATC
627 11720 5600 JMP I GTOSUB
628 11721 4762 NSYERR, JMS I (PRINT
629 11722 1325 + NONSYS
630 11723 5600 JMP I GTOSUB
------
11760 0037
11761 0400 +
11762 0000 *
11763 2000 +
11764 5407
11765 7177
11766 6604
11767 7774
11770 7775
11771 5564
11772 5600
11773 2005 +
11774 0000 *
11775 0000 *
11776 7770
11777 0000 *
631 2000 PAGE
/CCL RECOLLECTION FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 19
FILE # 1
632
633
634 12000 0000 BATGET, 0
635 12001 1377 TAD (REMLOC
636 12002 3264 DCA BATPTR
637 12003 1376 TAD (-100
638 12004 3263 DCA BATCNT
639 12005 6202 BATEXE, CIF 0 /GETS CIF BAT
640 12006 6211 CDF 10
641 12007 4775 JMS I (BATIN
642 12010 5260 JMP NOEND
643 12011 3265 DCA BATTMP
644 12012 1265 TAD BATTMP
645 12013 1374 TAD (-244
646 12014 7450 SNA
647 12015 5252 JMP GOTDOL
648 12016 1373 TAD (244-212
649 12017 7450 SNA
650 12020 5205 JMP BATEXE
651 12021 1372 TAD (212-215
652 12022 7650 SNA CLA
653 12023 5241 JMP GOTCR
654 12024 3266 CLRSWI, DCA BATSWI
655 12025 5205 BATSTO, JMP BATEXE
656 12026 1265 TAD BATTMP
657 12027 3664 DCA I BATPTR
658 12030 2264 ISZ BATPTR
659 12031 2263 ISZ BATCNT
660 12032 5205 BATJMP, JMP BATEXE
661 12033 7240 STA
662 12034 3263 DCA BATCNT
663 12035 7240 STA
664 12036 1264 TAD BATPTR
665 12037 3264 DCA BATPTR
666 12040 5205 JMP BATEXE
667
668 12041 7240 GOTCR, STA
669 12042 3266 DCA BATSWI
670 12043 1225 TAD BATSTO
671 12044 7640 SZA CLA
672 12045 5205 JMP BATEXE
673 12046 1232 TAD BATJMP
674 12047 3225 DCA BATSTO
675 12050 3664 DCA I BATPTR
676 12051 5600 JMP I BATGET
677
678 12052 1266 GOTDOL, TAD BATSWI
679 12053 7700 SMA CLA
680 12054 5224 JMP CLRSWI
681 12055 3266 DCA BATSWI
682 12056 3225 DCA BATSTO
683 12057 5205 JMP BATEXE
/CCL RECOLLECTION FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 20
FILE # 1
684
685
686 12060 4771 NOEND, JMS I (PRINT
687 12061 1361 + BATEOF
688 12062 5770 JMP I (GTOOUT
689
690 12063 0000 BATCNT, 0
691 12064 0000 BATPTR, 0
692 12065 0000 BATTMP, 0
693 12066 7777 BATSWI, 7777
------
12170 1643 +
12171 0000 *
12172 7775
12173 0032
12174 7534
12175 5400
12176 7700
12177 0400 +
694 2200 PAGE
/CCL RECOLLECTION FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 21
SYMBOL TABLE
AMFLAG 0017 FILDMY 0002 NAME5 0027 USR 0200
BATACC 1662+ CCLREM FILETB 7000 NMBASE 0037 WRREM 0234+ CCLREM
BATBUF 4400 FLD: 0 0200 ASECT NOBATC 1264+ CCLREM XFERV G 0070
BATCCL 7777 FOCMSG 1127+ CCLREM NOEND 2060+ CCLREM XR 0016
BATCDF 1661+ CCLREM FOREVE E 0245+ CCLREM NONE 0322+ CCLREM XR2 0015
BATCH X **** FORVR 0023+ CCLREM NONSYS 1325+ CCLREM
BATCNT 2063+ CCLREM F0STUF 7200 NSYERR 1721+ CCLREM
BATEOF 1361+ CCLREM GETBL 0543+ CCLREM OS78BI 7771
BATERR 7000 GETCCL 1362 OV 1375
BATEXE 2005+ CCLREM GETF 0251+ CCLREM PRINT X ****
BATGET 2000+ CCLREM GIOT 6770 PRMES 0330
BATIN 5400 GLINE 1200 PRQMRK 1357
BATJMP 2032+ CCLREM GOTCR 2041+ CCLREM PTBL X ****
BATOUT 7400 GOTDOL 2052+ CCLREM PTR 0036
BATPTR 2064+ CCLREM GOTEND 1650+ CCLREM PUTF 0200+ CCLREM
BATSPL 7200 GTOOUT 1643+ CCLREM PUTZ 0210+ CCLREM
BATSTO 2025+ CCLREM GTOSUB E 1600+ CCLREM RDREM 0223+ CCLREM
BATSWI 2066+ CCLREM HALF 0542+ CCLREM RECALL E 0066+ CCLREM
BATTBL 6600 HLDBLK 1665+ CCLREM RECSUB 0077+ CCLREM
BATTMP 2065+ CCLREM HLDCNT 1664+ CCLREM REMALL 0265+ CCLREM
BATVER 1716+ CCLREM HNDLR 4400 REMBLO 0065
BATVFY 5600 JOLOOP 1640+ CCLREM REMCNT 0325+ CCLREM
BEGLN 1000 JSBITS 7746 REMD X ****
BFR 3000 KEYMON 0403 REMEM E 0000+ CCLREM
CCLBLK 0067 KMNTRY 0400 REMERR 0214+ CCLREM
CCLDEV 0001 LABEL 1253+ CCLREM REMER2 0216+ CCLREM
CCLHND 0000 LABNFO 1211+ CCLREM REMGO 0051+ CCLREM
CCLINC 0054 LADMSG 0775+ CCLREM REMLOC 0400+ CCLREM
CCLNUM 0265 LBEGIN X **** REMMSG 0600+ CCLREM
CCLREM 2200 RSECT LCMA 0115+ CCLREM REMSPA 4000
CCLSW 0435 LCTR 0053+ CCLREM REMTBL 0326+ CCLREM
CCLTAB 0265 LGET 0147+ CCLREM REST 5000
CCLVER 0301 LONGTB 5000 REVPRS 0500+ CCLREM
CLRSWI 2024+ CCLREM LOOP 0272+ CCLREM SBLOCK 7776
CLXR 0035 LPTR 0054+ CCLREM SCAN X ****
COMB 1712+ CCLREM LPUT 0056+ CCLREM SCOPE 7726
COML 1711+ CCLREM LXR 0034 SHNDLR 7607
COMMSG 0753+ CCLREM MDATE 7666 SM8 6254
COMPAR 1666+ CCLREM MEMBIG 0220+ CCLREM SOFSET 7747
CTRLCK 1241 MEMWRN 1151+ CCLREM SPLNUM 7777
DEASAD 0427 MIFILE 7617 SWSTBL 7360
DEF 0022 MMISC 7777 SYBLKN 7774
DEFALT 0033 MOFILE 7600 SYCNT 7775
DELIM 0032 MONLOD 7605 SYSTEM 0022
DEP 0052+ CCLREM MONSAV 7600 T 0020
DEV1 0030 MOVE X **** TBLPT 0541+ CCLREM
DEV2 0031 MPARAM 7643 TBLTBL 6100
DOLFLG 7776 MREAD 7757 TESBUF 2000
DVHNDL 7647 MSGEND 0316+ CCLREM TML 0055+ CCLREM
EDIMSG 1017+ CCLREM MSOVL2 0055 TT 0021
EN 1713+ CCLREM NAME1 0023 TYPE X ****
ERRET 0033 NAME2 0024 UAMSG 1041+ CCLREM
ERROR X **** NAME3 0025 UBMSG 1063+ CCLREM
EXTTBL 6600 NAME4 0026 UCMSG 1105+ CCLREM