1 / 8BAL LIBRARY GENERATOR 2 3 / PROGRAM TO GENERATE 8BAL MACRO LIBRARIES 4 / ON DSK:8BALIB.ML OR ANY SPECIFIED FILE 5 6 / WRITTEN BY DAVID M. KRISTOL, JAN., 1972 7 8 9 10 ZZZ=0 /FOR FILL-INS 11 12 FIELD 1 13 14 XR10=10 15 XR11=11 16 XR12=12 17 XR13=13 18 XR14=14 19 20 SCANP2=20 21 SCANP3=21 22 CDP=22 23 OUHP=23 24 LINCNT=24 25 LINBUF=25 26 GATHBF=26 27 SEPCOD=31 28 MPCHR="@ 29 *2000 /OUT OF WAY OF USR 30 USR=200 31 32 012000 6201 XSTART, CDF 0 33 STARP1=. 34 012001 1377 TAD (7003 /NO LOAD OR USE USR AREAS, 35 / NO RESTART 36 STARC1=. 37 012002 3776 DCA I (7746 /JSW 38 STRTT1=. 39 012003 6211 CDF 10 40 012004 4775 JMS I (7700 /PROGRAM START 41 012005 0010 10 /USRIN 42 012006 1374 TAD ("1 /CD CALL 1 43 012007 4773 JMS TYO 44 012010 4772 JMS I (USR 45 012011 0005 5 /CALL CD 46 012012 1514 STREXT, 1514 /.ML -- GET OLD MACRO LIBRARY 47 012013 1771 TAD I (7617 48 012014 7450 SNA /OLD LIBRARY? 49 012015 5225 JMP STAR1A /NO. CLEAR OUT DIRECTORY 50 012016 4772 JMS I (USR /YES. FETCH HANDLER 51 012017 0001 1 52 012020 2401 STAR1, INHB+1 /TWO PAGE 53 012021 5770 JMP ERR2 54 012022 1767 TAD I (7620 55 012023 3713 DCA I STAR6 /SAVE START BLOCK 56 012024 5235 JMP STAR2 /AND CONTINUE 57 58 012025 1366 STAR1A, TAD (-400 59 012026 3202 DCA STARC1 60 012027 1313 TAD STAR6 61 012030 3201 DCA STARP1 62 012031 3601 DCA I STARP1 /CLEAR DIRECTORY 63 012032 2201 ISZ STARP1 64 012033 2202 ISZ STARC1 65 012034 5231 JMP .-3 66 012035 1365 STAR2, TAD ("2 /SECOND CD CALL 67 012036 4773 JMS TYO 68 012037 4772 JMS I (USR 69 012040 0005 5 /CALL CD 70 012041 7002 7002 /.8B 71 012042 1371 TAD (7617 72 012043 3022 DCA CDP /POINTER TO CD INPUT 73 012044 1764 TAD I (7600 /OUTPUT GIVEN? 74 012045 7450 SNA 75 012046 5342 JMP STAR10 /NO. ENTER DSK:8BALIB.ML 76 012047 4772 JMS I (USR /YES. FETCH HANDLER 77 012050 0001 1 78 012051 2001 STAR3, OUHB+1 /TWO PAGE 79 012052 5770 JMP ERR2 80 012053 1251 TAD STAR3 81 012054 3023 DCA OUHP /SAVE OUTPUT HANDLER ENTRY 82 012055 1364 TAD (7600 83 012056 3010 DCA XR10 84 012057 1410 TAD I XR10 85 012060 3763 DCA XFNME /MOVE CHOSEN NAME 86 012061 1410 TAD I XR10 87 012062 3762 DCA XFNME+1 88 012063 1410 TAD I XR10 89 012064 3761 DCA XFNME+2 90 012065 1410 TAD I XR10 91 012066 7450 SNA 92 012067 1212 TAD STREXT /.ML 93 012070 3760 DCA XFNME+3 94 012071 1764 TAD I (7600 95 012072 3345 DCA XDEV /SAVE DEVICE NUMBER 96 012073 1345 STAR4, TAD XDEV 97 012074 4772 JMS I (USR /ENTER OUTPUT FILE 98 012075 0003 3 99 012076 2200 STAR5, XFNME 100 012077 0000 0 101 012100 5770 JMP ERR2 102 012101 1276 TAD STAR5 /START BLOCK FOR OUTPUT 103 012102 7001 IAC 104 012103 3757 DCA WRITBL /SAVE FOR WRITING 105 012104 1713 TAD I STAR6 /START BLOCK OF OLD LIBRARY 106 012105 7450 SNA /WAS THERE ONE? 107 012106 5756 JMP STAR11 /NO 108 012107 3314 DCA STAR7 /YES. SAVE BLOCK 109 012110 6202 CIF 0 110 012111 4620 JMS I STAR1 /CALL HANDLER 111 012112 0211 211 /2 PAGE, FIELD 1, FORWARD 112 012113 5000 STAR6, DIREC 113 012114 0000 STAR7, ZZZ 114 012115 5755 JMP ERR1 115 012116 1314 TAD STAR7 116 012117 7001 IAC 117 012120 3327 DCA STAR9 /FOR READING 118 012121 1354 STAR8, TAD (-4 /SET QUARTER 119 012122 3203 DCA STRTT1 120 012123 6202 CIF 0 121 012124 4620 JMS I STAR1 /READ 122 012125 0200 200 /2 PAGE, FIELD 0 123 012126 7000 OUBUF 124 012127 0000 STAR9, ZZZ 125 012130 5755 JMP ERR1 126 012131 2327 ISZ STAR9 /NEXT BLOCK 127 012132 7100 CLL 128 012133 1203 TAD STRTT1 /- NEXT QUARTER TO BE READ 129 012134 1713 TAD I STAR6 /QUARTER DESIRED IN CORE 130 012135 7620 SNL CLA /DESIRED QUARTER IN CORE? 131 012136 5756 JMP STAR11 /YES 132 012137 4753 JMS WRITBF 133 012140 1203 TAD STRTT1 134 012141 5321 JMP STAR8 /UPDATE QUARTER, READ NEXT BLOCK 135 136 012142 4772 STAR10, JMS I (USR /FETCH DSK: 137 012143 0001 1 138 012144 0423 DEVICE DSK 012145 1300 139 XDEV=.-1 140 012146 2001 OUHB+1 /TWO PAGE 141 012147 5770 JMP ERR2 142 012150 1346 TAD .-2 /ADDRESS 143 012151 3023 DCA OUHP 144 012152 5273 JMP STAR4 /WILL AUTOMATICALLY CHECK 8BALIB.ML 145 146 147 /PB 148 /PB 149 150 012153 2231 PAGE 012154 7774 012155 4261 012156 2204 012157 2236 012160 2203 012161 2202 012162 2201 012163 2200 012164 7600 012165 0262 012166 7400 012167 7620 012170 4260 012171 7617 012172 0200 012173 4152 012174 0261 012175 7700 012176 7746 012177 7003 151 152 012200 7002 XFNME, FILENAME 8BALIB.ML 012201 0114 012202 1102 012203 1514 153 154 012204 1422 STAR11, TAD I CDP /FIRST INPUT 155 012205 2022 ISZ CDP 156 012206 7450 SNA /BLANK LINE FOR INPUT? 157 012207 5777 JMP ENDFIL /YES. CHECK OPTIONS 158 012210 4776 JMS I (USR /GET HANDLER 159 012211 0001 1 160 012212 2401 STAR12, INHB+1 /TWO PAGE 161 012213 5775 JMP ERR2 162 012214 1212 TAD STAR12 163 012215 3774 DCA INHNDP /SAVE ADDRESS 164 012216 1422 TAD I CDP 165 012217 2022 ISZ CDP 166 012220 3773 DCA INBLK /STARTING BLOCK 167 012221 4772 JMS CRLF 168 012222 4772 JMS CRLF 169 012223 4772 JMS CRLF 170 012224 1771 TAD I (7666 /SYSTEM DATE 171 012225 4770 JMS PRDATE 172 012226 4767 JMS PRMES 173 012227 4303 HEAD /HEADER 174 012230 5766 JMP LOOP 175 176 177 012231 0000 WRITBF, .-. /WRITE OUTPUT BUFFER 178 012232 6202 CIF 0 179 012233 4423 JMS I OUHP 180 012234 4200 4200 181 012235 7000 OUBUF 182 012236 0000 WRITBL, ZZZ 183 012237 5765 JMP ERR1 184 012240 2236 ISZ WRITBL 185 012241 5631 JMP I WRITBF 186 187 /PB 188 /PB 189 190 012365 4261 PAGE 012366 2400 012367 4010 012370 4074 012371 7666 012372 4400 012373 3007 012374 3053 012375 4260 012376 0200 012377 3600 191 192 012400 1377 LOOP, TAD (-3^MCARG-3 /MAIN DEF LOCATE LOOP 193 012401 3234 DCA LOOPC1 194 012402 1376 TAD (MCALST-1 195 012403 3010 DCA XR10 196 012404 3410 DCA I XR10 /ZERO OUT ARGUMENT AREA 197 012405 2234 ISZ LOOPC1 198 012406 5204 JMP .-2 199 012407 1375 TAD (MCALST+3-1 /POINT AT LABEL ENTRY 200 012410 3010 DCA XR10 201 012411 1374 TAD (PAT 202 012412 3345 DCA LOOPP1 203 012413 4773 JMS GETLIN 204 012414 4772 JMS GATHER 205 012415 7000 NOP 206 012416 4771 JMS TBLSUB /SAVE LABEL (OR ZEROES, IF NONE) 207 012417 1745 LOOP1, TAD I LOOPP1 208 012420 7500 SMA /INDIVIDUAL CHAR MATCH? 209 012421 5230 JMP LOOP3 /NO 210 012422 1420 LOOP1A, TAD I SCANP2 /YES 211 012423 7640 SZA CLA /MATCH? 212 012424 5200 JMP LOOP /NO 213 012425 2020 LOOP2, ISZ SCANP2 /YES. NEXT CHAR 214 012426 2345 LOOP2A, ISZ LOOPP1 /AND NEXT PAT. CHAR 215 012427 5217 JMP LOOP1 216 217 012430 7450 LOOP3, SNA /END OF PATTERN? 218 012431 5272 JMP LOOP4 /YES. 219 012432 1235 TAD .+3 /NO 220 012433 3234 DCA .+1 221 012434 0000 LOOPC1, ZZZ 222 012435 5635 JMP I . 223 012436 2442 XLOOP1;XLOOP2;LOOP2;XLOOP4 012437 2461 012440 2425 012441 2463 224 225 012442 7040 XLOOP1, CMA 226 012443 1020 TAD SCANP2 227 012444 3020 DCA SCANP2 /SO GATHER WILL WORK 228 012445 4772 JMS GATHER /GET FIELD (MACRO NAME) 229 012446 5200 JMP LOOP 230 012447 1026 TAD GATHBF 231 012450 7041 CIA 232 012451 3770 DCA MCALST 233 012452 1027 TAD GATHBF+1 234 012453 7041 CIA 235 012454 3767 DCA MCALST+1 236 012455 1030 TAD GATHBF+2 237 012456 7041 CIA 238 012457 3775 DCA MCALST+2 239 012460 5226 JMP LOOP2A /CONTINUE 240 241 012461 1366 XLOOP2, TAD (-MPCHR 242 012462 5222 JMP LOOP1A /CHECK SINGLE CHAR 243 244 245 012463 4765 XLOOP4, JMS XLUPS1 246 012464 7410 SKP 247 012465 5200 JMP LOOP 248 012466 2020 ISZ SCANP2 249 012467 4765 JMS XLUPS1 250 012470 5266 JMP .-2 251 012471 5226 JMP LOOP2A 252 253 012472 3343 LOOP4, DCA LOOPT1 /NUMBER OF ARGUMENTS 254 012473 7146 CMA CLL RTL /-3 255 012474 1031 TAD SEPCOD /FOLLOWING MACRO NAME 256 012475 7440 SZA /:? 257 012476 5314 JMP LOOP6 /NO 258 012477 4772 LOOP5, JMS GATHER /YES. GET ARG. 259 012500 5764 JMP ERR3 260 012501 4771 JMS TBLSUB /PUT IN TABLE 261 012502 2343 ISZ LOOPT1 /MARK ONE MORE ARG 262 012503 7040 CMA /-1 263 012504 1031 TAD SEPCOD /,? 264 012505 7750 SPA SNA CLA /ANYTHING BUT SP, CR? 265 012506 5317 JMP LOOP6A /NO 266 012507 1343 TAD LOOPT1 267 012510 1363 TAD (-MCARG+1 268 012511 7710 SPA CLA /TOO MANY? 269 012512 5277 JMP LOOP5 /NO 270 012513 5764 JMP ERR3 271 272 012514 7001 LOOP6, IAC 273 012515 7700 SMA CLA /SP OR CR? 274 012516 5764 JMP ERR3 275 012517 1762 LOOP6A, TAD DIREC /YES. CR OR SP 276 012520 0361 AND (3 /GET QUARTER ON BLOCK 277 012521 7106 CLL RTL 278 012522 7006 RTL 279 012523 7006 RTL 280 012524 3344 DCA LOOPT2 /OFFSET IN BLOCK 281 012525 1344 TAD LOOPT2 282 012526 7110 CLL RAR 283 012527 1344 TAD LOOPT2 /140 CHAR PER QUARTER 284 012530 1360 TAD (-600 285 012531 3757 DCA WRTCC1 /CHAR COUNT 286 012532 1344 TAD LOOPT2 287 012533 1356 TAD (OUBUF 288 012534 3755 DCA WRTCP1 /POINTER 289 012535 3754 DCA WRTCP1+1 290 012536 1353 TAD (-141 /INITIAL QUARTER COUNT 291 012537 3752 DCA WRTCC2 292 012540 1762 TAD DIREC 293 012541 3344 DCA LOOPT2 /STARTING QUARTER 294 012542 5751 JMP WRITE /WRITE DEFINITION 295 296 012543 0000 LOOPT1, 0 297 012544 0000 LOOPT2, 0 298 012545 0000 LOOPP1, 0 299 300 /PB 301 /PB 302 303 012551 2600 PAGE 012552 3122 012553 7637 012554 3124 012555 3123 012556 7000 012557 3121 012560 7200 012561 0003 012562 5000 012563 7762 012564 4257 012565 3125 012566 7500 012567 4477 012570 4476 012571 4333 012572 4406 012573 3400 012574 4556 012575 4500 012576 4475 012577 7720 304 305 012600 4777 WRITE, JMS GETLIN /NEXT LINE 306 012601 7040 CMA 307 012602 3342 WRIT1, DCA WRITI1 /INDICATOR 308 012603 4776 JMS GATHER 309 012604 5244 JMP WRIT4 /NO FIELD 310 012605 1342 TAD WRITI1 311 012606 7640 SZA CLA 312 012607 7346 CLA CMA CLL RTL /-3: ONE MORE SLOT 313 012610 1375 TAD (MCALST-1+3 314 012611 3011 DCA XR11 315 012612 1374 TAD (-MCARG /1 FOR LABEL 316 012613 1342 TAD WRITI1 /0 OR -1 317 012614 3343 DCA WRITC1 318 012615 3344 DCA WRITC2 /ARG. NUMBER 319 012616 1411 WRIT2, TAD I XR11 320 012617 7450 SNA /NULL ENTRY? 321 012620 5323 JMP WRIT8 /YES 322 012621 1026 TAD GATHBF /NO. COMPARE WITH FIELD 323 012622 7640 SZA CLA 324 012623 5323 JMP WRIT8 325 012624 1027 TAD GATHBF+1 326 012625 1411 TAD I XR11 327 012626 7640 SZA CLA 328 012627 5324 JMP WRIT9 329 012630 1411 TAD I XR11 330 012631 1030 TAD GATHBF+2 331 012632 7640 SZA CLA 332 012633 5325 JMP WRIT10 333 012634 1344 TAD WRITC2 /FOUND. GET ARG # 334 012635 2342 ISZ WRITI1 335 012636 5242 JMP WRIT3 /NOT FIRST FIELD 336 012637 7450 SNA /FIRST FIELD. FIRST ARG? 337 012640 5253 JMP WRIT5 /YES. END OF MACRO 338 012641 7410 SKP 339 012642 7001 WRIT3, IAC 340 012643 4773 JMS WRTCHR /WRITE ARG. # 341 012644 1420 WRIT4, TAD I SCANP2 /AND SEP 342 012645 4773 JMS WRTCHR 343 012646 7040 CMA 344 012647 1031 TAD SEPCOD 345 012650 7640 SZA CLA /CR OR SP? 346 012651 5202 JMP WRIT1 /NO 347 012652 5200 JMP WRITE /YES 348 349 012653 1420 WRIT5, TAD I SCANP2 /GET SEP 350 012654 1372 TAD (-MPCHR 351 012655 7640 SZA CLA /MPCHR? 352 012656 5325 JMP WRIT10 /NO. NOT END 353 012657 4773 JMS WRTCHR /YES. WRITE 0 CHAR 354 012660 1771 TAD LOOPT1 355 012661 4773 JMS WRTCHR /AND # OF ARGS 356 012662 1370 TAD (LNBUF-1 /WILL POINT AT MACRO NAME 357 012663 3020 DCA SCANP2 358 012664 4776 JMS GATHER /RECOLLECT NAME 359 012665 5767 JMP ERR3 /NOT REALLY POSSIBLE 360 012666 4766 JMS FNDNAM 361 012667 0026 GATHBF /FIND NAME IN DIREC 362 012670 7410 SKP /NOT THERE YET 363 012671 5301 JMP WRIT6 /ALREADY THERE 364 012672 1765 TAD MCALST 365 012673 3410 DCA I XR10 366 012674 1764 TAD MCALST+1 367 012675 3410 DCA I XR10 368 012676 1775 TAD MCALST+2 369 012677 3410 DCA I XR10 /PUT IN DIRECTORY 370 012700 1363 TAD (XADD-XREPL /FOR MESSAGE 371 012701 1362 WRIT6, TAD (XREPL 372 012702 3312 DCA WRIT7 373 012703 1761 TAD LOOPT2 /START QUARTER 374 012704 3410 DCA I XR10 375 012705 1760 TAD I (7666 /DATE 376 012706 3410 DCA I XR10 377 012707 4757 JMS PRNAME 378 012710 4476 MCALST 379 012711 4756 JMS PRMES 380 012712 0000 WRIT7, ZZZ 381 012713 1755 TAD WRTCC2 /QUARTER COUNT 382 012714 7040 CMA 383 012715 7650 SNA CLA /ABOUT TO GO TO 0? 384 012716 5321 JMP .+3 /YES 385 012717 4773 JMS WRTCHR /NO 386 012720 5313 JMP .-5 387 012721 4773 JMS WRTCHR /FORCING CHAR TO UPDATE QUARTER, 388 /MAYBE WRITE BLOCK 389 012722 5754 JMP LOOP /CONTINUE 390 391 012723 2011 WRIT8, ISZ XR11 392 012724 2011 WRIT9, ISZ XR11 393 012725 2344 WRIT10, ISZ WRITC2 /NEXT ARG 394 012726 2343 ISZ WRITC1 /DONE ALL? 395 012727 5216 JMP WRIT2 /NO 396 012730 1020 TAD SCANP2 397 012731 7041 CIA 398 012732 1021 TAD SCANP3 /# OF CHARS IN FIELD 399 012733 3344 DCA WRITC2 400 012734 1421 WRIT11, TAD I SCANP3 401 012735 2021 ISZ SCANP3 402 012736 4773 JMS WRTCHR 403 012737 2344 ISZ WRITC2 404 012740 5334 JMP WRIT11 405 012741 5244 JMP WRIT4 406 407 012742 0000 WRITI1, 0 408 012743 0000 WRITC1, 0 409 012744 0000 WRITC2, 0 410 411 /PB 412 /PB 413 414 012754 2400 PAGE 012755 3122 012756 4010 012757 4036 012760 7666 012761 2544 012762 4271 012763 7774 012764 4477 012765 4476 012766 4200 012767 4257 012770 4577 012771 2543 012772 7500 012773 3100 012774 7761 012775 4500 012776 4406 012777 3400 415 416 013000 0000 RDCHR, .-. /READ INPUT CHARACTER 417 013001 2277 ISZ RDCHC1 /DONE BUFFER? 418 013002 5223 JMP RDCH2 /NO. JUST FETCH 419 013003 6202 RDCH1, CIF 0 420 013004 4653 JMS I INHNDP /GET BUFFER LOAD 421 013005 2000 2000 /WHOLE MESS, FIELD 0 422 013006 3000 INBUFP, INBUF /THAT'S WHERE IT'S AT 423 013007 0000 INBLK, ZZZ /BLOCK 424 013010 7700 SMA CLA /FATAL ERROR? 425 013011 7410 SKP 426 013012 5777 JMP ERR1 /YES 427 013013 1376 TAD (10 428 013014 1207 TAD INBLK 429 013015 3207 DCA INBLK /CHANGE BLOCK # 430 013016 1206 TAD INBUFP 431 013017 3275 DCA RDCHP1 /POINTER 432 013020 3276 DCA RDCHP1+1 /BYTE 433 013021 1375 TAD (-6000 /# OF CHARS 434 013022 3277 DCA RDCHC1 435 013023 4774 RDCH2, JMS GETCHR 436 013024 3075 RDCHP1 437 013025 0373 AND (177 438 013026 1372 TAD (-032 /END OF FILE? 439 013027 7450 SNA 440 013030 5236 JMP RDCH3 /YES 441 013031 1371 TAD (-177+032 442 013032 7450 SNA /RUBOUT? 443 013033 5201 JMP RDCHR+1 /YES. IGNORE 444 013034 1370 TAD (377 /177+200 445 013035 5600 JMP I RDCHR 446 447 013036 1422 RDCH3, TAD I CDP /NEXT CD ENTRY 448 013037 2022 ISZ CDP 449 013040 7450 SNA /END OF STRING? 450 013041 5256 JMP RDCH4 /YES 451 013042 3274 RDCH3A, DCA RDCHT1 /NO 452 013043 1422 TAD I CDP 453 013044 2022 ISZ CDP 454 013045 3207 DCA INBLK /NEW BLOCK 455 013046 1367 TAD (INHB+1 /TWO PAGE 456 013047 3253 DCA INHNDP 457 013050 1274 TAD RDCHT1 458 013051 4766 JMS I (USR 459 013052 0001 1 460 013053 2401 INHNDP, INHB+1 /TWO PAGE 461 013054 5765 JMP ERR2 462 013055 5203 JMP RDCH1 /CARRY ON 463 464 465 013056 1764 RDCH4, TAD I (7642 / ALTMODE / CR BIT 466 013057 7710 SPA CLA 467 013060 5763 JMP ENDFIL /ALL DONE 468 013061 4766 JMS I (USR 469 013062 0005 5 /ANOTHER CD STRING 470 013063 7002 7002 471 013064 0000 0 /KEEP THOSE TENTATIVE FILES! 472 013065 1362 TAD (7617 473 013066 3022 DCA CDP 474 013067 1422 TAD I CDP 475 013070 2022 ISZ CDP 476 013071 7450 SNA /BLANK LINE? 477 013072 5763 JMP ENDFIL /YES. CALL IT END OF FILE 478 013073 5242 JMP RDCH3A /NO 479 480 013074 0000 RDCHT1, 0 481 013075 0000 RDCHP1, 0;0 013076 0000 482 013077 7777 RDCHC1, -1 /TO START OFF WITH 483 484 013100 0000 WRTCHR, .-. /OUTPUT CHARACTER 485 013101 4761 JMS PUTCHR 486 013102 3123 WRTCP1 487 013103 2322 ISZ WRTCC2 /DONE QUARTER? 488 013104 5310 JMP .+4 /NO 489 013105 1360 TAD (-140 /YES 490 013106 3322 DCA WRTCC2 /RESET COUNT 491 013107 2757 ISZ DIREC /INCREMENT DIRECTORY QUARTER 492 013110 2321 ISZ WRTCC1 /DONE BUFFER? 493 013111 5700 JMP I WRTCHR /NO 494 013112 4756 JMS WRITBF /YES 495 013113 1355 TAD (OUBUF 496 013114 3323 DCA WRTCP1 497 013115 3324 DCA WRTCP1+1 498 013116 1354 TAD (-600 499 013117 3321 DCA WRTCC1 500 013120 5700 JMP I WRTCHR 501 502 013121 0000 WRTCC1, 0 503 013122 0000 WRTCC2, 0 504 013123 0000 WRTCP1, 0;0 013124 0000 505 506 013125 0000 XLUPS1, .-. 507 013126 1420 TAD I SCANP2 508 013127 4753 JMS CCHECK 509 013130 5333 JMP .+3 510 013131 1031 TAD SEPCOD 511 013132 7640 SZA CLA 512 013133 2325 ISZ XLUPS1 513 013134 5725 JMP I XLUPS1 514 515 /PB 516 /PB 517 518 013153 3452 PAGE 013154 7200 013155 7000 013156 2231 013157 5000 013160 7640 013161 3256 013162 7617 013163 3600 013164 7642 013165 4260 013166 0200 013167 2401 013170 0377 013171 7633 013172 7746 013173 0177 013174 3200 013175 2000 013176 0010 013177 4261 519 520 013200 0000 GETCHR, .-. /GET CHAR BY TWO POINTERS 521 013201 1600 TAD I GETCHR 522 013202 2200 ISZ GETCHR 523 013203 3255 DCA GETCPB 524 013204 1655 TAD I GETCPB 525 013205 2255 ISZ GETCPB 526 013206 3254 DCA GETCPP 527 013207 1655 TAD I GETCPB 528 013210 6201 GETC1, CDF 0 /ALWAYS FIELD 0 529 013211 7710 SPA CLA 530 013212 5216 JMP .+4 531 013213 1654 TAD I GETCPP 532 013214 0377 AND (377 533 013215 5233 JMP GETC2 534 535 013216 1654 TAD I GETCPP 536 013217 0376 AND (7400 537 013220 7112 CLL RTR 538 013221 7012 RTR 539 013222 3253 DCA GETCT1 540 013223 7040 CMA 541 013224 1254 TAD GETCPP 542 013225 3254 DCA GETCPP 543 013226 1654 TAD I GETCPP 544 013227 0376 AND (7400 545 013230 1253 TAD GETCT1 546 013231 7112 CLL RTR 547 013232 7012 RTR 548 013233 6211 GETC2, CDF 10 549 013234 3253 DCA GETCT1 550 013235 1655 TAD I GETCPB 551 013236 7104 CLL RAL 552 013237 7520 SMA SNL 553 013240 7132 STL RTR 554 013241 3655 DCA I GETCPB 555 013242 1655 TAD I GETCPB 556 013243 7710 SPA CLA 557 013244 5251 JMP GETC3 558 013245 7240 CLA CMA 559 013246 1255 TAD GETCPB 560 013247 3254 DCA GETCPP 561 013250 2654 ISZ I GETCPP 562 013251 1253 GETC3, TAD GETCT1 563 013252 5600 JMP I GETCHR 564 565 013253 0000 GETCT1, 0 566 013254 0000 GETCPP, 0 567 013255 0000 GETCPB, 0 568 569 013256 0000 PUTCHR, .-. /PUT CHARACTER INTO BUFFER BY 570 /POINTER TO POINTERS 571 013257 0377 AND (377 572 013260 3344 DCA PUTCT1 573 013261 1656 TAD I PUTCHR 574 013262 2256 ISZ PUTCHR 575 013263 3326 DCA PUTCPB 576 013264 1726 TAD I PUTCPB 577 013265 2326 ISZ PUTCPB 578 013266 3327 DCA PUTCPP 579 013267 1726 TAD I PUTCPB 580 013270 6201 PUTC1, CDF 0 /ALWAYS FIELD 0 581 013271 7710 SPA CLA 582 013272 5300 JMP PUTC2 583 013273 1727 TAD I PUTCPP 584 013274 0376 AND (7400 585 013275 1344 TAD PUTCT1 586 013276 3727 DCA I PUTCPP 587 013277 5310 JMP PUTC3 588 589 013300 1344 PUTC2, TAD PUTCT1 590 013301 7110 CLL RAR 591 013302 4330 JMS PUTCS1 592 013303 7060 CMA CML 593 013304 1327 TAD PUTCPP 594 013305 3327 DCA PUTCPP 595 013306 1344 TAD PUTCT1 596 013307 4330 JMS PUTCS1 597 013310 6211 PUTC3, CDF 10 598 013311 1726 TAD I PUTCPB 599 013312 7104 CLL RAL 600 013313 7520 SMA SNL 601 013314 7132 STL RTR 602 013315 3726 DCA I PUTCPB 603 013316 1726 TAD I PUTCPB 604 013317 7710 SPA CLA 605 013320 5656 JMP I PUTCHR 606 013321 7040 CMA 607 013322 1326 TAD PUTCPB 608 013323 3327 DCA PUTCPP 609 013324 2727 ISZ I PUTCPP 610 013325 5656 JMP I PUTCHR 611 612 013326 0000 PUTCPB, 0 613 013327 0000 PUTCPP, 0 614 615 013330 0000 PUTCS1, .-. 616 013331 7012 RTR 617 013332 7012 RTR 618 013333 3344 DCA PUTCT1 619 013334 1727 TAD I PUTCPP 620 013335 0377 AND (377 621 013336 3727 DCA I PUTCPP 622 013337 1344 TAD PUTCT1 623 013340 0376 AND (7400 624 013341 1727 TAD I PUTCPP 625 013342 3727 DCA I PUTCPP 626 013343 5730 JMP I PUTCS1 627 628 013344 0000 PUTCT1, 0 629 630 /PB 631 /PB 632 633 013376 7400 PAGE 013377 0377 634 635 013400 0000 GETLIN, .-. /GET NEXT INPUT LINE 636 013401 1377 TAD (LNBUF-1 637 013402 3014 DCA XR14 638 013403 1014 TAD XR14 639 013404 3025 DCA LINBUF 640 013405 3024 DCA LINCNT /SAVE LINE INFO 641 013406 1025 TAD LINBUF 642 013407 3020 DCA SCANP2 643 013410 6031 KSF 644 013411 5220 JMP GETL1 645 013412 6034 KRS 646 013413 1376 TAD (-203 647 013414 7640 SZA CLA /^C? 648 013415 5220 JMP GETL1 /NO 649 013416 6203 CIF CDF 0 650 013417 5775 JMP I (7605 /YES 651 652 013420 4774 GETL1, JMS RDCHR 653 013421 1373 TAD (-212 654 013422 7450 SNA 655 013423 5220 JMP GETL1 /IGNORE LF 656 013424 1372 TAD (-214+212 657 013425 7450 SNA 658 013426 5220 JMP GETL1 /IGNORE FF 659 013427 1371 TAD (-200+214 660 013430 7450 SNA 661 013431 5220 JMP GETL1 /IGNORE NUL 662 013432 1370 TAD (200 663 013433 7410 SKP 664 013434 4774 GETL2, JMS RDCHR 665 013435 2024 ISZ LINCNT 666 013436 1367 TAD (-215 667 013437 7450 SNA /END OF LINE? 668 013440 5244 JMP GETL3 /YES 669 013441 1366 TAD (215 /NO 670 013442 3414 DCA I XR14 671 013443 5234 JMP GETL2 672 673 013444 1366 GETL3, TAD (215 674 013445 3414 DCA I XR14 /END OF LINE 675 013446 1024 TAD LINCNT 676 013447 7041 CIA 677 013450 3024 DCA LINCNT 678 013451 5600 JMP I GETLIN 679 680 CALTYI=JMS TYI 681 682 013452 0000 CCHECK, .-. /CHECK CHAR TYPE 683 013453 3310 DCA CCHKT1 684 013454 1310 TAD CCHKT1 685 013455 1365 TAD (-"0 686 013456 7510 SPA 687 013457 5271 JMP CCHK2 688 013460 1364 TAD ("0-"9 689 013461 7550 SPA SNA 690 013462 5267 JMP CCHK1 691 013463 1363 TAD ("9-"A 692 013464 7510 SPA 693 013465 5271 JMP CCHK2 694 013466 1362 TAD ("A-"Z 695 013467 7750 CCHK1, SPA SNA CLA 696 013470 5652 JMP I CCHECK 697 698 013471 7200 CCHK2, CLA 699 013472 1361 TAD (CCHKL1-1 700 013473 3012 DCA XR12 701 013474 1412 CCHK3, TAD I XR12 702 013475 7450 SNA 703 013476 5304 JMP CCHK4 704 013477 1310 TAD CCHKT1 705 013500 7650 SNA CLA 706 013501 5304 JMP CCHK4 707 013502 2012 ISZ XR12 708 013503 5274 JMP CCHK3 709 710 013504 1412 CCHK4, TAD I XR12 711 013505 3031 DCA SEPCOD 712 013506 2252 ISZ CCHECK 713 013507 5652 JMP I CCHECK 714 715 013510 0000 CCHKT1, 0 716 717 013511 0000 TYI, .-. 718 013512 6031 KSF 719 013513 5312 JMP .-1 720 013514 6036 KRB 721 013515 6046 TLS 722 013516 5711 JMP I TYI 723 724 /PB 725 /PB 726 727 013561 4461 PAGE 013562 7747 013563 7770 013564 7767 013565 7520 013566 0215 013567 7563 013570 0200 013571 0014 013572 7776 013573 7566 013574 3000 013575 7605 013576 7575 013577 4577 728 729 013600 1777 ENDFIL, TAD I (7643 / /D OPTION 730 013601 0376 AND (400 731 013602 7650 SNA CLA 732 013603 5257 JMP ENDF3 /NOT SET 733 013604 4775 JMS CRLF 734 013605 1374 TAD ("> 735 013606 4773 JMS TYO 736 013607 1372 TAD (CALTYI 737 013610 3771 DCA GETL1 738 013611 1372 TAD (CALTYI 739 013612 3770 DCA GETL2 740 013613 4767 JMS GETLIN 741 013614 4775 JMS CRLF 742 013615 4766 ENDF1, JMS GATHER /GET MACRO NAME 743 013616 5253 JMP ENDF2 /NONE. SHOULD BE END 744 013617 4765 JMS FNDNAM 745 013620 0026 GATHBF 746 013621 5253 JMP ENDF2 /NAME MISSING 747 013622 7146 CMA CLL RTL 748 013623 1010 TAD XR10 749 013624 3011 DCA XR11 /BACK UP BY 3 750 013625 7126 STL RTL 751 013626 1010 TAD XR10 752 013627 3010 DCA XR10 /FROM REGISTER 753 013630 1011 TAD XR11 754 013631 7001 IAC /POINT TO FIRST WORD 755 013632 3234 DCA .+2 756 013633 4764 JMS PRNAME /PRINT NAME 757 013634 0000 ZZZ 758 013635 1010 TAD XR10 759 013636 1363 TAD (-DIREC+1-400 760 013637 3342 DCA ENDFC1 /# OF WORDS TO MOVE 761 013640 1410 TAD I XR10 762 013641 3411 DCA I XR11 763 013642 2342 ISZ ENDFC1 764 013643 5240 JMP .-3 765 013644 3411 DCA I XR11 /0 END OF DIREC 766 013645 3411 DCA I XR11 767 013646 3411 DCA I XR11 768 013647 3411 DCA I XR11 769 013650 3411 DCA I XR11 770 013651 4762 JMS PRMES 771 013652 4276 DEL 772 013653 7144 ENDF2, CMA CLL RAL 773 013654 1031 TAD SEPCOD 774 013655 7650 SNA CLA /,? 775 013656 5215 JMP ENDF1 /YES 776 013657 7001 ENDF3, IAC 777 013660 0777 AND I (7643 / /L OPTION? 778 013661 7650 SNA CLA 779 013662 5312 JMP ENDF5 /NO 780 013663 4775 JMS CRLF 781 013664 4775 JMS CRLF /YES 782 013665 4762 JMS PRMES 783 013666 4321 LIST 784 013667 1326 TAD ENDFP 785 013670 3010 DCA XR10 786 013671 1361 TAD (-63 /51 ENTRIES 787 013672 3342 DCA ENDFC1 788 013673 1410 ENDF4, TAD I XR10 789 013674 7650 SNA CLA 790 013675 5312 JMP ENDF5 /DONE 791 013676 1010 TAD XR10 792 013677 3301 DCA .+2 793 013700 4764 JMS PRNAME /PRINT NAME 794 013701 0000 ZZZ 795 013702 1360 TAD (3 796 013703 1010 TAD XR10 797 013704 3010 DCA XR10 /GET TO DATE 798 013705 1410 TAD I XR10 799 013706 4757 JMS PRDATE 800 013707 4775 JMS CRLF 801 013710 2342 ISZ ENDFC1 802 013711 5273 JMP ENDF4 803 804 013712 4775 ENDF5, JMS CRLF 805 013713 4756 JMS WRITBF 806 013714 1327 TAD ENDFC /STEAL CONSTANT 807 013715 1726 TAD I ENDFP /GIVES LAST QUARTER USED 808 013716 7110 CLL RAR 809 013717 7110 CLL RAR /DIVIDE BY 4 810 013720 3342 DCA ENDFC1 /# OF BLOCKS IN FILE 811 013721 1755 TAD STAR5 812 013722 3327 DCA ENDFC 813 013723 6202 CIF 0 814 013724 4423 JMS I OUHP /WRITE LAST BUFFER 815 013725 4210 4210 816 013726 5000 ENDFP, DIREC 817 013727 0007 ENDFC, 2^4-1 /-1 TO REMOVE UNUSED QUARTER, 818 /1 FOR DIREC, 1 FOR LAST BLOCK 819 /ABOVE IS DESTROYED AFTER IT IS USED 820 013730 5754 JMP ERR1 821 013731 1753 TAD XDEV 822 013732 4752 JMS I (USR /RETRIEVE HANDLER 823 013733 0001 1 824 013734 2000 ENDF5A, OUHB 825 013735 5751 JMP ERR2 826 013736 1753 TAD XDEV 827 013737 4752 JMS I (USR 828 013740 0004 4 829 013741 2200 XFNME 830 013742 0000 ENDFC1, ZZZ 831 013743 5751 JMP ERR2 832 013744 6203 CDF CIF 0 833 013745 5750 JMP I (7605 834 835 /PB 836 /PB 837 838 839 013750 7605 PAGE 013751 4260 013752 0200 013753 2145 013754 4261 013755 2076 013756 2231 013757 4074 013760 0003 013761 7715 013762 4010 013763 2401 013764 4036 013765 4200 013766 4406 013767 3400 013770 3434 013771 3420 013772 4311 013773 4152 013774 0276 013775 4400 013776 0400 013777 7643 840 841 014000 0000 PRCH, .-. /PRINT TRIMMED CHAR 842 014001 0377 AND (77 843 014002 7440 SZA 844 014003 1376 TAD (240 845 014004 0377 AND (77 846 014005 1376 TAD (240 847 014006 4352 JMS TYO 848 014007 5600 JMP I PRCH 849 850 014010 0000 PRMES, .-. 851 014011 1610 TAD I PRMES /POINTER 852 014012 3227 DCA PRMSP1 853 014013 2210 ISZ PRMES 854 014014 1627 PRMES1, TAD I PRMSP1 855 014015 7112 CLL RTR 856 014016 7012 RTR 857 014017 7012 RTR 858 014020 4230 JMS PRMSS1 859 014021 1627 TAD I PRMSP1 860 014022 4230 JMS PRMSS1 861 014023 2227 ISZ PRMSP1 862 014024 5214 JMP PRMES1 863 864 014025 4775 PRMES2, JMS CRLF 865 014026 5610 JMP I PRMES 866 867 014027 0000 PRMSP1, 0 868 869 014030 0000 PRMSS1, .-. 870 014031 0377 AND (77 871 014032 7450 SNA 872 014033 5225 JMP PRMES2 873 014034 4200 JMS PRCH 874 014035 5630 JMP I PRMSS1 875 876 014036 0000 PRNAME, .-. 877 014037 1636 TAD I PRNAME 878 014040 2236 ISZ PRNAME 879 014041 3273 DCA PRNMP1 880 014042 7146 CMA CLL RTL 881 014043 3272 DCA PRNMC1 882 014044 1673 PRNM1, TAD I PRNMP1 883 014045 7041 CIA 884 014046 3271 DCA PRNMT1 885 014047 1271 TAD PRNMT1 886 014050 0374 AND (7700 887 014051 7450 SNA 888 014052 5266 JMP PRNM3 889 014053 7112 CLL RTR 890 014054 7012 RTR 891 014055 7012 RTR 892 014056 4200 JMS PRCH 893 014057 1271 TAD PRNMT1 894 014060 4200 PRNM2, JMS PRCH 895 014061 2273 ISZ PRNMP1 896 014062 2272 ISZ PRNMC1 897 014063 5244 JMP PRNM1 898 014064 4200 JMS PRCH 899 014065 5636 JMP I PRNAME 900 901 014066 1271 PRNM3, TAD PRNMT1 902 014067 4200 JMS PRCH 903 014070 5260 JMP PRNM2 904 905 014071 0000 PRNMT1, 0 906 014072 0000 PRNMC1, 0 907 014073 0000 PRNMP1, 0 908 909 910 014074 0000 PRDATE, .-. /PRINT DATE 911 014075 7450 SNA /IS THERE ONE? 912 014076 5674 JMP I PRDATE /NO. RETURN WITHOUT PRINTING 913 014077 3351 DCA PRDTT1 /SAVE 914 014100 1351 TAD PRDTT1 915 014101 7106 CLL RTL 916 014102 7006 RTL 917 014103 7004 RAL /MONTH 918 014104 0373 AND (17 919 014105 4324 JMS PRDEC 920 014106 1372 TAD ("/ 921 014107 4352 JMS TYO 922 014110 1351 TAD PRDTT1 923 014111 7112 CLL RTR 924 014112 7010 RAR 925 014113 0371 AND (37 /DAY 926 014114 4324 JMS PRDEC 927 014115 1372 TAD ("/ 928 014116 4352 JMS TYO 929 014117 1351 TAD PRDTT1 930 014120 0370 AND (7 931 014121 1367 TAD (106 /70 932 014122 4324 JMS PRDEC 933 014123 5674 JMP I PRDATE 934 935 014124 0000 PRDEC, .-. 936 014125 3347 DCA PRDCT1 937 014126 3350 DCA PRDCT2 938 014127 1347 TAD PRDCT1 939 014130 1366 TAD (-12 940 014131 7510 SPA 941 014132 5335 JMP .+3 942 014133 2350 ISZ PRDCT2 943 014134 5330 JMP .-4 944 014135 3347 DCA PRDCT1 945 014136 1350 TAD PRDCT2 946 014137 7450 SNA 947 014140 5343 JMP .+3 948 014141 1365 TAD ("0 949 014142 4352 JMS TYO 950 014143 1347 TAD PRDCT1 951 014144 1364 TAD (12+"0 952 014145 4352 JMS TYO 953 014146 5724 JMP I PRDEC 954 955 014147 0000 PRDCT1, 0 956 014150 0000 PRDCT2, 0 957 014151 0000 PRDTT1, 0 958 959 014152 0000 TYO, .-. 960 014153 6046 TLS 961 014154 6041 TSF 962 014155 5354 JMP .-1 963 014156 7200 CLA 964 014157 5752 JMP I TYO 965 966 967 /PB 968 /PB 969 970 014164 0272 PAGE 014165 0260 014166 7766 014167 0106 014170 0007 014171 0037 014172 0257 014173 0017 014174 7700 014175 4400 014176 0240 014177 0077 971 972 014200 0000 FNDNAM, .-. /FIND NAME IN DIREC 973 014201 1377 TAD (DIREC 974 014202 3010 DCA XR10 975 014203 1376 TAD (-63 976 014204 3253 DCA FNDNC1 /# OF ENTRIES 977 014205 1600 TAD I FNDNAM 978 014206 3256 DCA FNDNT3 979 014207 1656 TAD I FNDNT3 /PICK UP NAME 980 014210 2256 ISZ FNDNT3 981 014211 3254 DCA FNDNT1 982 014212 1656 TAD I FNDNT3 983 014213 2256 ISZ FNDNT3 984 014214 3255 DCA FNDNT2 985 014215 1656 TAD I FNDNT3 986 014216 3256 DCA FNDNT3 987 014217 2200 ISZ FNDNAM 988 014220 1410 FNDN1, TAD I XR10 989 014221 7450 SNA 990 014222 5247 JMP FNDN5 /NOT THERE 991 014223 1254 TAD FNDNT1 992 014224 7640 SZA CLA 993 014225 5240 JMP FNDN2 994 014226 1410 TAD I XR10 995 014227 1255 TAD FNDNT2 996 014230 7640 SZA CLA 997 014231 5241 JMP FNDN3 998 014232 1410 TAD I XR10 999 014233 1256 TAD FNDNT3 1000 014234 7640 SZA CLA 1001 014235 5242 JMP FNDN4 1002 014236 2200 ISZ FNDNAM 1003 014237 5600 JMP I FNDNAM 1004 1005 014240 2010 FNDN2, ISZ XR10 1006 014241 2010 FNDN3, ISZ XR10 1007 014242 2010 FNDN4, ISZ XR10 1008 014243 2010 ISZ XR10 1009 014244 2253 ISZ FNDNC1 1010 014245 5220 JMP FNDN1 1011 014246 5257 JMP ERR3 1012 1013 014247 7040 FNDN5, CMA 1014 014250 1010 TAD XR10 1015 014251 3010 DCA XR10 1016 014252 5600 JMP I FNDNAM 1017 1018 014253 0000 FNDNC1, 0 1019 014254 0000 FNDNT1, 0 1020 014255 0000 FNDNT2, 0 1021 014256 0000 FNDNT3, 0 1022 1023 014257 2331 ERR3, ISZ ERR 1024 014260 2331 ERR2, ISZ ERR 1025 014261 4775 ERR1, JMS PRMES 1026 014262 4331 ERR 1027 014263 6203 CDF CIF 0 1028 014264 5774 JMP I (7605 1029 1030 014265 4001 XADD, TEXT ' ADDED' 014266 0404 014267 0504 014270 0000 1031 014271 4022 XREPL, TEXT ' REPLACED' 014272 0520 014273 1401 014274 0305 014275 0400 1032 014276 4004 DEL, TEXT ' DELETED' 014277 0514 014300 0524 014301 0504 014302 0000 1033 014303 4040 HEAD, TEXT ' 8BAL LIBRARY TRANSACTIONS' 014304 7002 014305 0114 014306 4014 014307 1102 014310 2201 014311 2231 014312 4024 014313 2201 014314 1623 014315 0103 014316 2411 014317 1716 014320 2300 1034 014321 1411 LIST, TEXT 'LIBRARY LISTING' 014322 0222 014323 0122 014324 3140 014325 1411 014326 2324 014327 1116 014330 0700 1035 014331 7761 ERR, TEXT '?1' 014332 0000 1036 1037 014333 0000 TBLSUB, .-. /ADD GATHBF TO TABLE 1038 014334 1026 TAD GATHBF 1039 014335 7041 CIA 1040 014336 3410 DCA I XR10 1041 014337 1027 TAD GATHBF+1 1042 014340 7041 CIA 1043 014341 3410 DCA I XR10 1044 014342 1030 TAD GATHBF+2 1045 014343 7041 CIA 1046 014344 3410 DCA I XR10 1047 014345 5733 JMP I TBLSUB 1048 1049 /PB 1050 /PB 1051 1052 014374 7605 PAGE 014375 4010 014376 7715 014377 5000 1053 1054 014400 0000 CRLF, .-. 1055 014401 1377 TAD (215 1056 014402 4776 JMS TYO 1057 014403 1375 TAD (212 1058 014404 4776 JMS TYO 1059 014405 5600 JMP I CRLF 1060 1061 014406 0000 GATHER, .-. /COLLECT FIELD 1062 014407 2020 ISZ SCANP2 1063 014410 1020 TAD SCANP2 1064 014411 3021 DCA SCANP3 1065 014412 1374 TAD (GATHBF 1066 014413 3261 DCA GATHP1 1067 014414 7144 CMA CLL RAL 1068 014415 3257 DCA GATHBT 1069 014416 3026 DCA GATHBF 1070 014417 3027 DCA GATHBF+1 1071 014420 3030 DCA GATHBF+2 1072 014421 1373 TAD (-6 1073 014422 3260 DCA GATHC1 1074 014423 1420 GATH1, TAD I SCANP2 1075 014424 4772 JMS CCHECK 1076 014425 5232 JMP GATH2 1077 014426 1026 TAD GATHBF 1078 014427 7640 SZA CLA 1079 014430 2206 ISZ GATHER 1080 014431 5606 JMP I GATHER 1081 1082 014432 1260 GATH2, TAD GATHC1 1083 014433 7650 SNA CLA 1084 014434 5255 JMP GATH3 1085 014435 1420 TAD I SCANP2 1086 014436 0371 AND (77 1087 014437 3254 DCA GATHT1 1088 014440 1661 TAD I GATHP1 1089 014441 7106 CLL RTL 1090 014442 7006 RTL 1091 014443 7006 RTL 1092 014444 1254 TAD GATHT1 1093 014445 3661 DCA I GATHP1 1094 014446 2257 ISZ GATHBT 1095 014447 5253 JMP .+4 1096 014450 2261 ISZ GATHP1 1097 014451 7144 CMA CLL RAL 1098 014452 3257 DCA GATHBT 1099 014453 2260 ISZ GATHC1 1100 014454 0000 GATHT1, ZZZ 1101 014455 2020 GATH3, ISZ SCANP2 1102 014456 5223 JMP GATH1 1103 1104 014457 0000 GATHBT, 0 1105 014460 0000 GATHC1, 0 1106 014461 0000 GATHP1, 0 1107 1108 014462 7540 CCHKL1, -" ;0 014463 0000 1109 014464 7567 -211;0 014465 0000 1110 014466 7563 -215;1 014467 0001 1111 014470 7524 -",;2 014471 0002 1112 014472 7506 -":;3 014473 0003 1113 014474 0000 0;4 /DEFAULT 014475 0004 1114 1115 MCARG=17 /15 ARGUMENTS (PLUS LABEL) 1116 014476 0000 MCALST, ZBLOCK 3^MCARG+3 014477 0000 014500 0000 014501 0000 014502 0000 014503 0000 014504 0000 014505 0000 014506 0000 014507 0000 014510 0000 014511 0000 014512 0000 014513 0000 014514 0000 014515 0000 014516 0000 014517 0000 014520 0000 014521 0000 014522 0000 014523 0000 014524 0000 014525 0000 014526 0000 014527 0000 014530 0000 014531 0000 014532 0000 014533 0000 014534 0000 014535 0000 014536 0000 014537 0000 014540 0000 014541 0000 014542 0000 014543 0000 014544 0000 014545 0000 014546 0000 014547 0000 014550 0000 014551 0000 014552 0000 014553 0000 014554 0000 014555 0000 1117 1118 014556 0004 PAT, 4;2;-"D;-"E;-"F;4;2;1;0 014557 0002 014560 7474 014561 7473 014562 7472 014563 0004 014564 0002 014565 0001 014566 0000 1119 1120 /PB 1121 /PB 1122 1123 014571 0077 PAGE 014572 3452 014573 7772 014574 0026 014575 0212 014576 4152 014577 0215 1124 NOPUNCH 1125 014600 0000 LNBUF, ZBLOCK 200 /LINE BUFFER 014601 0000 014602 0000 014603 0000 014604 0000 014605 0000 014606 0000 014607 0000 014610 0000 014611 0000 014612 0000 014613 0000 014614 0000 014615 0000 014616 0000 014617 0000 014620 0000 014621 0000 014622 0000 014623 0000 014624 0000 014625 0000 014626 0000 014627 0000 014630 0000 014631 0000 014632 0000 014633 0000 014634 0000 014635 0000 014636 0000 014637 0000 014640 0000 014641 0000 014642 0000 014643 0000 014644 0000 014645 0000 014646 0000 014647 0000 014650 0000 014651 0000 014652 0000 014653 0000 014654 0000 014655 0000 014656 0000 014657 0000 014660 0000 014661 0000 014662 0000 014663 0000 014664 0000 014665 0000 014666 0000 014667 0000 014670 0000 014671 0000 014672 0000 014673 0000 014674 0000 014675 0000 014676 0000 014677 0000 014700 0000 014701 0000 014702 0000 014703 0000 014704 0000 014705 0000 014706 0000 014707 0000 014710 0000 014711 0000 014712 0000 014713 0000 014714 0000 014715 0000 014716 0000 014717 0000 014720 0000 014721 0000 014722 0000 014723 0000 014724 0000 014725 0000 014726 0000 014727 0000 014730 0000 014731 0000 014732 0000 014733 0000 014734 0000 014735 0000 014736 0000 014737 0000 014740 0000 014741 0000 014742 0000 014743 0000 014744 0000 014745 0000 014746 0000 014747 0000 014750 0000 014751 0000 014752 0000 014753 0000 014754 0000 014755 0000 014756 0000 014757 0000 014760 0000 014761 0000 014762 0000 014763 0000 014764 0000 014765 0000 014766 0000 014767 0000 014770 0000 014771 0000 014772 0000 014773 0000 014774 0000 014775 0000 014776 0000 014777 0000 1126 015000 0000 DIREC, ZBLOCK 400 015001 0000 015002 0000 015003 0000 015004 0000 015005 0000 015006 0000 015007 0000 015010 0000 015011 0000 015012 0000 015013 0000 015014 0000 015015 0000 015016 0000 015017 0000 015020 0000 015021 0000 015022 0000 015023 0000 015024 0000 015025 0000 015026 0000 015027 0000 015030 0000 015031 0000 015032 0000 015033 0000 015034 0000 015035 0000 015036 0000 015037 0000 015040 0000 015041 0000 015042 0000 015043 0000 015044 0000 015045 0000 015046 0000 015047 0000 015050 0000 015051 0000 015052 0000 015053 0000 015054 0000 015055 0000 015056 0000 015057 0000 015060 0000 015061 0000 015062 0000 015063 0000 015064 0000 015065 0000 015066 0000 015067 0000 015070 0000 015071 0000 015072 0000 015073 0000 015074 0000 015075 0000 015076 0000 015077 0000 015100 0000 015101 0000 015102 0000 015103 0000 015104 0000 015105 0000 015106 0000 015107 0000 015110 0000 015111 0000 015112 0000 015113 0000 015114 0000 015115 0000 015116 0000 015117 0000 015120 0000 015121 0000 015122 0000 015123 0000 015124 0000 015125 0000 015126 0000 015127 0000 015130 0000 015131 0000 015132 0000 015133 0000 015134 0000 015135 0000 015136 0000 015137 0000 015140 0000 015141 0000 015142 0000 015143 0000 015144 0000 015145 0000 015146 0000 015147 0000 015150 0000 015151 0000 015152 0000 015153 0000 015154 0000 015155 0000 015156 0000 015157 0000 015160 0000 015161 0000 015162 0000 015163 0000 015164 0000 015165 0000 015166 0000 015167 0000 015170 0000 015171 0000 015172 0000 015173 0000 015174 0000 015175 0000 015176 0000 015177 0000 015200 0000 015201 0000 015202 0000 015203 0000 015204 0000 015205 0000 015206 0000 015207 0000 015210 0000 015211 0000 015212 0000 015213 0000 015214 0000 015215 0000 015216 0000 015217 0000 015220 0000 015221 0000 015222 0000 015223 0000 015224 0000 015225 0000 015226 0000 015227 0000 015230 0000 015231 0000 015232 0000 015233 0000 015234 0000 015235 0000 015236 0000 015237 0000 015240 0000 015241 0000 015242 0000 015243 0000 015244 0000 015245 0000 015246 0000 015247 0000 015250 0000 015251 0000 015252 0000 015253 0000 015254 0000 015255 0000 015256 0000 015257 0000 015260 0000 015261 0000 015262 0000 015263 0000 015264 0000 015265 0000 015266 0000 015267 0000 015270 0000 015271 0000 015272 0000 015273 0000 015274 0000 015275 0000 015276 0000 015277 0000 015300 0000 015301 0000 015302 0000 015303 0000 015304 0000 015305 0000 015306 0000 015307 0000 015310 0000 015311 0000 015312 0000 015313 0000 015314 0000 015315 0000 015316 0000 015317 0000 015320 0000 015321 0000 015322 0000 015323 0000 015324 0000 015325 0000 015326 0000 015327 0000 015330 0000 015331 0000 015332 0000 015333 0000 015334 0000 015335 0000 015336 0000 015337 0000 015340 0000 015341 0000 015342 0000 015343 0000 015344 0000 015345 0000 015346 0000 015347 0000 015350 0000 015351 0000 015352 0000 015353 0000 015354 0000 015355 0000 015356 0000 015357 0000 015360 0000 015361 0000 015362 0000 015363 0000 015364 0000 015365 0000 015366 0000 015367 0000 015370 0000 015371 0000 015372 0000 015373 0000 015374 0000 015375 0000 015376 0000 015377 0000 1127 1128 FIELD 0 1129 1130 *2000 1131 002000 0000 OUHB, ZBLOCK 400 002001 0000 002002 0000 002003 0000 002004 0000 002005 0000 002006 0000 002007 0000 002010 0000 002011 0000 002012 0000 002013 0000 002014 0000 002015 0000 002016 0000 002017 0000 002020 0000 002021 0000 002022 0000 002023 0000 002024 0000 002025 0000 002026 0000 002027 0000 002030 0000 002031 0000 002032 0000 002033 0000 002034 0000 002035 0000 002036 0000 002037 0000 002040 0000 002041 0000 002042 0000 002043 0000 002044 0000 002045 0000 002046 0000 002047 0000 002050 0000 002051 0000 002052 0000 002053 0000 002054 0000 002055 0000 002056 0000 002057 0000 002060 0000 002061 0000 002062 0000 002063 0000 002064 0000 002065 0000 002066 0000 002067 0000 002070 0000 002071 0000 002072 0000 002073 0000 002074 0000 002075 0000 002076 0000 002077 0000 002100 0000 002101 0000 002102 0000 002103 0000 002104 0000 002105 0000 002106 0000 002107 0000 002110 0000 002111 0000 002112 0000 002113 0000 002114 0000 002115 0000 002116 0000 002117 0000 002120 0000 002121 0000 002122 0000 002123 0000 002124 0000 002125 0000 002126 0000 002127 0000 002130 0000 002131 0000 002132 0000 002133 0000 002134 0000 002135 0000 002136 0000 002137 0000 002140 0000 002141 0000 002142 0000 002143 0000 002144 0000 002145 0000 002146 0000 002147 0000 002150 0000 002151 0000 002152 0000 002153 0000 002154 0000 002155 0000 002156 0000 002157 0000 002160 0000 002161 0000 002162 0000 002163 0000 002164 0000 002165 0000 002166 0000 002167 0000 002170 0000 002171 0000 002172 0000 002173 0000 002174 0000 002175 0000 002176 0000 002177 0000 002200 0000 002201 0000 002202 0000 002203 0000 002204 0000 002205 0000 002206 0000 002207 0000 002210 0000 002211 0000 002212 0000 002213 0000 002214 0000 002215 0000 002216 0000 002217 0000 002220 0000 002221 0000 002222 0000 002223 0000 002224 0000 002225 0000 002226 0000 002227 0000 002230 0000 002231 0000 002232 0000 002233 0000 002234 0000 002235 0000 002236 0000 002237 0000 002240 0000 002241 0000 002242 0000 002243 0000 002244 0000 002245 0000 002246 0000 002247 0000 002250 0000 002251 0000 002252 0000 002253 0000 002254 0000 002255 0000 002256 0000 002257 0000 002260 0000 002261 0000 002262 0000 002263 0000 002264 0000 002265 0000 002266 0000 002267 0000 002270 0000 002271 0000 002272 0000 002273 0000 002274 0000 002275 0000 002276 0000 002277 0000 002300 0000 002301 0000 002302 0000 002303 0000 002304 0000 002305 0000 002306 0000 002307 0000 002310 0000 002311 0000 002312 0000 002313 0000 002314 0000 002315 0000 002316 0000 002317 0000 002320 0000 002321 0000 002322 0000 002323 0000 002324 0000 002325 0000 002326 0000 002327 0000 002330 0000 002331 0000 002332 0000 002333 0000 002334 0000 002335 0000 002336 0000 002337 0000 002340 0000 002341 0000 002342 0000 002343 0000 002344 0000 002345 0000 002346 0000 002347 0000 002350 0000 002351 0000 002352 0000 002353 0000 002354 0000 002355 0000 002356 0000 002357 0000 002360 0000 002361 0000 002362 0000 002363 0000 002364 0000 002365 0000 002366 0000 002367 0000 002370 0000 002371 0000 002372 0000 002373 0000 002374 0000 002375 0000 002376 0000 002377 0000 1132 002400 0000 INHB, ZBLOCK 400 002401 0000 002402 0000 002403 0000 002404 0000 002405 0000 002406 0000 002407 0000 002410 0000 002411 0000 002412 0000 002413 0000 002414 0000 002415 0000 002416 0000 002417 0000 002420 0000 002421 0000 002422 0000 002423 0000 002424 0000 002425 0000 002426 0000 002427 0000 002430 0000 002431 0000 002432 0000 002433 0000 002434 0000 002435 0000 002436 0000 002437 0000 002440 0000 002441 0000 002442 0000 002443 0000 002444 0000 002445 0000 002446 0000 002447 0000 002450 0000 002451 0000 002452 0000 002453 0000 002454 0000 002455 0000 002456 0000 002457 0000 002460 0000 002461 0000 002462 0000 002463 0000 002464 0000 002465 0000 002466 0000 002467 0000 002470 0000 002471 0000 002472 0000 002473 0000 002474 0000 002475 0000 002476 0000 002477 0000 002500 0000 002501 0000 002502 0000 002503 0000 002504 0000 002505 0000 002506 0000 002507 0000 002510 0000 002511 0000 002512 0000 002513 0000 002514 0000 002515 0000 002516 0000 002517 0000 002520 0000 002521 0000 002522 0000 002523 0000 002524 0000 002525 0000 002526 0000 002527 0000 002530 0000 002531 0000 002532 0000 002533 0000 002534 0000 002535 0000 002536 0000 002537 0000 002540 0000 002541 0000 002542 0000 002543 0000 002544 0000 002545 0000 002546 0000 002547 0000 002550 0000 002551 0000 002552 0000 002553 0000 002554 0000 002555 0000 002556 0000 002557 0000 002560 0000 002561 0000 002562 0000 002563 0000 002564 0000 002565 0000 002566 0000 002567 0000 002570 0000 002571 0000 002572 0000 002573 0000 002574 0000 002575 0000 002576 0000 002577 0000 002600 0000 002601 0000 002602 0000 002603 0000 002604 0000 002605 0000 002606 0000 002607 0000 002610 0000 002611 0000 002612 0000 002613 0000 002614 0000 002615 0000 002616 0000 002617 0000 002620 0000 002621 0000 002622 0000 002623 0000 002624 0000 002625 0000 002626 0000 002627 0000 002630 0000 002631 0000 002632 0000 002633 0000 002634 0000 002635 0000 002636 0000 002637 0000 002640 0000 002641 0000 002642 0000 002643 0000 002644 0000 002645 0000 002646 0000 002647 0000 002650 0000 002651 0000 002652 0000 002653 0000 002654 0000 002655 0000 002656 0000 002657 0000 002660 0000 002661 0000 002662 0000 002663 0000 002664 0000 002665 0000 002666 0000 002667 0000 002670 0000 002671 0000 002672 0000 002673 0000 002674 0000 002675 0000 002676 0000 002677 0000 002700 0000 002701 0000 002702 0000 002703 0000 002704 0000 002705 0000 002706 0000 002707 0000 002710 0000 002711 0000 002712 0000 002713 0000 002714 0000 002715 0000 002716 0000 002717 0000 002720 0000 002721 0000 002722 0000 002723 0000 002724 0000 002725 0000 002726 0000 002727 0000 002730 0000 002731 0000 002732 0000 002733 0000 002734 0000 002735 0000 002736 0000 002737 0000 002740 0000 002741 0000 002742 0000 002743 0000 002744 0000 002745 0000 002746 0000 002747 0000 002750 0000 002751 0000 002752 0000 002753 0000 002754 0000 002755 0000 002756 0000 002757 0000 002760 0000 002761 0000 002762 0000 002763 0000 002764 0000 002765 0000 002766 0000 002767 0000 002770 0000 002771 0000 002772 0000 002773 0000 002774 0000 002775 0000 002776 0000 002777 0000 1133 003000 0000 INBUF, ZBLOCK 4000 003001 0000 003002 0000 003003 0000 003004 0000 003005 0000 003006 0000 003007 0000 003010 0000 003011 0000 003012 0000 003013 0000 003014 0000 003015 0000 003016 0000 003017 0000 003020 0000 003021 0000 003022 0000 003023 0000 003024 0000 003025 0000 003026 0000 003027 0000 003030 0000 003031 0000 003032 0000 003033 0000 003034 0000 003035 0000 003036 0000 003037 0000 003040 0000 003041 0000 003042 0000 003043 0000 003044 0000 003045 0000 003046 0000 003047 0000 003050 0000 003051 0000 003052 0000 003053 0000 003054 0000 003055 0000 003056 0000 003057 0000 003060 0000 003061 0000 003062 0000 003063 0000 003064 0000 003065 0000 003066 0000 003067 0000 003070 0000 003071 0000 003072 0000 003073 0000 003074 0000 003075 0000 003076 0000 003077 0000 003100 0000 003101 0000 003102 0000 003103 0000 003104 0000 003105 0000 003106 0000 003107 0000 003110 0000 003111 0000 003112 0000 003113 0000 003114 0000 003115 0000 003116 0000 003117 0000 003120 0000 003121 0000 003122 0000 003123 0000 003124 0000 003125 0000 003126 0000 003127 0000 003130 0000 003131 0000 003132 0000 003133 0000 003134 0000 003135 0000 003136 0000 003137 0000 003140 0000 003141 0000 003142 0000 003143 0000 003144 0000 003145 0000 003146 0000 003147 0000 003150 0000 003151 0000 003152 0000 003153 0000 003154 0000 003155 0000 003156 0000 003157 0000 003160 0000 003161 0000 003162 0000 003163 0000 003164 0000 003165 0000 003166 0000 003167 0000 003170 0000 003171 0000 003172 0000 003173 0000 003174 0000 003175 0000 003176 0000 003177 0000 003200 0000 003201 0000 003202 0000 003203 0000 003204 0000 003205 0000 003206 0000 003207 0000 003210 0000 003211 0000 003212 0000 003213 0000 003214 0000 003215 0000 003216 0000 003217 0000 003220 0000 003221 0000 003222 0000 003223 0000 003224 0000 003225 0000 003226 0000 003227 0000 003230 0000 003231 0000 003232 0000 003233 0000 003234 0000 003235 0000 003236 0000 003237 0000 003240 0000 003241 0000 003242 0000 003243 0000 003244 0000 003245 0000 003246 0000 003247 0000 003250 0000 003251 0000 003252 0000 003253 0000 003254 0000 003255 0000 003256 0000 003257 0000 003260 0000 003261 0000 003262 0000 003263 0000 003264 0000 003265 0000 003266 0000 003267 0000 003270 0000 003271 0000 003272 0000 003273 0000 003274 0000 003275 0000 003276 0000 003277 0000 003300 0000 003301 0000 003302 0000 003303 0000 003304 0000 003305 0000 003306 0000 003307 0000 003310 0000 003311 0000 003312 0000 003313 0000 003314 0000 003315 0000 003316 0000 003317 0000 003320 0000 003321 0000 003322 0000 003323 0000 003324 0000 003325 0000 003326 0000 003327 0000 003330 0000 003331 0000 003332 0000 003333 0000 003334 0000 003335 0000 003336 0000 003337 0000 003340 0000 003341 0000 003342 0000 003343 0000 003344 0000 003345 0000 003346 0000 003347 0000 003350 0000 003351 0000 003352 0000 003353 0000 003354 0000 003355 0000 003356 0000 003357 0000 003360 0000 003361 0000 003362 0000 003363 0000 003364 0000 003365 0000 003366 0000 003367 0000 003370 0000 003371 0000 003372 0000 003373 0000 003374 0000 003375 0000 003376 0000 003377 0000 003400 0000 003401 0000 003402 0000 003403 0000 003404 0000 003405 0000 003406 0000 003407 0000 003410 0000 003411 0000 003412 0000 003413 0000 003414 0000 003415 0000 003416 0000 003417 0000 003420 0000 003421 0000 003422 0000 003423 0000 003424 0000 003425 0000 003426 0000 003427 0000 003430 0000 003431 0000 003432 0000 003433 0000 003434 0000 003435 0000 003436 0000 003437 0000 003440 0000 003441 0000 003442 0000 003443 0000 003444 0000 003445 0000 003446 0000 003447 0000 003450 0000 003451 0000 003452 0000 003453 0000 003454 0000 003455 0000 003456 0000 003457 0000 003460 0000 003461 0000 003462 0000 003463 0000 003464 0000 003465 0000 003466 0000 003467 0000 003470 0000 003471 0000 003472 0000 003473 0000 003474 0000 003475 0000 003476 0000 003477 0000 003500 0000 003501 0000 003502 0000 003503 0000 003504 0000 003505 0000 003506 0000 003507 0000 003510 0000 003511 0000 003512 0000 003513 0000 003514 0000 003515 0000 003516 0000 003517 0000 003520 0000 003521 0000 003522 0000 003523 0000 003524 0000 003525 0000 003526 0000 003527 0000 003530 0000 003531 0000 003532 0000 003533 0000 003534 0000 003535 0000 003536 0000 003537 0000 003540 0000 003541 0000 003542 0000 003543 0000 003544 0000 003545 0000 003546 0000 003547 0000 003550 0000 003551 0000 003552 0000 003553 0000 003554 0000 003555 0000 003556 0000 003557 0000 003560 0000 003561 0000 003562 0000 003563 0000 003564 0000 003565 0000 003566 0000 003567 0000 003570 0000 003571 0000 003572 0000 003573 0000 003574 0000 003575 0000 003576 0000 003577 0000 003600 0000 003601 0000 003602 0000 003603 0000 003604 0000 003605 0000 003606 0000 003607 0000 003610 0000 003611 0000 003612 0000 003613 0000 003614 0000 003615 0000 003616 0000 003617 0000 003620 0000 003621 0000 003622 0000 003623 0000 003624 0000 003625 0000 003626 0000 003627 0000 003630 0000 003631 0000 003632 0000 003633 0000 003634 0000 003635 0000 003636 0000 003637 0000 003640 0000 003641 0000 003642 0000 003643 0000 003644 0000 003645 0000 003646 0000 003647 0000 003650 0000 003651 0000 003652 0000 003653 0000 003654 0000 003655 0000 003656 0000 003657 0000 003660 0000 003661 0000 003662 0000 003663 0000 003664 0000 003665 0000 003666 0000 003667 0000 003670 0000 003671 0000 003672 0000 003673 0000 003674 0000 003675 0000 003676 0000 003677 0000 003700 0000 003701 0000 003702 0000 003703 0000 003704 0000 003705 0000 003706 0000 003707 0000 003710 0000 003711 0000 003712 0000 003713 0000 003714 0000 003715 0000 003716 0000 003717 0000 003720 0000 003721 0000 003722 0000 003723 0000 003724 0000 003725 0000 003726 0000 003727 0000 003730 0000 003731 0000 003732 0000 003733 0000 003734 0000 003735 0000 003736 0000 003737 0000 003740 0000 003741 0000 003742 0000 003743 0000 003744 0000 003745 0000 003746 0000 003747 0000 003750 0000 003751 0000 003752 0000 003753 0000 003754 0000 003755 0000 003756 0000 003757 0000 003760 0000 003761 0000 003762 0000 003763 0000 003764 0000 003765 0000 003766 0000 003767 0000 003770 0000 003771 0000 003772 0000 003773 0000 003774 0000 003775 0000 003776 0000 003777 0000 004000 0000 004001 0000 004002 0000 004003 0000 004004 0000 004005 0000 004006 0000 004007 0000 004010 0000 004011 0000 004012 0000 004013 0000 004014 0000 004015 0000 004016 0000 004017 0000 004020 0000 004021 0000 004022 0000 004023 0000 004024 0000 004025 0000 004026 0000 004027 0000 004030 0000 004031 0000 004032 0000 004033 0000 004034 0000 004035 0000 004036 0000 004037 0000 004040 0000 004041 0000 004042 0000 004043 0000 004044 0000 004045 0000 004046 0000 004047 0000 004050 0000 004051 0000 004052 0000 004053 0000 004054 0000 004055 0000 004056 0000 004057 0000 004060 0000 004061 0000 004062 0000 004063 0000 004064 0000 004065 0000 004066 0000 004067 0000 004070 0000 004071 0000 004072 0000 004073 0000 004074 0000 004075 0000 004076 0000 004077 0000 004100 0000 004101 0000 004102 0000 004103 0000 004104 0000 004105 0000 004106 0000 004107 0000 004110 0000 004111 0000 004112 0000 004113 0000 004114 0000 004115 0000 004116 0000 004117 0000 004120 0000 004121 0000 004122 0000 004123 0000 004124 0000 004125 0000 004126 0000 004127 0000 004130 0000 004131 0000 004132 0000 004133 0000 004134 0000 004135 0000 004136 0000 004137 0000 004140 0000 004141 0000 004142 0000 004143 0000 004144 0000 004145 0000 004146 0000 004147 0000 004150 0000 004151 0000 004152 0000 004153 0000 004154 0000 004155 0000 004156 0000 004157 0000 004160 0000 004161 0000 004162 0000 004163 0000 004164 0000 004165 0000 004166 0000 004167 0000 004170 0000 004171 0000 004172 0000 004173 0000 004174 0000 004175 0000 004176 0000 004177 0000 004200 0000 004201 0000 004202 0000 004203 0000 004204 0000 004205 0000 004206 0000 004207 0000 004210 0000 004211 0000 004212 0000 004213 0000 004214 0000 004215 0000 004216 0000 004217 0000 004220 0000 004221 0000 004222 0000 004223 0000 004224 0000 004225 0000 004226 0000 004227 0000 004230 0000 004231 0000 004232 0000 004233 0000 004234 0000 004235 0000 004236 0000 004237 0000 004240 0000 004241 0000 004242 0000 004243 0000 004244 0000 004245 0000 004246 0000 004247 0000 004250 0000 004251 0000 004252 0000 004253 0000 004254 0000 004255 0000 004256 0000 004257 0000 004260 0000 004261 0000 004262 0000 004263 0000 004264 0000 004265 0000 004266 0000 004267 0000 004270 0000 004271 0000 004272 0000 004273 0000 004274 0000 004275 0000 004276 0000 004277 0000 004300 0000 004301 0000 004302 0000 004303 0000 004304 0000 004305 0000 004306 0000 004307 0000 004310 0000 004311 0000 004312 0000 004313 0000 004314 0000 004315 0000 004316 0000 004317 0000 004320 0000 004321 0000 004322 0000 004323 0000 004324 0000 004325 0000 004326 0000 004327 0000 004330 0000 004331 0000 004332 0000 004333 0000 004334 0000 004335 0000 004336 0000 004337 0000 004340 0000 004341 0000 004342 0000 004343 0000 004344 0000 004345 0000 004346 0000 004347 0000 004350 0000 004351 0000 004352 0000 004353 0000 004354 0000 004355 0000 004356 0000 004357 0000 004360 0000 004361 0000 004362 0000 004363 0000 004364 0000 004365 0000 004366 0000 004367 0000 004370 0000 004371 0000 004372 0000 004373 0000 004374 0000 004375 0000 004376 0000 004377 0000 004400 0000 004401 0000 004402 0000 004403 0000 004404 0000 004405 0000 004406 0000 004407 0000 004410 0000 004411 0000 004412 0000 004413 0000 004414 0000 004415 0000 004416 0000 004417 0000 004420 0000 004421 0000 004422 0000 004423 0000 004424 0000 004425 0000 004426 0000 004427 0000 004430 0000 004431 0000 004432 0000 004433 0000 004434 0000 004435 0000 004436 0000 004437 0000 004440 0000 004441 0000 004442 0000 004443 0000 004444 0000 004445 0000 004446 0000 004447 0000 004450 0000 004451 0000 004452 0000 004453 0000 004454 0000 004455 0000 004456 0000 004457 0000 004460 0000 004461 0000 004462 0000 004463 0000 004464 0000 004465 0000 004466 0000 004467 0000 004470 0000 004471 0000 004472 0000 004473 0000 004474 0000 004475 0000 004476 0000 004477 0000 004500 0000 004501 0000 004502 0000 004503 0000 004504 0000 004505 0000 004506 0000 004507 0000 004510 0000 004511 0000 004512 0000 004513 0000 004514 0000 004515 0000 004516 0000 004517 0000 004520 0000 004521 0000 004522 0000 004523 0000 004524 0000 004525 0000 004526 0000 004527 0000 004530 0000 004531 0000 004532 0000 004533 0000 004534 0000 004535 0000 004536 0000 004537 0000 004540 0000 004541 0000 004542 0000 004543 0000 004544 0000 004545 0000 004546 0000 004547 0000 004550 0000 004551 0000 004552 0000 004553 0000 004554 0000 004555 0000 004556 0000 004557 0000 004560 0000 004561 0000 004562 0000 004563 0000 004564 0000 004565 0000 004566 0000 004567 0000 004570 0000 004571 0000 004572 0000 004573 0000 004574 0000 004575 0000 004576 0000 004577 0000 004600 0000 004601 0000 004602 0000 004603 0000 004604 0000 004605 0000 004606 0000 004607 0000 004610 0000 004611 0000 004612 0000 004613 0000 004614 0000 004615 0000 004616 0000 004617 0000 004620 0000 004621 0000 004622 0000 004623 0000 004624 0000 004625 0000 004626 0000 004627 0000 004630 0000 004631 0000 004632 0000 004633 0000 004634 0000 004635 0000 004636 0000 004637 0000 004640 0000 004641 0000 004642 0000 004643 0000 004644 0000 004645 0000 004646 0000 004647 0000 004650 0000 004651 0000 004652 0000 004653 0000 004654 0000 004655 0000 004656 0000 004657 0000 004660 0000 004661 0000 004662 0000 004663 0000 004664 0000 004665 0000 004666 0000 004667 0000 004670 0000 004671 0000 004672 0000 004673 0000 004674 0000 004675 0000 004676 0000 004677 0000 004700 0000 004701 0000 004702 0000 004703 0000 004704 0000 004705 0000 004706 0000 004707 0000 004710 0000 004711 0000 004712 0000 004713 0000 004714 0000 004715 0000 004716 0000 004717 0000 004720 0000 004721 0000 004722 0000 004723 0000 004724 0000 004725 0000 004726 0000 004727 0000 004730 0000 004731 0000 004732 0000 004733 0000 004734 0000 004735 0000 004736 0000 004737 0000 004740 0000 004741 0000 004742 0000 004743 0000 004744 0000 004745 0000 004746 0000 004747 0000 004750 0000 004751 0000 004752 0000 004753 0000 004754 0000 004755 0000 004756 0000 004757 0000 004760 0000 004761 0000 004762 0000 004763 0000 004764 0000 004765 0000 004766 0000 004767 0000 004770 0000 004771 0000 004772 0000 004773 0000 004774 0000 004775 0000 004776 0000 004777 0000 005000 0000 005001 0000 005002 0000 005003 0000 005004 0000 005005 0000 005006 0000 005007 0000 005010 0000 005011 0000 005012 0000 005013 0000 005014 0000 005015 0000 005016 0000 005017 0000 005020 0000 005021 0000 005022 0000 005023 0000 005024 0000 005025 0000 005026 0000 005027 0000 005030 0000 005031 0000 005032 0000 005033 0000 005034 0000 005035 0000 005036 0000 005037 0000 005040 0000 005041 0000 005042 0000 005043 0000 005044 0000 005045 0000 005046 0000 005047 0000 005050 0000 005051 0000 005052 0000 005053 0000 005054 0000 005055 0000 005056 0000 005057 0000 005060 0000 005061 0000 005062 0000 005063 0000 005064 0000 005065 0000 005066 0000 005067 0000 005070 0000 005071 0000 005072 0000 005073 0000 005074 0000 005075 0000 005076 0000 005077 0000 005100 0000 005101 0000 005102 0000 005103 0000 005104 0000 005105 0000 005106 0000 005107 0000 005110 0000 005111 0000 005112 0000 005113 0000 005114 0000 005115 0000 005116 0000 005117 0000 005120 0000 005121 0000 005122 0000 005123 0000 005124 0000 005125 0000 005126 0000 005127 0000 005130 0000 005131 0000 005132 0000 005133 0000 005134 0000 005135 0000 005136 0000 005137 0000 005140 0000 005141 0000 005142 0000 005143 0000 005144 0000 005145 0000 005146 0000 005147 0000 005150 0000 005151 0000 005152 0000 005153 0000 005154 0000 005155 0000 005156 0000 005157 0000 005160 0000 005161 0000 005162 0000 005163 0000 005164 0000 005165 0000 005166 0000 005167 0000 005170 0000 005171 0000 005172 0000 005173 0000 005174 0000 005175 0000 005176 0000 005177 0000 005200 0000 005201 0000 005202 0000 005203 0000 005204 0000 005205 0000 005206 0000 005207 0000 005210 0000 005211 0000 005212 0000 005213 0000 005214 0000 005215 0000 005216 0000 005217 0000 005220 0000 005221 0000 005222 0000 005223 0000 005224 0000 005225 0000 005226 0000 005227 0000 005230 0000 005231 0000 005232 0000 005233 0000 005234 0000 005235 0000 005236 0000 005237 0000 005240 0000 005241 0000 005242 0000 005243 0000 005244 0000 005245 0000 005246 0000 005247 0000 005250 0000 005251 0000 005252 0000 005253 0000 005254 0000 005255 0000 005256 0000 005257 0000 005260 0000 005261 0000 005262 0000 005263 0000 005264 0000 005265 0000 005266 0000 005267 0000 005270 0000 005271 0000 005272 0000 005273 0000 005274 0000 005275 0000 005276 0000 005277 0000 005300 0000 005301 0000 005302 0000 005303 0000 005304 0000 005305 0000 005306 0000 005307 0000 005310 0000 005311 0000 005312 0000 005313 0000 005314 0000 005315 0000 005316 0000 005317 0000 005320 0000 005321 0000 005322 0000 005323 0000 005324 0000 005325 0000 005326 0000 005327 0000 005330 0000 005331 0000 005332 0000 005333 0000 005334 0000 005335 0000 005336 0000 005337 0000 005340 0000 005341 0000 005342 0000 005343 0000 005344 0000 005345 0000 005346 0000 005347 0000 005350 0000 005351 0000 005352 0000 005353 0000 005354 0000 005355 0000 005356 0000 005357 0000 005360 0000 005361 0000 005362 0000 005363 0000 005364 0000 005365 0000 005366 0000 005367 0000 005370 0000 005371 0000 005372 0000 005373 0000 005374 0000 005375 0000 005376 0000 005377 0000 005400 0000 005401 0000 005402 0000 005403 0000 005404 0000 005405 0000 005406 0000 005407 0000 005410 0000 005411 0000 005412 0000 005413 0000 005414 0000 005415 0000 005416 0000 005417 0000 005420 0000 005421 0000 005422 0000 005423 0000 005424 0000 005425 0000 005426 0000 005427 0000 005430 0000 005431 0000 005432 0000 005433 0000 005434 0000 005435 0000 005436 0000 005437 0000 005440 0000 005441 0000 005442 0000 005443 0000 005444 0000 005445 0000 005446 0000 005447 0000 005450 0000 005451 0000 005452 0000 005453 0000 005454 0000 005455 0000 005456 0000 005457 0000 005460 0000 005461 0000 005462 0000 005463 0000 005464 0000 005465 0000 005466 0000 005467 0000 005470 0000 005471 0000 005472 0000 005473 0000 005474 0000 005475 0000 005476 0000 005477 0000 005500 0000 005501 0000 005502 0000 005503 0000 005504 0000 005505 0000 005506 0000 005507 0000 005510 0000 005511 0000 005512 0000 005513 0000 005514 0000 005515 0000 005516 0000 005517 0000 005520 0000 005521 0000 005522 0000 005523 0000 005524 0000 005525 0000 005526 0000 005527 0000 005530 0000 005531 0000 005532 0000 005533 0000 005534 0000 005535 0000 005536 0000 005537 0000 005540 0000 005541 0000 005542 0000 005543 0000 005544 0000 005545 0000 005546 0000 005547 0000 005550 0000 005551 0000 005552 0000 005553 0000 005554 0000 005555 0000 005556 0000 005557 0000 005560 0000 005561 0000 005562 0000 005563 0000 005564 0000 005565 0000 005566 0000 005567 0000 005570 0000 005571 0000 005572 0000 005573 0000 005574 0000 005575 0000 005576 0000 005577 0000 005600 0000 005601 0000 005602 0000 005603 0000 005604 0000 005605 0000 005606 0000 005607 0000 005610 0000 005611 0000 005612 0000 005613 0000 005614 0000 005615 0000 005616 0000 005617 0000 005620 0000 005621 0000 005622 0000 005623 0000 005624 0000 005625 0000 005626 0000 005627 0000 005630 0000 005631 0000 005632 0000 005633 0000 005634 0000 005635 0000 005636 0000 005637 0000 005640 0000 005641 0000 005642 0000 005643 0000 005644 0000 005645 0000 005646 0000 005647 0000 005650 0000 005651 0000 005652 0000 005653 0000 005654 0000 005655 0000 005656 0000 005657 0000 005660 0000 005661 0000 005662 0000 005663 0000 005664 0000 005665 0000 005666 0000 005667 0000 005670 0000 005671 0000 005672 0000 005673 0000 005674 0000 005675 0000 005676 0000 005677 0000 005700 0000 005701 0000 005702 0000 005703 0000 005704 0000 005705 0000 005706 0000 005707 0000 005710 0000 005711 0000 005712 0000 005713 0000 005714 0000 005715 0000 005716 0000 005717 0000 005720 0000 005721 0000 005722 0000 005723 0000 005724 0000 005725 0000 005726 0000 005727 0000 005730 0000 005731 0000 005732 0000 005733 0000 005734 0000 005735 0000 005736 0000 005737 0000 005740 0000 005741 0000 005742 0000 005743 0000 005744 0000 005745 0000 005746 0000 005747 0000 005750 0000 005751 0000 005752 0000 005753 0000 005754 0000 005755 0000 005756 0000 005757 0000 005760 0000 005761 0000 005762 0000 005763 0000 005764 0000 005765 0000 005766 0000 005767 0000 005770 0000 005771 0000 005772 0000 005773 0000 005774 0000 005775 0000 005776 0000 005777 0000 006000 0000 006001 0000 006002 0000 006003 0000 006004 0000 006005 0000 006006 0000 006007 0000 006010 0000 006011 0000 006012 0000 006013 0000 006014 0000 006015 0000 006016 0000 006017 0000 006020 0000 006021 0000 006022 0000 006023 0000 006024 0000 006025 0000 006026 0000 006027 0000 006030 0000 006031 0000 006032 0000 006033 0000 006034 0000 006035 0000 006036 0000 006037 0000 006040 0000 006041 0000 006042 0000 006043 0000 006044 0000 006045 0000 006046 0000 006047 0000 006050 0000 006051 0000 006052 0000 006053 0000 006054 0000 006055 0000 006056 0000 006057 0000 006060 0000 006061 0000 006062 0000 006063 0000 006064 0000 006065 0000 006066 0000 006067 0000 006070 0000 006071 0000 006072 0000 006073 0000 006074 0000 006075 0000 006076 0000 006077 0000 006100 0000 006101 0000 006102 0000 006103 0000 006104 0000 006105 0000 006106 0000 006107 0000 006110 0000 006111 0000 006112 0000 006113 0000 006114 0000 006115 0000 006116 0000 006117 0000 006120 0000 006121 0000 006122 0000 006123 0000 006124 0000 006125 0000 006126 0000 006127 0000 006130 0000 006131 0000 006132 0000 006133 0000 006134 0000 006135 0000 006136 0000 006137 0000 006140 0000 006141 0000 006142 0000 006143 0000 006144 0000 006145 0000 006146 0000 006147 0000 006150 0000 006151 0000 006152 0000 006153 0000 006154 0000 006155 0000 006156 0000 006157 0000 006160 0000 006161 0000 006162 0000 006163 0000 006164 0000 006165 0000 006166 0000 006167 0000 006170 0000 006171 0000 006172 0000 006173 0000 006174 0000 006175 0000 006176 0000 006177 0000 006200 0000 006201 0000 006202 0000 006203 0000 006204 0000 006205 0000 006206 0000 006207 0000 006210 0000 006211 0000 006212 0000 006213 0000 006214 0000 006215 0000 006216 0000 006217 0000 006220 0000 006221 0000 006222 0000 006223 0000 006224 0000 006225 0000 006226 0000 006227 0000 006230 0000 006231 0000 006232 0000 006233 0000 006234 0000 006235 0000 006236 0000 006237 0000 006240 0000 006241 0000 006242 0000 006243 0000 006244 0000 006245 0000 006246 0000 006247 0000 006250 0000 006251 0000 006252 0000 006253 0000 006254 0000 006255 0000 006256 0000 006257 0000 006260 0000 006261 0000 006262 0000 006263 0000 006264 0000 006265 0000 006266 0000 006267 0000 006270 0000 006271 0000 006272 0000 006273 0000 006274 0000 006275 0000 006276 0000 006277 0000 006300 0000 006301 0000 006302 0000 006303 0000 006304 0000 006305 0000 006306 0000 006307 0000 006310 0000 006311 0000 006312 0000 006313 0000 006314 0000 006315 0000 006316 0000 006317 0000 006320 0000 006321 0000 006322 0000 006323 0000 006324 0000 006325 0000 006326 0000 006327 0000 006330 0000 006331 0000 006332 0000 006333 0000 006334 0000 006335 0000 006336 0000 006337 0000 006340 0000 006341 0000 006342 0000 006343 0000 006344 0000 006345 0000 006346 0000 006347 0000 006350 0000 006351 0000 006352 0000 006353 0000 006354 0000 006355 0000 006356 0000 006357 0000 006360 0000 006361 0000 006362 0000 006363 0000 006364 0000 006365 0000 006366 0000 006367 0000 006370 0000 006371 0000 006372 0000 006373 0000 006374 0000 006375 0000 006376 0000 006377 0000 006400 0000 006401 0000 006402 0000 006403 0000 006404 0000 006405 0000 006406 0000 006407 0000 006410 0000 006411 0000 006412 0000 006413 0000 006414 0000 006415 0000 006416 0000 006417 0000 006420 0000 006421 0000 006422 0000 006423 0000 006424 0000 006425 0000 006426 0000 006427 0000 006430 0000 006431 0000 006432 0000 006433 0000 006434 0000 006435 0000 006436 0000 006437 0000 006440 0000 006441 0000 006442 0000 006443 0000 006444 0000 006445 0000 006446 0000 006447 0000 006450 0000 006451 0000 006452 0000 006453 0000 006454 0000 006455 0000 006456 0000 006457 0000 006460 0000 006461 0000 006462 0000 006463 0000 006464 0000 006465 0000 006466 0000 006467 0000 006470 0000 006471 0000 006472 0000 006473 0000 006474 0000 006475 0000 006476 0000 006477 0000 006500 0000 006501 0000 006502 0000 006503 0000 006504 0000 006505 0000 006506 0000 006507 0000 006510 0000 006511 0000 006512 0000 006513 0000 006514 0000 006515 0000 006516 0000 006517 0000 006520 0000 006521 0000 006522 0000 006523 0000 006524 0000 006525 0000 006526 0000 006527 0000 006530 0000 006531 0000 006532 0000 006533 0000 006534 0000 006535 0000 006536 0000 006537 0000 006540 0000 006541 0000 006542 0000 006543 0000 006544 0000 006545 0000 006546 0000 006547 0000 006550 0000 006551 0000 006552 0000 006553 0000 006554 0000 006555 0000 006556 0000 006557 0000 006560 0000 006561 0000 006562 0000 006563 0000 006564 0000 006565 0000 006566 0000 006567 0000 006570 0000 006571 0000 006572 0000 006573 0000 006574 0000 006575 0000 006576 0000 006577 0000 006600 0000 006601 0000 006602 0000 006603 0000 006604 0000 006605 0000 006606 0000 006607 0000 006610 0000 006611 0000 006612 0000 006613 0000 006614 0000 006615 0000 006616 0000 006617 0000 006620 0000 006621 0000 006622 0000 006623 0000 006624 0000 006625 0000 006626 0000 006627 0000 006630 0000 006631 0000 006632 0000 006633 0000 006634 0000 006635 0000 006636 0000 006637 0000 006640 0000 006641 0000 006642 0000 006643 0000 006644 0000 006645 0000 006646 0000 006647 0000 006650 0000 006651 0000 006652 0000 006653 0000 006654 0000 006655 0000 006656 0000 006657 0000 006660 0000 006661 0000 006662 0000 006663 0000 006664 0000 006665 0000 006666 0000 006667 0000 006670 0000 006671 0000 006672 0000 006673 0000 006674 0000 006675 0000 006676 0000 006677 0000 006700 0000 006701 0000 006702 0000 006703 0000 006704 0000 006705 0000 006706 0000 006707 0000 006710 0000 006711 0000 006712 0000 006713 0000 006714 0000 006715 0000 006716 0000 006717 0000 006720 0000 006721 0000 006722 0000 006723 0000 006724 0000 006725 0000 006726 0000 006727 0000 006730 0000 006731 0000 006732 0000 006733 0000 006734 0000 006735 0000 006736 0000 006737 0000 006740 0000 006741 0000 006742 0000 006743 0000 006744 0000 006745 0000 006746 0000 006747 0000 006750 0000 006751 0000 006752 0000 006753 0000 006754 0000 006755 0000 006756 0000 006757 0000 006760 0000 006761 0000 006762 0000 006763 0000 006764 0000 006765 0000 006766 0000 006767 0000 006770 0000 006771 0000 006772 0000 006773 0000 006774 0000 006775 0000 006776 0000 006777 0000 1134 007000 0000 OUBUF, ZBLOCK 400 007001 0000 007002 0000 007003 0000 007004 0000 007005 0000 007006 0000 007007 0000 007010 0000 007011 0000 007012 0000 007013 0000 007014 0000 007015 0000 007016 0000 007017 0000 007020 0000 007021 0000 007022 0000 007023 0000 007024 0000 007025 0000 007026 0000 007027 0000 007030 0000 007031 0000 007032 0000 007033 0000 007034 0000 007035 0000 007036 0000 007037 0000 007040 0000 007041 0000 007042 0000 007043 0000 007044 0000 007045 0000 007046 0000 007047 0000 007050 0000 007051 0000 007052 0000 007053 0000 007054 0000 007055 0000 007056 0000 007057 0000 007060 0000 007061 0000 007062 0000 007063 0000 007064 0000 007065 0000 007066 0000 007067 0000 007070 0000 007071 0000 007072 0000 007073 0000 007074 0000 007075 0000 007076 0000 007077 0000 007100 0000 007101 0000 007102 0000 007103 0000 007104 0000 007105 0000 007106 0000 007107 0000 007110 0000 007111 0000 007112 0000 007113 0000 007114 0000 007115 0000 007116 0000 007117 0000 007120 0000 007121 0000 007122 0000 007123 0000 007124 0000 007125 0000 007126 0000 007127 0000 007130 0000 007131 0000 007132 0000 007133 0000 007134 0000 007135 0000 007136 0000 007137 0000 007140 0000 007141 0000 007142 0000 007143 0000 007144 0000 007145 0000 007146 0000 007147 0000 007150 0000 007151 0000 007152 0000 007153 0000 007154 0000 007155 0000 007156 0000 007157 0000 007160 0000 007161 0000 007162 0000 007163 0000 007164 0000 007165 0000 007166 0000 007167 0000 007170 0000 007171 0000 007172 0000 007173 0000 007174 0000 007175 0000 007176 0000 007177 0000 007200 0000 007201 0000 007202 0000 007203 0000 007204 0000 007205 0000 007206 0000 007207 0000 007210 0000 007211 0000 007212 0000 007213 0000 007214 0000 007215 0000 007216 0000 007217 0000 007220 0000 007221 0000 007222 0000 007223 0000 007224 0000 007225 0000 007226 0000 007227 0000 007230 0000 007231 0000 007232 0000 007233 0000 007234 0000 007235 0000 007236 0000 007237 0000 007240 0000 007241 0000 007242 0000 007243 0000 007244 0000 007245 0000 007246 0000 007247 0000 007250 0000 007251 0000 007252 0000 007253 0000 007254 0000 007255 0000 007256 0000 007257 0000 007260 0000 007261 0000 007262 0000 007263 0000 007264 0000 007265 0000 007266 0000 007267 0000 007270 0000 007271 0000 007272 0000 007273 0000 007274 0000 007275 0000 007276 0000 007277 0000 007300 0000 007301 0000 007302 0000 007303 0000 007304 0000 007305 0000 007306 0000 007307 0000 007310 0000 007311 0000 007312 0000 007313 0000 007314 0000 007315 0000 007316 0000 007317 0000 007320 0000 007321 0000 007322 0000 007323 0000 007324 0000 007325 0000 007326 0000 007327 0000 007330 0000 007331 0000 007332 0000 007333 0000 007334 0000 007335 0000 007336 0000 007337 0000 007340 0000 007341 0000 007342 0000 007343 0000 007344 0000 007345 0000 007346 0000 007347 0000 007350 0000 007351 0000 007352 0000 007353 0000 007354 0000 007355 0000 007356 0000 007357 0000 007360 0000 007361 0000 007362 0000 007363 0000 007364 0000 007365 0000 007366 0000 007367 0000 007370 0000 007371 0000 007372 0000 007373 0000 007374 0000 007375 0000 007376 0000 007377 0000 1135 1136 ENPUNCH 1137 1138 $ CALTYI 4311 CCHECK 3452 CCHK1 3467 CCHK2 3471 CCHK3 3474 CCHK4 3504 CCHKL1 4462 CCHKT1 3510 CDP 0022 CRLF 4400 DEL 4276 DIREC 5000 ENDF1 3615 ENDF2 3653 ENDF3 3657 ENDF4 3673 ENDF5 3712 ENDF5A 3734 unreferenced ENDFC 3727 ENDFC1 3742 ENDFIL 3600 ENDFP 3726 ERR 4331 ERR1 4261 ERR2 4260 ERR3 4257 FNDN1 4220 FNDN2 4240 FNDN3 4241 FNDN4 4242 FNDN5 4247 FNDNAM 4200 FNDNC1 4253 FNDNT1 4254 FNDNT2 4255 FNDNT3 4256 GATH1 4423 GATH2 4432 GATH3 4455 GATHBF 0026 GATHBT 4457 GATHC1 4460 GATHER 4406 GATHP1 4461 GATHT1 4454 GETC1 3210 unreferenced GETC2 3233 GETC3 3251 GETCHR 3200 GETCPB 3255 GETCPP 3254 GETCT1 3253 GETL1 3420 GETL2 3434 GETL3 3444 GETLIN 3400 HEAD 4303 INBLK 3007 INBUF 3000 INBUFP 3006 INHB 2400 INHNDP 3053 LINBUF 0025 LINCNT 0024 LIST 4321 LNBUF 4600 LOOP 2400 LOOP1 2417 LOOP1A 2422 LOOP2 2425 LOOP2A 2426 LOOP3 2430 LOOP4 2472 LOOP5 2477 LOOP6 2514 LOOP6A 2517 LOOPC1 2434 LOOPP1 2545 LOOPT1 2543 LOOPT2 2544 MCALST 4476 MCARG 0017 MPCHR 0300 OUBUF 7000 OUHB 2000 OUHP 0023 PAT 4556 PRCH 4000 PRDATE 4074 PRDCT1 4147 PRDCT2 4150 PRDEC 4124 PRDTT1 4151 PRMES 4010 PRMES1 4014 PRMES2 4025 PRMSP1 4027 PRMSS1 4030 PRNAME 4036 PRNM1 4044 PRNM2 4060 PRNM3 4066 PRNMC1 4072 PRNMP1 4073 PRNMT1 4071 PUTC1 3270 unreferenced PUTC2 3300 PUTC3 3310 PUTCHR 3256 PUTCPB 3326 PUTCPP 3327 PUTCS1 3330 PUTCT1 3344 RDCH1 3003 RDCH2 3023 RDCH3 3036 RDCH3A 3042 RDCH4 3056 RDCHC1 3077 RDCHP1 3075 RDCHR 3000 RDCHT1 3074 SCANP2 0020 SCANP3 0021 SEPCOD 0031 STAR1 2020 STAR10 2142 STAR11 2204 STAR12 2212 STAR1A 2025 STAR2 2035 STAR3 2051 STAR4 2073 STAR5 2076 STAR6 2113 STAR7 2114 STAR8 2121 STAR9 2127 STARC1 2002 STARP1 2001 STREXT 2012 STRTT1 2003 TBLSUB 4333 TYI 3511 TYO 4152 USR 0200 WRIT1 2602 WRIT10 2725 WRIT11 2734 WRIT2 2616 WRIT3 2642 WRIT4 2644 WRIT5 2653 WRIT6 2701 WRIT7 2712 WRIT8 2723 WRIT9 2724 WRITBF 2231 WRITBL 2236 WRITC1 2743 WRITC2 2744 WRITE 2600 WRITI1 2742 WRTCC1 3121 WRTCC2 3122 WRTCHR 3100 WRTCP1 3123 XADD 4265 XDEV 2145 XFNME 2200 XLOOP1 2442 XLOOP2 2461 XLOOP4 2463 XLUPS1 3125 XR10 0010 XR11 0011 XR12 0012 XR13 0013 unreferenced XR14 0014 XREPL 4271 XSTART 2000 unreferenced ZZZ 0000