CLEAR STORAGE 1 ,008015,022026,030037,044,049,053053N000000N00001026 1 CLEAR STORAGE 2 L068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0? 2 BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 1401 AUTOCODER-PASS 1-GENERATE SYSTEM TAPE-VERSION 3 3711L PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 1 01 000 JOB 1401 AUTOCODER-PASS 1-GENERATE SYSTEM TAPE-VERSION 3 102 1 02 CTL 630 1 103 1 03 SYSTP EQU %U1 %U1 104 1 04 CARD EQU 0 0000 105 1 05 PRINT EQU 200 0200 106 1 06 ORG 87 0087 107 1 07 XR1 DCW 000 3 0089 4 108 1 08 DC 00 2 0091 4 109 1 09 XR2 DCW 000 3 0094 4 110 1 10 DC 00 2 0096 4 111 1 11 XR3 DCW 000 3 0099 4 112 1 12 DC 000000 6 0105 4 113 1 13 ZONE DCW @2SKB@ 4 0109 4 114 1 14 ABIT EQU ZONE-2 0107 115 1 15 NOBIT EQU ZONE-3 0106 116 1 16 XXXX EQU 0 0000 117 1 17 * 118 1 18 * START OF MAIN LINE 119 1 19 * 120 1 20 ORG 333 0333 121 1 21 START RWD SYSTP 5 0333 U %U1 R 5 122 1 22 CC 1 2 0338 F 1 5 123 1 23 MCW @GENERATING 1401 AUTOCODER SYSTEM@,PRINT&32 7 0340 M '83 232 5 124 1 24 W 1 0347 2 5 125 1 25 CC 1 2 0348 F 1 5 126 1 26 CS PRINT&132 4 0350 / 332 5 127 1 27 CS 1 0354 / 5 128 1 28 MCW CARD&75,SEQNO#4 7 0355 M 075 '87 6 129 1 29 * 130 1 30 * START UP NEXT BLOCK 131 1 31 * 132 1 32 NXTBK R 1 0362 1 6 133 1 33 C CARD&12,@CONTROL@ 7 0363 C 012 '94 6 134 1 34 BU MACRO 5 0370 B 792 / 6 135 1 35 BWZ CKSEQ,CARD&80,2 COMMENT OUT TO TURN OFF SEQ CHK 8 0375 V 726 080 2 6 136 1 36 BCE EOJOB,CARD&78,9 8 0383 B 877 078 9 6 137 1 37 SW CARD&21 4 0391 , 021 7 138 1 38 ZA CARD&25,HOLD5#5 7 0395 ? 025 '99 7 139 1 39 CW CARD&21 4 0402 ) 021 7 140 1 40 * 141 1 41 * FLOAT ADDRESS TO FIVE CHARACTERS 142 1 42 * 143 1 43 FLOAT BCE *&5,HOLD5,& 8 0406 B 418 '99 & 7 144 1 44 B COMP1 4 0414 B 429 7 145 1 45 ZA HOLD5-1,HOLD5 7 0418 ? '98 '99 7 146 1 46 B FLOAT 4 0425 B 406 7 147 1 47 * 1 1401 AUTOCODER-PASS 1-GENERATE SYSTEM TAPE-VERSION 3 3711L PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 1 48 * TEST ADDRESS AGAINST HOME ADDRESS 149 1 49 * TO DEVELOP INDEX VALUE 150 1 50 * 151 1 51 COMP1 MZ NOBIT,HOLD5 7 0429 Y 106 '99 8 152 1 52 S XR1&2 4 0436 S 091 8 153 1 53 C HOLD5,@01500@ 7 0440 C '99 /04 8 154 1 54 BE DOCOR 5 0447 B 538 S 8 155 1 55 BH SUB1 5 0452 B 527 U 8 156 1 56 S @01500@,HOLD5 7 0457 S /09 '99 8 157 1 57 MCW @16000@,WORK5#5 7 0464 M /14 /19 9 158 1 58 SUB2 S HOLD5,WORK5 7 0471 S '99 /19 9 159 1 59 * 160 1 60 * CONVERT INDEX VALUE TO 3 DIGIT MACHINE ADDRESS 161 1 61 * 162 1 62 CNVRT BAV *&1 5 0478 B 483 Z 9 163 1 63 A @96@,WORK5-3 7 0483 A /21 /16 9 164 1 64 BAV CNVRT&5 5 0490 B 483 Z 9 165 1 65 MZ WORK5-4,WORK5 7 0495 Y /15 /19 9 166 1 66 MN WORK5-3,*&4 7 0502 D /16 512 10 167 1 67 MZ ZONE,WORK5-2 7 0509 Y 109 /17 10 168 1 68 MCW WORK5,XR1 7 0516 M /19 089 10 169 1 69 B DOCOR 4 0523 B 538 10 170 1 70 SUB1 MCW @01500@,WORK5 7 0527 M /26 /19 10 171 1 71 B SUB2 4 0534 B 471 10 172 1 72 * 173 1 73 * READ CONDENSED CARDS 174 1 74 * 175 1 75 DOCOR R 1 0538 1 10 176 1 76 MCW @045@,XR3 7 0539 M /29 099 11 177 1 77 MCW @042@,XR2 7 0546 M /32 094 11 178 1 78 BWZ CKSEQ,CARD&80,2 COMMENT OUT TO TURN OFF SEQ CHK 8 0553 V 726 080 2 11 179 1 79 BCE WTAP1,CARD&68,B 8 0561 B 675 068 B 11 180 1 80 BCE SETWM,CARD&40,N 8 0569 B 596 040 N 11 181 1 81 C CARD&46,@001@ 7 0577 C 046 /35 12 182 1 82 BE SETWM 5 0584 B 596 S 12 183 1 83 MZ ABIT,CARD&45 7 0589 Y 107 045 12 184 1 84 * 185 1 85 * SET RETURN ADDRESS 186 1 86 * 187 1 87 SETWM MCW &DOCOR,CARD&71 7 0596 M /38 071 12 188 1 88 MCW @B@ 4 0603 M /39 12 189 1 89 * 190 1 90 * INDEX WORD MARK ADDRESSES 191 1 91 * 192 1 92 COMP2 C XR2,@063@ 7 0607 C 094 /42 12 193 1 93 BE CARD&40 5 0614 B 040 S 13 194 1 94 A &7,XR3 7 0619 A /43 099 13 195 1 95 A &7,XR2 7 0626 A /43 094 13 196 1 96 C CARD&1&X2,@040@ 7 0633 C 0!1 /46 13 197 1 97 BE *&8 5 0640 B 652 S 13 1 1401 AUTOCODER-PASS 1-GENERATE SYSTEM TAPE-VERSION 3 3711L PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 1 98 MZ ABIT,CARD&X2 7 0645 Y 107 0!0 13 199 1 99 C CARD&1&X3,@040@ 7 0652 C 0?1 /46 14 200 2 00 BE COMP2 5 0659 B 607 S 14 201 2 01 MZ ABIT,CARD&X3 7 0664 Y 107 0?0 14 202 2 02 B COMP2 4 0671 B 607 14 203 2 03 * 204 2 04 * WRITE CORE ON TAPE 205 2 05 * 206 2 06 WTAP1 LCA @}@,3998 7 0675 L /47 I98 14 207 2 07 WTW SYSTP,1500 8 0682 L %U1 V00 W 14 208 2 08 BER WTERR 5 0690 B 973 L 15 209 2 09 * 210 2 10 * CLEAR INPUT AREA 211 2 11 * 212 2 12 MCW @I99@,CLEAR&3 7 0695 M /50 705 15 213 2 13 CLEAR CS XXXX 4 0702 / 000 15 214 2 14 SBR CLEAR&3 4 0706 H 705 15 215 2 15 C CLEAR&3,@U99@ 7 0710 C 705 /53 15 216 2 16 BU CLEAR 5 0717 B 702 / 15 217 2 17 B NXTBK 4 0722 B 362 15 218 2 18 * 219 2 19 * CHECK CARD SEQUENCE 220 2 20 * 221 2 21 CKSEQ SBR SEQXT&3 4 0726 H 759 16 222 2 22 A &1,SEQNO 7 0730 A /54 '87 16 223 2 23 C CARD&75,SEQNO 7 0737 C 075 '87 16 224 2 24 MCW CARD&75,SEQNO 7 0744 M 075 '87 16 225 2 25 BU SEQER 5 0751 B 760 / 16 226 2 26 SEQXT B XXXX 4 0756 B 000 16 227 2 27 * 228 2 28 * CARD SEQUENCE ERROR 229 2 29 * 230 2 30 SEQER MCW CARD&80,PRINT&80 7 0760 M 080 280 17 231 2 31 CHAIN 6 MACRO 232 MCW 1 0767 M GEN 17 233 MCW 1 0768 M GEN 17 234 MCW 1 0769 M GEN 17 235 MCW 1 0770 M GEN 17 236 MCW 1 0771 M GEN 17 237 MCW 1 0772 M GEN 17 238 2 32 MCW @SEQUENCE ERROR@,PRINT&98 7 0773 M /68 298 18 239 2 33 W 1 0780 2 18 240 2 34 H 0,176 7 0781 . 000 176 18 241 2 35 B DOSEQ 4 0788 B 941 18 242 2 36 * 243 2 37 * PROCESS MACRO LIBRARY 244 2 38 * 245 2 39 MACRO NOP CRDER 4 0792 N 917 18 246 2 40 C CARD&20,@HEADR@ 7 0796 C 020 /73 18 247 2 41 BU CRDER 5 0803 B 917 / 18 1 1401 AUTOCODER-PASS 1-GENERATE SYSTEM TAPE-VERSION 3 3711L PAGE 4 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 248 2 42 BWZ CKSEQ,CARD&80,2 COMMENT OUT TO TURN OF SEQ CHK 8 0808 V 726 080 2 19 249 2 43 MCW @B@,MACRO 7 0816 M /39 792 19 250 2 44 LCA @}@,81 7 0823 L /47 081 19 251 2 45 * 252 2 46 * WRITE SKELETON INSTRUCTIONS ON TAPE 253 2 47 * 254 2 48 WTAP2 WT SYSTP,CARD&1 8 0830 M %U1 001 W 19 255 2 49 BER WTERR 5 0838 B 973 L 19 256 2 50 C CARD&11,@999999@ 7 0843 C 011 /79 20 257 2 51 BE WTTM 5 0850 B 868 S 20 258 2 52 R 1 0855 1 20 259 2 53 BWZ CKSEQ,CARD&80,2 COMMENT OUT TO TURN OF SEQ CHK 8 0856 V 726 080 2 20 260 2 54 B WTAP2 4 0864 B 830 20 261 2 55 WTTM WTM SYSTP 5 0868 U %U1 M 20 262 2 56 B NXTBK 4 0873 B 362 20 263 2 57 * 264 2 58 * END OF GENERATION 265 2 59 * 266 2 60 EOJOB WTM SYSTP 5 0877 U %U1 M 21 267 2 61 RWD SYSTP 5 0882 U %U1 R 21 268 2 62 CW @}@ 4 0887 ) /47 21 269 2 63 CS PRINT&132 4 0891 / 332 21 270 2 64 CS 1 0895 / 21 271 2 65 MCW @1401 AUTOCODER SYSTEM GENERATED ON TAPE UNIT 1@,246 7 0896 M S25 246 21 272 2 66 W 1 0903 2 21 273 2 67 CC 1 2 0904 F 1 22 274 2 68 * 275 2 69 * FINAL HALT 276 2 70 * 277 2 71 HALT H 0,142 7 0906 . 000 142 22 278 2 72 B HALT 4 0913 B 906 22 279 2 73 * 280 2 74 * MISSING CONTROL CARD 281 2 75 * 282 2 76 CRDER CS PRINT&132 4 0917 / 332 22 283 2 77 CS 1 0921 / 22 284 2 78 MCW @SYSTEM CONTROL CARD MISSING@,PRINT&27 7 0922 M S52 227 22 285 2 79 W 1 0929 2 22 286 2 80 HALT2 H 0,177 7 0930 . 000 177 23 287 2 81 B HALT2 4 0937 B 930 23 288 2 82 * 289 2 83 * AFTER SEQUENCE ERROR, CHECK BALANCE OF DECK 290 2 84 * 291 2 85 DOSEQ R 1 0941 1 23 292 2 86 BWZ CKSEQ,CARD&80,2 8 0942 V 726 080 2 23 293 2 87 BCE ENDSQ,CARD&78,9 8 0950 B 962 078 9 23 294 2 88 B DOSEQ 4 0958 B 941 23 295 2 89 ENDSQ H 0,152 7 0962 . 000 152 23 296 2 90 B ENDSQ 4 0969 B 962 24 297 2 91 * 1 1401 AUTOCODER-PASS 1-GENERATE SYSTEM TAPE-VERSION 3 3711L PAGE 5 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 298 2 92 * WRITE REDUNDANCY ROUTINE 299 2 93 * 300 2 94 WTERR SBR WTXT&3 4 0973 H '36 24 301 2 95 SBR XR3 4 0977 H 099 24 302 2 96 MZ &9,XR3 7 0981 Y S53 099 24 303 2 97 MCW 4000-6&X3,RETRY&7 7 0988 M II4 '27 24 304 2 98 BSP BSP SYSTP 5 0995 U %U1 B 24 305 2 99 SKP SYSTP 5 1000 U %U1 E 24 306 3 00 BCE SUBCT,WTCT-1,1 8 1005 B '37 S54 1 25 307 3 01 A &1,WTCT#2 7 1013 A /54 S55 25 308 3 02 RETRY WT SYSTP,XXXX 8 1020 M %U1 000 W 25 309 3 03 BER BSP 5 1028 B 995 L 25 310 3 04 WTXT B XXXX 4 1033 B 000 25 311 3 05 SUBCT S WTCT 4 1037 S S55 25 312 3 06 H 0,161 7 1041 . 000 161 26 313 3 07 B RETRY 4 1048 B '20 26 DCW @GENERATING 1401 AUTOCODER SYSTEM@ 32 1083 LIT 27 SEQNO DCW #04 4 1087 AREA 27 DCW @CONTROL@ 7 1094 LIT 28 HOLD5 DCW #05 5 1099 AREA 28 DCW @01500@ 5 1104 LIT 28 DCW @01500@ 5 1109 LIT 28 DCW @16000@ 5 1114 LIT 28 WORK5 DCW #05 5 1119 AREA 28 DCW @96@ 2 1121 LIT 28 DCW @01500@ 5 1126 LIT 29 DCW @045@ 3 1129 LIT 29 DCW @042@ 3 1132 LIT 29 DCW @001@ 3 1135 LIT 29 DCW &DOCOR 3 1138 538 ADCON 29 DCW @B@ 1 1139 LIT 29 DCW @063@ 3 1142 LIT 29 DCW &7 1 1143 LIT 30 DCW @040@ 3 1146 LIT 30 DCW @}@ 1 1147 LIT 30 DCW @I99@ 3 1150 LIT 30 DCW @U99@ 3 1153 LIT 30 DCW &1 1 1154 LIT 30 DCW @SEQUENCE ERROR@ 14 1168 LIT 30 DCW @HEADR@ 5 1173 LIT 31 DCW @999999@ 6 1179 LIT 31 DCW @1401 AUTOCODER SYSTEM GENERATED ON TAPE UNIT 1@ 46 1225 LIT 33 DCW @SYSTEM CONTROL CARD MISSING@ 27 1252 LIT 33 DCW &9 1 1253 LIT 33 WTCT DCW #02 2 1255 AREA 33 314 3 08 EX START B 333 34 1 AUTOCODER-PASS 1 SELECT PROGRAM -VERSION 3 3712L PAGE 6 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 315 3 09 JOB AUTOCODER-PASS 1 SELECT PROGRAM -VERSION 3 316 3 10 SFX B B 317 3 11 PASSA EQU 1650 B 1650 318 3 12 DOPSA EQU 1900 B 1900 319 3 13 SYSTP EQU %U1 B %U1 320 3 14 * 321 3 15 * BRANCH FROM TAPE LOAD ROUTINE 322 3 16 * 323 3 17 ORG 1 B 0001 324 3 18 B 333 B 4 0001 B 333 37 ADDR 325 3 19 H *-3 B 4 0005 . 005 37 ADDR 326 3 20 LOADD DCW @599@ B 3 0011 37 ADDR 327 3 21 ORG 87 B 0087 328 3 22 XR1 DCW 000 B 3 0089 38 329 3 23 DC 00 B 2 0091 38 330 3 24 DCW 000 B 3 0094 38 331 3 25 DC 00 B 2 0096 38 332 3 26 DCW 000 B 3 0099 38 333 3 27 DC 00 B 2 0101 38 334 3 28 * 335 3 29 * BEGIN PROGRAM 336 3 30 * 337 3 31 ORG 333 B 0333 338 3 32 BER HALT1 B 5 0333 B 407 L 39 339 3 33 SW GMRK1 B 4 0338 , 835 39 340 3 34 CLEAR CS 3999 B 4 0342 / I99 39 341 3 35 SBR CLEAR&3 B 4 0346 H 345 39 342 3 36 C CLEAR&3,@U99@ B 7 0350 C 345 787 39 343 3 37 BU CLEAR B 5 0357 B 342 / 39 344 3 38 * 345 3 39 * GET PAST LIBRARY 346 3 40 * 347 3 41 LOOP1 SW GMRK1 B 4 0362 , 835 39 348 3 42 RT SYSTP,GMRK1-21 B 8 0366 M %U1 814 R 40 349 3 43 C GMRK1-2,@999999 HEADR@ B 7 0374 C 833 802 40 350 3 44 BU LOOP1 B 5 0381 B 362 / 40 351 3 45 SW GMRK1 B 4 0386 , 835 40 352 3 46 RT SYSTP,GMRK1-1 B 8 0390 M %U1 834 R 40 353 3 47 BEF TSTSS B 5 0398 B 418 K 40 354 3 48 B LOOP1 B 4 0403 B 362 41 355 3 49 * 356 3 50 * REDUNDANCY ON TAPE LOAD 357 3 51 * 358 3 52 HALT1 H 0,199 B 7 0407 . 000 199 41 359 3 53 B HALT1 B 4 0414 B 407 41 360 3 54 TSTSS BSS LIBRN,F B 5 0418 B 521 F 41 361 3 55 * 362 3 56 * RETRIEVE PASS 2 FOR ASSEMBLY RUN 363 3 57 * 364 3 58 SW GMRK1 B 4 0423 , 835 41 1 AUTOCODER-PASS 1 SELECT PROGRAM -VERSION 3 3712L PAGE 7 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 365 3 59 LCA GMRK1,3998 B 7 0427 L 835 I98 41 366 3 60 MCW &PASSA&13,NOIS2&6 B 7 0434 M 805 658 41 367 3 61 * 368 3 62 * GET PAST LIBRARIAN 369 3 63 * 370 3 64 LOOP2 BCE LOPSA,BYCT,4 B 8 0441 B 476 807 4 42 371 3 65 SW 3998 B 4 0449 , I98 42 372 3 66 RTW SYSTP,PASSA B 8 0453 L %U1 W50 R 42 373 3 67 B NOISE B 4 0461 B 637 42 374 3 68 A &1,BYCT#1 B 7 0465 A 806 807 42 375 3 69 B LOOP2 B 4 0472 B 441 42 376 3 70 * 377 3 71 * PASS 2 FOUND 378 3 72 * 379 3 73 LOPSA RTW SYSTP,PASSA B 8 0476 L %U1 W50 R 43 380 3 74 B NOISE B 4 0484 B 637 43 381 3 75 BER RDERR B 5 0488 B 676 L 43 382 3 76 CW GMRK1 B 4 0493 ) 835 43 383 3 77 CLR CS PASSA-1 B 4 0497 / W49 43 384 3 78 SBR CLR&3 B 4 0501 H 500 43 385 3 79 C CLR&3,LOADD B 7 0505 C 500 011 43 386 3 80 BU CLR B 5 0512 B 497 / 44 387 3 81 B DOPSA B 4 0517 B Z00 44 388 3 82 * 389 3 83 * LIBRARY RUN 390 3 84 * 391 3 85 LIBRN MCW @!13@,NOIS2&6 B 7 0521 M 810 658 44 392 3 86 CW GMRK1 B 4 0528 ) 835 44 393 3 87 BSS OUTPT,B B 5 0532 B 558 B 44 394 3 88 * 395 3 89 * RETRIEVE UPDATE PROGRAM 396 3 90 * 397 3 91 RTW SYSTP,2000 B 8 0537 L %U1 !00 R 44 398 3 92 B NOISE B 4 0545 B 637 44 399 3 93 BER RDERR B 5 0549 B 676 L 45 400 3 94 B 2000 B 4 0554 B !00 45 401 3 95 * 402 3 96 * RETRIEVE OUTPUT PROGRAM 403 3 97 * 404 3 98 OUTPT RTW SYSTP,2000 B 8 0558 L %U1 !00 R 45 405 3 99 B NOISE B 4 0566 B 637 45 406 4 00 SW GMRK1 B 4 0570 , 835 45 407 4 01 LCA GMRK1,3998 B 7 0574 L 835 I98 45 408 4 02 RTW SYSTP,2000 B 8 0581 L %U1 !00 R 46 409 4 03 B NOISE B 4 0589 B 637 46 410 4 04 RTW SYSTP,2000 B 8 0593 L %U1 !00 R 46 411 4 05 B NOISE B 4 0601 B 637 46 412 4 06 SW 3998 B 4 0605 , I98 46 413 4 07 RTW SYSTP,2000 B 8 0609 L %U1 !00 R 46 414 4 08 B NOISE B 4 0617 B 637 47 1 AUTOCODER-PASS 1 SELECT PROGRAM -VERSION 3 3712L PAGE 8 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 415 4 09 BER RDERR B 5 0621 B 676 L 47 416 4 10 CW GMRK1,3998 B 7 0626 ) 835 I98 47 417 4 11 B 2000 B 4 0633 B !00 47 418 4 12 * 419 4 13 * TEST FOR NOISE RECORDS 420 4 14 * 421 4 15 NOISE SBR NOSXT&3 B 4 0637 H 675 47 422 4 16 SBR XR1 B 4 0641 H 089 47 423 4 17 MZ &9,XR1 B 7 0645 Y 811 089 47 424 4 18 NOIS2 BCE 4000-12&X1,0,} B 8 0652 B IY8 000 } GMARK 48 425 4 19 CHAIN 12 B MACRO 426 BCE B 1 0660 B GEN 48 427 BCE B 1 0661 B GEN 48 428 BCE B 1 0662 B GEN 48 429 BCE B 1 0663 B GEN 48 430 BCE B 1 0664 B GEN 48 431 BCE B 1 0665 B GEN 48 432 BCE B 1 0666 B GEN 49 433 BCE B 1 0667 B GEN 49 434 BCE B 1 0668 B GEN 49 435 BCE B 1 0669 B GEN 49 436 BCE B 1 0670 B GEN 49 437 BCE B 1 0671 B GEN 49 438 4 20 NOSXT B 0 B 4 0672 B 000 49 439 4 21 * 440 4 22 * READ REDUNDANCY ROUTINE 441 4 23 * 442 4 24 RDERR SBR XR1 B 4 0676 H 089 50 443 4 25 SBR RDXT&3 B 4 0680 H 726 50 444 4 26 MZ &9,XR1 B 7 0684 Y 811 089 50 445 4 27 MCW 4000-10&X1,RDTRY&7 B 7 0691 M IZ0 717 50 446 4 28 BSP BSP SYSTP B 5 0698 U %U1 B 50 447 4 29 MCW &9,RDCT#1 B 7 0703 M 811 812 50 448 4 30 RDTRY RTW SYSTP,0 B 8 0710 L %U1 000 R 51 449 4 31 BER *&5 B 5 0718 B 727 L 51 450 4 32 RDXT B 0 B 4 0723 B 000 51 451 4 33 BSP SYSTP B 5 0727 U %U1 B 51 452 4 34 S &1,RDCT B 7 0732 S 806 812 51 453 4 35 BWZ RDTRY,RDCT,B B 8 0739 V 710 812 B 51 454 4 36 H 0,191 B 7 0747 . 000 191 52 455 4 37 MCW RDTRY&7,*&8 B 7 0754 M 717 768 52 456 4 38 RTW SYSTP,0 B 8 0761 L %U1 000 R 52 457 4 39 BSS BSP,E B 5 0769 B 698 E 52 458 4 40 H 0,111 B 7 0774 . 000 111 52 459 4 41 B RDXT B 4 0781 B 723 52 460 4 42 LTORG * B 0785 DCW @U99@ B 3 0787 LIT 53 DCW @999999 HEADR@ B 15 0802 LIT 53 DCW &PASSAB&13 B 3 0805 W63 ADCON 53 DCW &1 B 1 0806 LIT 53 1 AUTOCODER-PASS 1 SELECT PROGRAM -VERSION 3 3712L PAGE 9 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD BYCTB DCW #01 B 1 0807 AREA 53 DCW @!13@ B 3 0810 LIT 53 DCW &9 B 1 0811 LIT 53 RDCTB DCW #01 B 1 0812 AREA 54 461 4 43 DCW #22 B 22 0834 54 462 4 44 GMRK1 DCW @}@ B 1 0835 GMARK 54 463 4 45 EX 0 B B 000 55 1 AUTOCODER-PASS 1 RETRIEVE UPDATE -VERSION 3 3713L PAGE 10 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 464 4 46 JOB AUTOCODER-PASS 1 RETRIEVE UPDATE -VERSION 3 B 465 4 47 SFX R R 466 4 48 SYSTP EQU %U1 R %U1 467 4 49 LTAPSW EQU 2725 R 2725 468 4 50 ORG 2000 R 2000 469 4 51 BSS LIST,G R 5 2000 B J26 G 58 470 4 52 CW ENDRT R 4 2005 ) K12 58 471 4 53 START RTW SYSTP,1 R 8 2009 L %U1 001 R 58 472 4 54 BCE START,013,} R 8 2017 B !09 013 } GMARK 58 473 4 55 CHAIN 12 R MACRO 474 BCE R 1 2025 B GEN 58 475 BCE R 1 2026 B GEN 58 476 BCE R 1 2027 B GEN 58 477 BCE R 1 2028 B GEN 59 478 BCE R 1 2029 B GEN 59 479 BCE R 1 2030 B GEN 59 480 BCE R 1 2031 B GEN 59 481 BCE R 1 2032 B GEN 59 482 BCE R 1 2033 B GEN 59 483 BCE R 1 2034 B GEN 59 484 BCE R 1 2035 B GEN 60 485 BCE R 1 2036 B GEN 60 486 4 56 BER RDERR R 5 2037 B !46 L 60 487 4 57 B 333 R 4 2042 B 333 60 488 4 58 RDERR BSP SYSTP R 5 2046 U %U1 B 60 489 4 59 MCW &9,RDCT#1 R 7 2051 M K06 K07 60 490 4 60 RDTRY RTW SYSTP,1 R 8 2058 L %U1 001 R 60 491 4 61 BER *&5 R 5 2066 B !75 L 61 492 4 62 B 333 R 4 2071 B 333 61 493 4 63 BSP SYSTP R 5 2075 U %U1 B 61 494 4 64 S &1,RDCT R 7 2080 S K08 K07 61 495 4 65 BWZ RDTRY,RDCT,B R 8 2087 V !58 K07 B 61 496 4 66 H 0,191 R 7 2095 . 000 191 61 497 4 67 AGAIN RTW SYSTP,1 R 8 2102 L %U1 001 R 62 498 4 68 BSS RDERR,E R 5 2110 B !46 E 62 499 4 69 H 0,111 R 7 2115 . 000 111 62 500 4 70 B 333 R 4 2122 B 333 62 501 4 71 LIST SW ENDRT R 4 2126 , K12 62 502 4 72 LCA ENDRT,1998 R 7 2130 L K12 Z98 62 503 4 73 RTW SYSTP,333 R 8 2137 L %U1 333 R 63 504 4 74 BEF GET R 5 2145 B J54 K 63 505 4 75 B LIST R 4 2150 B J26 63 506 4 76 GET BSP SYSTP R 5 2154 U %U1 B 63 507 4 77 BSP SYSTP R 5 2159 U %U1 B 63 508 4 78 CW ENDRT,1998 R 7 2164 ) K12 Z98 63 509 4 79 SW LTAPSW R 4 2171 , P25 63 510 4 80 MCW @333@,RDTRY&6 R 7 2175 M K11 !64 64 511 4 81 MCW @333@,AGAIN&6 R 7 2182 M K11 J08 64 512 4 82 RTW SYSTP,333 R 8 2189 L %U1 333 R 64 513 4 83 BER RDERR R 5 2197 B !46 L 64 1 AUTOCODER-PASS 1 RETRIEVE UPDATE -VERSION 3 3713L PAGE 11 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 514 4 84 B 333 R 4 2202 B 333 64 515 4 85 LTORG * R 2206 DCW &9 R 1 2206 LIT 64 RDCTR DCW #01 R 1 2207 AREA 64 DCW &1 R 1 2208 LIT 65 DCW @333@ R 3 2211 LIT 65 516 4 86 ENDRT DCW @}@ R 1 2212 GMARK 65 517 4 87 EX 0 R B 000 66 1 AUTOCODER-PASS 1 COPY SYSTEM TAPE -VERSION 3 3714L PAGE 12 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 518 4 88 JOB AUTOCODER-PASS 1 COPY SYSTEM TAPE -VERSION 3 R 519 4 89 SFX U U 520 4 90 ORG 87 U 0087 521 4 91 XR1 DCW 000 U 3 0089 69 522 4 92 DC 00 U 2 0091 69 523 4 93 XR2 DCW 000 U 3 0094 69 524 4 94 DC 00 U 2 0096 69 525 4 95 XR3 DCW 000 U 3 0099 69 526 4 96 DC 00 U 2 0101 69 527 4 97 SYSTP EQU %U1 U %U1 528 4 98 OUTAP EQU %U6 U %U6 529 4 99 INPUT EQU 1500 U 1500 530 5 00 * 531 5 01 * BEGIN PROGRAM 532 5 02 * 533 5 03 ORG 333 U 0333 534 5 04 SW ENDUP U 4 0333 , /39 70 535 5 05 RWD SYSTP U 5 0337 U %U1 R 70 536 5 06 RWD OUTAP U 5 0342 U %U6 R 70 537 5 07 CC 1 U 2 0347 F 1 70 538 5 08 CS 332 U 4 0349 / 332 70 539 5 09 CS U 1 0353 / 70 540 5 10 B CLEAR U 4 0354 B '21 70 541 5 11 BSS COPY,C U 5 0358 B 525 C 71 542 5 12 * 543 5 13 * RETRIEVE UPDATE PROGRAM 544 5 14 * 545 5 15 RTW SYSTP,INPUT U 8 0363 L %U1 V00 R 71 546 5 16 SBR XR1 U 4 0371 H 089 71 547 5 17 MN 0&X1 U 4 0375 D 0'0 71 548 5 18 SW U 1 0379 , 71 549 5 19 DCW @N0000@ U 5 0384 71 550 5 20 B NOISE U 4 0385 B 759 71 551 5 21 BER RDERR U 5 0389 B 798 L 72 552 5 22 WTW OUTAP,INPUT U 8 0394 L %U6 V00 W 72 553 5 23 BER WTERR U 5 0402 B 928 L 72 554 5 24 B CLEAR U 4 0407 B '21 72 555 5 25 BYPSS RTW SYSTP,INPUT U 8 0411 L %U1 V00 R 72 556 5 26 C INPUT&19,@999999 HEADR@ U 7 0419 C V19 '70 72 557 5 27 BU BYPSS U 5 0426 B 411 / 73 558 5 28 RTW SYSTP,INPUT U 8 0431 L %U1 V00 R 73 559 5 29 BEF GETUP U 5 0439 B 448 K 73 560 5 30 B BYPSS U 4 0444 B 411 73 561 5 31 GETUP BCE LDUPD,BYCT,3 U 8 0448 B 498 '72 3 73 562 5 32 RTW SYSTP,INPUT U 8 0456 L %U1 V00 R 73 563 5 33 DCW @N0000000000000@ U 14 0477 74 564 5 34 B NOISE U 4 0478 B 759 74 565 5 35 BER RDERR U 5 0482 B 798 L 74 566 5 36 A &1,BYCT#1 U 7 0487 A '71 '72 74 567 5 37 B GETUP U 4 0494 B 448 74 1 AUTOCODER-PASS 1 COPY SYSTEM TAPE -VERSION 3 3714L PAGE 13 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 568 5 38 LDUPD CS 199 U 4 0498 / 199 74 569 5 39 CS 80 U 4 0502 / 080 75 570 5 40 SW 6,16 U 7 0506 , 006 016 75 571 5 41 SW 21 U 4 0513 , 021 75 572 5 42 B HEAD U 4 0517 B N32 75 573 5 43 B BEGIN U 4 0521 B V00 75 574 5 44 * 575 5 45 * COPY SYSTEM 576 5 46 * 577 5 47 COPY RTW SYSTP,INPUT U 8 0525 L %U1 V00 R 75 578 5 48 SBR XR1 U 4 0533 H 089 75 579 5 49 MN 0&X1 U 4 0537 D 0'0 76 580 5 50 SW U 1 0541 , 76 581 5 51 BEF EOF U 5 0542 B 601 K 76 582 5 52 B NOISE U 4 0547 B 759 76 583 5 53 BER RDERR U 5 0551 B 798 L 76 584 5 54 * 585 5 55 * TEST END OF LIBRARY 586 5 56 * 587 5 57 SWICH NOP WTAP1 U 4 0556 N 580 76 588 5 58 SW LIBSW U 4 0560 , '79 76 589 5 59 C INPUT&10,@999999@ U 7 0564 C V10 '78 77 590 5 60 BU WTAP1 U 5 0571 B 580 / 77 591 5 61 CW LIBSW#1 U 4 0576 ) '79 77 592 5 62 * 593 5 63 * WRITE TAPE 594 5 64 * 595 5 65 WTAP1 WTW OUTAP,INPUT U 8 0580 L %U6 V00 W 77 596 5 66 BER WTERR U 5 0588 B 928 L 77 597 5 67 * 598 5 68 * DO NEXT BLOCK 599 5 69 * 600 5 70 REOUT B CLEAR U 4 0593 B '21 77 601 5 71 B COPY U 4 0597 B 525 77 602 5 72 * 603 5 73 * END OF FILE 604 5 74 * 605 5 75 EOF WTM OUTAP U 5 0601 U %U6 M 78 606 5 76 BW ISMOR,EOFSW#1 U 8 0606 V 727 '80 1 78 607 5 77 B CLEAR U 4 0614 B '21 78 608 5 78 LCA ENDUP,3998 U 7 0618 L /39 I98 78 609 5 79 BW ERASE,UPDSW U 8 0625 V 637 /26 1 78 610 5 80 B HALT1 U 4 0633 B 669 78 611 5 81 * 612 5 82 * ERASE TAPE 613 5 83 * 614 5 84 ERASE SKP OUTAP U 5 0637 U %U6 E 79 615 5 85 WT OUTAP,INPUT U 8 0642 M %U6 V00 W 79 616 5 86 BCE HALT1,SKPCT-1,2 U 8 0650 B 669 '81 2 79 617 5 87 A &1,SKPCT#2 U 7 0658 A '71 '82 79 1 AUTOCODER-PASS 1 COPY SYSTEM TAPE -VERSION 3 3714L PAGE 14 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 618 5 88 B ERASE U 4 0665 B 637 79 619 5 89 * 620 5 90 * END OF COPY RUN 621 5 91 * 622 5 92 HALT1 MCW @1401 AUTOCODER SYSTEM COPIED ON TAPE UNIT 6@,243 U 7 0669 M /25 243 79 623 5 93 W U 1 0676 2 80 624 5 94 CC 1 U 2 0677 F 1 80 625 5 95 BW CPYND,UPDSW#1 U 8 0679 V 692 /26 1 80 626 5 96 RWD OUTAP U 5 0687 U %U6 R 80 627 5 97 CPYND RWD SYSTP U 5 0692 U %U1 R 80 628 5 98 H 0,122 U 7 0697 . 000 122 80 629 5 99 B CLEAR U 4 0704 B '21 80 630 6 00 S SKPCT U 4 0708 S '82 81 631 6 01 MCW @N@,SWICH U 7 0712 M /27 556 81 632 6 02 SW EOFSW U 4 0719 , '80 81 633 6 03 B COPY U 4 0723 B 525 81 634 6 04 * 635 6 05 * SET UP COPY OF REST OF SYSTEM 636 6 06 * 637 6 07 ISMOR BW BDEOF,LIBSW U 8 0727 V 750 '79 1 81 638 6 08 CW EOFSW U 4 0735 ) '80 81 639 6 09 MCW @B@,SWICH U 7 0739 M /28 556 81 640 6 10 B REOUT U 4 0746 B 593 82 641 6 11 * 642 6 12 * FALSE END OF FILE 643 6 13 * 644 6 14 BDEOF BSP OUTAP U 5 0750 U %U6 B 82 645 6 15 B REOUT U 4 0755 B 593 82 646 6 16 * 647 6 17 * TEST FOR NOISE RECORDS 648 6 18 * 649 6 19 NOISE SBR NOSXT&3 U 4 0759 H 797 82 650 6 20 SBR XR2 U 4 0763 H 094 82 651 6 21 MZ &9,XR2 U 7 0767 Y /29 094 82 652 6 22 NOIS2 BCE 4000-26&X2,INPUT&13,} U 8 0774 B IP4 V13 } GMARK 82 653 6 23 CHAIN 12 U MACRO 654 BCE U 1 0782 B GEN 83 655 BCE U 1 0783 B GEN 83 656 BCE U 1 0784 B GEN 83 657 BCE U 1 0785 B GEN 83 658 BCE U 1 0786 B GEN 83 659 BCE U 1 0787 B GEN 83 660 BCE U 1 0788 B GEN 83 661 BCE U 1 0789 B GEN 84 662 BCE U 1 0790 B GEN 84 663 BCE U 1 0791 B GEN 84 664 BCE U 1 0792 B GEN 84 665 BCE U 1 0793 B GEN 84 666 6 24 NOSXT B 0 U 4 0794 B 000 84 667 6 25 * 1 AUTOCODER-PASS 1 COPY SYSTEM TAPE -VERSION 3 3714L PAGE 15 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 668 6 26 * READ REDUNDANCY ROUTINE 669 6 27 * 670 6 28 RDERR SBR RDXT&3 U 4 0798 H 855 84 671 6 29 SBR XR3 U 4 0802 H 099 85 672 6 30 MZ &9,XR3 U 7 0806 Y /29 099 85 673 6 31 MCW 4000-24&X3,RDTRY&7 U 7 0813 M IG6 846 85 674 6 32 MN RDTRY&3,BSP1&3 U 7 0820 D 842 830 85 675 6 33 BSP1 BSP SYSTP U 5 0827 U %U1 B 85 676 6 34 MCW &9,RDCT#1 U 7 0832 M /29 /30 85 677 6 35 RDTRY RT SYSTP,0 U 8 0839 M %U1 000 R 86 678 6 36 BER *&5 U 5 0847 B 856 L 86 679 6 37 RDXT B 0 U 4 0852 B 000 86 680 6 38 MN RDTRY&3,BSP2&3 U 7 0856 D 842 866 86 681 6 39 BSP2 BSP SYSTP U 5 0863 U %U1 B 86 682 6 40 S &1,RDCT U 7 0868 S '71 /30 86 683 6 41 BWZ RDTRY,RDCT,B U 8 0875 V 839 /30 B 87 684 6 42 MN RDTRY&3,*&7 U 7 0883 D 842 896 87 685 6 43 H 0,190 U 7 0890 . 000 190 87 686 6 44 MCW RDTRY&7,*&8 U 7 0897 M 846 911 87 687 6 45 RT SYSTP,0 U 8 0904 M %U1 000 R 87 688 6 46 BSS BSP1,E U 5 0912 B 827 E 88 689 6 47 H 0,111 U 7 0917 . 000 111 88 690 6 48 B RDXT U 4 0924 B 852 88 691 6 49 * 692 6 50 * WRITE REDUNDANCY ROUTINE 693 6 51 * 694 6 52 WTERR SBR WTXT&3 U 4 0928 H 998 88 695 6 53 SBR XR3 U 4 0932 H 099 88 696 6 54 MZ &9,XR3 U 7 0936 Y /29 099 88 697 6 55 MCW 4000-6&X3,WTTRY&7 U 7 0943 M II4 989 88 698 6 56 MN WTTRY&3,BSP3&3 U 7 0950 D 985 960 89 699 6 57 BSP3 BSP OUTAP U 5 0957 U %U6 B 89 700 6 58 SKP SYSTP U 5 0962 U %U1 E 89 701 6 59 BCE SUBCT,WTCT-1,1 U 8 0967 B 999 /31 1 89 702 6 60 A &1,WTCT#2 U 7 0975 A '71 /32 89 703 6 61 WTTRY WT OUTAP,0 U 8 0982 M %U6 000 W 90 704 6 62 BER BSP3 U 5 0990 B 957 L 90 705 6 63 WTXT B 0 U 4 0995 B 000 90 706 6 64 SUBCT S WTCT U 4 0999 S /32 90 707 6 65 MN WTTRY&3,*&7 U 7 1003 D 985 '16 90 708 6 66 H 0,160 U 7 1010 . 000 160 90 709 6 67 B WTTRY U 4 1017 B 982 90 710 6 68 * 711 6 69 * CLEAR OUTPUT AREA 712 6 70 * 713 6 71 CLEAR SBR CLRXT&3 U 4 1021 H '55 91 714 6 72 MCW @I99@,CLR&3 U 7 1025 M /35 '35 91 715 6 73 CLR CS 3999 U 4 1032 / I99 91 716 6 74 SBR CLR&3 U 4 1036 H '35 91 717 6 75 C CLR&3,&INPUT-1 U 7 1040 C '35 /38 91 1 AUTOCODER-PASS 1 COPY SYSTEM TAPE -VERSION 3 3714L PAGE 16 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 718 6 76 BU CLR U 5 1047 B '32 / 91 719 6 77 CLRXT B 0 U 4 1052 B 000 91 720 6 78 LTORG * U 1056 DCW @999999 HEADR@ U 15 1070 LIT 92 DCW &1 U 1 1071 LIT 92 BYCTU DCW #01 U 1 1072 AREA 92 DCW @999999@ U 6 1078 LIT 92 LIBSWU DCW #01 U 1 1079 AREA 92 EOFSWU DCW #01 U 1 1080 AREA 92 SKPCTU DCW #02 U 2 1082 AREA 92 DCW @1401 AUTOCODER SYSTEM COPIED ON TAPE UNIT 6@ U 43 1125 LIT 94 UPDSWU DCW #01 U 1 1126 AREA 94 DCW @N@ U 1 1127 LIT 94 DCW @B@ U 1 1128 LIT 94 DCW &9 U 1 1129 LIT 94 RDCTU DCW #01 U 1 1130 AREA 95 WTCTU DCW #02 U 2 1132 AREA 95 DCW @I99@ U 3 1135 LIT 95 DCW &INPUTU-1 U 3 1138 U99 ADCON 95 721 6 79 ENDUP DCW @}@ U 1 1139 GMARK 95 722 6 80 EX 0 U B 000 96 1 AUTOCODER-PASS 1 UPDATE LIBRARY -VERSION 3 3715L PAGE 17 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 723 6 81 JOB AUTOCODER-PASS 1 UPDATE LIBRARY -VERSION 3 U 724 6 82 IMAGE EQU 101 U 0101 725 6 83 * 726 6 84 * BEGIN UPDATE 727 6 85 * 728 6 86 ORG INPUT U 1500 729 6 87 BEGIN RWD SYSTP U 5 1500 U %U1 R 99 730 6 88 CW HEDSW,ENDSW U 7 1505 ) ?91 ?98 99 731 6 89 MCW &IMAGE&13,NOIS2&6 U 7 1512 M ?30 780 99 732 6 90 LCA ENDUP,IMAGE&80 U 7 1519 L /39 181 99 733 6 91 RT SYSTP,IMAGE U 8 1526 M %U1 101 R 99 734 6 92 DCW @N0000000000000@ U 14 1547 100 735 6 93 B NOISE U 4 1548 B 759 100 736 6 94 CS IMAGE&79 U 4 1552 / 180 100 737 6 95 B RDTP U 4 1556 B M17 100 738 6 96 REBEG B READ U 4 1560 B L24 100 739 6 97 BW SERCH,INSW U 8 1564 V V84 ?73 1 100 740 6 98 BW SERCH,DELSW U 8 1572 V V84 ?79 1 101 741 6 99 B REBEG U 4 1580 B V60 101 742 7 00 * 743 7 01 * SEARCH FOR CORRECT SUBROUTINE 744 7 02 * 745 7 03 SERCH B DOCTL U 4 1584 B N94 101 746 7 04 C 11,@999999@ U 7 1588 C 011 ?36 101 747 7 05 BE CLNUP U 5 1595 B K40 S 101 748 7 06 C 8,NAME#3 U 7 1600 C 008 ?39 101 749 7 07 BE FOUND U 5 1607 B X30 S 102 750 7 08 BH QUIT U 5 1612 B P75 U 102 751 7 09 MCW 8,NAME U 7 1617 M 008 ?39 102 752 7 10 S SEQNO U 4 1624 S A67 102 753 7 11 LOOP1 BW HEADR,HEDSW U 8 1628 V W56 ?91 1 102 754 7 12 B RDTP U 4 1636 B M17 102 755 7 13 BW HEADR,HEDSW U 8 1640 V W56 ?91 1 103 756 7 14 MORE B WTAP2 U 4 1648 B M95 103 757 7 15 B LOOP1 U 4 1652 B W28 103 758 7 16 * 759 7 17 * HEADER LOCATED ON TAPE 760 7 18 * 761 7 19 HEADR BW PAST,ENDSW U 8 1656 V W89 ?98 1 103 762 7 20 C IMAGE&7,NAME U 7 1664 C 108 ?39 103 763 7 21 BE FOUND U 5 1671 B X30 S 103 764 7 22 CW HEDSW U 4 1676 ) ?91 104 765 7 23 BL PAST U 5 1680 B W89 T 104 766 7 24 B MORE U 4 1685 B W48 104 767 7 25 * 768 7 26 * SUBROUTINE NOT ON TAPE 769 7 27 * 770 7 28 PAST BSP SYSTP U 5 1689 U %U1 B 104 771 7 29 CS IMAGE&79 U 4 1694 / 180 104 772 7 30 CW HEDSW U 4 1698 ) ?91 104 1 AUTOCODER-PASS 1 UPDATE LIBRARY -VERSION 3 3715L PAGE 18 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 773 7 31 BW UNKWN,DELSW U 8 1702 V Q01 ?79 1 104 774 7 32 C 22,@ @ U 7 1710 C 022 ?41 105 775 7 33 BU UNKWN U 5 1717 B Q01 / 105 776 7 34 BACK B PTCTL U 4 1722 B O37 105 777 7 35 B INSER U 4 1726 B Y06 105 778 7 36 * 779 7 37 * SUBROUTINE FOUND 780 7 38 * 781 7 39 FOUND C 22,@ @ U 7 1730 C 022 ?41 105 782 7 40 BU PARTL U 5 1737 B Y46 / 105 783 7 41 * 784 7 42 * DELETE AND/OR INSERT WHOLE SUBROUTINES 785 7 43 * 786 7 44 ALL MCW @DELET@,218 U 7 1742 M ?46 218 105 787 7 45 B PTCTL U 4 1749 B O37 106 788 7 46 S SEQNO U 4 1753 S A67 106 789 7 47 LOOP2 B PRINT U 4 1757 B O72 106 790 7 48 B RDTP U 4 1761 B M17 106 791 7 49 BW EXIT,HEDSW U 8 1765 V X77 ?91 1 106 792 7 50 B LOOP2 U 4 1773 B X57 106 793 7 51 EXIT BSP SYSTP U 5 1777 U %U1 B 106 794 7 52 CS IMAGE&79 U 4 1782 / 180 107 795 7 53 CW HEDSW U 4 1786 ) ?91 107 796 7 54 BW REBEG,DELSW U 8 1790 V V60 ?79 1 107 797 7 55 * 798 7 56 * INSERTION OF WHOLE SUBROUTINE 799 7 57 * 800 7 58 B DOCTL U 4 1798 B N94 107 801 7 59 B PTCTL U 4 1802 B O37 107 802 7 60 INSER S SEQNO U 4 1806 S A67 107 803 7 61 LOOP3 B READ U 4 1810 B L24 107 804 7 62 BW SERCH,INSW U 8 1814 V V84 ?73 1 108 805 7 63 BW SERCH,DELSW U 8 1822 V V84 ?79 1 108 806 7 64 B DOOUT U 4 1830 B L07 108 807 7 65 B PRINT U 4 1834 B O72 108 808 7 66 B WTAP2 U 4 1838 B M95 108 809 7 67 B LOOP3 U 4 1842 B Y10 108 810 7 68 * 811 7 69 * DELETE AND/OR INSERT PARTS 812 7 70 * 813 7 71 PARTL S XR3&2 U 4 1846 S 101 108 814 7 72 BWZ SOME,21,2 U 8 1850 V Y81 021 2 109 815 7 73 C 24,@ @ U 7 1858 C 024 ?41 109 816 7 74 BE ALL U 5 1865 B X42 S 109 817 7 75 A &2,XR3 U 7 1870 A ?47 099 109 818 7 76 SW 23 U 4 1877 , 023 109 819 7 77 * 820 7 78 * SCAN FOR VALUES OF OPERANDS 821 7 79 * 822 7 80 SOME SW OPSW#1 U 4 1881 , ?48 109 1 AUTOCODER-PASS 1 UPDATE LIBRARY -VERSION 3 3715L PAGE 19 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 823 7 81 TEST1 BCE TWOOP,21&X3,, U 8 1885 B Z16 0B1 , 110 824 7 82 C 22&X3,@ @ U 7 1893 C 0B2 ?41 110 825 7 83 BE TWOOP U 5 1900 B Z16 S 110 826 7 84 A &1,XR3 U 7 1905 A ?49 099 110 827 7 85 B TEST1 U 4 1912 B Y85 110 828 7 86 TWOOP ZA 20&X3,WK1#4 U 7 1916 ? 0B0 ?53 110 829 7 87 A @0@,WK1 U 7 1923 A ?54 ?53 111 830 7 88 BCE NXTOP,21&X3,, U 8 1930 B Z42 0B1 , 111 831 7 89 B OUT U 4 1938 B !08 111 832 7 90 NXTOP SW 22&X3 U 4 1942 , 0B2 111 833 7 91 SBR XR2 U 4 1946 H 094 111 834 7 92 ADD A &1,XR3 U 7 1950 A ?49 099 111 835 7 93 C 22&X3,@ @ U 7 1957 C 0B2 ?41 112 836 7 94 BU ADD U 5 1964 B Z50 / 112 837 7 95 ZA 20&X3,WK2#4 U 7 1969 ? 0B0 ?58 112 838 7 96 A @0@,WK2 U 7 1976 A ?54 ?58 112 839 7 97 C WK1,WK2 U 7 1983 C ?53 ?58 112 840 7 98 BL BADST U 5 1990 B Q59 T 112 841 7 99 BE ONOP U 5 1995 B K20 S 113 842 8 00 IS2OP CW OPSW U 4 2000 ) ?48 113 843 8 01 CLRWM CW 1&X2 U 4 2004 ) 0!1 113 844 8 02 OUT CW 23 U 4 2008 ) 023 113 845 8 03 BW *&8,OPSW U 8 2012 V !27 ?48 1 113 846 8 04 MCW @DELET@,218 U 7 2020 M ?63 218 113 847 8 05 B PTCTL U 4 2027 B O37 113 848 8 06 * 849 8 07 * SEARCH FOR FIRST STATEMENT 850 8 08 * 851 8 09 COMP C WK1,SEQNO U 7 2031 C ?53 A67 114 852 8 10 BE GOTIT U 5 2038 B !70 S 114 853 8 11 A &1,SEQNO U 7 2043 A ?49 A67 114 854 8 12 B WTAP2 U 4 2050 B M95 114 855 8 13 B RDTP U 4 2054 B M17 114 856 8 14 BW NTFND,HEDSW U 8 2058 V Q84 ?91 1 114 857 8 15 B COMP U 4 2066 B !31 114 858 8 16 * 859 8 17 * FIRST STATEMENT FOUND 860 8 18 * 861 8 19 GOTIT BW QINSR,OPSW U 8 2070 V J46 ?48 1 115 862 8 20 * 863 8 21 * SEARCH FOR SECOND STATEMENT 864 8 22 * 865 8 23 COMP2 B PRINT U 4 2078 B O72 115 866 8 24 B RDTP U 4 2082 B M17 115 867 8 25 C WK2,SEQNO U 7 2086 C ?58 A67 115 868 8 26 BH BSPC U 5 2093 B J10 U 115 869 8 27 BW NTFND,HEDSW U 8 2098 V Q84 ?91 1 115 870 8 28 B COMP2 U 4 2106 B !78 116 871 8 29 * 872 8 30 * SECOND STATEMENT FOUND 1 AUTOCODER-PASS 1 UPDATE LIBRARY -VERSION 3 3715L PAGE 20 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 873 8 31 * 874 8 32 BSPC BSP SYSTP U 5 2110 U %U1 B 116 875 8 33 CS IMAGE&79 U 4 2115 / 180 116 876 8 34 S &1,SEQNO U 7 2119 S ?49 A67 116 877 8 35 THRU BW LOOP3,DELSW U 8 2126 V Y10 ?79 1 116 878 8 36 B DOCTL U 4 2134 B N94 116 879 8 37 B PTCTL U 4 2138 B O37 116 880 8 38 B INSR&4 U 4 2142 B J77 117 881 8 39 * 882 8 40 * TEST INSERT OR DELETE 883 8 41 * 884 8 42 QINSR BW INSR,INSW U 8 2146 V J73 ?73 1 117 885 8 43 B PRINT U 4 2154 B O72 117 886 8 44 S &1,SEQNO U 7 2158 S ?49 A67 117 887 8 45 CS IMAGE&79 U 4 2165 / 180 117 888 8 46 B THRU U 4 2169 B J26 117 889 8 47 * 890 8 48 * INSERT STATEMENTS 891 8 49 * 892 8 50 INSR B WTAP2 U 4 2173 B M95 117 893 8 51 B READ U 4 2177 B L24 118 894 8 52 BW SERCH,INSW U 8 2181 V V84 ?73 1 118 895 8 53 BW SERCH,DELSW U 8 2189 V V84 ?79 1 118 896 8 54 B DOOUT U 4 2197 B L07 118 897 8 55 CW SEQSW#1 U 4 2201 ) ?64 118 898 8 56 B PRINT U 4 2205 B O72 118 899 8 57 S &1,SEQNO U 7 2209 S ?49 A67 118 900 8 58 B INSR U 4 2216 B J73 119 901 8 59 ONOP BW IS2OP,INSW U 8 2220 V !00 ?73 1 119 902 8 60 SW OPSW U 4 2228 , ?48 119 903 8 61 B CLRWM U 4 2232 B !04 119 904 8 62 * 905 8 63 * REPLICATE LIBRARY 906 8 64 * 907 8 65 REPET B WTAP2 U 4 2236 B M95 119 908 8 66 CLNUP B RDTP U 4 2240 B M17 119 909 8 67 B WTAP2 U 4 2244 B M95 119 910 8 68 BW FINAL,ENDSW U 8 2248 V K60 ?98 1 120 911 8 69 B CLNUP U 4 2256 B K40 120 912 8 70 * 913 8 71 * END OF UPDATE - GO TO COPY ROUTINE 914 8 72 * 915 8 73 FINAL WTM OUTAP U 5 2260 U %U6 M 120 916 8 74 MCW &INPUT&13,NOIS2&6 U 7 2265 M ?67 780 120 917 8 75 CW LIBSW,EOFSW U 7 2272 ) '79 '80 120 918 8 76 CW UPDSW U 4 2279 ) /26 120 919 8 77 CS 332 U 4 2283 / 332 120 920 8 78 CS U 1 2287 / 121 921 8 79 CC 1 U 2 2288 F 1 121 922 8 80 BYP1 RT SYSTP,IMAGE U 8 2290 M %U1 101 R 121 1 AUTOCODER-PASS 1 UPDATE LIBRARY -VERSION 3 3715L PAGE 21 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 923 8 81 BEF REOUT U 5 2298 B 593 K 121 924 8 82 B BYP1 U 4 2303 B K90 121 925 8 83 * 926 8 84 * SET UP INSERT CARD 927 8 85 * 928 8 86 DOOUT SBR OUTXT&3 U 4 2307 H L23 121 929 8 87 MCW 80,IMAGE&79 U 7 2311 M 080 180 121 930 8 88 MCW U 1 2318 M 122 931 8 89 MCW U 1 2319 M 122 932 8 90 OUTXT B 0 U 4 2320 B 000 122 933 8 91 * 934 8 92 * READ CARD SUBROUTINE 935 8 93 * 936 8 94 READ SBR CDXT&3 U 4 2324 H M08 122 937 8 95 BW RDCD,LSTSW U 8 2328 V L40 ?85 1 122 938 8 96 B CLNUP U 4 2336 B K40 122 939 8 97 RDCD R U 1 2340 1 122 940 8 98 CW INSW,DELSW U 7 2341 ) ?73 ?79 123 941 8 99 C 20,@INSER@ U 7 2348 C 020 ?72 123 942 9 00 BU CKDEL U 5 2355 B L68 / 123 943 9 01 SW INSW#1 U 4 2360 , ?73 123 944 9 02 B CDXT-5 U 4 2364 B M00 123 945 9 03 CKDEL C 20,@DELET@ U 7 2368 C 020 ?78 123 946 9 04 BU CKREP U 5 2375 B L88 / 123 947 9 05 SW DELSW#1 U 4 2380 , ?79 124 948 9 06 B CDXT-5 U 4 2384 B M00 124 949 9 07 CKREP C 20,@REPET@ U 7 2388 C 020 ?84 124 950 9 08 BE REPET U 5 2395 B K36 S 124 951 9 09 BLC LSTCD U 5 2400 B M09 A 124 952 9 10 CDXT B 0 U 4 2405 B 000 124 953 9 11 LSTCD CW LSTSW#1 U 4 2409 ) ?85 124 954 9 12 B CDXT U 4 2413 B M05 125 955 9 13 * 956 9 14 * READ TAPE SUBROUTINE 957 9 15 * 958 9 16 RDTP SBR RTXT&3 U 4 2417 H M94 125 959 9 17 RT SYSTP,IMAGE U 8 2421 M %U1 101 R 125 960 9 18 SW IMAGE&80 U 4 2429 , 181 125 961 9 19 DCW @N000000000@ U 10 2442 125 962 9 20 B NOISE U 4 2443 B 759 125 963 9 21 BER RDERR U 5 2447 B 798 L 125 964 9 22 CW HEDSW,ENDSW U 7 2452 ) ?91 ?98 126 965 9 23 C IMAGE&19,@HEADR@ U 7 2459 C 120 ?90 126 966 9 24 BU RTXT U 5 2466 B M91 / 126 967 9 25 SW HEDSW#1 U 4 2471 , ?91 126 968 9 26 C IMAGE&10,@999999@ U 7 2475 C 111 ?97 126 969 9 27 BU RTXT U 5 2482 B M91 / 126 970 9 28 SW ENDSW#1 U 4 2487 , ?98 126 971 9 29 RTXT B 0 U 4 2491 B 000 127 972 9 30 * 1 AUTOCODER-PASS 1 UPDATE LIBRARY -VERSION 3 3715L PAGE 22 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 973 9 31 * WRITE TAPE SUBROUTINE 974 9 32 * 975 9 33 WTAP2 SBR WT2XT&3 U 4 2495 H N31 127 976 9 34 C IMAGE&79,BLANK U 7 2499 C 180 ?27 127 977 9 35 BE WT2XT U 5 2506 B N28 S 127 978 9 36 WT OUTAP,IMAGE U 8 2511 M %U6 101 W 127 979 9 37 BER WTERR U 5 2519 B 928 L 127 980 9 38 CS IMAGE&79 U 4 2524 / 180 127 981 9 39 WT2XT B 0 U 4 2528 B 000 128 982 9 40 * 983 9 41 * PRINT HEADING 984 9 42 * 985 9 43 HEAD SBR HDXT&3 U 4 2532 H N93 128 986 9 44 CS 332 U 4 2536 / 332 128 987 9 45 CS U 1 2540 / 128 988 9 46 MCW @1401 AUTOCODER - LIBRARY CHANGES@,251 U 7 2541 M A30 251 128 989 9 47 MCW @PAGE@,275 U 7 2548 M A34 275 128 990 9 48 A &1,PGNO#3 U 7 2555 A ?49 A37 128 991 9 49 MCS PGNO,279 U 7 2562 Z A37 279 129 992 9 50 W U 1 2569 2 129 993 9 51 CC K U 2 2570 F K 129 994 9 52 CS 279 U 4 2572 / 279 129 995 9 53 MCW @SEQ LABEL OP OPERANDS@,227 U 7 2576 M A63 227 129 996 9 54 W U 1 2583 2 129 997 9 55 CC K U 2 2584 F K 129 998 9 56 CS 228 U 4 2586 / 228 130 999 9 57 HDXT B 0 U 4 2590 B 000 130 1000 9 58 * 1001 9 59 * SET UP CONTROL CARD FOR PRINTING 1002 9 60 * 1003 9 61 DOCTL SBR CTLXT&3 U 4 2594 H O36 130 1004 9 62 CC K U 2 2598 F K 130 1005 9 63 CS 332 U 4 2600 / 332 130 1006 9 64 CS U 1 2604 / 130 1007 9 65 MCW 72,271 U 7 2605 M 072 271 130 1008 9 66 MCW 22,221 U 7 2612 M 022 221 131 1009 9 67 MCW 20,218 U 7 2619 M 020 218 131 1010 9 68 MCW 11,212 U 7 2626 M 011 212 131 1011 9 69 CTLXT B 0 U 4 2633 B 000 131 1012 9 70 * 1013 9 71 * PRINT CONTROL CARD 1014 9 72 * 1015 9 73 PTCTL SBR PTCXT&3 U 4 2637 H O57 131 1016 9 74 W U 1 2641 2 131 1017 9 75 CC J U 2 2642 F J 131 1018 9 76 CS 332 U 4 2644 / 332 132 1019 9 77 CS U 1 2648 / 132 1020 9 78 BCV NEWPG U 5 2649 B O58 @ 132 1021 9 79 PTCXT B 0 U 4 2654 B 000 132 1022 9 80 * 1 AUTOCODER-PASS 1 UPDATE LIBRARY -VERSION 3 3715L PAGE 23 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1023 9 81 * NEW PAGE 1024 9 82 * 1025 9 83 NEWPG SBR NEWXT&3 U 4 2658 H O71 132 1026 9 84 CC 1 U 2 2662 F 1 132 1027 9 85 B HEAD U 4 2664 B N32 132 1028 9 86 NEWXT B 0 U 4 2668 B 000 133 1029 9 87 * 1030 9 88 * PRINT STATEMENTS 1031 9 89 * 1032 9 90 PRINT SBR PTXT&3 U 4 2672 H P74 133 1033 9 91 SW 220,214 U 7 2676 , 220 214 133 1034 9 92 SW 207 U 4 2683 , 207 133 1035 9 93 BCE COMNT,IMAGE&5,* U 8 2687 B P32 106 * 133 1036 9 94 MCW IMAGE&71,271 U 7 2695 M 172 271 133 1037 9 95 MCW IMAGE&19,218 U 7 2702 M 120 218 134 1038 9 96 MCW IMAGE&10,212 U 7 2709 M 111 212 134 1039 9 97 TSTSQ BW SEQNC,SEQSW U 8 2716 V P45 ?64 1 134 1040 9 98 SW SEQSW U 4 2724 , ?64 134 1041 9 99 B BUMP U 4 2728 B P53 134 1042 10 00 COMNT MCW IMAGE&71,273 U 7 2732 M 172 273 134 1043 10 01 MCW U 1 2739 M 134 1044 10 02 MCW U 1 2740 M 135 1045 10 03 B TSTSQ U 4 2741 B P16 135 1046 10 04 SEQNC MN SEQNO,204 U 7 2745 D A67 204 135 1047 10 05 MCS U 1 2752 Z 135 1048 10 06 BUMP A &1,SEQNO#4 U 7 2753 A ?49 A67 135 1049 10 07 W U 1 2760 2 135 1050 10 08 CS 332 U 4 2761 / 332 135 1051 10 09 CS U 1 2765 / 136 1052 10 10 BCV NEWPG U 5 2766 B O58 @ 136 1053 10 11 PTXT B 0 U 4 2771 B 000 136 1054 10 12 * 1055 10 13 * SEQUENCE ERROR 1056 10 14 * 1057 10 15 QUIT CS 332 U 4 2775 / 332 136 1058 10 16 CS U 1 2779 / 136 1059 10 17 MCW @INPUT CARDS OUT OF SEQUENCE - START OVER@,240 U 7 2780 M B07 240 136 1060 10 18 W U 1 2787 2 136 1061 10 19 CC 1 U 2 2788 F 1 137 1062 10 20 HALT2 H 0,133 U 7 2790 . 000 133 137 1063 10 21 B HALT2 U 4 2797 B P90 137 1064 10 22 * 1065 10 23 * SUBROUTINE UNKNOWN 1066 10 24 * 1067 10 25 UNKWN BWZ ISUNK,21,2 U 8 2801 V Q21 021 2 137 1068 10 26 C 24,@ @ U 7 2809 C 024 ?41 137 1069 10 27 BE BACK U 5 2816 B X22 S 137 1070 10 28 ISUNK MCW @SUBROUTINE UNKNOWN@,299 U 7 2821 M B25 299 138 1071 10 29 W U 1 2828 2 138 1072 10 30 CC L U 2 2829 F L 138 1 AUTOCODER-PASS 1 UPDATE LIBRARY -VERSION 3 3715L PAGE 24 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1073 10 31 CS 299 U 4 2831 / 299 138 1074 10 32 LOOP4 B READ U 4 2835 B L24 138 1075 10 33 BW SERCH,INSW U 8 2839 V V84 ?73 1 138 1076 10 34 BW SERCH,DELSW U 8 2847 V V84 ?79 1 138 1077 10 35 B LOOP4 U 4 2855 B Q35 139 1078 10 36 * 1079 10 37 * BAD CONTROL CARD 1080 10 38 * 1081 10 39 BADST MCW @BAD STATEMENT@,299 U 7 2859 M B38 299 139 1082 10 40 W U 1 2866 2 139 1083 10 41 CC L U 2 2867 F L 139 1084 10 42 CS 299 U 4 2869 / 299 139 1085 10 43 CW 1&X2,23 U 7 2873 ) 0!1 023 139 1086 10 44 B LOOP4 U 4 2880 B Q35 139 1087 10 45 * 1088 10 46 * STATEMENT DOES NOT EXIST IN SUBROUTINE 1089 10 47 * 1090 10 48 NTFND MCW @STATEMENT DOES NOT EXIST@,299 U 7 2884 M B62 299 140 1091 10 49 W U 1 2891 2 140 1092 10 50 CC L U 2 2892 F L 140 1093 10 51 CS 299 U 4 2894 / 299 140 1094 10 52 BW END99,ENDSW U 8 2898 V R10 ?98 1 140 1095 10 53 B LOOP4 U 4 2906 B Q35 140 1096 10 54 * 1097 10 55 * END OF LIBRARY REACHED BEFORE ROUTINE FOUND 1098 10 56 * 1099 10 57 END99 MCW @SUBROUTINE UNKNOWN@,299 U 7 2910 M B80 299 140 1100 10 58 W U 1 2917 2 141 1101 10 59 CC L U 2 2918 F L 141 1102 10 60 CS 299 U 4 2920 / 299 141 1103 10 61 MCW @END OF LIBRARY REACHED@,222 U 7 2924 M C02 222 141 1104 10 62 W U 1 2931 2 141 1105 10 63 BSP SYSTP U 5 2932 U %U1 B 141 1106 10 64 CS IMAGE&79 U 4 2937 / 180 141 1107 10 65 LOOP6 B READ U 4 2941 B L24 142 1108 10 66 B LOOP6 U 4 2945 B R41 142 1109 10 67 DCW #50 U 50 2998 144 1110 10 68 BLANK DC #29 U 29 3027 145 1111 10 69 LTORG * U 3028 DCW &IMAGEU&13 U 3 3030 114 ADCON 145 DCW @999999@ U 6 3036 LIT 145 NAMEU DCW #03 U 3 3039 AREA 146 DCW @ @ U 2 3041 LIT 146 DCW @DELET@ U 5 3046 LIT 146 DCW &2 U 1 3047 LIT 146 OPSWU DCW #01 U 1 3048 AREA 146 DCW &1 U 1 3049 LIT 146 WK1U DCW #04 U 4 3053 AREA 146 DCW @0@ U 1 3054 LIT 147 WK2U DCW #04 U 4 3058 AREA 147 1 AUTOCODER-PASS 1 UPDATE LIBRARY -VERSION 3 3715L PAGE 25 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD DCW @DELET@ U 5 3063 LIT 147 SEQSWU DCW #01 U 1 3064 AREA 147 DCW &INPUTU&13 U 3 3067 V13 ADCON 147 DCW @INSER@ U 5 3072 LIT 147 INSWU DCW #01 U 1 3073 AREA 147 DCW @DELET@ U 5 3078 LIT 148 DELSWU DCW #01 U 1 3079 AREA 148 DCW @REPET@ U 5 3084 LIT 148 LSTSWU DCW #01 U 1 3085 AREA 148 DCW @HEADR@ U 5 3090 LIT 148 HEDSWU DCW #01 U 1 3091 AREA 148 DCW @999999@ U 6 3097 LIT 148 ENDSWU DCW #01 U 1 3098 AREA 149 DCW @1401 AUTOCODER - LIBRARY CHANGES@ U 32 3130 LIT 149 DCW @PAGE@ U 4 3134 LIT 149 PGNOU DCW #03 U 3 3137 AREA 150 DCW @SEQ LABEL OP OPERANDS@ U 26 3163 LIT 150 SEQNOU DCW #04 U 4 3167 AREA 150 DCW @INPUT CARDS OUT OF SEQUENCE - START OVER@ U 40 3207 LIT 152 DCW @SUBROUTINE UNKNOWN@ U 18 3225 LIT 152 DCW @BAD STATEMENT@ U 13 3238 LIT 152 DCW @STATEMENT DOES NOT EXIST@ U 24 3262 LIT 153 DCW @SUBROUTINE UNKNOWN@ U 18 3280 LIT 154 DCW @END OF LIBRARY REACHED@ U 22 3302 LIT 155 1112 10 70 3998 DCW @}@ U 1 3998 GMARK 156 1113 10 71 EX 0 U B 000 157 1 AUTOCODER-PASS 1 OUTPUT LIBRARY -VERSION 3 3716L PAGE 26 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1114 10 72 JOB AUTOCODER-PASS 1 OUTPUT LIBRARY -VERSION 3 U 1115 10 73 SFX P P 1116 10 74 SYSTP EQU %U1 P %U1 1117 10 75 XR1 EQU 89 P 0089 1118 10 76 * 1119 10 77 * BEGIN PROGRAM 1120 10 78 * 1121 10 79 ORG 2000 P 2000 1122 10 80 SW ENDOT P 4 2000 , ?44 160 1123 10 81 LCA ENDOT,181 P 7 2004 L ?44 181 160 1124 10 82 CS P 1 2011 / 160 1125 10 83 CS 80 P 4 2012 / 080 160 1126 10 84 SW 6,16 P 7 2016 , 006 016 160 1127 10 85 CS 332 P 4 2023 / 332 160 1128 10 86 CS P 1 2027 / 160 1129 10 87 CC 1 P 2 2028 F 1 161 1130 10 88 RWD SYSTP P 5 2030 U %U1 R 161 1131 10 89 RT SYSTP,101 P 8 2035 M %U1 101 R 161 1132 10 90 CS 180 P 4 2043 / 180 161 1133 10 91 SW 106,116 P 7 2047 , 106 116 161 1134 10 92 SW 121 P 4 2054 , 121 161 1135 10 93 BSS DOALL,E P 5 2058 B L28 E 161 1136 10 94 * 1137 10 95 * PRINT AND/OR PUNCH SELECTED MACROS 1138 10 96 * 1139 10 97 CW HDRSW P 4 2063 ) R32 162 1140 10 98 READ CC 1 P 2 2067 F 1 162 1141 10 99 B PRTHD P 4 2069 B N59 162 1142 11 00 R P 1 2073 1 162 1143 11 01 MCW @2@,OPCOD P 7 2074 M Q90 O69 162 1144 11 02 C 20,@PRINT@ P 7 2081 C 020 Q95 162 1145 11 03 BE SELMC P 5 2088 B J19 S 162 1146 11 04 C 20,@PUNCH@ P 7 2093 C 020 R00 163 1147 11 05 BU ERROR P 5 2100 B N06 / 163 1148 11 06 * 1149 11 07 * PUNCH OPTION 1150 11 08 * 1151 11 09 A &4,OPCOD P 7 2105 A R01 O69 163 1152 11 10 MN &4,OPSAV#1 P 7 2112 D R01 R02 163 1153 11 11 * 1154 11 12 * SEARCH FOR MACRO 1155 11 13 * 1156 11 14 SELMC C 8,NAME#3 P 7 2119 C 008 R05 163 1157 11 15 BE TSTLC P 5 2126 B K96 S 163 1158 11 16 MCW 20,218 P 7 2131 M 020 218 164 1159 11 17 MCW 11,212 P 7 2138 M 011 212 164 1160 11 18 BL RDTP2 P 5 2145 B J85 T 164 1161 11 19 RWD SYSTP P 5 2150 U %U1 R 164 1162 11 20 LCA ENDOT,181 P 7 2155 L ?44 181 164 1163 11 21 RT SYSTP,101 P 8 2162 M %U1 101 R 164 1 AUTOCODER-PASS 1 OUTPUT LIBRARY -VERSION 3 3716L PAGE 27 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1164 11 22 CS 180 P 4 2170 / 180 165 1165 11 23 SW 106,116 P 7 2174 , 106 116 165 1166 11 24 SW 121 P 4 2181 , 121 165 1167 11 25 RDTP2 RT SYSTP,101 P 8 2185 M %U1 101 R 165 1168 11 26 B NOISE P 4 2193 B P67 165 1169 11 27 BER RDERR P 5 2197 B Q06 L 165 1170 11 28 C 111,@999999@ P 7 2202 C 111 R11 165 1171 11 29 BE UNKN P 5 2209 B L05 S 166 1172 11 30 C 120,@HEADR@ P 7 2214 C 120 R16 166 1173 11 31 BU RDTP2 P 5 2221 B J85 / 166 1174 11 32 C 8,108 P 7 2226 C 008 108 166 1175 11 33 BU RDTP2 P 5 2233 B J85 / 166 1176 11 34 * 1177 11 35 * DESIRED MACRO FOUND 1178 11 36 * 1179 11 37 MCW 8,NAME P 7 2238 M 008 R05 166 1180 11 38 CC K P 2 2245 F K 166 1181 11 39 W P 1 2247 2 167 1182 11 40 S SEQNO P 4 2248 S R48 167 1183 11 41 B INSER P 4 2252 B N17 167 1184 11 42 CC K P 2 2256 F K 167 1185 11 43 PTAGN B PRINT P 4 2258 B N81 167 1186 11 44 RT SYSTP,101 P 8 2262 M %U1 101 R 167 1187 11 45 B NOISE P 4 2270 B P67 167 1188 11 46 BER RDERR P 5 2274 B Q06 L 168 1189 11 47 C 120,@HEADR@ P 7 2279 C 120 R21 168 1190 11 48 BU PTAGN P 5 2286 B K58 / 168 1191 11 49 BSP SYSTP P 5 2291 U %U1 B 168 1192 11 50 * 1193 11 51 * TEST END OF RUN 1194 11 52 * 1195 11 53 TSTLC BLC EOJOB P 5 2296 B M54 A 168 1196 11 54 B READ P 4 2301 B !67 168 1197 11 55 * 1198 11 56 * MACRO NOT ON TAPE 1199 11 57 * 1200 11 58 UNKN MCW @UNKNOWN@,299 P 7 2305 M R28 299 168 1201 11 59 W P 1 2312 2 169 1202 11 60 CS 299 P 4 2313 / 299 169 1203 11 61 MCW @999@,NAME P 7 2317 M R31 R05 169 1204 11 62 B TSTLC P 4 2324 B K96 169 1205 11 63 * 1206 11 64 * PRINT AND/OR PUNCH ALL OR PRINT HEADERS ONLY 1207 11 65 * 1208 11 66 DOALL BSS SETUP,D P 5 2328 B L60 D 169 1209 11 67 CW HDRSW#1 P 4 2333 ) R32 169 1210 11 68 BSS *&5,G P 5 2337 B L46 G 169 1211 11 69 B SETUP P 4 2342 B L60 170 1212 11 70 * 1213 11 71 * PUNCH ALL 1 AUTOCODER-PASS 1 OUTPUT LIBRARY -VERSION 3 3716L PAGE 28 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1214 11 72 * 1215 11 73 A &4,OPCOD P 7 2346 A R01 O69 170 1216 11 74 MN &4,OPSAV P 7 2353 D R01 R02 170 1217 11 75 SETUP B HEAD1 P 4 2360 B P19 170 1218 11 76 CW HDSW1#1 P 4 2364 ) R33 170 1219 11 77 B PRTHD P 4 2368 B N59 170 1220 11 78 RDTP RT SYSTP,101 P 8 2372 M %U1 101 R 170 1221 11 79 B NOISE P 4 2380 B P67 171 1222 11 80 BER RDERR P 5 2384 B Q06 L 171 1223 11 81 C 111,@999999@ P 7 2389 C 111 R39 171 1224 11 82 BE EOJOB P 5 2396 B M54 S 171 1225 11 83 C 120,@HEADR@ P 7 2401 C 120 R44 171 1226 11 84 BU DOPNT P 5 2408 B M35 / 171 1227 11 85 B INSER P 4 2413 B N17 171 1228 11 86 CC K P 2 2417 F K 172 1229 11 87 SBR PRTXT&3,*&6 P 7 2419 H O83 M31 172 1230 11 88 BCV NEWPG P 5 2426 B O97 @ 172 1231 11 89 S SEQNO#4 P 4 2431 S R48 172 1232 11 90 DOPNT B PRINT P 4 2435 B N81 172 1233 11 91 SW 106,116 P 7 2439 , 106 116 172 1234 11 92 SW 121 P 4 2446 , 121 172 1235 11 93 B RDTP P 4 2450 B L72 173 1236 11 94 * 1237 11 95 * END OF JOB 1238 11 96 * 1239 11 97 EOJOB CS 332 P 4 2454 / 332 173 1240 11 98 CS P 1 2458 / 173 1241 11 99 CC K P 2 2459 F K 173 1242 12 00 MCW @END OF LIBRARY@,214 P 7 2461 M R62 214 173 1243 12 01 W P 1 2468 2 173 1244 12 02 CC 1 P 2 2469 F 1 173 1245 12 03 CS 180 P 4 2471 / 180 174 1246 12 04 BCE CLRPH,OPSAV,4 P 8 2475 B M99 R02 4 174 1247 12 05 RWD RWD SYSTP P 5 2483 U %U1 R 174 1248 12 06 HALT H 0,155 P 7 2488 . 000 155 174 1249 12 07 B HALT P 4 2495 B M88 174 1250 12 08 CLRPH P P 1 2499 4 174 1251 12 09 SS 8 P 2 2500 K 8 174 1252 12 10 B RWD P 4 2502 B M83 175 1253 12 11 * 1254 12 12 * INCORRECT INPUT CARD 1255 12 13 * 1256 12 14 ERROR H 0,144 P 7 2506 . 000 144 175 1257 12 15 B TSTLC P 4 2513 B K96 175 1258 12 16 INSER SBR INSXT&3 P 4 2517 H N58 175 1259 12 17 MCW @ @,105 P 7 2521 M R67 105 175 1260 12 18 MCW @INSER@,120 P 7 2528 M R72 120 175 1261 12 19 BCE *&5,OPSAV,4 P 8 2535 B N47 R02 4 176 1262 12 20 B *&2 P 4 2543 B N48 176 1263 12 21 P P 1 2547 4 176 1 AUTOCODER-PASS 1 OUTPUT LIBRARY -VERSION 3 3716L PAGE 29 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1264 12 22 MCW @HEADR@,120 P 7 2548 M R77 120 176 1265 12 23 INSXT B 0 P 4 2555 B 000 176 1266 12 24 * 1267 12 25 * PRINT HEADING 1268 12 26 * 1269 12 27 PRTHD SBR HDXT&3 P 4 2559 H N80 176 1270 12 28 MCW @SEQ LABEL OP OPERANDS@,227 P 7 2563 M ?03 227 176 1271 12 29 W P 1 2570 2 177 1272 12 30 CC K P 2 2571 F K 177 1273 12 31 CS 228 P 4 2573 / 228 177 1274 12 32 HDXT B 0 P 4 2577 B 000 177 1275 12 33 * 1276 12 34 * PRINT STATEMENT 1277 12 35 * 1278 12 36 PRINT SBR PRTXT&3 P 4 2581 H O83 177 1279 12 37 C 120,@HEADR@ P 7 2585 C 120 ?08 177 1280 12 38 BE DOHDR P 5 2592 B O05 S 177 1281 12 39 BW CLR,HDRSW P 8 2597 V O70 R32 1 178 1282 12 40 DOHDR CS 332 P 4 2605 / 332 178 1283 12 41 CS P 1 2609 / 178 1284 12 42 BCE COMNT,106,* P 8 2610 B O84 106 * 178 1285 12 43 MCW 172,271 P 7 2618 M 172 271 178 1286 12 44 MCW 120,218 P 7 2625 M 120 218 178 1287 12 45 MCW 111,212 P 7 2632 M 111 212 179 1288 12 46 DOSEQ MN SEQNO,204 P 7 2639 D R48 204 179 1289 12 47 MCS P 1 2646 Z 179 1290 12 48 MN SEQNO,104 P 7 2647 D R48 104 179 1291 12 49 MCW P 1 2654 M 179 1292 12 50 A &1,SEQNO P 7 2655 A ?09 R48 179 1293 12 51 MCW @ @,105 P 7 2662 M ?10 105 179 1294 12 52 OPCOD W P 1 2669 2 180 1295 12 53 CLR CS 332 P 4 2670 / 332 180 1296 12 54 CS P 1 2674 / 180 1297 12 55 BCV NEWPG P 5 2675 B O97 @ 180 1298 12 56 PRTXT B 0 P 4 2680 B 000 180 1299 12 57 COMNT MCW 172,273 P 7 2684 M 172 273 180 1300 12 58 MCW P 1 2691 M 180 1301 12 59 MCW P 1 2692 M 181 1302 12 60 B DOSEQ P 4 2693 B O39 181 1303 12 61 * 1304 12 62 * START NEW PAGE 1305 12 63 * 1306 12 64 NEWPG CC 1 P 2 2697 F 1 181 1307 12 65 BW *&5,HDSW1 P 8 2699 V P11 R33 1 181 1308 12 66 B HEAD1 P 4 2707 B P19 181 1309 12 67 B PRTHD P 4 2711 B N59 181 1310 12 68 B PRTXT P 4 2715 B O80 181 1311 12 69 * 1312 12 70 * PRINT MAIN HEADING 1313 12 71 * 1 AUTOCODER-PASS 1 OUTPUT LIBRARY -VERSION 3 3716L PAGE 30 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1314 12 72 HEAD1 SBR HD2XT&3 P 4 2719 H P66 182 1315 12 73 CS 332 P 4 2723 / 332 182 1316 12 74 CS P 1 2727 / 182 1317 12 75 MCW @1401 AUTOCODER - LIBRARY@,243 P 7 2728 M ?34 243 182 1318 12 76 MCW @PAGE@,275 P 7 2735 M ?38 275 182 1319 12 77 A &1,PGNO#3 P 7 2742 A ?09 ?41 182 1320 12 78 MCS PGNO,279 P 7 2749 Z ?41 279 182 1321 12 79 W P 1 2756 2 183 1322 12 80 CC L P 2 2757 F L 183 1323 12 81 CS 299 P 4 2759 / 299 183 1324 12 82 HD2XT B 0 P 4 2763 B 000 183 1325 12 83 * 1326 12 84 * TEST FOR NOISE RECORDS 1327 12 85 * 1328 12 86 NOISE SBR NOSXT&3 P 4 2767 H Q05 183 1329 12 87 SBR XR1 P 4 2771 H 089 183 1330 12 88 MZ &9,XR1 P 7 2775 Y ?42 089 183 1331 12 89 BCE 4000-12&X1,113,} P 8 2782 B IY8 113 } GMARK 184 1332 12 90 CHAIN 12 P MACRO 1333 BCE P 1 2790 B GEN 184 1334 BCE P 1 2791 B GEN 184 1335 BCE P 1 2792 B GEN 184 1336 BCE P 1 2793 B GEN 184 1337 BCE P 1 2794 B GEN 184 1338 BCE P 1 2795 B GEN 184 1339 BCE P 1 2796 B GEN 185 1340 BCE P 1 2797 B GEN 185 1341 BCE P 1 2798 B GEN 185 1342 BCE P 1 2799 B GEN 185 1343 BCE P 1 2800 B GEN 185 1344 BCE P 1 2801 B GEN 185 1345 12 91 NOSXT B 0 P 4 2802 B 000 185 1346 12 92 * 1347 12 93 * READ REDUNDANCY ROUTINE 1348 12 94 * 1349 12 95 RDERR SBR RDXT&3 P 4 2806 H Q38 186 1350 12 96 BSP BSP SYSTP P 5 2810 U %U1 B 186 1351 12 97 MCW &9,RDCT#1 P 7 2815 M ?42 ?43 186 1352 12 98 RDTRY RT SYSTP,101 P 8 2822 M %U1 101 R 186 1353 12 99 BER *&5 P 5 2830 B Q39 L 186 1354 13 00 RDXT B 0 P 4 2835 B 000 186 1355 13 01 BSP SYSTP P 5 2839 U %U1 B 186 1356 13 02 S &1,RDCT P 7 2844 S ?09 ?43 187 1357 13 03 BWZ RDTRY,RDCT,B P 8 2851 V Q22 ?43 B 187 1358 13 04 H 0,191 P 7 2859 . 000 191 187 1359 13 05 RT SYSTP,101 P 8 2866 M %U1 101 R 187 1360 13 06 BSS BSP,E P 5 2874 B Q10 E 187 1361 13 07 H 0,111 P 7 2879 . 000 111 188 1362 13 08 B RDXT P 4 2886 B Q35 188 1363 13 09 LTORG * P 2890 1 AUTOCODER-PASS 1 OUTPUT LIBRARY -VERSION 3 3716L PAGE 31 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD DCW @2@ P 1 2890 LIT 188 DCW @PRINT@ P 5 2895 LIT 188 DCW @PUNCH@ P 5 2900 LIT 188 DCW &4 P 1 2901 LIT 188 OPSAVP DCW #01 P 1 2902 AREA 188 NAMEP DCW #03 P 3 2905 AREA 189 DCW @999999@ P 6 2911 LIT 189 DCW @HEADR@ P 5 2916 LIT 189 DCW @HEADR@ P 5 2921 LIT 189 DCW @UNKNOWN@ P 7 2928 LIT 189 DCW @999@ P 3 2931 LIT 189 HDRSWP DCW #01 P 1 2932 AREA 189 HDSW1P DCW #01 P 1 2933 AREA 190 DCW @999999@ P 6 2939 LIT 190 DCW @HEADR@ P 5 2944 LIT 190 SEQNOP DCW #04 P 4 2948 AREA 190 DCW @END OF LIBRARY@ P 14 2962 LIT 190 DCW @ @ P 5 2967 LIT 190 DCW @INSER@ P 5 2972 LIT 191 DCW @HEADR@ P 5 2977 LIT 191 DCW @SEQ LABEL OP OPERANDS@ P 26 3003 LIT 191 DCW @HEADR@ P 5 3008 LIT 192 DCW &1 P 1 3009 LIT 192 DCW @ @ P 1 3010 LIT 192 DCW @1401 AUTOCODER - LIBRARY@ P 24 3034 LIT 192 DCW @PAGE@ P 4 3038 LIT 192 PGNOP DCW #03 P 3 3041 AREA 192 DCW &9 P 1 3042 LIT 192 RDCTP DCW #01 P 1 3043 AREA 193 1364 13 10 ENDOT DCW @}@ P 1 3044 GMARK 193 1365 13 11 EX 0 P B 000 194 1366 13 12 END 0 P / 000 080 1 AUTOCODER-PASS 1 OUTPUT LIBRARY -VERSION 3 3716L PAGE 32 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS ABIT 107 ADDU 1950 AGAINR 2102 ALLU 1742 BACKU 1722 BADSTU 2859 BDEOFU 750 BEGINU 1500 BLANKU 3027 BSP 995 BSP1U 827 BSP2U 863 BSP3U 957 BSPB 698 BSPCU 2110 BSPP 2810 BUMPU 2753 BYCTB 807 BYCTU 1072 BYP1U 2290 BYPSSU 411 CARD 0 CDXTU 2405 CKDELU 2368 CKREPU 2388 CKSEQ 726 CLEAR 702 CLEARB 342 CLEARU 1021 CLNUPU 2240 CLRB 497 CLRP 2670 CLRPHP 2499 CLRU 1032 CLRWMU 2004 CLRXTU 1052 CNVRT 478 COMNTP 2684 COMNTU 2732 COMP1 429 COMP2 607 COMP2U 2078 COMPU 2031 COPYU 525 CPYNDU 692 CRDER 917 CTLXTU 2633 DELSWU 3079 DOALLP 2328 DOCOR 538 DOCTLU 2594 DOHDRP 2605 DOOUTU 2307 DOPNTP 2435 DOPSAB 1900 DOSEQ 941 DOSEQP 2639 END99U 2910 ENDOTP 3044 ENDRTR 2212 ENDSQ 962 ENDSWU 3098 ENDUPU 1139 EOFSWU 1080 EOFU 601 EOJOB 877 EOJOBP 2454 ERASEU 637 ERRORP 2506 EXITU 1777 FINALU 2260 FLOAT 406 FOUNDU 1730 GETR 2154 GETUPU 448 GMRK1B 835 GOTITU 2070 HALT 906 HALT1B 407 HALT1U 669 HALT2 930 HALT2U 2790 HALTP 2488 HD2XTP 2763 HDRSWP 2932 HDSW1P 2933 HDXTP 2577 HDXTU 2590 HEAD1P 2719 HEADRU 1656 HEADU 2532 HEDSWU 3091 HOLD5 1099 IMAGEU 101 INPUTU 1500 INSERP 2517 INSERU 1806 INSRU 2173 INSWU 3073 INSXTP 2555 IS2OPU 2000 ISMORU 727 ISUNKU 2821 LDUPDU 498 LIBRNB 521 LIBSWU 1079 LISTR 2126 LOADDB 11 LOOP1B 362 LOOP1U 1628 LOOP2B 441 LOOP2U 1757 LOOP3U 1810 LOOP4U 2835 LOOP6U 2941 LOPSAB 476 LSTCDU 2409 LSTSWU 3085 LTAPSW 2725 MACRO 792 MOREU 1648 NAMEP 2905 NAMEU 3039 NEWPGP 2697 NEWPGU 2658 NEWXTU 2668 NOBIT 106 NOIS2B 652 NOIS2U 774 NOISEB 637 NOISEP 2767 NOISEU 759 NOSXTB 672 NOSXTP 2802 NOSXTU 794 NTFNDU 2884 NXTBK 362 NXTOPU 1942 ONOPU 2220 OPCODP 2669 OPSAVP 2902 OPSWU 3048 OUTAPU %U6 OUTPTB 558 OUTU 2008 OUTXTU 2320 PARTLU 1846 PASSAB 1650 PASTU 1689 PGNOP 3041 PGNOU 3137 PRINT 200 PRINTP 2581 PRINTU 2672 PRTHDP 2559 PRTXTP 2680 PTAGNP 2258 PTCTLU 2637 PTCXTU 2654 PTXTU 2771 QINSRU 2146 QUITU 2775 RDCDU 2340 RDCTB 812 RDCTP 3043 RDCTR 2207 RDCTU 1130 RDERRB 676 RDERRP 2806 RDERRR 2046 RDERRU 798 RDTP2P 2185 RDTPP 2372 RDTPU 2417 RDTRYB 710 RDTRYP 2822 RDTRYR 2058 RDTRYU 839 RDXTB 723 RDXTP 2835 RDXTU 852 READP 2067 READU 2324 REBEGU 1560 REOUTU 593 REPETU 2236 RETRY 1020 RTXTU 2491 RWDP 2483 SELMCP 2119 SEQER 760 SEQNCU 2745 SEQNO 1087 SEQNOP 2948 SEQNOU 3167 SEQSWU 3064 SEQXT 756 SERCHU 1584 SETUPP 2360 SETWM 596 SKPCTU 1082 SOMEU 1881 START 333 STARTR 2009 SUB1 527 SUB2 471 SUBCT 1037 SUBCTU 999 SWICHU 556 SYSTP %U1 SYSTPB %U1 SYSTPP %U1 SYSTPR %U1 SYSTPU %U1 TEST1U 1885 THRUU 2126 TSTLCP 2296 TSTSQU 2716 TSTSSB 418 TWOOPU 1916 UNKNP 2305 UNKWNU 2801 UPDSWU 1126 WK1U 3053 WK2U 3058 WORK5 1119 WT2XTU 2528 WTAP1 675 WTAP1U 580 WTAP2 830 WTAP2U 2495 WTCT 1255 WTCTU 1132 WTERR 973 WTERRU 928 WTTM 868 WTTRYU 982 WTXT 1033 WTXTU 995 XR1 89 XR1B 89 XR1P 89 XR1U 89 XR2 94 XR2U 94 XR3 99 XR3U 99 XXXX 0 ZONE 109 ***** ** 3 Errors ERROR ----------------- source code ------------ 101 000 JOB 1401 autocoder-pass 1-generate system tape-version 3 3711l 102 ctl 630 1 103 systp equ %u1 104 card equ 0 105 print equ 200 106 org 87 107 xr1 dcw 000 108 dc 00 109 xr2 dcw 000 110 dc 00 111 xr3 dcw 000 112 dc 000000 113 zone dcw @2skb@ 114 abit equ zone-2 115 nobit equ zone-3 116 xxxx equ 0 117 * 118 * Start of main line 119 * 120 org 333 121 start rwd systp 122 cc 1 123 mcw @generating 1401 autocoder system@,print&32 124 w 125 cc 1 126 cs print&132 127 cs 128 mcw card&75,seqno#4 129 * 130 * start up next block 131 * 132 nxtbk r 133 c card&12,@control@ 134 bu macro 135 bwz ckseq,card&80,2 Comment out to turn off seq chk 136 bce eojob,card&78,9 137 sw card&21 138 za card&25,hold5#5 139 cw card&21 140 * 141 * float address to five characters 142 * 143 float bce *&5,hold5,& 144 b comp1 145 za hold5-1,hold5 146 b float 147 * 148 * test address against home address 149 * to develop index value 150 * 151 comp1 mz nobit,hold5 152 s xr1&2 153 c hold5,@01500@ 154 be docor 155 bh sub1 156 s @01500@,hold5 157 mcw @16000@,work5#5 158 sub2 s hold5,work5 159 * 160 * convert index value to 3 digit machine address 161 * 162 cnvrt bav *&1 163 a @96@,work5-3 164 bav cnvrt&5 165 mz work5-4,work5 166 mn work5-3,*&4 167 mz zone,work5-2 168 mcw work5,xr1 169 b docor 170 sub1 mcw @01500@,work5 171 b sub2 172 * 173 * read condensed cards 174 * 175 docor r 176 mcw @045@,xr3 177 mcw @042@,xr2 178 bwz ckseq,card&80,2 Comment out to turn off seq chk 179 bce wtap1,card&68,b 180 bce setwm,card&40,n 181 c card&46,@001@ 182 be setwm 183 mz abit,card&45 184 * 185 * set return address 186 * 187 setwm mcw &docor,card&71 188 mcw @B@ 189 * 190 * index word mark addresses 191 * 192 comp2 c xr2,@063@ 193 be card&40 194 a &7,xr3 195 a &7,xr2 196 c card&1&x2,@040@ 197 be *&8 198 mz abit,card&x2 199 c card&1&x3,@040@ 200 be comp2 201 mz abit,card&x3 202 b comp2 203 * 204 * write core on tape 205 * 206 wtap1 lca @}@,3998 207 wtw systp,1500 208 ber wterr 209 * 210 * clear input area 211 * 212 mcw @I99@,clear&3 213 clear cs xxxx 214 sbr clear&3 215 c clear&3,@u99@ 216 bu clear 217 b nxtbk 218 * 219 * check card sequence 220 * 221 ckseq sbr seqxt&3 222 a &1,seqno 223 c card&75,seqno 224 mcw card&75,seqno 225 bu seqer 226 seqxt b xxxx 227 * 228 * card sequence error 229 * 230 seqer mcw card&80,print&80 231 chain6 232 mcw @sequence error@,print&98 233 w 234 h 0,176 235 b doseq 236 * 237 * process macro library 238 * 239 macro nop crder 240 c card&20,@headr@ 241 bu crder 242 bwz ckseq,card&80,2 comment out to turn of seq chk 243 mcw @B@,macro 244 lca @}@,81 245 * 246 * write skeleton instructions on tape 247 * 248 wtap2 wt systp,card&1 249 ber wterr 250 c card&11,@999999@ 251 be wttm 252 r 253 bwz ckseq,card&80,2 comment out to turn of seq chk 254 b wtap2 255 wttm wtm systp 256 b nxtbk 257 * 258 * end of generation 259 * 260 eojob wtm systp 261 rwd systp 262 cw @}@ 263 cs print&132 264 cs 265 mcw @1401 autocoder system generated on tape unit 1@,246 266 w 267 cc 1 268 * 269 * final halt 270 * 271 halt h 0,142 272 b halt 273 * 274 * missing control card 275 * 276 crder cs print&132 277 cs 278 mcw @system control card missing@,print&27 279 w 280 halt2 h 0,177 281 b halt2 282 * 283 * after sequence error, check balance of deck 284 * 285 doseq r 286 bwz ckseq,card&80,2 287 bce endsq,card&78,9 288 b doseq 289 endsq h 0,152 290 b endsq 291 * 292 * write redundancy routine 293 * 294 wterr sbr wtxt&3 295 sbr xr3 296 mz &9,xr3 297 mcw 4000-6&x3,retry&7 298 bsp bsp systp 299 skp systp 300 bce subct,wtct-1,1 301 a &1,wtct#2 302 retry wt systp,xxxx 303 ber bsp 304 wtxt b xxxx 305 subct s wtct 306 h 0,161 307 b retry 308 ex start 309 job autocoder-pass 1 select program -version 3 3712l 310 sfx b 311 passa equ 1650 312 dopsa equ 1900 313 systp equ %u1 314 * 315 * branch from tape load routine 316 * 317 org 1 318 b 333 319 h *-3 320 loadd dcw @599@ 321 org 87 322 xr1 dcw 000 323 dc 00 324 dcw 000 325 dc 00 326 dcw 000 327 dc 00 328 * 329 * begin program 330 * 331 org 333 332 ber halt1 333 sw gmrk1 334 clear cs 3999 335 sbr clear&3 336 c clear&3,@U99@ 337 bu clear 338 * 339 * get past library 340 * 341 loop1 sw gmrk1 342 rt systp,gmrk1-21 343 c gmrk1-2,@999999 headr@ 344 bu loop1 345 sw gmrk1 346 rt systp,gmrk1-1 347 bef tstss 348 b loop1 349 * 350 * redundancy on tape load 351 * 352 halt1 h 0,199 353 b halt1 354 tstss bss librn,f 355 * 356 * retrieve pass 2 for assembly run 357 * 358 sw gmrk1 359 lca gmrk1,3998 360 mcw &passa&13,nois2&6 361 * 362 * get past librarian 363 * 364 loop2 bce lopsa,byct,4 365 sw 3998 366 rtw systp,passa 367 b noise 368 a &1,byct#1 369 b loop2 370 * 371 * pass 2 found 372 * 373 lopsa rtw systp,passa 374 b noise 375 ber rderr 376 cw gmrk1 377 clr cs passa-1 378 sbr clr&3 379 c clr&3,loadd 380 bu clr 381 b dopsa 382 * 383 * library run 384 * 385 librn mcw @!13@,nois2&6 386 cw gmrk1 387 bss outpt,b 388 * 389 * retrieve update program 390 * 391 rtw systp,2000 392 b noise 393 ber rderr 394 b 2000 395 * 396 * retrieve output program 397 * 398 outpt rtw systp,2000 399 b noise 400 sw gmrk1 401 lca gmrk1,3998 402 rtw systp,2000 403 b noise 404 rtw systp,2000 405 b noise 406 sw 3998 407 rtw systp,2000 408 b noise 409 ber rderr 410 cw gmrk1,3998 411 b 2000 412 * 413 * test for noise records 414 * 415 noise sbr nosxt&3 416 sbr xr1 417 mz &9,xr1 418 nois2 bce 4000-12&x1,0,} 419 chain12 420 nosxt b 0 421 * 422 * read redundancy routine 423 * 424 rderr sbr xr1 425 sbr rdxt&3 426 mz &9,xr1 427 mcw 4000-10&x1,rdtry&7 428 bsp bsp systp 429 mcw &9,rdct#1 430 rdtry rtw systp,0 431 ber *&5 432 rdxt b 0 433 bsp systp 434 s &1,rdct 435 bwz rdtry,rdct,b 436 h 0,191 437 mcw rdtry&7,*&8 438 rtw systp,0 439 bss bsp,e 440 h 0,111 441 b rdxt 442 ltorg* 443 dcw #22 444 gmrk1 dcw @}@ 445 ex 0 446 job autocoder-pass 1 retrieve update -version 3 3713l 447 sfx r 448 systp equ %u1 449 ltapsw equ 2725 450 org 2000 451 bss list,g 452 cw endrt 453 start rtw systp,1 454 bce start,013,} 455 chain12 456 ber rderr 457 b 333 458 rderr bsp systp 459 mcw &9,rdct#1 460 rdtry rtw systp,1 461 ber *&5 462 b 333 463 bsp systp 464 s &1,rdct 465 bwz rdtry,rdct,b 466 h 0,191 467 again rtw systp,1 468 bss rderr,e 469 h 0,111 470 b 333 471 list sw endrt 472 lca endrt,1998 473 rtw systp,333 474 bef get 475 b list 476 get bsp systp 477 bsp systp 478 cw endrt,1998 479 sw ltapsw 480 mcw @333@,rdtry&6 481 mcw @333@,again&6 482 rtw systp,333 483 ber rderr 484 b 333 485 ltorg* 486 endrt dcw @}@ 487 ex 0 488 job autocoder-pass 1 copy system tape -version 3 3714l 489 sfx u 490 org 87 491 xr1 dcw 000 492 dc 00 493 xr2 dcw 000 494 dc 00 495 xr3 dcw 000 496 dc 00 497 systp equ %u1 498 outap equ %u6 499 input equ 1500 500 * 501 * begin program 502 * 503 org 333 504 sw endup 505 rwd systp 506 rwd outap 507 cc 1 508 cs 332 509 cs 510 b clear 511 bss copy,c 512 * 513 * retrieve update program 514 * 515 rtw systp,input 516 sbr xr1 517 mn 0&x1 518 sw 519 dcw @N0000@ 520 b noise 521 ber rderr 522 wtw outap,input 523 ber wterr 524 b clear 525 bypss rtw systp,input 526 c input&19,@999999 headr@ 527 bu bypss 528 rtw systp,input 529 bef getup 530 b bypss 531 getup bce ldupd,byct,3 532 rtw systp,input 533 dcw @N0000000000000@ 534 b noise 535 ber rderr 536 a &1,byct#1 537 b getup 538 ldupd cs 199 539 cs 80 540 sw 6,16 541 sw 21 542 b head 543 b begin 544 * 545 * copy system 546 * 547 copy rtw systp,input 548 sbr xr1 549 mn 0&x1 550 sw 551 bef eof 552 b noise 553 ber rderr 554 * 555 * test end of library 556 * 557 swich nop wtap1 558 sw libsw 559 c input&10,@999999@ 560 bu wtap1 561 cw libsw#1 562 * 563 * write tape 564 * 565 wtap1 wtw outap,input 566 ber wterr 567 * 568 * do next block 569 * 570 reout b clear 571 b copy 572 * 573 * end of file 574 * 575 eof wtm outap 576 bw ismor,eofsw#1 577 b clear 578 lca endup,3998 579 bw erase,updsw 580 b halt1 581 * 582 * erase tape 583 * 584 erase skp outap 585 wt outap,input 586 bce halt1,skpct-1,2 587 a &1,skpct#2 588 b erase 589 * 590 * end of copy run 591 * 592 halt1 mcw @1401 autocoder system copied on tape unit 6@,243 593 w 594 cc 1 595 bw cpynd,updsw#1 596 rwd outap 597 cpynd rwd systp 598 h 0,122 599 b clear 600 s skpct 601 mcw @n@,swich 602 sw eofsw 603 b copy 604 * 605 * set up copy of rest of system 606 * 607 ismor bw bdeof,libsw 608 cw eofsw 609 mcw @b@,swich 610 b reout 611 * 612 * false end of file 613 * 614 bdeof bsp outap 615 b reout 616 * 617 * test for noise records 618 * 619 noise sbr nosxt&3 620 sbr xr2 621 mz &9,xr2 622 nois2 bce 4000-26&x2,input&13,} 623 chain12 624 nosxt b 0 625 * 626 * read redundancy routine 627 * 628 rderr sbr rdxt&3 629 sbr xr3 630 mz &9,xr3 631 mcw 4000-24&x3,rdtry&7 632 mn rdtry&3,bsp1&3 633 bsp1 bsp systp 634 mcw &9,rdct#1 635 rdtry rt systp,0 636 ber *&5 637 rdxt b 0 638 mn rdtry&3,bsp2&3 639 bsp2 bsp systp 640 s &1,rdct 641 bwz rdtry,rdct,b 642 mn rdtry&3,*&7 643 h 0,190 644 mcw rdtry&7,*&8 645 rt systp,0 646 bss bsp1,e 647 h 0,111 648 b rdxt 649 * 650 * write redundancy routine 651 * 652 wterr sbr wtxt&3 653 sbr xr3 654 mz &9,xr3 655 mcw 4000-6&x3,wttry&7 656 mn wttry&3,bsp3&3 657 bsp3 bsp outap 658 skp systp 659 bce subct,wtct-1,1 660 a &1,wtct#2 661 wttry wt outap,0 662 ber bsp3 663 wtxt b 0 664 subct s wtct 665 mn wttry&3,*&7 666 h 0,160 667 b wttry 668 * 669 * clear output area 670 * 671 clear sbr clrxt&3 672 mcw @I99@,clr&3 673 clr cs 3999 674 sbr clr&3 675 c clr&3,&input-1 676 bu clr 677 clrxt b 0 678 ltorg* 679 endup dcw @}@ 680 ex 0 681 job autocoder-pass 1 update library -version 3 3715l 682 image equ 101 683 * 684 * begin update 685 * 686 org input 687 begin rwd systp 688 cw hedsw,endsw 689 mcw &image&13,nois2&6 690 lca endup,image&80 691 rt systp,image 692 dcw @N0000000000000@ 693 b noise 694 cs image&79 695 b rdtp 696 rebeg b read 697 bw serch,insw 698 bw serch,delsw 699 b rebeg 700 * 701 * search for correct subroutine 702 * 703 serch b doctl 704 c 11,@999999@ 705 be clnup 706 c 8,name#3 707 be found 708 bh quit 709 mcw 8,name 710 s seqno 711 loop1 bw headr,hedsw 712 b rdtp 713 bw headr,hedsw 714 more b wtap2 715 b loop1 716 * 717 * header located on tape 718 * 719 headr bw past,endsw 720 c image&7,name 721 be found 722 cw hedsw 723 bl past 724 b more 725 * 726 * subroutine not on tape 727 * 728 past bsp systp 729 cs image&79 730 cw hedsw 731 bw unkwn,delsw 732 c 22,@ @ 733 bu unkwn 734 back b ptctl 735 b inser 736 * 737 * subroutine found 738 * 739 found c 22,@ @ 740 bu partl 741 * 742 * delete and/or insert whole subroutines 743 * 744 all mcw @delet@,218 745 b ptctl 746 s seqno 747 loop2 b print 748 b rdtp 749 bw exit,hedsw 750 b loop2 751 exit bsp systp 752 cs image&79 753 cw hedsw 754 bw rebeg,delsw 755 * 756 * insertion of whole subroutine 757 * 758 b doctl 759 b ptctl 760 inser s seqno 761 loop3 b read 762 bw serch,insw 763 bw serch,delsw 764 b doout 765 b print 766 b wtap2 767 b loop3 768 * 769 * delete and/or insert parts 770 * 771 partl s xr3&2 772 bwz some,21,2 773 c 24,@ @ 774 be all 775 a &2,xr3 776 sw 23 777 * 778 * scan for values of operands 779 * 780 some sw opsw#1 781 test1 bce twoop,21&x3,, 782 c 22&x3,@ @ 783 be twoop 784 a &1,xr3 785 b test1 786 twoop za 20&x3,wk1#4 787 a @0@,wk1 788 bce nxtop,21&x3,, 789 b out 790 nxtop sw 22&x3 791 sbr xr2 792 add a &1,xr3 793 c 22&x3,@ @ 794 bu add 795 za 20&x3,wk2#4 796 a @0@,wk2 797 c wk1,wk2 798 bl badst 799 be onop 800 is2op cw opsw 801 clrwm cw 1&x2 802 out cw 23 803 bw *&8,opsw 804 mcw @delet@,218 805 b ptctl 806 * 807 * search for first statement 808 * 809 comp c wk1,seqno 810 be gotit 811 a &1,seqno 812 b wtap2 813 b rdtp 814 bw ntfnd,hedsw 815 b comp 816 * 817 * first statement found 818 * 819 gotit bw qinsr,opsw 820 * 821 * search for second statement 822 * 823 comp2 b print 824 b rdtp 825 c wk2,seqno 826 bh bspc 827 bw ntfnd,hedsw 828 b comp2 829 * 830 * second statement found 831 * 832 bspc bsp systp 833 cs image&79 834 s &1,seqno 835 thru bw loop3,delsw 836 b doctl 837 b ptctl 838 b insr&4 839 * 840 * test insert or delete 841 * 842 qinsr bw insr,insw 843 b print 844 s &1,seqno 845 cs image&79 846 b thru 847 * 848 * insert statements 849 * 850 insr b wtap2 851 b read 852 bw serch,insw 853 bw serch,delsw 854 b doout 855 cw seqsw#1 856 b print 857 s &1,seqno 858 b insr 859 onop bw is2op,insw 860 sw opsw 861 b clrwm 862 * 863 * replicate library 864 * 865 repet b wtap2 866 clnup b rdtp 867 b wtap2 868 bw final,endsw 869 b clnup 870 * 871 * end of update - go to copy routine 872 * 873 final wtm outap 874 mcw &input&13,nois2&6 875 cw libsw,eofsw 876 cw updsw 877 cs 332 878 cs 879 cc 1 880 byp1 rt systp,image 881 bef reout 882 b byp1 883 * 884 * set up insert card 885 * 886 doout sbr outxt&3 887 mcw 80,image&79 888 mcw 889 mcw 890 outxt b 0 891 * 892 * read card subroutine 893 * 894 read sbr cdxt&3 895 bw rdcd,lstsw 896 b clnup 897 rdcd r 898 cw insw,delsw 899 c 20,@inser@ 900 bu ckdel 901 sw insw#1 902 b cdxt-5 903 ckdel c 20,@delet@ 904 bu ckrep 905 sw delsw#1 906 b cdxt-5 907 ckrep c 20,@repet@ 908 be repet 909 blc lstcd 910 cdxt b 0 911 lstcd cw lstsw#1 912 b cdxt 913 * 914 * read tape subroutine 915 * 916 rdtp sbr rtxt&3 917 rt systp,image 918 sw image&80 919 dcw @n000000000@ 920 b noise 921 ber rderr 922 cw hedsw,endsw 923 c image&19,@headr@ 924 bu rtxt 925 sw hedsw#1 926 c image&10,@999999@ 927 bu rtxt 928 sw endsw#1 929 rtxt b 0 930 * 931 * write tape subroutine 932 * 933 wtap2 sbr wt2xt&3 934 c image&79,blank 935 be wt2xt 936 wt outap,image 937 ber wterr 938 cs image&79 939 wt2xt b 0 940 * 941 * print heading 942 * 943 head sbr hdxt&3 944 cs 332 945 cs 946 mcw @1401 autocoder - library changes@,251 947 mcw @page@,275 948 a &1,pgno#3 949 mcs pgno,279 950 w 951 cc k 952 cs 279 953 mcw @seq label op operands@,227 954 w 955 cc k 956 cs 228 957 hdxt b 0 958 * 959 * set up control card for printing 960 * 961 doctl sbr ctlxt&3 962 cc k 963 cs 332 964 cs 965 mcw 72,271 966 mcw 22,221 967 mcw 20,218 968 mcw 11,212 969 ctlxt b 0 970 * 971 * print control card 972 * 973 ptctl sbr ptcxt&3 974 w 975 cc j 976 cs 332 977 cs 978 bcv newpg 979 ptcxt b 0 980 * 981 * new page 982 * 983 newpg sbr newxt&3 984 cc 1 985 b head 986 newxt b 0 987 * 988 * print statements 989 * 990 print sbr ptxt&3 991 sw 220,214 992 sw 207 993 bce comnt,image&5,* 994 mcw image&71,271 995 mcw image&19,218 996 mcw image&10,212 997 tstsq bw seqnc,seqsw 998 sw seqsw 999 b bump 1000 comnt mcw image&71,273 1001 mcw 1002 mcw 1003 b tstsq 1004 seqnc mn seqno,204 1005 mcs 1006 bump a &1,seqno#4 1007 w 1008 cs 332 1009 cs 1010 bcv newpg 1011 ptxt b 0 1012 * 1013 * sequence error 1014 * 1015 quit cs 332 1016 cs 1017 mcw @input cards out of sequence - start over@,240 1018 w 1019 cc 1 1020 halt2 h 0,133 1021 b halt2 1022 * 1023 * subroutine unknown 1024 * 1025 unkwn bwz isunk,21,2 1026 c 24,@ @ 1027 be back 1028 isunk mcw @subroutine unknown@,299 1029 w 1030 cc l 1031 cs 299 1032 loop4 b read 1033 bw serch,insw 1034 bw serch,delsw 1035 b loop4 1036 * 1037 * bad control card 1038 * 1039 badst mcw @bad statement@,299 1040 w 1041 cc l 1042 cs 299 1043 cw 1&x2,23 1044 b loop4 1045 * 1046 * statement does not exist in subroutine 1047 * 1048 ntfnd mcw @statement does not exist@,299 1049 w 1050 cc l 1051 cs 299 1052 bw end99,endsw 1053 b loop4 1054 * 1055 * end of library reached before routine found 1056 * 1057 end99 mcw @subroutine unknown@,299 1058 w 1059 cc l 1060 cs 299 1061 mcw @end of library reached@,222 1062 w 1063 bsp systp 1064 cs image&79 1065 loop6 b read 1066 b loop6 1067 dcw #50 1068 blank dc #29 1069 ltorg* 1070 3998 dcw @}@ 1071 ex 0 1072 job autocoder-pass 1 output library -version 3 3716l 1073 sfx p 1074 systp equ %u1 1075 xr1 equ 89 1076 * 1077 * begin program 1078 * 1079 org 2000 1080 sw endot 1081 lca endot,181 1082 cs 1083 cs 80 1084 sw 6,16 1085 cs 332 1086 cs 1087 cc 1 1088 rwd systp 1089 rt systp,101 1090 cs 180 1091 sw 106,116 1092 sw 121 1093 bss doall,e 1094 * 1095 * print and/or punch selected macros 1096 * 1097 cw hdrsw 1098 read cc 1 1099 b prthd 1100 r 1101 mcw @2@,opcod 1102 c 20,@print@ 1103 be selmc 1104 c 20,@punch@ 1105 bu error 1106 * 1107 * punch option 1108 * 1109 a &4,opcod 1110 mn &4,opsav#1 1111 * 1112 * search for macro 1113 * 1114 selmc c 8,name#3 1115 be tstlc 1116 mcw 20,218 1117 mcw 11,212 1118 bl rdtp2 1119 rwd systp 1120 lca endot,181 1121 rt systp,101 1122 cs 180 1123 sw 106,116 1124 sw 121 1125 rdtp2 rt systp,101 1126 b noise 1127 ber rderr 1128 c 111,@999999@ 1129 be unkn 1130 c 120,@headr@ 1131 bu rdtp2 1132 c 8,108 1133 bu rdtp2 1134 * 1135 * desired macro found 1136 * 1137 mcw 8,name 1138 cc k 1139 w 1140 s seqno 1141 b inser 1142 cc k 1143 ptagn b print 1144 rt systp,101 1145 b noise 1146 ber rderr 1147 c 120,@headr@ 1148 bu ptagn 1149 bsp systp 1150 * 1151 * test end of run 1152 * 1153 tstlc blc eojob 1154 b read 1155 * 1156 * macro not on tape 1157 * 1158 unkn mcw @unknown@,299 1159 w 1160 cs 299 1161 mcw @999@,name 1162 b tstlc 1163 * 1164 * print and/or punch all or print headers only 1165 * 1166 doall bss setup,d 1167 cw hdrsw#1 1168 bss *&5,g 1169 b setup 1170 * 1171 * punch all 1172 * 1173 a &4,opcod 1174 mn &4,opsav 1175 setup b head1 1176 cw hdsw1#1 1177 b prthd 1178 rdtp rt systp,101 1179 b noise 1180 ber rderr 1181 c 111,@999999@ 1182 be eojob 1183 c 120,@headr@ 1184 bu dopnt 1185 b inser 1186 cc k 1187 sbr prtxt&3,*&6 1188 bcv newpg 1189 s seqno#4 1190 dopnt b print 1191 sw 106,116 1192 sw 121 1193 b rdtp 1194 * 1195 * end of job 1196 * 1197 eojob cs 332 1198 cs 1199 cc k 1200 mcw @end of library@,214 1201 w 1202 cc 1 1203 cs 180 1204 bce clrph,opsav,4 1205 rwd rwd systp 1206 halt h 0,155 1207 b halt 1208 clrph p 1209 ss 8 1210 b rwd 1211 * 1212 * incorrect input card 1213 * 1214 error h 0,144 1215 b tstlc 1216 inser sbr insxt&3 1217 mcw @ @,105 1218 mcw @inser@,120 1219 bce *&5,opsav,4 1220 b *&2 1221 p 1222 mcw @headr@,120 1223 insxt b 0 1224 * 1225 * print heading 1226 * 1227 prthd sbr hdxt&3 1228 mcw @seq label op operands@,227 1229 w 1230 cc k 1231 cs 228 1232 hdxt b 0 1233 * 1234 * print statement 1235 * 1236 print sbr prtxt&3 1237 c 120,@headr@ 1238 be dohdr 1239 bw clr,hdrsw 1240 dohdr cs 332 1241 cs 1242 bce comnt,106,* 1243 mcw 172,271 1244 mcw 120,218 1245 mcw 111,212 1246 doseq mn seqno,204 1247 mcs 1248 mn seqno,104 1249 mcw 1250 a &1,seqno 1251 mcw @ @,105 1252 opcod w 1253 clr cs 332 1254 cs 1255 bcv newpg 1256 prtxt b 0 1257 comnt mcw 172,273 1258 mcw 1259 mcw 1260 b doseq 1261 * 1262 * start new page 1263 * 1264 newpg cc 1 1265 bw *&5,hdsw1 1266 b head1 1267 b prthd 1268 b prtxt 1269 * 1270 * print main heading 1271 * 1272 head1 sbr hd2xt&3 1273 cs 332 1274 cs 1275 mcw @1401 autocoder - library@,243 1276 mcw @page@,275 1277 a &1,pgno#3 1278 mcs pgno,279 1279 w 1280 cc l 1281 cs 299 1282 hd2xt b 0 1283 * 1284 * test for noise records 1285 * 1286 noise sbr nosxt&3 1287 sbr xr1 1288 mz &9,xr1 1289 bce 4000-12&x1,113,} 1290 chain12 1291 nosxt b 0 1292 * 1293 * read redundancy routine 1294 * 1295 rderr sbr rdxt&3 1296 bsp bsp systp 1297 mcw &9,rdct#1 1298 rdtry rt systp,101 1299 ber *&5 1300 rdxt b 0 1301 bsp systp 1302 s &1,rdct 1303 bwz rdtry,rdct,b 1304 h 0,191 1305 rt systp,101 1306 bss bsp,e 1307 h 0,111 1308 b rdxt 1309 ltorg* 1310 endot dcw @}@ 1311 ex 0 1312 end 0 -------------------- object code ------------ ,008015,022026,030037,044,049,053053N000000N00001026 00013722L L068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0?00023722L ,008015,022029,036040,047054,061068,072/061039 ,001001104000033722L 00000000000000U%U4RU%U5RU%U6R L029115,001092,097101,106111104000043722L BP32BB774C018W05B157/F1M0802802 L031146,121125,132137,139146104000053722L N1B721B774C018W08B642/B6230241D022191 L037183,149153,157164,169177104000063722L B623W11 BBB627 L014197,192193,194201,206040104000073722L B681* ,;; L017349,337338,341342,343344104000083722L ;;;;;;; L007356,351352,353354,355356104000093722L ;;;;;;; L007363,358359,360361,362363104000103722L ; ;; ; ; ; L030393,365369,370374,384040104000113722L ;; ; ;; ;; L037430,404405,415425,426430104000123722L ;;;; ; ; ; L022452,432433,434435,438443104000133722L ; ; ; ; L035487,458468,478040,040040104000143722L ; ; ; L030517,498508,040040,040040104000153722L ; ; ;;;;; L034551,528538,548549,550551104000163722L ;; ; , L017568,555556,565566,567568104000173722L ;;; ;;; L015583,570571,572581,582583104000183722L ;;;;;;; L007590,585586,587588,589590104000193722L ;;;;;;; L007597,592593,594595,596597104000203722L ;;;;;;; L007604,599600,601602,603604104000213722L ;;;;;;; L007611,606607,608609,610611104000223722L ;;; ;;; L011622,613614,615620,621622104000233722L S337M026W12B721B774C020V71B670SB634006*L039661,627634,638642,649654104000243722L BO98BV06MW13743B721B774B677006*C018W16 L038699,666670,677681,685693104000253722L B713SB721B821BO98BJ68H761M086I97 L032731,705709,713717,721725104000263722L ,I98M773I98NW17I86BS22N764B000000 L033764,736743,750754,758762104000273722L M%U6I12W}H809/086B798CBM46A1K8061 L033797,774778,782787,792793104000283722L BS22N812B000M46M%U4001R)W18B681021 L035832,802806,810813,821825104000293722L HO66O75S095H099H46C0080?0H099B984S L034866,840844,851858,862040104000303722L B6810?0@AW19094B851B/13612B/73 L033899,875882,886890,893897104000313722L BO14F95BO14F82BO14G08B/13 L025924,904907,911914,918921104000323722L 611B992 B/13593BO14F20 L024948,928932,935939,942946104000333722L BO14E77BO14E52B/47581B/47 L025973,953956,960963,967970104000343722L 620BO14E33S100B8Q6LW20571BO14 L029'02,977981,984988,992999104000353722L F69H/04MW23W26S095C0B2W28,021B'90S L034'36,'06'10,'17'21,'28'32104000363722L B/050B1,C099W30B'97SM0B1WK4AW31094 L034'70,'45'52,'57'64,040040104000373722L B/050943AW31099B'21AW31099,W18B000BN55 L038/08,'79'86,'90'97,/01/05104000383722L B/01H089M0'2089C023W34B/43/LW200'0B333 L038/46,/13/17,/24/31,/36/43104000393722L H089M0'2089BN55L0A90'0B681HO66/87BO14 L037/83,/51/58,/62/69,/73/80104000403722L G27CW26W37BO75/BN55BO750A9 M0A9607BO75 L038S21,/87/94,/99S03,S11S18104000413722L H094HT43M0!3094M0!8T01M0!0T13,T19 L033S54,S26S30,S37S44,S51040104000423722L M0!7T21AW39T21)T19DS97U28DT01U28MW40W41L039S93,S62S69,S73S80,S87040104000433722L M%U0000RBT35T01WB000KBS94000}BBB L032T25,T02T10,T15T23,T24T25104000443722L BBBBBBB L007T32,T27T28,T29T30,T31T32104000453722L BBBT44LB000SW31W41DS97T61U%U0B L030T62,T34T35,T40T44,T51T58104000463722L BT83T01WVU22W41KBS94AW31W43U%U6E L032T94,T71T79,T83T90,040040104000473722L BU07W425BS87SW43.000202BS87.000200BS87EL039U33,U03U07,U11U18,U22U29104000483722L MT01U48M%U0000R.000201BT40L622567L L034U67,U41U49,U56U60,U67040104000493722L H336M06MW46O93L186086B721BL91BC49U%U4B L038V05,U75U82,U89U93,U97V01104000503722L M%U1I97RM%U1I97RHP30341BS22NP23B341H089L039V44,V14V22,V29V33,V37V41104000513722L M0'2089,021M0213U9BM06DIOCSBN55A0A9W01 L038V82,V52V56,V63V67,V72V76104000523722L LW01373SW02B3330000?JOBCTL456 L029W11,V90V94,V98W03,W06W09104000533722L MDTFW 7$ L009W20,W13W14,W17W18,W19W20104000543722L 521YESTAP L017W37,W24W27,W29W31,W32W35104000553722L 129 3U9 L009W46,W40W41,W42W44,040040104000563722L } L001W49,040040,040040,040040104000573722L N000000,040040,040040,040040B00000583722L ,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 00593721L ,068072)063067/061039 ,001001104000603721L H099H03HO66O75BM06021 )W18C007H48B!31S L038W87,W57W64,W72W76,W83040104000613721L S095C0080?0H099BZ35SBM060?0@AH49094BW92L039X26,W92W99,X03X08,X16X23104000623721L BO14E00B!89554B!89457BN37 L025X51,X31X34,X38X41,X45X48104000633721L 452BO14D87BO14D74BZ81 L024X75,X55X59,X62X66,X69X73104000643721L B!89424B!89414B!71 B!89 L025Y00,X80X83,X87X90,X94X97104000653721L 403BZ47393BV72373BV41020 L024Y24,Y04Y08,Y11Y15,Y18Y22104000663721L B!89368BO14D55BV41011BV41 L025Y49,Y29Y32,Y36Y39,Y43Y46104000673721L 010BO14D30BO14D23BV41009 L024Y73,Y53Y57,Y60Y64,Y67Y71104000683721L B!89547B/13342BV41206B!06 L025Y98,Y78Y81,Y85Y88,Y92Y95104000693721L L%U1001RBZ21L)W49B101U%U1BN288 L031Z29,Z00Z08,Z13Z17,Z21Z26104000703721L .BZ00S100,021BXK7BN55L0A9393 L028Z57,Z31Z35,Z39Z43,Z47Z51104000713721L V333W181BN55L0A9383B333HO66Z95BO14E20 L037Z94,Z66Z70,Z77Z81,Z88Z92104000723721L L0A9429BO75HO66!20BO14E13L0A9565BO75 L036!30,!02!06,!13!17,!20!27104000733721L MH52094D008093S100BN55L0A93M9LH53343 L036!66,!38!45,!49!53,!60040104000743721L BM06D022404YH54404BM06H089V333W181 L034J00,!71!78,!85!89,!93040104000753721L M0'2089BN55L0A90'0H089VM06W181BJ08H761 L038J38,J08J12,J19J23,J31J35104000763721L M086I97,I92M773I92MH55I85B750DH56768 L036J74,J46J50,J57J64,J68040104000773721L /086MH61020H099622BK01/086,001H089021 L037K11,J79J86,J93J97,K01K05104000783721L MH62073M0?0L89H094M089H65P0!10'0H089 L036K47,K19K26,K30K37,K44040104000793721L MH670'0BL01073'MH65089,0'0MH69080M079 L037K84,K55K63,K70K74,K81040104000803721L )0'0BJ35)I92BJ97M0?00?0H099C0?0H54 L034L18,K89K93,K97L01,L08L12104000813721L Q099BL12SAH70099BL470?0,BK19MH690'0 L035L53,L23L28,L35L43,L47040104000823721L MH54073BJ35)I92DH71768BU60 ' L037L90,L61L65,L69L76,L80040104000833721L S100BN55L0A9349B774BM30006*C020H76BM46/L039M29,L95L99,M06M10,M18M25104000843721L B721BM06006*BW50DH56768H099567BO98 L034M63,M34M42,M46M53,M60040104000853721L HQ99U97C018H79/086MH84020BN05SHL79V06 L037N00,M71M78,M82M89,M94040104000863721L BK01HL79N16BK01L%U1341RU%U1B)568BU60 L036N36,N05N12,N16N24,N29N33104000873721L BN55M0A9452B!89442HO13,021C0B2H69 L033N69,N41N48,N52N55,N59N63104000883721L AH70099BO02SBO060B0,C099H86BN59/,W18 L036O05,N77N82,N90N97,O02040104000893721L ,0B1B000H094M0!2H89B'06MH89094CW260!0 L037O42,O10O14,O18O25,O29O36104000903721L H094M0!0089Q094BO87SBO750!0@BO36 L032O74,O47O54,O58O63,O71040104000913721L V333W181BO25LH535X6BO75HP20/186,101 L035P09,O83O87,O94O98,P02P06104000923721L M086186B000 L%U1101R,332M773332 L033P42,P17P21,P24P32,P36040104000933721L M%U1101RBS22NP23B101BS22NA35MI19340 L035P77,P51P55,P59P63,P67P71104000943721L B119CU%U4BHN00Q88H6651C018H92BQ96/ L034Q11,P83P88,P95P99,Q00Q07104000953721L BC19BR43BS22NA35CI95I02B?05SCI29H95 L035Q46,Q16Q20,Q24Q28,Q35Q40104000963721L BQ60/B205B220CI29H98B119SMI97086,I10 L036Q82,Q52Q56,Q60Q67,Q72Q79104000973721L BA44GVR04I101BO98BU97VR27I091DH56768 L036R18,Q88Q96,R00R04,R12040104000983721L BJ35BR32U%U4BL331186BU97H?04,I03 L032R50,R23R27,R32R39,R43R47104000993721L )W18S100BN55?0A9I02VR93W181BN55?0A9I07 L038R88,R55R59,R63R70,R78R82104001003721L )I03/086,001B000V?37I031CI95I07B?37S L036?24,R93R97,?01?05,?13?20104001013721L BS22NA35B?13BQ88A1C018H92BQ12S L030?54,?29?33,?37?42,?43?50104001023721L C018H95B?75/B205B175C018H98B138S L032?86,?62?67,?71?75,?82040104001033721L VA03I031)I10BQ83BC19)I09H182Q72H234 L035A21,?95?99,A03A07,A11A18104001043721L MI08131BQ40Q88M%U4I12RVA85I091H684A74 L037A58,A29A33,A36A44,A52040104001053721L HB02B68)I10B642M331086,I09H684B03 L033A91,A66A70,A74A81,A85040104001063721L HM09C08B642/086VB41I101BC34A1C018H92 L036B27,A99B03,B07B15,B20B21104001073721L BB68/BC19BR43BC49CI95I02BB72S,I10 L033B60,B33B37,B41B45,B52B57104001083721L MI97086B685)I10VB61I031CI95I07BB03SBS22L039B99,B68B72,B76B84,B91B96104001093721L NA35BB84HB71M10BB03HC33M086331B000 L034C33,C04C08,C15C19,C23C30104001103721L ,I10MI08B52BB41HC80BS22NA35BC53I86Y L035C68,C38C45,C49C53,C57C61104001113721L BC53I86ZB000@001INP002OUT L025C93,C77C81,C82C85,C88C91104001123721L 003TAP004REA005PUN008 L021D14,C97D00,D03D06,D09D12104001133721L CHE006PRI@007LOA@ L017D31,D18D21,D24D25,D28D31104001143721L 012BLO013UNB014FIX015 L021D52,D35D38,D41D44,D47D50104001153721L VAR@081STA082NON083 L019D71,D56D57,D60D63,D66D69104001163721L TM @084ALL085IDE@ L017D88,D75D76,D79D82,D85D88104001173721L 199UNL200NOR@2019 L019E07,D92D95,D98E01,E02E05104001183721L 20212 @076REC@I9C L017E24,E11E14,E15E18,E21E22104001193721L OUTI9DINP@045REL046 L019E43,E28E31,E34E35,E38E41104001203721L STO006OVE@007TAP008 L019E62,E47E50,E53E54,E57E60104001213721L REA009PUN010PRI@011 L019E81,E66E69,E72E75,E78E79104001223721L STA012NON013MIX014CHE L021F02,E85E88,E91E94,E97F00104001233721L 015IDE026RDL016TM @ L019F21,F06F09,F12F15,F18F21104001243721L 0181 0192 0203 021 L021F42,F25F28,F31F34,F37F40104001253721L 4 0225 0236 0247 L021F63,F46F49,F52F55,F58F61104001263721L 0258 @027729028733 L019F82,F67F70,F71F74,F77F80104001273721L @029NOR030UNL@037 L017F99,F84F87,F90F93,F96F97104001283721L REC038HAS@034CLE033 L019G18,G03G06,G09G10,G13G16104001293721L PRO032SCA@OVEFORCOB L019G37,G22G25,G28G29,G32G35104001303721L VARCHAFILMODCARALTREC L021G58,G41G44,G47G50,G53G56104001313721L SIZPADBLOIOAWORINDEOF L021G79,G62G65,G68G71,G74G77104001323721L WLRTOTTYPCHEHEASERREE L021H00,G83G86,G89G92,G95G98104001333721L REW@TAPCHEDIOFEAIOD L019H19,H04H05,H08H11,H14H17104001343721L LABALTEXIVARCOUDRIRWD L021H40,H23H26,H29H32,H35H38104001353721L REAINPEX71 8$ L014H54,H44H47,H49H50,H53H54104001363721L *555555' , L015H69,H56H57,H62H63,H66H68104001373721L 16 DTF3333352 L020H89,H71H72,H77H80,H85H87104001383721L ALTJOBCTL N L019I08,H93H96,H99I03,I04I08104001393721L L002I10,I10I12,040040,040040104001403721L " L001I98,040040,040040,040040104001413721L N000000,040040,040040,040040B00001423721L ,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 01433723L ,068072)063067/061039 ,001001104001443723L ,;; ;;; L012352,342343,344350,351352104001453723L ;;;;;;; L007359,354355,356357,358359104001463723L ;;;;; ;; L010369,361362,363364,365369104001473723L ; ; ; ;; L035404,374384,394404,040040104001483723L ; ;; ;;;; L028432,415425,426430,431432104001493723L ;; ; ; ; ; ; L035467,434435,438443,453458104001503723L ; ; ; L030497,478488,040040,040040104001513723L ; ; ; L030527,508518,040040,040040104001523723L ; ;;;;; ; L027554,538548,549550,551552104001533723L ; ; } L014568,556565,566567,568040104001543723L N000000,040040,040040,040040B00001553723L ,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 01563724L ,068072)063067/061039 ,001001104001573724L )332U%U1BU%U1BBP63MI97086B662CH182Q20 L037137,105110,115119,126131104001583724L B1670241D022160B167237 BBB171S337 L033170,146153,161162,163167104001593724L B183B721B?37H204M238Q67M238?82B000 L034204,175179,183187,194201104001603724L H219,Q51?66B000MI97086B721BQ20456 L033237,209216,220227,231235104001613724L N L001238,246040,040040,040040104001623724L } L001332,040040,040040,040040104001633724L N000000,040040,040040,040040B00001643724L ,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 01653725L ,068072)063067/061039 ,001001104001663725L D432768HJ60433L186086BJ35)I92,606 L033373,348355,362366,370040104001673725L M773606BS22N412)606U%U5RBS22N423 L032405,381385,389393,398402104001683725L BZ00 L%U5434W L%U1W50R5N L028433,410413,421424,432433104001693725L C!73W14B450SBT08BO33U%U5RU%U1BU%U1B L035468,441446,450454,459464104001703725L U%U6MU%U6RMW01003LI98036M%U5001WU%U5M L037505,474479,486493,501040104001713725L U%U4R)187036)100M%U1I97R,I98B543KB522 L037542,511518,522530,534539104001723725L M%U1I97R,I98S605604V574604KB543/466/ L036578,551555,562570,574578104001733725L /BW50N594BM65Y34L%U1K10R11 L026604,580584,588592,595603104001743725L A} L002606,606040,040040,040040104001753725L N000000,040040,040040,040040B00001763725L ,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 01773728L ,068072)063067/061039 ,001001104001783728L 000000000000000 L015101,001092,097040,040040104001793728L } L001100)100100,101040,040040104001803728L }00*** L006192)187187,190040,040040104001813728L /!73//086BW50N132B141074NB541 L029129,105106,110114,118126104001823728L 141M%U5001RM172N74M176B467/086BW50 L034163,133141,148152,156160104001833728L N132BN751/086 L013176,168172,173201,461040104001843728L HL04510C!73W14B506SBT08B506C!73W14BS64/L039505,474481,486490,494501104001853728L B525B686CB686A/0861H509O33M'15U62 L033538,510515,520524,525532104001863728L MMC018'18B697006*B697/S090BM19 L030568,540541,548556,561565104001873728L ?0/9'22BW50N922M'23I96,I98CI95'22B631S L038606,576580,584591,595602104001883728L CI29'26B'02SBW50NO24B576B6510S0,BW50 L036642,614619,623627,631639104001893728L NO24BL01BM19?0/9'22CI95'22B931SBW50 L035677,647651,655662,669674104001903728L N922B662M'27602B576,001HO99L01BO48006* L038715,682686,693697,701708104001913728L C018'30BO48SC018'33BH11SC018'36B879S L036751,723728,735740,747040104001923728L C018'39BU33SC018'42B474SC018'26BU78S L036787,759764,771776,783040104001933728L C019W05BJ51SC020U59BJ51SC020T57B494S L036823,795800,807812,819040104001943728L H099T74C0180?0H099BP00SB8590?0#B831 L035858,831838,842847,855040104001953728L BO48020 BO48016 BP00BO331B879008* L033891,867875,879883,884040104001963728L C016'26BU78SC016'36B879/B506000M%U4I12RL039930,899904,911916,920923104001973728L B943I86RBL01BW50N922CI31W16B943SM'27958L039969,939943,947951,958963104001983728L B943I86SB943I86CU%U4BM943958B510MI97086L039'08,978986,991998,'02040104001993728L BU78SCRALT RENDN L019'27,'13'16,'19'23,'24'27104002003728L MLCCHAENTMA EX } L016'43,'31'34,'37'40,'43040104002013728L N000000,040040,040040,040040B00002023728L ,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 02033727L ,068072)063067/061039 ,001001104002043727L 000000000000000 L015101,001092,097101,040040104002053727L }00*** L006192)187187,190040,040040104002063727L }/!73/B1181891B132 L018117)100100,101105,106114104002073727L M959764M959780,885,779,762B467H07* L034151,125132,136140,144040104002083727L M959526M959533B467 L018169,159166,201461,040040104002093727L B653,001HO99467B758006*C020964BH11S L035501,471475,482490,497040104002103727L C020969B758SC018972B795SC020977BU33S L036537,509514,521526,533040104002113727L C020982B857SC018985BU78SC019W05BJ51S L036573,545550,557562,569040104002123727L C020U59BJ51SC020990B918SH099T74C0180?0 L038611,581586,593598,605040104002133727L H099BP00SB6330?0#B605B758020 B758016 L037648,616621,629633,641040104002143727L BP00H696/086B677CB934A1 L023671,653657,661665,666671104002153727L K6931BW50N699B708074NB471934M%U5001R L036707,677681,685693,697700104002163727L )665779D991703)762885C!73999B745SBT08 L037744,715722,729736,741040104002173727L M994U62MMB693BO41CNM995763 L026770,752753,754758,763764104002183727L BO41B795C8H917803M959O37BO33B653 L032802,775780,781788,795799104002193727L M996O37H917471B775008*C016985BU78S L034836,810817,825832,040040104002203727L C016972B775/BO33B467C!73999B758SBT08 L036872,844849,853857,864869104002213727L BO33B467B896C1K1M959763HX65X71 L030902,877881,886887,889896104002223727L HX70914BX71B471C!73999BS64/B758/086 L035937,910914,918925,930934104002233727L ,001M'05019BU78881X71NCHAIN L027964,942949,953956,959960104002243727L MLCWAENTMA EX ENDLTORG4 L027991,970973,978983,986991104002253727L SCR8B END$$$ L014'05,995996,997'00,040040104002263727L U%U1RSH72BL01VD680'3KB/19MW160'5M089W11L039'82,'49'53,'57'65,'69'76104002273727L M099094BG46AW11089M0?00'1MW11089BA48 L036/18,'90'94,/01/08,/15040104002283727L HS63MW16099MW16W19D0'2W19SW17W19 L032/50,/23/30,/37/44,040040104002293727L V/70W19KAW18099B/44B!74UI00MW16W19 L034/84,/59/66,/70/78,040040104002303727L MUI2099D0'3W19SW17W19M0?00?0QW22 L032S16,/92/99,S06S13,040040104002313727L B!740?0,VS44W19KMW22099B/99B!740?0; L035S51,S25S33,S40S44,040040104002323727L VD410'3SB000MW27020MW28075BO33BD79/086 L038S89,S60S64,S71S78,S82S86104002333727L MT58021MU61075BK97HT41,001/186L086186 L037T26,S97T04,T08T12,T16T20104002343727L BD79L186086B000D83M%U1001RLTORG*# L033T59,T31T38,T42T45,T53T59104002353727L RLSGETPUTDTFOPEHU14/086 L023T82,T63T66,T69T72,T75T79104002363727L MW29086MW36020MU61075MW37006B000MW29L01L039U21,T90T97,U04U11,U15040104002373727L MW38N66BE90MU62075BO33MW39018BP18INCLD L038U59,U29U33,U40U44,U51U55104002383727L ZYWBT75M192011BK97BW50 L022U81,U61U62,U63U67,U74U78104002393727L NV89B434466 L011U92,U86U90,U93U96,U99V02104002403727L LW400?0H099 L011V30,V05V08,V11V14,V17V27104002413727L AW18095BH220953AW41089,0S1BV200S1, L034V64,V38V46,V53V57,040040104002423727L M095H10BN39MH10095BP79 L%U5434R0000 L037W01,V72V76,V83V87,V90V99104002433727L CALL!73 A3 L018W19,W06W09,W12W17,W18W19104002443727L ORG LBUNKNOWN*N L019W38,W23W28,W29W30,W37W38104002453727L D;1 L003W41,W40W41,040040,040040104002463727L } L001W49,040040,040040,040040104002473727L N000000,040040,040040,040040B00002483727L ,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 02493726L ,068072)063067/061039 ,001001104002503726L H094HX70M0!3094M0!8X29M0!0X41,X47 L033W82,W54W58,W65W72,W79040104002513726L M0!7X49AY93X49)X47DX25Y55DX29Y55MY94Y95L039X21,W90W97,X01X08,X15040104002523726L M%U0000RBX62X29WB000KBX22000}BBB L032X53,X30X38,X43X51,X52X53104002533726L BBBBBBB L007X60,X55X56,X57X58,X59X60104002543726L BBX71LB000SY96Y95DX25X88U%U0BBY10X29W L037X97,X62X67,X71X78,X85X90104002553726L VY49Y95KBX22AY96Y98U%U6EBY34Y975BX15 L036Y33,Y06Y10,Y17Y22,Y30040104002563726L SY98.000202BX15.000200BX15EMX29Y75 L034Y67,Y38Y45,Y49Y56,Y61040104002573726L M%U0000R.000201BX67HEADR129 L028Y95,Y76Y83,Y87Y92,Y94Y95104002583726L 1 L003Y98,Y97040,040040,040040104002593726L M340H10MMW12!55BW50NZ68)W49,I98 L031Z30,Z07Z08,Z15Z19,Z23Z27104002603726L M187I98)I95I97BZ77BU%U1RM!55189B101Y34 L038Z68,Z38Z45,Z50Z55,Z62Z66104002613726L L%U1001RBW50NZ68)'43U%U1RMH10W01M!58L04L039!07,Z77Z81,Z85Z89,Z94!01104002623726L HN73156M!59O41M!59O37M!59O89B101H07* L036!43,!15!22,!29!36,040040104002633726L M!59759B101 106N L016!59,!51!55,!56!59,Z00040104002643726L VJ080'3SVD410'3BMH44086)0'10'4B?41 L034J07,!82!90,!97J04,040040104002653726L MW140'3B!97MH45L01MH44N66MU60075BJ58 L036J43,J15J19,J26J33,J40040104002663726L MH44K20MU62075MW08094,021BK90092Y L033J76,J51J58,J65J69,040040104002673726L C0!0H48BK09SC0!0023Q094BK16SBJ69M0230!0L039K15,J84J89,J96K00,K05K09104002683726L )021NR17BO33BL01020DM011466H099S090 L035K50,K20K24,K28K36,K43K47104002693726L BM19,001L0/90?0H099BL090S0 BN390S0,BK51L039K89,K55K59,K66K70,K78K86104002703726L MH49086BO33B467BU15LH500?0/086M466011 L037L26,K97L01,L05L09,L16L20104002713726L M460025Q099MH44016MU61075M099H53MH53099L039L65,L34L38,L45L52,L59040104002723726L )024BO33/086BL010?0 MH56018M099094BG46 L038M03,L70L74,L78L86,L93M00104002733726L M0?00S1Q099BL45HN12,021BN130S1@BM980S1,L039M42,M11M15,M19M23,M27M35104002743726L C0S1H58BN09SAH59089C089H61BM23/C072H58 L038M80,M50M55,M62M69,M74040104002753726L BN09SBN09072 BN02,0S2AH59089B000?H64090L039N19,M86M94,M98N02,N09N13104002763726L BM550S1@SH66090BN20HO21BN54AH59089 L034N53,N28N35,N39N43,N47040104002773726L C089H61BO06/NG80B653NMU62075BO33 L032N85,N61N66,N70N74,N75N82104002783726L BN70006*S090BV20021,BN470S1 ,0S1B000Y34L039O24,N94N98,O06O14,O18O22104002793726L M%U6I12WHO99BO48M955X65M086I97BO89I85* L038O62,O33O37,O41O48,O55040104002803726L MW13I85,I98M187I98BW50NO24M958X65B000 L037O99,O70O74,O81O85,O89O96104002813726L MH67075BO33AH59W01M018192SV19SS L031P30,P07P11,P18P25,P29P30104002823726L SSSSSSS096 L010P40,P32P33,P34P35,P36P37104002833726L AH68095M011466H099S090BQ25021 BV20021, L038P78,P48P55,P59P63,P71040104002843726L AH68095BH330953BM19L0/90?0H099BV200S1, L038Q16,P86P94,P98Q05,Q09040104002853726L BV650S0,LH690?0/086CH72192MH75H72BR65S L038Q54,Q25Q32,Q36Q43,Q50040104002863726L BQ65UU%U1R,100BW50NB18C020Y91BQ65/ L034Q88,Q60Q65,Q69Q73,Q77Q84104002873726L C008H75BU63SC008192BQ65/BR65MH45K20 L035R23,Q96R01,R08R13,R17040104002883726L MU60075BO33BR65020DMH80020)188MU61075 L037R60,R31R35,R43R50,R54040104002893726L BO33/086,001100M187100BW50NB29C020Y91 L037R97,R65R69,R76R83,R87R91104002903726L M008H72BL01SC008H83B?26/,188?H86090 L035?32,?05?10,?17?22,?26040104002913726L BB380'1)SH66090C089H88B?33/S090BM19 L035?67,?41?48,?55?60,?64040104002923726L )0210S1C089H90BA26TC0S1H58B?64/BA26006*L039A06,?75?82,?87?94,?99040104002933726L ,0S1MW12072M072)0S1MH93089HJ07A48 L033A39,A11A18,A22A26,A33040104002943726L B'570'1)SH66090C089H95BA40/HJ07?41 L034A73,A48A55,A62A67,040040104002953726L N466011MH45A74C019W05BJ44SC020U59BJ44S L038B11,A81A88,A95B00,B07040104002963726L BR50U63M%U1001R'44M%U1001RB?410'2 L034B45,B16B19,B27B30,B38040104002973726L ,0'10'4VC560'3KB/19M099H98S099W22 L033B78,B53B61,B65B72,040040104002983726L YW16W22MI01099SW22099MI02097C099I05 L035C13,B86B93,C00C07,040040104002993726L BC78TM0G7073HC47)0'4MH98099M0?0000)0'1 L038C51,C19C26,C30C34,C41C48104003003726L B?41M069072MW01)0'10'4B?41L073I84 L033C84,C56C63,C67C74,C78040104003013726L )0'10'4MW14072BD22099HMI84072HC47BD33 L037D21,C92C99,D07D14,D18040104003023726L MI84071HC47)I/5BC30VD531881BR65MI06A74 L038D59,D29D33,D37D41,D49D53104003033726L )188BR65MW01011BA67HG45U%U1R)V98 L032D91,D64D68,D75D79,D83D88104003043726L ,100M187100BW50NT44C020Y91BD92/C008H75 L038E29,D96E03,E07E11,E18E23104003053726L BF56SMW08089BD92087Y,006C0'0008Q089 L035E64,E35E42,E50E54,E61040104003063726L BE42/VD920'11)006,0'1,V98BW50NT44 L033E97,E70E78,E82E86,E90E94104003073726L C019W05BJ19SC020U59BJ19SC020Y91BE23S L036F33,F05F10,F17F22,F29040104003083726L MU61075LI98100BO33BE90MW08089BG26087Y L037F70,F41F48,F52F56,F63040104003093726L C0'0H48Q089BG26SVF630'11VD83V981BT75 L036G06,F78F82,F87F95,G03040104003103726L ,0'1M0'3011BO33BF63/!73/)100 L028G34,G11G18,G22G26,G30G31104003113726L MH75H72B000HG57S090V0000!01SI08095 L034G68,G42G46,G50G54,G62040104003123726L AH59089BG54/086BW50NT44MU60075,001 L034H02,G76G80,G84G88,G92G99104003133726L BN82 MH67075BK97M099UR2BV46M099UR2 L037H39,H07H11,H18H22,H29H33104003143726L BP94BN 7 L014H53,H44H45,H46H49,H50H51104003153726L DCW 1525101?R L014H67,H57H59,H60H62,H65H67104003163726L 3, 999B )00690 L019H86,H69H70,H73H76,H81H84104003173726L 155101504 I99I L016I02,H89H91,H94H96,H99I02104003183726L I9FM10 L006I08,I06I07,I12040,040040104003193726L " L001I98,040040,040040,040040104003203726L N000000,040040,040040,040040B00003213726L ,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 03223726L ,068072)063067/061039 ,001001104003233726L /Z00080 03243726L