1 /LIBRA: F4 LIBRARIAN, V24A 2 / 3 / 4 / 5 / 6 / 7 / 8 / 9 // 10 / 11 / 12 / 13 / 14 /COPYRIGHT (C) 1974, 1975 15 /DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 16 / 17 / 18 / 19 /THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A 20 /SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLU- 21 /SION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANT OTHER 22 /COPIES THEREOF, MAY NOT BR PROVIDED OR OTHERWISE MADE AVAILABLE 23 /TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO 24 /AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE 25 /SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC. 26 / 27 / 28 /THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT 29 /NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 30 /EQUIPMRNT COROPATION. 31 / 32 /DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 33 /SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 34 / 35 / 36 / 37 / 38 / 39 / 40 /LIBRA: FORTRAN IV LIBRARIAN 41 / 42 / 43 / BORN OF JUD LEONARD, UNDER THE 44 / SIGN FOR WHICH IT IS NAMED. 45 / 46 / 47 / CHANGES FOR V23 48 / .PRINT VERSION NUMBER 49 / .ACCEPT INPUT FROM CONSOLES WITHOUT PARITY 50 / 51 / 52 / CHANGES FOR OS/8 V3D BY PAULA TIRAK 53 / .CHANGED VERSION NUMBER TO 24A 54 / .PUT IN NEW DATE ALGORITHM 55 / .NO LONGER MISNAMES THE SECOND OUTPUT FILE 56 / 57 / 58 / OS/8 CONSTANTS: 59 VERS=24 60 PATCH="A 61 / 62 FETCH=1 63 LOOKUP=2 64 ENTER=3 65 CLOSE=4 66 DECODE=5 67 CHAIN=6 68 ERROR=7 69 USRIN=10 70 USROUT=11 71 / 72 OUTF1=7600 /LIBRARY 73 OUTF2=7605 /CATALOG LISTING 74 OUTF3=7612 /UNUSED 75 INF=7617 76 / 77 EQHI=7642 78 SWATOL=7643 79 SWMTOX=7644 80 SWYTO9=7645 81 EQLO=7646 82 DHRES=7647 /HANDLER RESIDENCY TABLE 83 SYSDAT=7666 /SYSTEM DATE 84 DCTLW=7760 /DEVICE CONTROL WORD TABLE 85 / DEVICE CONTROL WORDS HAVE THE FORM: 86 / BIT 0 FILE STRUCTURED 87 / BIT 1 READ ONLY 88 / BIT 2 WRITE ONLY 89 / BITS 3-8 DEVICE TYPE 90 / BITS 9-11 DIR BLOCK OF CURRENT TENTATIVE FILE 91 / 92 / INTERNAL DEFINITIONS: 93 F0=00 94 F1=10 95 CATBUF=2000 /IN FIELD 1 96 CBUFS=1 /NUMBER OF BUFFERS FOR CATALOG 97 MODBUF=2400 /LIKEWISE 98 MBUFS=12 /BUFFERS FOR MODULE 99 ODEVH=7200 /OUTPUT DEVICE HANDLER (ROOM FOR 2-PAGE) 100 IDEVH=6600 /INPUT DEVICE HANDLER 101 / 102 / PAGE 0 FOR LIBRA 103 / 104 *1 105 000001 0000 TMP1, 0 106 000002 0000 TMP2, 0 /SOME TEMPS 107 000003 0000 TMP3, 0 108 000004 0000 TMP4, 0 109 000005 0000 TMP5, 0 110 000006 0000 TMP6, 0 111 000007 0000 TMP7, 0 112 000010 0000 X0, 0 /AUTO-INDEX 113 000011 0000 X1, 0 114 000012 0000 X2, 0 115 000013 0000 X3, 0 116 000014 0000 X4, 0 117 000015 0000 X5, 0 118 000016 0000 X6, 0 119 000017 0000 X7, 0 120 000020 0200 USR, 200 /CURRENT USR CALL ADDRESS 121 /LIBRA ASSUMES USR ALWAYS PRESENT 122 000021 7200 LIBDVH, ODEVH /ADDRESS OF LIBRARY DEVICE HANDLER 123 000022 0001 LIBU, 1 /UNIT CONTAINING LIBRARY; INITIALLY SYS: 124 000023 0000 CATLEN, 0 /LENGTH OF CATALOG 125 000024 0000 CATBLK, 0 /CURRENT CATALOG BLOCK IN CORE 126 000025 0000 LAVAIL, 0 /NEXT AVAILABLE LIBRARY BLOCK 127 000026 0617 LIBNAM, TEXT "FORLIBRL" 000027 2214 000030 1102 000031 2214 000032 0000 128 *.-1 129 000032 7617 INFP, INF /CURRENT PLACE IN INPUT FILE LIST 130 000033 0000 MODU, 0 /UNIT CONTAINING CURRENT MODULE 131 000034 6600 MODDVH, IDEVH /INPUT DEVICE HANDLER ADDRESS 132 000035 0000 MODLEN, 0 /LENGTH OF THIS MODULE 133 000036 0000 MODBLK, 0 /FIRST BLOCK OF MODULE 134 000037 0000 INLSW, 0 /NON-ZERO IF IN LIBRARY INPUT 135 000040 0000 INFST, 0 /FIRST BLOCK OF INPUT FILE 136 000041 0000 INBLK, 0 /NEXT INPUT BLOCK NUMBER 137 000042 0000 THSBLK, 0 /READIN CONTROL 138 000043 0000 FULFLG, 0 /-1 IF CAT FULL 139 000044 0000 ENAM1, 0 140 000045 0000 ENAM2, 0 /HOLDER FOR ESD NAMES 141 000046 0000 ENAM3, 0 142 000047 0000 0 /TEXT STOPPER FOR ENAME 143 000050 0000 ESDCTR, 0 144 000051 2000 PCAT, CATBUF /POINTER TO CURRENT CATALOG BLOCK 145 000052 7777 INCLUD, -1 /SW FOR NAME INCLUDED IN CATALOG 146 000053 0001 CHANGD, 1 /0 IF CAT BLOCK MODIFIED 147 000054 2400 PMOD, MODBUF /POINTER TO CURRENT MODULE BLOCK 148 / 149 000055 0000 TTFLAG, 0 /NON-ZERO WHEN TTY HAS INITIALIZED 150 000056 3200 PCHR, TTO /OUTPUT ROUTINE 151 000057 0000 TTPOS, 0 /TTY POSITION COUNTER 152 000060 0000 CATCNT, 0 153 000061 0000 IOERR, 0 154 000062 7421 7421 /ERROR CODE TO MQ 155 000063 5464 JMP I .+1 156 000064 0263 IOMES /LOG THE ERROR 157 / LIBRA MAIN CONTROL 158 / 159 *177 /MAKES IT EASY TO CALL START 160 000177 6201 START, CDF F0 161 000200 4777 JMS TTWAIT /ALLOW TTY TO COMPLETE 162 000201 6212 CIF F1 163 000202 4420 JMS I USR 164 000203 0005 DECODE 165 000204 2214 TXTRL, 2214 /RL DEFAULT EXT 166 000205 1376 TAD (INF /RESET INPUT FILE POINTER 167 000206 3032 DCA INFP 168 000207 1375 TAD (TTO /AND IO DEVICE 169 000210 3056 DCA PCHR 170 000211 3043 DCA FULFLG 171 000212 6211 CDF F1 172 000213 1774 TAD I (OUTF1 173 000214 7450 SNA /NEW LIBRARY SPECIFIED? 174 000215 5233 JMP LASTLB /NO, USE LAST ONE 175 000216 3022 DCA LIBU /GET LIBRARY UNIT 176 000217 1374 TAD (OUTF1 177 000220 3010 DCA X0 178 000221 1410 TAD I X0 179 000222 3026 DCA LIBNAM /MOVE 180 000223 1410 TAD I X0 /IN 181 000224 3027 DCA LIBNAM+1 /NEW 182 000225 1410 TAD I X0 /NAME 183 000226 3030 DCA LIBNAM+2 184 000227 1410 TAD I X0 185 000230 7450 SNA 186 000231 1204 TAD TXTRL /IF NO EXT, FORCE .RL 187 000232 3031 DCA LIBNAM+3 188 000233 1022 LASTLB, TAD LIBU /REGET UNIT 189 000234 0373 AND (17 190 000235 1372 TAD (DCTLW-1 /ADDRESS DEV CTL TABLE 191 000236 3001 DCA TMP1 192 000237 1401 TAD I TMP1 193 000240 6201 CDF F0 194 000241 7700 SMA CLA /IS DEVICE FILE-STRUCTURED? 195 000242 5257 JMP NOTFS /NO, BOMB 196 000243 1371 TAD (ODEVH!1 197 000244 3252 DCA OHADDR /ALLOW 2-PAGE HANDLER 198 000245 1022 TAD LIBU 199 000246 0373 AND (17 200 000247 6212 CIF F1 201 000250 4420 JMS I USR /GET THE HANDLER 202 000251 0001 FETCH 203 000252 7201 OHADDR, ODEVH!1 204 000253 4061 JMS IOERR /YOU'RE KIDDING 205 000254 1252 TAD OHADDR /NOW THE REAL ADDRESS 206 000255 3021 DCA LIBDVH 207 000256 5770 JMP ZTEST 208 000257 4767 NOTFS, JMS TTOTXT 209 000260 4421 FLSTR-1 210 000261 4766 JMS CRLF 211 000262 5177 JMP START 212 / 213 000263 7200 IOMES, CLA 214 000264 1375 TAD (TTO 215 000265 3056 DCA PCHR /ENSURE IT COMES OUT ON TTY 216 000266 4767 JMS TTOTXT 217 000267 4624 IOMSG-1 218 000270 4766 JMS CRLF 219 000271 5177 JMP START 220 000366 3310 PAGE 000367 3277 000370 0400 000371 7201 000372 7757 000373 0017 000374 7600 000375 3200 000376 7617 000377 3217 221 000400 6211 ZTEST, CDF F1 /FIND OR CREATE LIB. 222 000401 1777 TAD I (SWYTO9 /GET SWITCH WORD 223 000402 0376 AND (2000 /TEST FOR /Z 224 000403 6201 CDF F0 225 000404 7640 SZA CLA 226 000405 5775 JMP NEWLIB /YES, ENTER NEW ONE 227 000406 4774 OLDLIB, JMS FNDLIB /LOOKUP THE LIBRARY 228 000407 0002 LOOKUP 229 000410 5775 JMP NEWLIB /COULDN'T FIND IT 230 / 231 000411 1773 TAD LIBBLK /FIRST BLOCK OF LIBRARY 232 000412 3772 DCA ZCATB 233 000413 1371 TAD (CBUFS+MBUFS^200!F1 234 000414 3770 DCA ZCATC /READ ALL YOU CAN 235 000415 4767 JMS ZCAT /DO THE READ 236 000416 6211 CDF F1 237 000417 1776 TAD I (CATBUF /LOOK AT CONTROL WORD 238 000420 7110 CLL RAR 239 000421 7640 SZA CLA /IS IT A LIBRARY? 240 000422 5304 JMP NOTLIB /NO, ERROR 241 000423 1766 TAD I (CATBUF+3 242 000424 6201 CDF F0 243 000425 3023 DCA CATLEN /LENGTH IN BLOCKS 244 000426 1773 TAD LIBBLK 245 000427 3025 DCA LAVAIL /WILL BE UPDATED DURING SCAN 246 000430 1025 TAD LAVAIL 247 000431 3024 DCA CATBLK /CURRENT BLOCK IN BUFFER 248 000432 1023 TAD CATLEN 249 000433 7041 CIA 250 000434 3002 DCA TMP2 /COUNTER 251 000435 1365 CSLOOP, TAD (CBUFS+MBUFS 252 000436 1002 TAD TMP2 253 000437 7500 SMA /WILL THE REST FIT IN BUFFER? 254 000440 5251 JMP CSLAST /YES 255 000441 3002 DCA TMP2 256 000442 1364 TAD (-CBUFS-MBUFS^100 257 000443 3001 DCA TMP1 /ENTRIES NOW IN CORE 258 000444 4263 JMS SCAT /SCAN CATALOG 259 000445 1772 TAD ZCATB /NEXT BLOCK WE'LL READ 260 000446 3024 DCA CATBLK 261 000447 4767 JMS ZCAT /READ SOME 262 000450 5235 JMP CSLOOP 263 000451 7041 CSLAST, CIA /NO OF BLOCKS WE DON'T NEED 264 000452 1365 TAD (CBUFS+MBUFS 265 000453 4763 JMS R6L /NO OF ENTRIES WE CAN LOOK AT 266 000454 7041 CIA 267 000455 3001 DCA TMP1 268 000456 4263 JMS SCAT /LOOK FOR END 269 000457 4762 FULCAT, JMS TTOTXT /RAN OFF THE END 270 000460 4561 CATFUL-1 271 000461 4761 JMS CRLF /** 272 000462 5760 JMP LCLOSE 273 / 274 000463 0000 SCAT, 0 275 000464 1357 TAD (CATBUF-1 276 000465 3010 DCA X0 277 000466 6211 SCLOOP, CDF F1 278 000467 1410 TAD I X0 279 000470 7040 CMA /TEST FOR END 280 000471 7650 SNA CLA 281 000472 5756 JMP GETINF /THAT'S IT 282 000473 2010 ISZ X0 283 000474 2010 ISZ X0 /IGNORE REST OF NAME 284 000475 1410 TAD I X0 /GET LENGTH 285 000476 1025 TAD LAVAIL /ADD TO ST BLOCK OF FREE AREA 286 000477 3025 DCA LAVAIL 287 000500 2001 ISZ TMP1 288 000501 5266 JMP SCLOOP 289 000502 6201 CDF F0 290 000503 5663 JMP I SCAT /GO FOR NEXT BUFFER LOAD 291 / 292 000504 4755 NOTLIB, JMS PRLBNM /PRINT LIBRARY NAME 293 000505 4762 JMS TTOTXT 294 000506 4522 UNLIB-1 295 000507 4761 JMS CRLF 296 000510 5177 JMP START 297 000555 3664 PAGE 000556 1000 000557 1777 000560 2400 000561 3310 000562 3277 000563 3272 000564 6500 000565 0013 000566 2003 000567 0703 000570 0707 000571 2610 000572 0711 000573 0736 000574 0723 000575 0600 000576 2000 000577 7645 298 000600 4323 NEWLIB, JMS FNDLIB 299 000601 0003 ENTER 300 000602 4061 JMS IOERR 301 000603 1022 TAD LIBU 302 000604 0377 AND (7760 303 000605 7112 CLL RTR 304 000606 7012 RTR 305 000607 7450 SNA /DID HE GIVE A LENGTH? 306 000610 7126 STL RTL /NO, USE 2 307 000611 3023 DCA CATLEN 308 000612 6211 CDF F1 309 000613 1776 TAD I (EQLO /HOW MANY EXTRA BLOCKS WANTED 310 000614 6201 CDF F0 311 000615 1023 TAD CATLEN /PLUS CATALOG REQUIREMENT 312 000616 7100 CLL 313 000617 1337 TAD LIBLEN /MINUS AVAILABLE LENGTH 314 000620 7630 SZL CLA /CHECK FOR ENUF ROOM 315 000621 5345 JMP LSZERR /NO ROOM, GIVE MESSAGE 316 / 317 / WRITE EMPTY CATALOG 318 / 319 000622 1375 TAD (CATBUF-1 320 000623 3010 DCA X0 321 000624 1374 TAD (-MBUFS-CBUFS^400 322 000625 3001 DCA TMP1 323 000626 6211 CDF F1 324 000627 3410 DCA I X0 325 000630 2001 ISZ TMP1 326 000631 5227 JMP .-2 327 000632 1375 TAD (CATBUF-1 /RESET FOR LATER USE 328 000633 3010 DCA X0 329 000634 7240 CLA CMA 330 000635 1023 TAD CATLEN 331 000636 7550 SPA SNA /MORE THAN ONE? 332 000637 5260 JMP CATB0 /JUST ONE 333 000640 7041 CIA 334 000641 2311 ISZ ZCATB /START WITH SECOND CAT BLOCK 335 000642 7100 ZCLOOP, CLL 336 000643 1373 TAD (MBUFS+CBUFS 337 000644 3001 DCA TMP1 338 000645 7430 SZL /FULL WRITE? 339 000646 1001 TAD TMP1 /NO 340 000647 7041 CIA 341 000650 1373 TAD (MBUFS+CBUFS 342 000651 4772 JMS R6R 343 000652 1371 TAD (4000!F1 344 000653 3307 DCA ZCATC /SET CONTROL 345 000654 4303 JMS ZCAT 346 000655 1001 TAD TMP1 347 000656 7510 SPA 348 000657 5242 JMP ZCLOOP /MORE TO GO 349 000660 6211 CATB0, CDF F1 350 000661 7201 CLA IAC /1 IS LIBRARY CODE 351 000662 3410 DCA I X0 352 000663 1370 TAD (VERS 353 000664 3410 DCA I X0 /MARK LIBRA VERSION # 354 000665 1337 TAD LIBLEN /JUST A GUESS 355 000666 7041 CIA 356 000667 3410 DCA I X0 357 000670 1023 TAD CATLEN 358 000671 3410 DCA I X0 359 000672 7240 CLA CMA /END OF CAT INDICATOR 360 000673 3410 DCA I X0 /MARKS FIRST AVAIL SLOT 361 000674 6201 CDF F0 362 000675 3053 DCA CHANGD /FORCE A WRITE ON THIS ONE 363 000676 1311 TAD ZCATB 364 000677 3025 DCA LAVAIL 365 000700 1336 TAD LIBBLK /LIBRARY START BLOCK 366 000701 3024 DCA CATBLK /IS CURRENTLY IN BUFFER 367 000702 5767 JMP GETINF /BEGIN 368 / 369 000703 0000 ZCAT, 0 370 000704 6201 CDF F0 371 000705 4766 JMS CCHK /LOOKOUT FOR CONTROL C 372 000706 4421 JMS I LIBDVH 373 000707 0010 ZCATC, F1 374 000710 2000 CATBUF 375 000711 0000 ZCATB, 0 376 000712 4061 JMS IOERR 377 000713 1307 TAD ZCATC 378 000714 4765 JMS R6L 379 000715 0364 AND (17 380 000716 1311 TAD ZCATB 381 000717 3311 DCA ZCATB 382 000720 2053 ISZ CHANGD /SET UNMODIFIED SW 383 000721 5703 JMP I ZCAT 384 000722 5320 JMP .-2 385 / 386 000723 0000 FNDLIB, 0 387 000724 1723 TAD I FNDLIB 388 000725 3335 DCA USRCOD 389 000726 2323 ISZ FNDLIB 390 000727 1363 TAD (LIBNAM 391 000730 3336 DCA LIBBLK 392 000731 1022 TAD LIBU 393 000732 0364 AND (17 394 000733 6212 CIF F1 395 000734 4420 JMS I USR 396 000735 0000 USRCOD, 0 397 000736 0026 LIBBLK, LIBNAM 398 000737 0000 LIBLEN, 0 /NEG, REMEMBER 399 000740 5723 JMP I FNDLIB /COULD'T DO IT 400 000741 1336 TAD LIBBLK /FIRST BLOCK 401 000742 3311 DCA ZCATB /OF CATALOG 402 000743 2323 ISZ FNDLIB 403 000744 5723 JMP I FNDLIB 404 000745 4762 LSZERR, JMS TTOTXT 405 000746 4450 SMALL-1 406 000747 4761 JMS CRLF 407 000750 5177 JMP START /GO FOR MORE 408 000761 3310 PAGE 000762 3277 000763 0026 000764 0017 000765 3272 000766 3230 000767 1000 000770 0024 000771 4010 000772 3265 000773 0013 000774 2400 000775 1777 000776 7646 000777 7760 409 / 410 / SETUP POINTERS AND THINGS FOR NEXT INPUT MODULE 411 / 412 001000 7240 GETINF, CLA CMA 413 001001 3052 DCA INCLUD /SET NO-NAME-INCLUDED SW 414 001002 1037 TAD INLSW /ARE WE GETTING INPUT FROM A LIBR? 415 001003 7640 SZA CLA 416 001004 5777 JMP INLIB /YES-GET NEXT MODULE THEREIN 417 001005 6211 NXTINF, CDF F1 418 001006 1432 TAD I INFP /UNIT AND LEN OF NEXT IN FILE 419 001007 7440 SZA /IS THERE ONE? 420 001010 5231 JMP FTCHIN /YES 421 001011 1776 TAD I (SWATOL 422 001012 0375 AND (1000 /TEST FOR /C 423 001013 6201 CDF F0 424 001014 7650 SNA CLA 425 001015 5774 JMP LCLOSE /NO MORE 426 001016 4773 JMS SAVRES /PRESERVE DEV HANDLER RESIDENCY 427 001017 4772 JMS TTWAIT /FINISH ANY TYPING 428 001020 6212 CIF F1 429 001021 4420 JMS I USR /NEW LINE CONTINUES OLD 430 001022 0005 DECODE 431 001023 2214 2214 /RL DEFAULT EXT 432 001024 0000 0 /DO NOT DELETE TENTATIVE FILES 433 001025 4771 JMS RSTRES /RESTORE RESIDENCY TABLE 434 001026 1370 TAD (INF 435 001027 3032 DCA INFP /RESET INPUT FILE POINTER 436 001030 5205 JMP NXTINF /TRY AGAIN 437 001031 3033 FTCHIN, DCA MODU /UNIT CONTAINING INPUT MOD 438 001032 2032 ISZ INFP 439 001033 1432 TAD I INFP 440 001034 3040 DCA INFST /START OF INPUT FILE 441 001035 2032 ISZ INFP 442 001036 1040 TAD INFST 443 001037 3036 DCA MODBLK /IN THIS CASE, FILE=MODULE 444 001040 1033 TAD MODU 445 001041 0367 AND (7760 446 001042 7041 CIA 447 001043 7112 CLL RTR 448 001044 7012 RTR 449 001045 3035 DCA MODLEN 450 001046 1366 TAD (IDEVH!1 451 001047 3256 DCA INDVH /TENTATIVE HANDLER ADDR 452 001050 6201 CDF F0 453 001051 1033 TAD MODU 454 001052 0365 AND (17 455 001053 6212 CIF F1 456 001054 4420 JMS I USR 457 001055 0001 FETCH 458 001056 6601 INDVH, IDEVH!1 /TENTATIVE INPUT HANDLER ADDR 459 001057 4061 JMS IOERR /DON'T GIVE ME THAT 460 001060 1256 TAD INDVH 461 001061 3034 DCA MODDVH /DEVICE HANDLER ADDRESS 462 001062 3042 DCA THSBLK /FORCE READIN TO READ 463 001063 1036 LUKMOD, TAD MODBLK /FIRST BLOCK OF MODULE 464 001064 3041 DCA INBLK /INITIALIZE READIN 465 001065 4764 JMS READIN /GET FIRST BLOCK 466 001066 6211 CDF F1 467 001067 7240 CLA CMA /-1 468 001070 1454 TAD I PMOD /LOOK AT IDENTIFIER 469 001071 6201 CDF F0 470 001072 7450 SNA 471 001073 5321 JMP GOTLIB /ITS A LIBRARY 472 001074 7112 CLL RTR 473 001075 7640 SZA CLA /IS IT A MODULE 474 001076 5315 JMP BADINF /BAD INPUT 475 001077 1763 TAD LIBBLK /MAKE SURE 476 001100 7041 CIA 477 001101 1762 TAD LIBLEN /THAT MODULE 478 001102 1025 TAD LAVAIL /FITS IN LIBRARY 479 001103 7100 CLL 480 001104 7450 SNA /CHECK FOR TOO LONG HERE TOO** 481 001105 5311 JMP OVFLO /IT IS TOO LONG 482 001106 1035 TAD MODLEN 483 001107 7620 SNL CLA 484 001110 5761 JMP NXTEBK /GO GETTUM 485 001111 4760 OVFLO, JMS TTOTXT 486 001112 4504 TOOBIG-1 487 001113 4757 JMS CRLF 488 001114 5200 JMP GETINF 489 001115 4760 BADINF, JMS TTOTXT 490 001116 4471 NOTMOD-1 491 001117 4757 JMS CRLF 492 001120 5200 JMP GETINF 493 / 494 001121 1035 GOTLIB, TAD MODLEN 495 001122 7650 SNA CLA 496 001123 5326 JMP LB2BIG /CAN'T DO A LOOKUP IF G. T. 255 497 001124 2037 ISZ INLSW /SET IN-LIBRARY SWITCH 498 001125 5777 JMP INLIB 499 001126 4760 LB2BIG, JMS TTOTXT 500 001127 1265 L2BMSG-1 501 001130 4757 JMS CRLF 502 001131 5177 JMP START 503 001157 3310 PAGE 001160 3277 001161 1400 001162 0737 001163 0736 001164 3600 001165 0017 001166 6601 001167 7760 001170 7617 001171 3643 001172 3217 001173 3634 001174 2400 001175 1000 001176 7643 001177 1200 504 / GET NEXT MODULE FROM LIBRARY 505 / 506 001200 1040 INLIB, TAD INFST /START OF INPUT FILE 507 001201 3041 DCA INBLK /IS WHAT WE WANT 508 001202 4777 JMS READIN /BRING CATALOG INTO MODULE BUFFER 509 001203 1376 TAD (3 510 001204 1054 TAD PMOD 511 001205 3001 DCA TMP1 512 001206 6211 CDF F1 513 001207 1401 TAD I TMP1 /GET CATALOG LEN 514 001210 7041 CIA 515 001211 3001 DCA TMP1 /HOLD COUNTER IN CASE OF FULL CATALOG 516 001212 1040 TAD INFST 517 001213 3041 DCA INBLK /WE WANT THE SAME ONE AGAIN 518 001214 1040 TAD INFST 519 001215 3003 DCA TMP3 /INIT ACCUMULATED MODULE START BLOCK 520 001216 3035 DCA MODLEN /INITAIL MOD LEN IS ZERO 521 001217 4777 INLSC1, JMS READIN /GET CATALOG BLOCK 522 001220 1375 TAD (-100 523 001221 3002 DCA TMP2 /COUNT ENTRIES IN CAT BLOCK 524 001222 6211 INLSC2, CDF F1 525 001223 1454 TAD I PMOD /LOOK FOR END-OF-CATALOG WORD 526 001224 7040 CMA 527 001225 7650 SNA CLA 528 001226 5261 JMP NDLSC /END OF SCAN 529 001227 1376 TAD (3 530 001230 1054 TAD PMOD /POINT TO LENGTH 531 001231 3005 DCA TMP5 532 001232 1405 TAD I TMP5 533 001233 7650 SNA CLA /FIRST ENTRY FOR A MODULE? 534 001234 5242 JMP NOLEN /NO, DO NOT UPDATE 535 001235 1035 TAD MODLEN 536 001236 1003 TAD TMP3 /UPDATE MODULE STARTING BLOCK 537 001237 3003 DCA TMP3 538 001240 1405 TAD I TMP5 /GET THIS LENGTH 539 001241 3035 DCA MODLEN /FOR THIS MODULE 540 001242 1036 NOLEN, TAD MODBLK /COMPARE LAST MODULE STARTING BLOCK 541 001243 7140 CMA CLL 542 001244 1003 TAD TMP3 /TO ACCUMULATED START BLOCK 543 001245 7620 SNL CLA /INTERESTING? 544 001246 5252 JMP NOTYET /NO 545 001247 1454 TAD I PMOD /YES; WAS NAME DELETED? 546 001250 7640 SZA CLA 547 001251 5263 JMP GLMOD /NO, WE'VE GOT A GOOD MODULE 548 001252 1374 NOTYET, TAD (4 549 001253 1054 TAD PMOD /POINT TO NEXT NAME 550 001254 3054 DCA PMOD 551 001255 2002 ISZ TMP2 /END OF CAT BLOCK? 552 001256 5222 JMP INLSC2 /NO 553 001257 2001 ISZ TMP1 /YES; END OF CATALOG? 554 001260 5217 JMP INLSC1 /NO, GET NEW BLOCK 555 001261 3037 NDLSC, DCA INLSW /YES, NO LONGER IN A LIBRARY 556 001262 5773 JMP NXTINF /GET ANOTHER FILE 557 001263 1003 GLMOD, TAD TMP3 /GET STARTING BLOCK 558 001264 3036 DCA MODBLK /OF MODULE 559 001265 5772 JMP LUKMOD /AND GO GET THE MODULE 560 001266 1116 L2BMSG, TEXT "INPUT LIBRARY TOO BIG";0 001267 2025 001270 2440 001271 1411 001272 0222 001273 0122 001274 3140 001275 2417 001276 1740 001277 0211 001300 0700 001301 0000 561 001372 1063 PAGE 001373 1005 001374 0004 001375 7700 001376 0003 001377 3600 562 / PROCESS LOOP FOR ONE MODULE 563 / 564 001400 1377 NXTEBK, TAD (3 565 001401 1054 TAD PMOD /ADDR OF FIRST ESD-1 566 001402 3010 DCA X0 /RESET POINTER TO NAMES 567 001403 1376 TAD (-52 /PER BLOCK COUNT 568 001404 3050 DCA ESDCTR 569 001405 6211 ESDLUP, CDF F1 570 001406 1410 TAD I X0 571 001407 3044 DCA ENAM1 572 001410 1410 TAD I X0 573 001411 3045 DCA ENAM2 574 001412 1410 TAD I X0 575 001413 3046 DCA ENAM3 576 001414 1410 TAD I X0 /TYPE CODE 577 001415 6201 CDF F0 578 001416 1375 TAD (ESDTAB /DISPATCH FROM TBL 579 001417 3001 DCA TMP1 580 001420 5401 JMP I TMP1 581 001421 5774 ESDTAB, JMP ESDEND /0=END OF ESD TABLE 582 001422 5233 JMP DUPLUK /1=ENTRY=LOOK FOR 583 /DUPLICATE NAME 584 001423 5773 JMP ESDLND /2=EXTERN=IGNORE NAME 585 001424 5773 JMP ESDLND /3=FORT COMMON=IGNORE 586 001425 5233 JMP DUPLUK /4=PROG SECTION 587 001426 7402 HLT /5=MUL ENTRY=DOESN'T 588 /EXIST 589 001427 7402 HLT /6=MUL SECTION=DITTO 590 001430 5233 JMP DUPLUK /7=SECT8 591 001431 5773 JMP ESDLND /10=COMMZ 592 001432 5233 JMP DUPLUK /11=FIELD1 593 / 594 / LOOK FOR DUPLICATION OF THIS ESD SYMBOL 595 / 596 001433 1023 DUPLUK, TAD CATLEN 597 001434 7041 CIA 598 001435 3001 DCA TMP1 /COUNT LENGTH OF CAT 599 001436 1024 TAD CATBLK 600 001437 7041 CIA 601 001440 1772 TAD LIBBLK /ARE WE AT FIRST BLOCK? 602 001441 7640 SZA CLA 603 001442 4771 JMS CHGCHK /CHECK FOR BLOCK MODIFIED 604 001443 1772 TAD LIBBLK 605 001444 3770 DCA NXTCAT /SETUP FOR FIRST BLOCK OF CAT 606 001445 1023 TAD CATLEN 607 001446 7041 CIA 608 001447 3060 DCA CATCNT 609 001450 4767 GETCB, JMS GCATB /GET IT 610 001451 1366 TAD (CATBUF-1 611 001452 3011 DCA X1 612 001453 1365 TAD (-100 /COUNT ENTRIES/BLOCK 613 001454 3002 DCA TMP2 614 001455 6211 CDF F1 615 001456 1411 CBSRCH, TAD I X1 /LOOK AT NAME 616 001457 7040 CMA 617 001460 7450 SNA 618 001461 5764 JMP CHKI /END OF CATALOG-LOOK FOR /I 619 001462 7001 IAC /COMPLETE THE CIA 620 001463 1044 TAD ENAM1 /COMPARE 621 001464 7640 SZA CLA 622 001465 5300 JMP NOMTCH 623 001466 1411 TAD I X1 624 001467 7041 CIA 625 001470 1045 TAD ENAM2 626 001471 7640 SZA CLA 627 001472 5300 JMP NOMTCH 628 001473 1411 TAD I X1 /LAST CHANCE 629 001474 7041 CIA 630 001475 1046 TAD ENAM3 631 001476 7650 SNA CLA 632 001477 5317 JMP GOTMAT /EQUAL! 633 001500 1011 NOMTCH, TAD X1 634 001501 0363 AND (-4 635 001502 1377 TAD (3 /BUMP TO NEXT 636 001503 3011 DCA X1 637 001504 2002 ISZ TMP2 638 001505 5256 JMP CBSRCH 639 001506 4771 JMS CHGCHK /CHECK FOR MODIFIED BLOCK 640 001507 2001 ISZ TMP1 /END OF CATALOG? 641 001510 5250 JMP GETCB /NO, GET NEXT 642 001511 4762 JMS TTOTXT 643 001512 4561 CATFUL-1 644 001513 4761 JMS CRLF 645 001514 7240 CLA CMA 646 001515 3043 DCA FULFLG 647 001516 5774 JMP ESDEND /PUT THAT, IF POSSIBLE 648 001517 6201 GOTMAT, CDF F0 649 001520 4762 JMS TTOTXT 650 001521 0043 ENAM1-1 /PRINT THE NAME 651 001522 4762 JMS TTOTXT 652 001523 4534 NDUP-1 /WHICH TO KEEP? 653 001524 6211 CDF F1 654 001525 1760 TAD I (SWATOL 655 001526 6201 CDF F0 656 001527 0357 AND (10 /TEST /I 657 001530 7650 SNA CLA 658 001531 5756 JMP CHKR /NO, LOOK FOR /R 659 001532 4762 GMASK, JMS TTOTXT 660 001533 4547 KEEP-1 661 001534 4755 JMS WAITOP 662 001535 5773 JMP ESDLND /DEFAULT TO THE OLD ONE 663 001536 1354 TAD (-"O 664 001537 7450 SNA 665 001540 5773 JMP ESDLND /KEEP OLD 666 001541 7001 IAC /IS IT "N"? 667 001542 7640 SZA CLA 668 001543 5332 JMP GMASK /TRY AGAIN 669 001544 5753 JMP DELTO /DELETE THE OLD 670 001553 1606 PAGE 001554 7461 001555 3400 001556 1600 001557 0010 001560 7643 001561 3310 001562 3277 001563 7774 001564 1646 001565 7700 001566 1777 001567 2213 001570 2241 001571 2200 001572 0736 001573 2040 001574 2050 001575 1421 001576 7726 001577 0003 671 001600 4777 CHKR, JMS CRLF 672 001601 6211 CDF F1 673 001602 1776 TAD I (SWMTOX 674 001603 0375 AND (100 /TEST /R 675 001604 7650 SNA CLA 676 001605 5774 JMP ESDLND /DEFAULT:KEEP THE OLD ONE 677 001606 6211 DELTO, CDF F1 678 001607 1011 TAD X1 679 001610 0373 AND (-4 680 001611 7041 CIA 681 001612 7040 CMA /BACK UP POINTER 682 001613 3011 DCA X1 683 001614 3411 DCA I X1 /CLEAR 684 001615 3411 DCA I X1 /OLD 685 001616 3411 DCA I X1 /NAME 686 001617 2011 ISZ X1 /SKIP OVER LENGTH 687 001620 3053 DCA CHANGD /BLOCK HAS BEEN MODIFIED 688 001621 5232 JMP NXTE /ENTER AT END OF LOOP 689 001622 6211 NDSCN, CDF F1 690 001623 1411 TAD I X1 /LOOK AT NEXT 691 001624 7040 CMA 692 001625 7650 SNA CLA 693 001626 5267 JMP ENDCAT /NOW WE'RE THERE 694 001627 1011 TAD X1 695 001630 1372 TAD (3 /BUMP TO NEXT NAME 696 001631 3011 DCA X1 697 001632 2002 NXTE, ISZ TMP2 698 001633 5222 JMP NDSCN 699 001634 4771 JMS CHGCHK /LOOK OUT FOR CHANGES 700 001635 2060 ISZ CATCNT /END OF CAT ? 701 001636 7410 SKP 702 001637 5770 JMP FULCAT /NO MORE PUSSY 703 001640 4767 JMS GCATB 704 001641 1366 TAD (CATBUF-1 705 001642 3011 DCA X1 706 001643 1365 TAD (-100 707 001644 3002 DCA TMP2 708 001645 5222 JMP NDSCN 709 001646 1764 CHKI, TAD I (SWATOL /LOOK AT /I SW 710 001647 0363 AND (10 711 001650 7650 SNA CLA 712 001651 5267 JMP ENDCAT /NOT SET 713 001652 4762 JMS TTOTXT 714 001653 0043 ENAM1-1 /TYPE ESD NAME 715 001654 4762 JMS TTOTXT 716 001655 4572 NCLUD-1 /INCLUDE IT? 717 001656 4761 IANS, JMS WAITOP 718 001657 5267 JMP ENDCAT /DEFAULT TO INCLUDE 719 001660 1360 TAD (-"Y 720 001661 7450 SNA 721 001662 5267 JMP ENDCAT /YES, INCLUDE 722 001663 1357 TAD ("Y-"N 723 001664 7640 SZA CLA /IS IT "N"? 724 001665 5256 JMP IANS /NO, TRY AGAIN 725 001666 5774 JMP ESDLND 726 001667 1011 ENDCAT, TAD X1 /POINT TO EMPTY SLOT 727 001670 0373 AND (-4 728 001671 7041 CIA 729 001672 7040 CMA 730 001673 3011 DCA X1 731 001674 5756 JMP INSERT 732 001756 2000 PAGE 001757 0013 001760 7447 001761 3400 001762 3277 001763 0010 001764 7643 001765 7700 001766 1777 001767 2213 001770 0457 001771 2200 001772 0003 001773 7774 001774 2040 001775 0100 001776 7644 001777 3310 733 / THIS ESD GOES IN THE CATALOG 734 / 735 002000 6211 INSERT, CDF F1 736 002001 1044 TAD ENAM1 /MOVE 737 002002 3411 DCA I X1 /NAME 738 002003 1045 TAD ENAM2 /TO 739 002004 3411 DCA I X1 /LIBRARY 740 002005 1046 TAD ENAM3 /CATALOG 741 002006 3411 DCA I X1 742 002007 2052 ISZ INCLUD /IS THIS THE FIRST? 743 002010 7410 SKP 744 002011 1035 TAD MODLEN /YES, GET THE LENGTH 745 002012 3411 DCA I X1 /AND STORE 4TH WORD 746 002013 3053 DCA CHANGD /SET CAT MODIFIED SW 747 002014 7201 CLA IAC 748 002015 1011 TAD X1 /CHECK FOR END OF BLOCK 749 002016 0377 AND (377 750 002017 7640 SZA CLA 751 002020 5236 JMP MARKND /NO, MARK END OF CAT 752 002021 4776 JMS CHGCHK /WRITE THIS BLOCK 753 002022 6211 CDF F1 754 002023 1375 TAD (-400 755 002024 3001 DCA TMP1 /SET COUNT FOR BLOCK LEN 756 002025 1374 TAD (CATBUF-1 757 002026 3011 DCA X1 /SET POINTER 758 002027 7240 CLA CMA 759 002030 3411 DCA I X1 760 002031 2001 ISZ TMP1 761 002032 5230 JMP .-2 /CLEAR THE BLOCK 762 002033 3053 DCA CHANGD 763 002034 2024 ISZ CATBLK 764 002035 5240 JMP ESDLND 765 002036 7240 MARKND, CLA CMA 766 002037 3411 DCA I X1 /MARK NEW END OF CAT 767 002040 6201 ESDLND, CDF F0 768 002041 7326 CLA STL RTL /TWO TO SKIP VALUE 769 002042 1010 TAD X0 770 002043 3010 DCA X0 771 002044 2050 ISZ ESDCTR /DONE WITH BLOCK? 772 002045 5773 JMP ESDLUP /NO, GET NEXT 773 002046 4772 JMS READIN /GET NEXT BLOK 774 002047 5771 JMP NXTEBK /RESET POINTERS AND CONTINUE 775 002050 2052 ESDEND, ISZ INCLUD /CHECK FOR ANY NAMES OUT 776 002051 5260 JMP CPYMOD /YES, COPY MODULE INTO LIBRARY 777 002052 4770 JMS TTOTXT /SORRY, DIDN'T MAKE IT 778 002053 4406 NONEIN-1 779 002054 4767 JMS CRLF 780 002055 2043 ISZ FULFLG 781 002056 5766 JMP GETINF /TRY NEXT 782 002057 5765 JMP LCLOSE 783 002060 1036 CPYMOD, TAD MODBLK /GET IN FILE STRT BLOCK 784 002061 3041 DCA INBLK 785 002062 1035 TAD MODLEN 786 002063 7041 CIA 787 002064 3001 DCA TMP1 788 002065 1025 TAD LAVAIL /FIRST AVAILABLE BLOCK 789 002066 3275 DCA NXTOBK 790 002067 4772 CPYLUP, JMS READIN /READ BLOCK OF INPUT 791 002070 1054 TAD PMOD 792 002071 3274 DCA PNXTOB 793 002072 4421 JMS I LIBDVH /CALL OUTPUT HANDLER 794 002073 4210 4200!F1 795 002074 2400 PNXTOB, MODBUF 796 002075 0000 NXTOBK, 0 /NEXT OUTPUT BLOCK NUMBER 797 002076 4061 JMS IOERR 798 002077 2275 ISZ NXTOBK /BUMP BLOCK NUMBER 799 002100 2001 ISZ TMP1 /CHECK LENGH 800 002101 5267 JMP CPYLUP 801 002102 1275 TAD NXTOBK 802 002103 3025 DCA LAVAIL /UPDATE AVAILABLE POINTER 803 002104 5766 JMP GETINF /GO FOR NEXT 804 002165 2400 PAGE 002166 1000 002167 3310 002170 3277 002171 1400 002172 3600 002173 1405 002174 1777 002175 7400 002176 2200 002177 0377 805 002200 0000 CHGCHK, 0 806 002201 6201 CDF F0 /PRECAUTION 807 002202 1053 TAD CHANGD /HAS BLOCK BEEN MODIFIED? 808 002203 7640 SZA CLA 809 002204 5600 JMP I CHGCHK /NO, NOTHING TO DO 810 002205 1024 TAD CATBLK 811 002206 3777 DCA ZCATB /WRITE THE BLOCK 812 002207 1376 TAD (4200!F1 813 002210 3775 DCA ZCATC 814 002211 4774 JMS ZCAT 815 002212 5600 JMP I CHGCHK /OK 816 / 817 / 818 002213 0000 GCATB, 0 819 002214 6201 CDF F0 820 002215 1241 TAD NXTCAT 821 002216 7041 CIA 822 002217 1024 TAD CATBLK /IS IT IN CORE? 823 002220 7650 SNA CLA 824 002221 5237 JMP SOEZ /YES, ITS EZ 825 002222 1241 TAD NXTCAT 826 002223 7041 CIA 827 002224 1773 TAD LIBBLK 828 002225 1023 TAD CATLEN 829 002226 7750 SPA SNA CLA /CHECK FOR INTERNAL ERROR 830 002227 5772 JMP FULCAT /** 831 002230 1241 TAD NXTCAT 832 002231 3777 DCA ZCATB 833 002232 1371 TAD (200!F1 /SET FOR READ 834 002233 3775 DCA ZCATC 835 002234 4774 JMS ZCAT 836 002235 1241 TAD NXTCAT /NEXT BLOCK 837 002236 3024 DCA CATBLK /IS IN CORE 838 002237 2241 SOEZ, ISZ NXTCAT 839 002240 5613 JMP I GCATB 840 002241 0000 NXTCAT, 0 841 002371 0210 PAGE 002372 0457 002373 0736 002374 0703 002375 0707 002376 4210 002377 0711 842 002400 4777 LCLOSE, JMS CHGCHK 843 002401 1776 TAD USRCOD 844 002402 1375 TAD (-ENTER /DID WE ENTER A NEW FILE? 845 002403 7640 SZA CLA 846 002404 5774 JMP CATLST /NO, GO LIST CATALOG 847 002405 1773 TAD LIBBLK /GET LEN 848 002406 7041 CIA 849 002407 6211 CDF F1 850 002410 1772 TAD I (EQLO /GET USER EXTENSION REQUEST 851 002411 6201 CDF F0 852 002412 1025 TAD LAVAIL /PLUS CURRENT END 853 002413 3001 DCA TMP1 854 002414 1001 TAD TMP1 855 002415 7100 CLL 856 002416 1771 TAD LIBLEN /CHECK FOR POSSIBLE 857 002417 7620 SNL CLA 858 002420 5224 JMP .+4 859 002421 1771 TAD LIBLEN /CAN'T GIVE ALL HE WANTS 860 002422 7041 CIA 861 002423 7410 SKP 862 002424 1001 TAD TMP1 863 002425 3252 DCA LCLEN /SET CLOSE LENGTH 864 002426 1023 TAD CATLEN 865 002427 7040 CMA 866 002430 1252 TAD LCLEN /COMPARE CAT LEN TO LIB LEN 867 002431 7750 SPA SNA CLA 868 002432 5255 JMP NOLIB /THERE'S NO POINT 869 002433 1773 TAD LIBBLK /GET FIRST BLOCK 870 002434 3770 DCA NXTCAT 871 002435 4767 JMS GCATB 872 002436 6211 CDF F1 873 002437 1252 TAD LCLEN /ACTUAL LIBRARY LENGTH 874 002440 3766 DCA I (CATBUF+2 875 002441 6201 CDF F0 876 002442 3053 DCA CHANGD 877 002443 4777 JMS CHGCHK /WRITE IT 878 002444 1022 TAD LIBU 879 002445 0365 AND (17 880 002446 6212 CIF F1 881 002447 4420 JMS I USR 882 002450 0004 CLOSE 883 002451 0026 LIBNAM 884 002452 0000 LCLEN, 0 885 002453 4061 JMS IOERR 886 002454 5774 JMP CATLST /GO LIST THE CATALOG 887 / 888 002455 4764 NOLIB, JMS TTOTXT 889 002456 4600 WHYCLS-1 890 002457 4763 JMS CRLF 891 002460 5177 JMP START 892 002563 3310 PAGE 002564 3277 002565 0017 002566 2002 002567 2213 002570 2241 002571 0737 002572 7646 002573 0736 002574 2600 002575 7775 002576 0735 002577 2200 893 / LIST THE CATALOG 894 / 895 002600 4777 CATLST, JMS OOPEN /OPEN LISTING FILE 896 002601 5177 JMP START /NONE DESIRED 897 002602 1376 TAD (OCHAR /SETUP FOR DEVICE-INDEPENDENT 898 002603 3056 DCA PCHR /OUTPUT 899 002604 1375 TAD (214 /AT TOP OF PAGE 900 002605 4456 JMS I PCHR 901 002606 4774 JMS CRLF 902 002607 4773 JMS TTOTXT 903 002610 4377 LBV-1 904 002611 4773 JMS TTOTXT 905 002612 4632 CATOF-1 906 002613 4772 JMS PRLBNM /PRINT THE NAME 907 002614 6211 CDF F1 908 002615 1771 TAD I (SYSDAT 909 002616 6201 CDF F0 910 002617 7450 SNA 911 002620 5262 JMP NODATE /DON'T KNOW THE DATE 912 002621 3001 DCA TMP1 913 002622 4773 JMS TTOTXT 914 002623 4641 ON-1 915 002624 7200 CLA /THE FOLLOWING CODE GETS THE DAY 916 002625 3002 DCA TMP2 917 002626 1001 TAD TMP1 /GET THE DATE 918 002627 7012 RTR /ROTATE THREE RIGHT AND MASK 919 002630 7010 RAR /TO GET THE DAY IN OCTAL 920 002631 0370 AND (37 921 002632 4264 JMS MAK8BT /MAKE IT 8-BIT AND PRINT 922 002633 3002 DCA TMP2 923 002634 1001 TAD TMP1 /GET THE DATE BACK 924 002635 0367 AND (7400 /MASK TO GET THE MONTH BITS 925 002636 4766 JMS R6R /MONTH*4 (IN OCTAL) 926 002637 3002 DCA TMP2 /PUT IN TEMP. VARIABLE TO SAVE IT 927 002640 1002 TAD TMP2 /GET IT BACK 928 002641 7012 RTR /MONTH 929 002642 1002 TAD TMP2 930 002643 1365 TAD (MONTHS-6 931 002644 3246 DCA .+2 /ADDRESS OF MONTH FROM TABLE 932 002645 4773 JMS TTOTXT /PUT IT IN THE TEXT LINE 933 002646 0000 0 934 002647 1001 TAD TMP1 /GET THE DATE---TO FIND THE YEAR 935 002650 0364 AND (7 /MASK TO GET THE YEAR OFFSET BITS 936 002651 3004 DCA TMP4 /SAVE THEM 937 002652 3002 DCA TMP2 938 002653 1763 TAD I (7777 /GET THE DATE EXTENSION BITS 939 002654 0362 AND (600 940 002655 7112 CLL RTR /ROTATE TO GET THEM INTO BIT 941 002656 7012 RTR /POSITIONS 7 AND 8 942 002657 1361 TAD (106 /ADD 70(ORIGINAL BASE YEAR) 943 002660 1004 TAD TMP4 /ADD IN THE YEAR OFFSET BITS 944 002661 4264 JMS MAK8BT /MAKE 8-BIT AND PRINT 945 002662 4774 NODATE, JMS CRLF 946 002663 5760 JMP PRCAT /TITLE IS DONE, PRINT CAT 947 002664 0000 MAK8BT, 0 /ROUTINE TO CONVERT TO 8-BIT AND PRINT 948 002665 7100 CLL /FIRST CONVERT TO DECIMAL 949 002666 1357 CONVYR, TAD (-12 /KEEP SUBTRACTING 12 950 002667 7510 SPA /HAVE THE YEAR 951 002670 5273 JMP GETDG1 952 002671 2002 ISZ TMP2 /HOLDS THE FIRST DIGIT OF YEAR 953 002672 5266 JMP CONVYR 954 002673 1356 GETDG1, TAD (12 /GET THE SECOND DIGIT 955 002674 3003 DCA TMP3 /SAVE IT 956 002675 1002 TAD TMP2 /GET THE FIRST DIGIT 957 002676 7450 SNA /FIRST DIGIT IS A ZERO 958 002677 5302 JMP PRDIG2 /PRINT THE SECOND DIGIT 959 002700 1355 TAD (260 /MAKE FIRST DIGIT OF YEAR 8-BIT 960 002701 4456 JMS I PCHR /PRINT IT 961 002702 1003 PRDIG2, TAD TMP3 /GET THE SECOND DIGIT 962 002703 1355 TAD (260 /MAKE SECOND DIGIT OF YEAR 8-BIT 963 002704 4456 JMS I PCHR /PRINT IT 964 002705 5664 JMP I MAK8BT /RETURN 965 002755 0260 PAGE 002756 0012 002757 7766 002760 3000 002761 0106 002762 0600 002763 7777 002764 0007 002765 4644 002766 3265 002767 7400 002770 0037 002771 7666 002772 3664 002773 3277 002774 3310 002775 0214 002776 4011 002777 4200 966 / LIST ALL ENTRIES IN THE CATALOG 967 / 968 003000 1023 PRCAT, TAD CATLEN 969 003001 7041 CIA 970 003002 3001 DCA TMP1 971 003003 1777 TAD LIBBLK 972 003004 3776 DCA NXTCAT 973 003005 7240 CLA CMA 974 003006 3003 DCA TMP3 /SET LINE COUNTER 975 003007 4775 CATLUP, JMS GCATB 976 003010 1374 TAD (CATBUF-1 977 003011 3010 DCA X0 978 003012 1373 TAD (-100 979 003013 3002 DCA TMP2 980 003014 6211 CATLP2, CDF F1 981 003015 1410 TAD I X0 /GET FIRST WORD OF NAME 982 003016 7450 SNA 983 003017 5245 JMP EMPTY /NOT AN ESD NAME 984 003020 7040 CMA 985 003021 7450 SNA 986 003022 5260 JMP NDCATL /END OF CATALOG 987 003023 7040 CMA /RESTORE FIRST WORD 988 003024 4772 JMS TTO2 /PRINT 989 003025 5236 JMP NDNAM /A SHORT NAME 990 003026 6211 CDF F1 991 003027 1410 TAD I X0 992 003030 4772 JMS TTO2 993 003031 5236 JMP NDNAM 994 003032 6211 CDF F1 995 003033 1410 TAD I X0 996 003034 4772 JMS TTO2 997 003035 7000 NOP 998 003036 2003 NDNAM, ISZ TMP3 /MORE ROOM ON THIS LINE? 999 003037 5244 JMP SAMLIN /SURE 1000 003040 4771 JMS CRLF 1001 003041 1370 TAD (-10 /SETUP FOR 8 PER LINE 1002 003042 3003 DCA TMP3 1003 003043 5245 JMP EMPTY 1004 003044 4767 SAMLIN, JMS TAB /SPACE OVER TO NEXT NAME 1005 003045 1010 EMPTY, TAD X0 1006 003046 0366 AND (-4 1007 003047 1365 TAD (3 1008 003050 3010 DCA X0 /POINT TO NEXT 1009 003051 2002 ISZ TMP2 1010 003052 5214 JMP CATLP2 /GO FOR NEXT 1011 003053 2001 ISZ TMP1 /MORE BLOCKS? 1012 003054 5207 JMP CATLUP /YES 1013 003055 4771 JMS CRLF 1014 003056 4764 JMS TTOTXT 1015 003057 4561 CATFUL-1 1016 003060 4771 NDCATL, JMS CRLF 1017 003061 1363 TAD (214 /EJECT PAGE 1018 003062 4456 JMS I PCHR 1019 003063 4762 JMS OCLOSE /CLOSE THE FILE 1020 003064 5177 JMP START 1021 003162 4265 PAGE 003163 0214 003164 3277 003165 0003 003166 7774 003167 3317 003170 7770 003171 3310 003172 3241 003173 7700 003174 1777 003175 2213 003176 2241 003177 0736 1022 / USEFUL OUTPUT THINGS 1023 / 1024 003200 0000 TTO, 0 1025 003201 3216 DCA TTOCHR 1026 003202 4217 JMS TTWAIT 1027 003203 1377 TAD (200 1028 003204 6034 KRS 1029 003205 1376 TAD (-217 /CRTL/O CHECK 1030 003206 7650 SNA CLA 1031 003207 6031 KSF 1032 003210 7410 SKP 1033 003211 5600 JMP I TTO 1034 003212 1216 TAD TTOCHR 1035 003213 6046 TLS 1036 003214 3055 DCA TTFLAG 1037 003215 5600 JMP I TTO 1038 003216 0000 TTOCHR, 0 1039 003217 0000 TTWAIT, 0 1040 003220 1055 TAD TTFLAG 1041 003221 7650 SNA CLA 1042 003222 5617 JMP I TTWAIT 1043 003223 4230 JMS CCHK /BEWARE OF CTRL/C 1044 003224 6041 TSF 1045 003225 5223 JMP .-2 /WAIT TILL DONE 1046 003226 3055 DCA TTFLAG /CLEAR BUSY FLAG 1047 003227 5617 JMP I TTWAIT 1048 003230 0000 CCHK, 0 1049 003231 6031 KSF 1050 003232 5630 JMP I CCHK /NOTHING TO WORRY ABOUT 1051 003233 1377 TAD (200 1052 003234 6034 KRS 1053 003235 1375 TAD (-203 1054 003236 7650 SNA CLA /WAS IT CONTROL C? 1055 003237 5774 JMP I (7600 /YES 1056 003240 5630 JMP I CCHK 1057 003241 0000 TTO2, 0 1058 003242 3007 DCA TMP7 1059 003243 1007 TAD TMP7 1060 003244 4265 JMS R6R 1061 003245 4252 JMS TTO2A 1062 003246 1007 TAD TMP7 1063 003247 4252 JMS TTO2A 1064 003250 2241 ISZ TTO2 1065 003251 5641 JMP I TTO2 1066 003252 0000 TTO2A, 0 1067 003253 0373 AND (77 1068 003254 7450 SNA 1069 003255 5641 JMP I TTO2 1070 003256 1372 TAD (-40 1071 003257 7510 SPA 1072 003260 1371 TAD (100 1073 003261 1370 TAD (240 1074 003262 4456 JMS I PCHR 1075 003263 2057 ISZ TTPOS /BUMP POSITION COUNT 1076 003264 5652 JMP I TTO2A 1077 003265 0000 R6R, 0 1078 003266 7112 CLL RTR 1079 003267 7012 RTR 1080 003270 7012 RTR 1081 003271 5665 JMP I R6R 1082 003272 0000 R6L, 0 1083 003273 7106 CLL RTL 1084 003274 7006 RTL 1085 003275 7006 RTL 1086 003276 5672 JMP I R6L 1087 003277 0000 TTOTXT, 0 1088 003300 6201 CDF F0 1089 003301 1677 TAD I TTOTXT 1090 003302 3017 DCA X7 1091 003303 2277 ISZ TTOTXT /BUMP PAST POINTER 1092 003304 1417 TAD I X7 1093 003305 4241 JMS TTO2 1094 003306 5677 JMP I TTOTXT 1095 003307 5304 JMP .-3 1096 003310 0000 CRLF, 0 1097 003311 3057 DCA TTPOS /RESET POSITION 1098 003312 1367 TAD (215 1099 003313 4456 JMS I PCHR 1100 003314 1366 TAD (212 1101 003315 4456 JMS I PCHR 1102 003316 5710 JMP I CRLF 1103 003317 0000 TAB, 0 /PSEUDO-TAB GENERATOR 1104 003320 1370 TAD (240 1105 003321 4456 JMS I PCHR 1106 003322 2057 ISZ TTPOS 1107 003323 1057 TAD TTPOS 1108 003324 0365 AND (7 1109 003325 7650 SNA CLA /IS POSITION A MULTIPLE OF 8 1110 003326 5717 JMP I TAB 1111 003327 5320 JMP TAB+1 /NO, TRY MORE 1112 003365 0007 PAGE 003366 0212 003367 0215 003370 0240 003371 0100 003372 7740 003373 0077 003374 7600 003375 7575 003376 7561 003377 0200 1113 003400 0000 WAITOP, 0 1114 003401 1377 TAD (277 /QUESTION 1115 003402 4776 JMS TTO 1116 003403 3236 DCA RETCHR 1117 003404 4237 WREP, JMS TTI /WAIT FOR REPLY 1118 003405 1375 TAD (-215 1119 003406 7450 SNA 1120 003407 5233 JMP DFALT 1121 003410 1374 TAD (215-240 /PRINTING? 1122 003411 7510 SPA 1123 003412 5204 JMP WREP /NO, TRY AGIAN 1124 003413 1373 TAD (240 1125 003414 3236 DCA RETCHR 1126 003415 1236 TAD RETCHR 1127 003416 4776 ECHO, JMS TTO 1128 003417 4237 JMS TTI 1129 003420 1375 TAD (-215 1130 003421 7450 SNA 1131 003422 5232 JMP GOTREP 1132 003423 1372 TAD (215-377 /LOOKOUT FOR RUBOUT! 1133 003424 7450 SNA 1134 003425 5230 JMP RUBOUT 1135 003426 1371 TAD (377 1136 003427 5216 JMP ECHO 1137 003430 4770 RUBOUT, JMS CRLF 1138 003431 5201 JMP WAITOP+1 1139 003432 2200 GOTREP, ISZ WAITOP /GOT A REAL ANSWER 1140 003433 4770 DFALT, JMS CRLF 1141 003434 1236 TAD RETCHR 1142 003435 5600 JMP I WAITOP 1143 003436 0000 RETCHR, 0 1144 / 1145 003437 0000 TTI, 0 1146 003440 6031 KSF /WAIT FOR A KEY 1147 003441 5240 JMP .-1 1148 003442 6036 KRB 1149 003443 0367 AND (177 /TAKE CARE OF PARITY 1150 003444 1366 TAD (-3 /CTRL C? 1151 003445 7450 SNA 1152 003446 5765 JMP I (7600 /YES 1153 003447 1364 TAD (203 /GET ORGINIAL CHAR BACK 1154 003450 5637 JMP I TTI 1155 003564 0203 PAGE 003565 7600 003566 7775 003567 0177 003570 3310 003571 0377 003572 7616 003573 0240 003574 7755 003575 7563 003576 3200 003577 0277 1156 / 1157 / INPUT BUFFERRER AND STUFF 1158 / 1159 003600 0000 READIN, 0 1160 003601 6201 CDF F0 1161 003602 1041 TAD INBLK 1162 003603 1042 TAD THSBLK /-FIRST BLOCK FOLLOWING BUFFER CONTENTS 1163 003604 7100 CLL 1164 003605 1377 TAD (MBUFS 1165 003606 7420 SNL /IS IT IN CORE? 1166 003607 5217 JMP MUSTRD /NO, WE HAVE TO DO A READ 1167 003610 7112 CLL RTR 1168 003611 7012 RTR 1169 003612 7010 RAR /TIMES 400 1170 003613 1376 SETP, TAD (MODBUF /PLUSS BUFFER ADDR 1171 003614 3054 DCA PMOD /POINTS TO BLOCK 1172 003615 2041 ISZ INBLK /READY FOR NEXT 1173 003616 5600 JMP I READIN 1174 003617 7200 MUSTRD, CLA /THIS ONE'S HARDER 1175 003620 1041 TAD INBLK 1176 003621 3231 DCA RDBLK 1177 003622 1041 TAD INBLK 1178 003623 1377 TAD (MBUFS 1179 003624 7041 CIA 1180 003625 3042 DCA THSBLK 1181 003626 4434 JMS I MODDVH 1182 003627 2410 MBUFS^200!F1 1183 003630 2400 MODBUF 1184 003631 0000 RDBLK, 0 1185 003632 4061 JMS IOERR 1186 003633 5213 JMP SETP /OK 1187 / ROUTINES TO SAVE AND RESTORE 1188 / DEVICE HANDLER RESIDENCY TABLE 1189 / 1190 003634 0000 SAVRES, 0 1191 003635 1375 TAD (DHRES-1 1192 003636 3010 DCA X0 1193 003637 1374 TAD (SVRES-1 1194 003640 3011 DCA X1 1195 003641 4252 JMS MOVRES 1196 003642 5634 JMP I SAVRES 1197 003643 0000 RSTRES, 0 1198 003644 1374 TAD (SVRES-1 1199 003645 3010 DCA X0 1200 003646 1375 TAD (DHRES-1 1201 003647 3011 DCA X1 1202 003650 4252 JMS MOVRES 1203 003651 5643 JMP I RSTRES 1204 003652 0000 MOVRES, 0 1205 003653 1373 TAD (-17 1206 003654 3001 DCA TMP1 1207 003655 6211 CDF F1 1208 003656 1410 TAD I X0 1209 003657 3411 DCA I X1 1210 003660 2001 ISZ TMP1 1211 003661 5256 JMP .-3 1212 003662 6201 CDF F0 1213 003663 5652 JMP I MOVRES 1214 SVRES=7400 1215 / PRINT THE LIBRARY NAME 1216 / 1217 003664 0000 PRLBNM, 0 1218 003665 1026 TAD LIBNAM 1219 003666 4772 JMS TTO2 /FIRST 2 CHARS 1220 003667 5276 JMP PREXT 1221 003670 1027 TAD LIBNAM+1 1222 003671 4772 JMS TTO2 1223 003672 5276 JMP PREXT 1224 003673 1030 TAD LIBNAM+2 1225 003674 4772 JMS TTO2 1226 003675 7000 NOP 1227 003676 1371 PREXT, TAD (". 1228 003677 4456 JMS I PCHR 1229 003700 1031 TAD LIBNAM+3 1230 003701 4772 JMS TTO2 1231 003702 5664 JMP I PRLBNM 1232 003703 5664 JMP I PRLBNM 1233 003771 0256 PAGE 003772 3241 003773 7761 003774 7377 003775 7646 003776 2400 003777 0012 1234 / OUTPUT HANDLERS STOLEN FROM PIP 1235 OUFLD=F1 1236 OUCTL=MBUFS^200!4000!F1 1237 OUBUF=MODBUF 1238 / 1239 / INITIALIZE FOR OUTPUT 1240 / 1241 004000 0000 OUSETP, 0 1242 004001 1377 TAD (OUCTL&3700 /BUFFER SIZE IN DBL WORDS 1243 004002 7041 CIA /NEGATE IT (PAL10 BLOWS) 1244 004003 3262 DCA OUDWCT 1245 004004 1377 TAD (OUBUF 1246 004005 3260 DCA OUPTR /INITIALIZE WORD POINTER 1247 004006 1261 TAD OUJMPE 1248 004007 3216 DCA OUJMP /INITIALIZE 3-WAY CHARACTER SWITCH 1249 004010 5600 JMP I OUSETP 1250 / 1251 / STORE CHARACTERS IN OUTPUT BUFFER 1252 / IN PS8 FORMAT (YOU KNOW, 3 CHARS 1253 / IN 2 WORDS THE WRONG WAY) 1254 / 1255 004011 0000 OCHAR, 0 1256 004012 0376 AND (377 1257 004013 3256 DCA OUTEMP 1258 004014 6211 CDF OUFLD /SET DATA FIELD TO BUFFER'S FIELD 1259 004015 2216 ISZ OUJMP /BUMP THE CHARACTER SWITCH 1260 004016 7402 OUJMP, HLT /THREE WAY CHARACTER SWITCH 1261 004017 5252 JMP OCHAR1 1262 004020 5247 JMP OCHAR2 1263 004021 1256 TAD OUTEMP 1264 004022 7106 CLL RTL 1265 004023 7006 RTL 1266 004024 0375 AND (7400 1267 004025 1657 TAD I OUPOLD 1268 004026 3657 DCA I OUPOLD /UPDATE FIRST WORD OF TWO WITH HIGH 1269 /ORDER 4 BITS OF THIRD CHAR 1270 004027 1256 TAD OUTEMP 1271 004030 7112 CLL RTR 1272 004031 7012 RTR 1273 004032 7010 RAR 1274 004033 0375 AND (7400 1275 004034 1660 TAD I OUPTR 1276 004035 3660 DCA I OUPTR /UPDATE 2ND WORD FROM LO 4 BITS 1277 004036 1261 TAD OUJMPE 1278 004037 3216 DCA OUJMP /RESET SWITCH 1279 004040 2260 ISZ OUPTR 1280 004041 2262 ISZ OUDWCT /BUMP COUNTER EVERY 3 CHARS 1281 004042 5254 JMP OUCOMN 1282 004043 1374 TAD (OUCTL /LOAD CONTROL WORD FOR A FULL WRITE 1283 004044 4773 JMS I (OUTDMP /DUMP THE BUFFER 1284 004045 4200 JMS OUSETP /RE-INITIALIZE THE POINTERS 1285 004046 5254 JMP OUCOMN 1286 004047 1260 OCHAR2, TAD OUPTR 1287 004050 3257 DCA OUPOLD /SAVE POINTER TO FIRST WORD OF TWO 1288 004051 2260 ISZ OUPTR /BUMP WORD POINTER TO SECOND WORD 1289 004052 1256 OCHAR1, TAD OUTEMP 1290 004053 3660 DCA I OUPTR 1291 004054 6201 OUCOMN, CDF F0 1292 004055 5611 JMP I OCHAR 1293 004056 0000 OUTEMP, 0 1294 004057 0000 OUPOLD, 0 1295 004060 0000 OUPTR, 0 1296 004061 5216 OUJMPE, JMP OUJMP 1297 004062 0000 OUDWCT, 0 1298 / 1299 / MOVE OUTPUT FILE NAME TO FIELD 0 1300 / 1301 004063 0000 OFNAME, 0 1302 004064 1372 TAD (OUTF2 1303 004065 3010 DCA X0 /NAME OF CAT LIST FILE 1304 004066 6211 CDF F1 1305 004067 1410 TAD I X0 1306 004070 3303 DCA OUFNAM /FIRST 2 CHARS 1307 004071 1410 TAD I X0 1308 004072 3304 DCA OUFNAM+1 1309 004073 1410 TAD I X0 1310 004074 3305 DCA OUFNAM+2 1311 004075 1410 TAD I X0 1312 004076 7450 SNA 1313 004077 1307 TAD TXTCA /DEFAULT CAT EXT 1314 004100 3306 DCA OUFNAM+3 1315 004101 6201 CDF F0 /RESTORE FIELD 1316 004102 5663 JMP I OFNAME 1317 004103 0000 OUFNAM, ZBLOCK 4 004104 0000 004105 0000 004106 0000 1318 004107 0301 TXTCA, 301 1319 004172 7605 PAGE 004173 4235 004174 6410 004175 7400 004176 0377 004177 2400 1320 004200 0000 OOPEN, 0 1321 004201 6211 CDF F1 1322 004202 1777 TAD I (OUTF2 /GET DEVICE CODE, LEN 1323 004203 3227 DCA OUELEN /HOLD IT A MO 1324 004204 4776 JMS I (OFNAME /GET FILE NAME INTO FIELD 0 1325 004205 1227 TAD OUELEN /CHECK FOR NULL FILE 1326 004206 7650 SNA CLA 1327 004207 5600 JMP I OOPEN /NOTHING TO OPEN 1328 004210 1310 TAD OUNAME /RESET ENTER CALL 1329 004211 3226 DCA OUBLK 1330 004212 1375 TAD (IDEVH!1 1331 004213 3220 DCA OUHNDL 1332 004214 1227 TAD OUELEN /THE UNIT 1333 004215 6212 CIF F1 1334 004216 4420 JMS I USR 1335 004217 0001 FETCH /ASSIGN, FETCH HANDLER 1336 004220 0000 OUHNDL, 0 /OUTPUT DEVICE HANDLER ENTRY 1337 004221 4061 JMS IOERR /HUH? 1338 004222 1227 TAD OUELEN /UNIT AGAIN 1339 004223 6212 CIF F1 1340 004224 4420 JMS I USR 1341 004225 0003 ENTER /ENTER OUTPUT FILE 1342 004226 4103 OUBLK, OUFNAM /REPLACED WITH STARTING BLOCK 1343 004227 0000 OUELEN, 0 /REPLACED WITH LENGTH OF HOLE 1344 004230 4061 JMS IOERR /YOU BLEW IT!!! 1345 004231 3311 DCA OUCCNT 1346 004232 4774 JMS I (OUSETP 1347 004233 2200 ISZ OOPEN 1348 004234 5600 JMP I OOPEN 1349 004235 0000 OUTDMP, 0 1350 004236 3260 DCA OUCTLW /STORE THE CONTROL WORD 1351 004237 1311 TAD OUCCNT 1352 004240 7450 SNA 1353 004241 2260 ISZ OUCTLW 1354 004242 1226 TAD OUBLK 1355 004243 3262 DCA OUREC /COMPUTE STARTING BLOCK 1356 004244 1260 TAD OUCTLW 1357 004245 4773 JMS R6L 1358 004246 0372 AND (17 /COMPUTE THE NUMBER OF RECORDS 1359 004247 1311 TAD OUCCNT /UPDATE SIZE OF FILE 1360 004250 3311 DCA OUCCNT 1361 004251 1311 TAD OUCCNT 1362 004252 7120 CLL CML 1363 004253 1227 TAD OUELEN 1364 004254 7660 SNL SZA CLA /EXCEED GIVEN LENGTH ? 1365 004255 4061 JMS IOERR /YES - ERROR 1366 004256 6201 CDF F0 1367 004257 4620 JMS I OUHNDL 1368 004260 0000 OUCTLW, 0 1369 004261 2400 OUBUF 1370 004262 0000 OUREC, 0 1371 004263 4061 JMS IOERR 1372 004264 5635 JMP I OUTDMP 1373 004265 0000 OCLOSE, 0 1374 004266 1371 TAD (232 /OUTPUT A CTRL/Z 1375 004267 4456 JMS I PCHR 1376 004270 4456 FILLLP, JMS I PCHR 1377 004271 1370 TAD (77 1378 004272 0767 AND I (OUDWCT 1379 004273 7640 SZA CLA /UP TO THE BOUNDARY YET? 1380 004274 5270 JMP FILLLP /NO - FILL WITH ZEROS 1381 004275 1767 TAD I (OUDWCT /GET DOUBLEWORD COUNT LEFT 1382 004276 1366 TAD (OUCTL&3700 1383 004277 7450 SNA /A FULL WRITE LEFT? 1384 004300 5303 JMP NODUMP /YES DON'T DO IT 1385 004301 1365 TAD (4000!OUFLD /PUT IN FIELD AND WRITE BITS 1386 004302 4235 JMS OUTDMP 1387 004303 6213 NODUMP, CIF CDF F1 1388 004304 1777 TAD I (OUTF2 1389 004305 6201 CDF F0 1390 004306 4420 JMS I USR 1391 004307 0004 CLOSE /CLOSE THE OUTPUT FILE 1392 004310 4103 OUNAME, OUFNAM /POINTER TO OUTPUT FILE NAME 1393 004311 0000 OUCCNT, 0 1394 004312 4061 JMS IOERR /ERROR WHILE CLOSING - BAD!! 1395 004313 5665 JMP I OCLOSE /ALL DONE 1396 004365 4010 PAGE 004366 2400 004367 4062 004370 0077 004371 0232 004372 0017 004373 3272 004374 4000 004375 6601 004376 4063 004377 7605 1397 / MESSAGES 1398 / 1399 004400 1411 LBV, TEXT "LIBRA V " 004401 0222 004402 0140 004403 2640 004404 0000 1400 *.-1 1401 004404 6264 VMESG, VERS&70^7+VERS+6060 1402 004405 0140 PATCH&77^100+40 1403 004406 4000 4000 1404 004407 1517 NONEIN, TEXT "MODULE NOT INCLUDED";0 004410 0425 004411 1405 004412 4016 004413 1724 004414 4011 004415 1603 004416 1425 004417 0405 004420 0400 004421 0000 1405 004422 1411 FLSTR, TEXT "LIBRARY MUST BE ON A FILE-STRUCTURED DEVICE";0 004423 0222 004424 0122 004425 3140 004426 1525 004427 2324 004430 4002 004431 0540 004432 1716 004433 4001 004434 4006 004435 1114 004436 0555 004437 2324 004440 2225 004441 0324 004442 2522 004443 0504 004444 4004 004445 0526 004446 1103 004447 0500 004450 0000 1406 004451 1116 SMALL, TEXT "INSUFFICIENT SPACE FOR LIBRARY";0 004452 2325 004453 0606 004454 1103 004455 1105 004456 1624 004457 4023 004460 2001 004461 0305 004462 4006 004463 1722 004464 4014 004465 1102 004466 2201 004467 2231 004470 0000 004471 0000 1407 004472 1116 NOTMOD, TEXT "INPUT NOT A MODULE";0 004473 2025 004474 2440 004475 1617 004476 2440 004477 0140 004500 1517 004501 0425 004502 1405 004503 0000 004504 0000 1408 004505 1116 TOOBIG, TEXT "INPUT TOO BIG FOR LIBRARY";0 004506 2025 004507 2440 004510 2417 004511 1740 004512 0211 004513 0740 004514 0617 004515 2240 004516 1411 004517 0222 004520 0122 004521 3100 004522 0000 1409 004523 4011 UNLIB, TEXT " IS NOT A LIBRARY";0 004524 2340 004525 1617 004526 2440 004527 0140 004530 1411 004531 0222 004532 0122 004533 3100 004534 0000 1410 004535 4011 NDUP, TEXT " IS DUPLICATE NAME";0 004536 2340 004537 0425 004540 2014 004541 1103 004542 0124 004543 0540 004544 1601 004545 1505 004546 0000 004547 0000 1411 004550 7340 KEEP, TEXT "; KEEP OLD OR NEW";0 004551 1305 004552 0520 004553 4017 004554 1404 004555 4017 004556 2240 004557 1605 004560 2700 004561 0000 1412 004562 0301 CATFUL, TEXT "CATALOG IS FULL";0 004563 2401 004564 1417 004565 0740 004566 1123 004567 4006 004570 2514 004571 1400 004572 0000 1413 004573 7240 NCLUD, TEXT ": INCLUDE";0 004574 1116 004575 0314 004576 2504 004577 0500 004600 0000 1414 004601 1411 WHYCLS, TEXT "LIBRARY TOO SMALL FOR USE; START OVER";0 004602 0222 004603 0122 004604 3140 004605 2417 004606 1740 004607 2315 004610 0114 004611 1440 004612 0617 004613 2240 004614 2523 004615 0573 004616 4023 004617 2401 004620 2224 004621 4017 004622 2605 004623 2200 004624 0000 1415 004625 1157 IOMSG, TEXT "I/O ERROR";0 004626 1740 004627 0522 004630 2217 004631 2200 004632 0000 1416 004633 0301 CATOF, TEXT "CATALOG OF ";0 004634 2401 004635 1417 004636 0740 004637 1706 004640 4000 004641 0000 1417 004642 4017 ON, TEXT " ON ";0 004643 1640 004644 0000 004645 0000 1418 004646 5440 CS197, TEXT ", 197";0 004647 6171 004650 6700 004651 0000 1419 004652 5512 MONTHS, TEXT "-JAN-@@@@@-FEB-@@@@@-MAR-@@@@" 004653 0116 004654 5500 004655 0000 004656 0000 004657 5506 004660 0502 004661 5500 004662 0000 004663 0000 004664 5515 004665 0122 004666 5500 004667 0000 004670 0000 1420 004671 5501 TEXT "-APR-@@@@@-MAY-@@@@@-JUN-@@@@" 004672 2022 004673 5500 004674 0000 004675 0000 004676 5515 004677 0131 004700 5500 004701 0000 004702 0000 004703 5512 004704 2516 004705 5500 004706 0000 004707 0000 1421 004710 5512 TEXT "-JUL-@@@@@-AUG-@@@@@-SEP-@@@@" 004711 2514 004712 5500 004713 0000 004714 0000 004715 5501 004716 2507 004717 5500 004720 0000 004721 0000 004722 5523 004723 0520 004724 5500 004725 0000 004726 0000 1422 004727 5517 TEXT "-OCT-@@@@@-NOV-@@@@@-DEC-@@@@" 004730 0324 004731 5500 004732 0000 004733 0000 004734 5516 004735 1726 004736 5500 004737 0000 004740 0000 004741 5504 004742 0503 004743 5500 004744 0000 004745 0000 1423 $ BADINF 1115 CATB0 0660 CATBLK 0024 CATBUF 2000 CATCNT 0060 CATFUL 4562 CATLEN 0023 CATLP2 3014 CATLST 2600 CATLUP 3007 CATOF 4633 CBSRCH 1456 CBUFS 0001 CCHK 3230 CHAIN 0006 unreferenced CHANGD 0053 CHGCHK 2200 CHKI 1646 CHKR 1600 CLOSE 0004 CONVYR 2666 CPYLUP 2067 CPYMOD 2060 CRLF 3310 CS197 4646 unreferenced CSLAST 0451 CSLOOP 0435 DCTLW 7760 DECODE 0005 DELTO 1606 DFALT 3433 DHRES 7647 DUPLUK 1433 ECHO 3416 EMPTY 3045 ENAM1 0044 ENAM2 0045 ENAM3 0046 ENDCAT 1667 ENTER 0003 EQHI 7642 unreferenced EQLO 7646 ERROR 0007 unreferenced ESDCTR 0050 ESDEND 2050 ESDLND 2040 ESDLUP 1405 ESDTAB 1421 F0 0000 F1 0010 FETCH 0001 FILLLP 4270 FLSTR 4422 FNDLIB 0723 FTCHIN 1031 FULCAT 0457 FULFLG 0043 GCATB 2213 GETCB 1450 GETDG1 2673 GETINF 1000 GLMOD 1263 GMASK 1532 GOTLIB 1121 GOTMAT 1517 GOTREP 3432 IANS 1656 IDEVH 6600 INBLK 0041 INCLUD 0052 INDVH 1056 INF 7617 INFP 0032 INFST 0040 INLIB 1200 INLSC1 1217 INLSC2 1222 INLSW 0037 INSERT 2000 IOERR 0061 IOMES 0263 IOMSG 4625 KEEP 4550 L2BMSG 1266 LASTLB 0233 LAVAIL 0025 LB2BIG 1126 LBV 4400 LCLEN 2452 LCLOSE 2400 LIBBLK 0736 LIBDVH 0021 LIBLEN 0737 LIBNAM 0026 LIBU 0022 LOOKUP 0002 LSZERR 0745 LUKMOD 1063 MAK8BT 2664 MARKND 2036 MBUFS 0012 MODBLK 0036 MODBUF 2400 MODDVH 0034 MODLEN 0035 MODU 0033 MONTHS 4652 MOVRES 3652 MUSTRD 3617 NCLUD 4573 NDCATL 3060 NDLSC 1261 NDNAM 3036 NDSCN 1622 NDUP 4535 NEWLIB 0600 NODATE 2662 NODUMP 4303 NOLEN 1242 NOLIB 2455 NOMTCH 1500 NONEIN 4407 NOTFS 0257 NOTLIB 0504 NOTMOD 4472 NOTYET 1252 NXTCAT 2241 NXTE 1632 NXTEBK 1400 NXTINF 1005 NXTOBK 2075 OCHAR 4011 OCHAR1 4052 OCHAR2 4047 OCLOSE 4265 ODEVH 7200 OFNAME 4063 OHADDR 0252 OLDLIB 0406 unreferenced ON 4642 OOPEN 4200 OUBLK 4226 OUBUF 2400 OUCCNT 4311 OUCOMN 4054 OUCTL 6410 OUCTLW 4260 OUDWCT 4062 OUELEN 4227 OUFLD 0010 OUFNAM 4103 OUHNDL 4220 OUJMP 4016 OUJMPE 4061 OUNAME 4310 OUPOLD 4057 OUPTR 4060 OUREC 4262 OUSETP 4000 OUTDMP 4235 OUTEMP 4056 OUTF1 7600 OUTF2 7605 OUTF3 7612 unreferenced OVFLO 1111 PATCH 0301 PCAT 0051 unreferenced PCHR 0056 PMOD 0054 PNXTOB 2074 PRCAT 3000 PRDIG2 2702 PREXT 3676 PRLBNM 3664 R6L 3272 R6R 3265 RDBLK 3631 READIN 3600 RETCHR 3436 RSTRES 3643 RUBOUT 3430 SAMLIN 3044 SAVRES 3634 SCAT 0463 SCLOOP 0466 SETP 3613 SMALL 4451 SOEZ 2237 START 0177 SVRES 7400 SWATOL 7643 SWMTOX 7644 SWYTO9 7645 SYSDAT 7666 TAB 3317 THSBLK 0042 TMP1 0001 TMP2 0002 TMP3 0003 TMP4 0004 TMP5 0005 TMP6 0006 unreferenced TMP7 0007 TOOBIG 4505 TTFLAG 0055 TTI 3437 TTO 3200 TTO2 3241 TTO2A 3252 TTOCHR 3216 TTOTXT 3277 TTPOS 0057 TTWAIT 3217 TXTCA 4107 TXTRL 0204 UNLIB 4523 USR 0020 USRCOD 0735 USRIN 0010 unreferenced USROUT 0011 unreferenced VERS 0024 VMESG 4404 unreferenced WAITOP 3400 WHYCLS 4601 WREP 3404 X0 0010 X1 0011 X2 0012 unreferenced X3 0013 unreferenced X4 0014 unreferenced X5 0015 unreferenced X6 0016 unreferenced X7 0017 ZCAT 0703 ZCATB 0711 ZCATC 0707 ZCLOOP 0642 ZTEST 0400