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 8 LOAD TAPE-RIGHT MAIN-VERSION 3 3782L PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 1 01 000 JOB 1401 AUTOCODER-PASS 8 LOAD TAPE-RIGHT MAIN-VERSION 3 102 1 02 CTL 630 1 103 1 03 * 104 1 04 * EQUATES USED BY PROGRAM 105 1 05 * 106 1 06 INITAP EQU %U0 %U0 107 1 07 INTAPE EQU %U5 %U5 108 1 08 OUTAPE EQU %U6 %U6 109 1 09 PUNCH EQU 100 0100 110 1 10 OUTPUT EQU PUNCH&1 0101 111 1 11 IMAGE EQU 0 0000 112 1 12 XXXX EQU 0 0000 113 1 13 COUNT EQU IMAGE&7 0007 114 1 14 LABADD EQU IMAGE&61 0061 115 1 15 SUPADD EQU IMAGE&66 0066 116 1 16 AOP EQU IMAGE&70 0070 117 1 17 BOP EQU IMAGE&73 0073 118 1 18 DMOD EQU IMAGE&74 0074 119 1 19 TYPE EQU IMAGE&75 0075 120 1 20 PRINT EQU 200 0200 121 1 21 LIBRN EQU 0 0000 122 1 22 ORG 87 0087 123 1 23 XR1 DCW 000 3 0089 4 124 1 24 DC 00 2 0091 4 125 1 25 XR2 DCW 000 3 0094 4 126 1 26 DC 00 2 0096 4 127 1 27 XR3 DCW 000 3 0099 4 128 1 28 DC 00 2 0101 4 129 1 29 * 130 1 30 * INITIALIZATION ROUTIUNE 131 1 31 * 132 1 32 ORG 336 0336 133 1 33 ZONE DCW @2SKB@ 4 0339 5 134 1 34 INITLZ RWD OUTAPE 5 0340 U %U6 R 5 135 1 35 C OUTOPN,@2@ 7 0345 C !00 P07 5 136 1 36 BH ENDJOB 5 0352 B !55 U 5 137 1 37 C OUTOPN,@7@ 7 0357 C !00 P08 5 138 1 38 BL ENDJOB 5 0364 B !55 T 5 139 1 39 RWD 4 5 0369 U %U4 R 5 140 1 40 RWD INTAPE 5 0374 U %U5 R 6 141 1 41 CW LTAPSW,PNH4SW 7 0379 ) P25 P26 6 142 1 42 MCW SSOP,TSTSS 7 0386 M !01 475 6 143 1 43 * 144 1 44 * TEST FOR CTL CARD 145 1 45 * 146 1 46 READ4 MCW @013@,LGTCK&6 7 0393 M P11 O58 6 147 1 47 RT 4,1 8 0400 M %U4 001 R 6 1 1401 AUTOCODER-PASS 8 LOAD TAPE-RIGHT MAIN-VERSION 3 3782L PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 1 48 B CHKLGT 4 0408 B O37 6 149 1 49 BER TPERR 5 0412 B M33 L 7 150 1 50 C 18,@JOB@ 7 0417 C 018 P14 7 151 1 51 BU CKCTL 5 0424 B 444 / 7 152 1 52 MCW 79,IDENT#4 7 0429 M 079 P18 7 153 1 53 CW JOBSW#1 4 0436 ) P19 7 154 1 54 B READ4 4 0440 B 393 7 155 1 55 CKCTL C 18,@CTL@ 7 0444 C 018 P22 7 156 1 56 MCW OUTOPN,23 7 0451 M !00 023 8 157 1 57 RWD 4 5 0458 U %U4 R 8 158 1 58 BE TSTSS 5 0463 B 475 S 8 159 1 59 LCA @33@,22 7 0468 L P24 022 8 160 1 60 TSTSS BSS SENSW,F 5 0475 B 528 F 8 161 1 61 TSTOP BCE LTAPOP,23,2 8 0480 B 591 023 2 8 162 1 62 BCE LTAPOP,23,3 8 0488 B 591 023 3 9 163 1 63 BCE LTAPOP,23,6 8 0496 B 591 023 6 9 164 1 64 BCE LTAPOP,23,7 8 0504 B 591 023 7 9 165 1 65 SW LTAPSW#1 4 0512 , P25 9 166 1 66 B START 4 0516 B '17 9 167 1 67 * 168 1 68 * OPTION TO PUNCH NEW SOURCE DECK 169 1 69 * 170 1 70 PNH4OP SW PNH4SW#1 4 0520 , P26 9 171 1 71 B TSTLSW 4 0524 B '49 10 172 1 72 * 173 1 73 * TEST SENSE SWITCHES FOR OPTION 174 1 74 * 175 1 75 SENSW LCA @0@,23 7 0528 L P27 023 10 176 1 76 BSS ADD1,B 5 0535 B 558 B 10 177 1 77 TSTSSC BSS ADD2,C 5 0540 B 569 C 10 178 1 78 TSTSSG BSS ADD4,G 5 0545 B 580 G 10 179 1 79 SSOUT CW 23 4 0550 ) 023 10 180 1 80 B TSTOP 4 0554 B 480 10 181 1 81 ADD1 A @1@,23 7 0558 A P28 023 11 182 1 82 B TSTSSC 4 0565 B 540 11 183 1 83 ADD2 A @2@,23 7 0569 A P07 023 11 184 1 84 B TSTSSG 4 0576 B 545 11 185 1 85 ADD4 A @4@,23 7 0580 A P29 023 11 186 1 86 B SSOUT 4 0587 B 550 11 187 1 87 * 188 1 88 * SET UP CLEAR STORAGE RECORD 189 1 89 * 190 1 90 LTAPOP CS PUNCH&80 4 0591 / 180 11 191 1 91 SW GRPMRK 4 0595 , P06 12 192 1 92 LCA GRPMRK,PUNCH&99 7 0599 L P06 199 12 193 1 93 LCA IDENT,PUNCH&79 7 0606 L P18 179 12 194 1 94 LCA @ @ 4 0613 L P31 12 195 1 95 LCA @B007@ 4 0617 L P35 12 196 1 96 LCA @)021@ 4 0621 L P39 12 197 1 97 LCA @B047L@ 4 0625 L P44 12 1 1401 AUTOCODER-PASS 8 LOAD TAPE-RIGHT MAIN-VERSION 3 3782L PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 1 98 LCA @L%U1001R@ 4 0629 L P52 13 199 1 99 LCA @.@ 4 0633 L P53 13 200 2 00 LCA BSPTU1 4 0637 L O93 13 201 2 01 * 202 2 02 * TEST OBJECT CORE SIZE 203 2 03 * 204 2 04 C 22,@3@ 7 0641 C 022 P54 13 205 2 05 BE IS4K 5 0648 B 747 S 13 206 2 06 BH IS4K 5 0653 B 747 U 13 207 2 07 C 22,@6@ 7 0658 C 022 P55 13 208 2 08 BL IS4K 5 0665 B 747 T 14 209 2 09 LCA @I0?@,PUNCH&44 7 0670 L P58 144 14 210 2 10 LCA @099@ 4 0677 L P61 14 211 2 11 LCA @B053@ 4 0681 L P65 14 212 2 12 LCA @M074099@ 4 0685 L P72 14 213 2 13 LCA @)099@ 4 0689 L P76 14 214 2 14 LCA @B001/@ 4 0693 L P81 14 215 2 15 LCA @C004041@ 4 0697 L P88 15 216 2 16 LCA @#044004@ 4 0701 L P95 15 217 2 17 LCA @/I9I@ 4 0705 L P99 15 218 2 18 BCE BTSTRP,22,6 8 0709 B 842 022 6 15 219 2 19 BCE IS12K,22,5 8 0717 B 736 022 5 15 220 2 20 MZ ZONE-2,PUNCH&4 7 0725 Y 337 104 15 221 2 21 B BTSTRP 4 0732 B 842 15 222 2 22 IS12K MZ ZONE-1,PUNCH&4 7 0736 Y 338 104 16 223 2 23 B BTSTRP 4 0743 B 842 16 224 2 24 IS4K LCA @I0@,PUNCH&75 7 0747 L Q01 175 16 225 2 25 LCA @B053@,PUNCH&46 7 0754 L P65 146 16 226 2 26 LCA @M080099@ 4 0761 L Q08 16 227 2 27 LCA @)099@ 4 0765 L P76 16 228 2 28 LCA @B001@ 4 0769 L Q12 16 229 2 29 LCA @B0320020@ 4 0773 L Q20 17 230 2 30 LCA @)002@ 4 0777 L Q24 17 231 2 31 LCA @A075003@ 4 0781 L Q31 17 232 2 32 LCA @,002@ 4 0785 L Q35 17 233 2 33 LCA @/I99@ 4 0789 L Q39 17 234 2 34 SW PUNCH&80 4 0793 , 180 17 235 2 35 BCE BTSTRP,22,3 8 0797 B 842 022 3 17 236 2 36 MCW @Z@,PUNCH&2 7 0805 M Q40 102 18 237 2 37 BCE BTSTRP,22,2 8 0812 B 842 022 2 18 238 2 38 MCW @T@,PUNCH&2 7 0820 M Q41 102 18 239 2 39 BCE BTSTRP,22,1 8 0827 B 842 022 1 18 240 2 40 MCW @I@,PUNCH&2 7 0835 M Q42 102 18 241 2 41 * 242 2 42 * SET UP BOOTSTRAP PROGRAM 243 2 43 * 244 2 44 BTSTRP B WRITE1 4 0842 B !30 19 245 2 45 CW PUNCH&99 4 0846 ) 199 19 246 2 46 LCA GRPMRK,PUNCH&80 7 0850 L P06 180 19 247 2 47 LCA @ @,PUNCH&24 7 0857 L Q43 124 19 1 1401 AUTOCODER-PASS 8 LOAD TAPE-RIGHT MAIN-VERSION 3 3782L PAGE 4 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 248 2 48 LCA @.020@ 4 0864 L Q47 19 249 2 49 LCA BER1 4 0868 L O80 19 250 2 50 LCA RDREC 4 0872 L O88 19 251 2 51 LCA @.@ 4 0876 L P53 20 252 2 52 LCA BSPTU1 4 0880 L O93 20 253 2 53 B WRITE1 4 0884 B !30 20 254 2 54 CS PUNCH&75 4 0888 / 175 20 255 2 55 LCA @ @,PUNCH&35 7 0892 L Q43 135 20 256 2 56 LCA @B007@ 4 0899 L P35 20 257 2 57 LCA @N000@ 4 0903 L Q51 20 258 2 58 LCA @L @ 4 0907 L Q58 21 259 2 59 LCA BER1 4 0911 L O80 21 260 2 60 LCA RDREC 4 0915 L O88 21 261 2 61 LCA @.@ 4 0919 L P53 21 262 2 62 LCA BSPTU1 4 0923 L O93 21 263 2 63 * 264 2 64 * TEST PROCESSOR CORE SIZE 265 2 65 * 266 2 66 C 21,@3@ 7 0927 C 021 P54 21 267 2 67 BE START 5 0934 B '17 S 21 268 2 68 BH START 5 0939 B '17 U 22 269 2 69 C 21,@6@ 7 0944 C 021 P55 22 270 2 70 BL START 5 0951 B '17 T 22 271 2 71 MN 21,SAVEZN#1 7 0956 D 021 Q59 22 272 2 72 A &3,SAVEZN 7 0963 A Q60 Q59 22 273 2 73 MN SAVEZN,*&4 7 0970 D Q59 980 22 274 2 74 MZ ZONE,*&7 7 0977 Y 339 990 23 275 2 75 LCA GRPMRK,GRPMRK 7 0984 L P06 P06 23 276 2 76 CW GRPMRK 4 0991 ) P06 23 277 2 77 MCW @400@,KBLKNG 7 0995 M Q63 P01 23 278 2 78 BCE START,21,4 8 1002 B '17 021 4 23 279 2 79 A @400@,KBLKNG 7 1010 A Q63 P01 24 280 2 80 * 281 2 81 * SET PARAMETERS 282 2 82 * 283 2 83 START BCE PNH4OP,23,4 8 1017 B 520 023 4 24 284 2 84 BCE PNH4OP,23,5 8 1025 B 520 023 5 24 285 2 85 BCE PNH4OP,23,6 8 1033 B 520 023 6 24 286 2 86 BCE PNH4OP,23,7 8 1041 B 520 023 7 24 287 2 87 TSTLSW BW EOJOB,LTAPSW 8 1049 V X81 P25 1 25 288 2 88 MCW KBLKNG,BLKCT 7 1057 M P01 P04 25 289 2 89 CS 80 4 1064 / 080 25 290 2 90 BW SETINP,JOBSW 8 1068 V '84 P19 1 25 291 2 91 RT INTAPE,INPUT 8 1076 M %U5 ?28 R 25 292 2 92 SETINP SW IMAGE&23,IMAGE&57 7 1084 , 023 057 26 293 2 93 SW IMAGE&62,IMAGE&67 7 1091 , 062 067 26 294 2 94 SW IMAGE&68,IMAGE&71 7 1098 , 068 071 26 295 2 95 SW IMAGE&74,IMAGE&6 7 1105 , 074 006 26 296 2 96 SW IMAGE&1 4 1112 , 001 26 297 2 97 B GET 4 1116 B !76 26 1 1401 AUTOCODER-PASS 8 LOAD TAPE-RIGHT MAIN-VERSION 3 3782L PAGE 5 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 298 2 98 * 299 2 99 * ANALYZE RECORD TYPE 300 3 00 * 301 3 01 ANALYZ BCE BYPASS,TYPE,% 8 1120 B J59 075 % 27 302 3 02 BM BYPASS,IMAGE&5 8 1128 V J59 005 K 27 303 3 03 BCE INSTR,TYPE, 8 1136 B S22 075 27 304 3 04 BCE DOJOB,TYPE,I 8 1144 B S11 075 I 27 305 3 05 MN TYPE,XR2 7 1152 D 075 094 27 306 3 06 A XR2 4 1159 A 094 28 307 3 07 A XR2 4 1163 A 094 28 308 3 08 B *&1&X2 4 1167 B /P1 28 309 3 09 B DA 4 1171 B V85 28 310 3 10 B CONST 4 1175 B S65 28 311 3 11 B DSA 4 1179 B V59 28 312 3 12 B EXEND 4 1183 B W82 28 313 3 13 B BYPASS 4 1187 B J59 29 314 3 14 B BYPASS 4 1191 B J59 29 315 3 15 B BYPASS 4 1195 B J59 29 316 3 16 B BYPASS 4 1199 B J59 29 317 3 17 B XTRA 4 1203 B V34 29 318 3 18 B BYPASS 4 1207 B J59 29 319 3 19 DOJOB MCW IMAGE&20,PUNCH&79 7 1211 M 020 179 29 320 3 20 B BYPASS 4 1218 B J59 30 321 3 21 * 322 3 22 * PROCESS INSTRUCTIONS 323 3 23 * 324 3 24 INSTR MCW DMOD,PUNCH&42 7 1222 M 074 142 30 325 3 25 MCW 1 1229 M 30 326 3 26 MCW 1 1230 M 30 327 3 27 MCW 1 1231 M 30 328 3 28 MCW LABADD,CNVADD 7 1232 M 061 ?01 30 329 3 29 A COUNT,CNVADD 7 1239 A 007 ?01 30 330 3 30 S @1@,CNVADD 7 1246 S P28 ?01 31 331 3 31 INSTXT B SETLOC 4 1253 B J67 31 332 3 32 B WRITE2 4 1257 B K64 31 333 3 33 B BYPASS 4 1261 B J59 31 334 3 34 * 335 3 35 * PROCESS CONSTANTS 336 3 36 * 337 3 37 CONST A @00@,COUNT 7 1265 A Q65 007 31 338 3 38 C COUNT,@00@ 7 1272 C 007 Q65 31 339 3 39 BL *&5 5 1279 B S88 T 31 340 3 40 B BYPASS 4 1284 B J59 32 341 3 41 BCE PCHCON,IMAGE&23,# 8 1288 B T44 023 # 32 342 3 42 BWZ PCHCON,IMAGE&4,B 8 1296 V T44 004 B 32 343 3 43 MCW IMAGE&53,HOLDDT-22 7 1304 M 053 R26 32 344 3 44 BCE ALPHA,IMAGE&23,@ 8 1311 B T23 023 @ 32 345 3 45 B PCHCON 4 1319 B T44 32 346 3 46 ALPHA MCW &HOLDDT-51,XR1 7 1323 M Q68 089 33 347 3 47 A COUNT,XR1 7 1330 A 007 089 33 1 1401 AUTOCODER-PASS 8 LOAD TAPE-RIGHT MAIN-VERSION 3 3782L PAGE 6 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 348 3 48 MCW BLANK1#1,XXXX&X1 7 1337 M Q69 0'0 33 349 3 49 PCHCON MCW HOLDDT-20,PUNCH&66 7 1344 M R28 166 33 350 3 50 MCW LABADD,CNVADD 7 1351 M 061 ?01 33 351 3 51 C COUNT,@32@ 7 1358 C 007 Q71 34 352 3 52 BL LARGE 5 1365 B T82 T 34 353 3 53 BCE PRODC,TYPE,A 8 1370 B U47 075 A 34 354 3 54 B INSTXT 4 1378 B S53 34 355 3 55 * 356 3 56 * CONSTANTS LARGER THAN 32 CHARACTERS 357 3 57 * 358 3 58 LARGE S @32@,COUNT 7 1382 S Q71 007 34 359 3 59 S COUNT,CNVADD 7 1389 S 007 ?01 34 360 3 60 MCW COUNT,HOLDCT#2 7 1396 M 007 Q73 35 361 3 61 MCW @32@,COUNT 7 1403 M Q71 007 35 362 3 62 B SETLOC 4 1410 B J67 35 363 3 63 BCE LRGDC,TYPE,A 8 1414 B U94 075 A 35 364 3 64 LRGXT MCW HOLDCT,COUNT 7 1422 M Q73 007 35 365 3 65 MCW HOLDDT,TEMP#20 7 1429 M R48 Q93 36 366 3 66 B WRITE2 4 1436 B K64 36 367 3 67 MCW TEMP,PUNCH&54 7 1440 M Q93 154 36 368 3 68 * 369 3 69 * PROCESS DC 370 3 70 * 371 3 71 PRODC MCW LABADD,CNVADD 7 1447 M 061 ?01 36 372 3 72 S COUNT,CNVADD 7 1454 S 007 ?01 36 373 3 73 A @1@,CNVADD 7 1461 A P28 ?01 36 374 3 74 B CNVRT 4 1468 B K11 37 375 3 75 MCW CNVWK,PUNCH&30 7 1472 M ?04 130 37 376 3 76 MCW @)@ 4 1479 M Q94 37 377 3 77 MCW LABADD,CNVADD 7 1483 M 061 ?01 37 378 3 78 B INSTXT 4 1490 B S53 37 379 3 79 * 380 3 80 * DC GREATER THAN 32 CHARACTERS 381 3 81 * 382 3 82 LRGDC MCW LABADD,CNVADD 7 1494 M 061 ?01 37 383 3 83 S HOLDCT,CNVADD 7 1501 S Q73 ?01 38 384 3 84 S @31@,CNVADD 7 1508 S Q96 ?01 38 385 3 85 B CNVRT 4 1515 B K11 38 386 3 86 MCW CNVWK,PUNCH&30 7 1519 M ?04 130 38 387 3 87 MCW @)@ 4 1526 M Q94 38 388 3 88 B LRGXT 4 1530 B U22 38 389 3 89 * 390 3 90 * EXTRA CONSTANT FOR CONSTANT OVER 32 CHARACTERS 391 3 91 * 392 3 92 XTRA BCE BYPASS,IMAGE&21, 8 1534 B J59 021 39 393 3 93 MCW IMAGE&73,HOLDDT#52 7 1542 M 073 R48 39 394 3 94 CHAIN 6 MACRO 395 MCW 1 1549 M GEN 39 396 MCW 1 1550 M GEN 39 397 MCW 1 1551 M GEN 39 1 1401 AUTOCODER-PASS 8 LOAD TAPE-RIGHT MAIN-VERSION 3 3782L PAGE 7 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 398 MCW 1 1552 M GEN 39 399 MCW 1 1553 M GEN 39 400 MCW 1 1554 M GEN 40 401 3 95 B BYPASS 4 1555 B J59 40 402 3 96 * 403 3 97 * PROCESS DSA 404 3 98 * 405 3 99 DSA MCW BOP,PUNCH&37 7 1559 M 073 137 40 406 4 00 BCE PRODC,TYPE,B 8 1566 B U47 075 B 40 407 4 01 MCW LABADD,CNVADD 7 1574 M 061 ?01 40 408 4 02 B INSTXT 4 1581 B S53 40 409 4 03 * 410 4 04 * PROCESS DEFINE AREA 411 4 05 * 412 4 06 DA BCE BYPASS,TYPE,! 8 1585 B J59 075 ! 40 413 4 07 BCE HEADER,TYPE,0 8 1593 B W24 075 0 41 414 4 08 * 415 4 09 * FIELD, FIELD REPEAT 416 4 10 * 417 4 11 FIELD MCW SUPADD,CNVADD 7 1601 M 066 ?01 41 418 4 12 B DARTN 4 1608 B W47 41 419 4 13 BCE FIELD,TYPE,' 8 1612 B W01 075 ' 41 420 4 14 B ANALYZ 4 1620 B /20 41 421 4 15 * 422 4 16 * HEADER, HEADER REPEAT 423 4 17 * 424 4 18 HEADER MCW LABADD,CNVADD 7 1624 M 061 ?01 41 425 4 19 B DARTN 4 1631 B W47 42 426 4 20 BCE HEADER,TYPE,' 8 1635 B W24 075 ' 42 427 4 21 B ANALYZ 4 1643 B /20 42 428 4 22 * 429 4 23 * DA SUBROUTINE 430 4 24 * 431 4 25 DARTN SBR DAXT&3 4 1647 H W81 42 432 4 26 B CNVRT 4 1651 B K11 42 433 4 27 MCW CNVWK,PUNCH&26 7 1655 M ?04 126 42 434 4 28 MCW CNVWK 4 1662 M ?04 42 435 4 29 MCW @,@ 4 1666 M R49 43 436 4 30 B WRITE2 4 1670 B K64 43 437 4 31 B GET 4 1674 B !76 43 438 4 32 DAXT B XXXX 4 1678 B 000 43 439 4 33 * 440 4 34 * PROCESS EX, END 441 4 35 * 442 4 36 EXEND BCE END,TYPE,3 8 1682 B X58 075 3 43 443 4 37 MCW AOP,PUNCH&30 7 1690 M 070 130 43 444 4 38 MCW @B@ 4 1697 M R50 43 445 4 39 MCW @N000000@ 4 1701 M R57 44 446 4 40 B WRITE2 4 1705 B K64 44 447 4 41 LCA @ @,PUNCH&24 7 1709 L Q43 124 44 1 1401 AUTOCODER-PASS 8 LOAD TAPE-RIGHT MAIN-VERSION 3 3782L PAGE 8 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 448 4 42 LCA @B007@ 4 1716 L P35 44 449 4 43 B GET 4 1720 B !76 44 450 4 44 BCE ISJOB,TYPE,I 8 1724 B X47 075 I 44 451 4 45 COMPAT B WRITE1 4 1732 B !30 44 452 4 46 LCA @L @,PUNCH&26 7 1736 L R64 126 45 453 4 47 B ANALYZ 4 1743 B /20 45 454 4 48 ISJOB MCW IMAGE&20,PUNCH&79 7 1747 M 020 179 45 455 4 49 B COMPAT 4 1754 B X32 45 456 4 50 * 457 4 51 * END 458 4 52 * 459 4 53 END MCW @/ 080@,PUNCH&26 7 1758 M R71 126 45 460 4 54 MCW AOP,PUNCH&23 7 1765 M 070 123 45 461 4 55 B WRITE2 4 1772 B K64 46 462 4 56 WTM OUTAPE 5 1776 U %U6 M 46 463 4 57 EOJOB BW PUNCH4,PNH4SW 8 1781 V X93 P26 1 46 464 4 58 B ENDJOB 4 1789 B !55 46 465 4 59 * 466 4 60 * PUNCH NEW SOURCE DECK 467 4 61 * 468 4 62 PUNCH4 CS PUNCH&80 4 1793 / 180 46 469 4 63 MCW @113@,LGTCK&6 7 1797 M R74 O58 46 470 4 64 RT 4,PUNCH&1 8 1804 M %U4 101 R 47 471 4 65 B CHKLGT 4 1812 B O37 47 472 4 66 BER TPERR 5 1816 B M33 L 47 473 4 67 BCE DOLTO,PUNCH&75,L 8 1821 B Z54 175 L 47 474 4 68 BCE PUNCH4,PUNCH&75,S 8 1829 B X93 175 S 47 475 4 69 BCE PUNCH4,PUNCH&75,C 8 1837 B X93 175 C 48 476 4 70 BCE PUNCH4,PUNCH&75,Z 8 1845 B X93 175 Z 48 477 4 71 BCE PUNCH4,PUNCH&75,Y 8 1853 B X93 175 Y 48 478 4 72 BUMP A &1,SEQCT-1 7 1861 A R75 O97 48 479 4 73 MCW SEQCT,PUNCH&5 7 1868 M O98 105 48 480 4 74 BCE DOPCH,PUNCH&6,* 8 1875 B Z13 106 * 49 481 4 75 MCW BLANK4#4,PUNCH&15 7 1883 M R79 115 49 482 4 76 C PUNCH&18,@JOB@ 7 1890 C 118 P14 49 483 4 77 BU DOPCH 5 1897 B Z13 / 49 484 4 78 MCW BLANK4,PUNCH&11 7 1902 M R79 111 49 485 4 79 MCW BLANK4-2 4 1909 M R77 49 486 4 80 DOPCH MCW BLANK4-1,PUNCH&75 7 1913 M R78 175 50 487 4 81 P 1 1920 4 50 488 4 82 SS 4 2 1921 K 4 50 489 4 83 C PUNCH&18,@END@ 7 1923 C 118 R82 50 490 4 84 BU PUNCH4 5 1930 B X93 / 50 491 4 85 BCE PUNCH4,PUNCH&6,* 8 1935 B X93 106 * 50 492 4 86 CS PUNCH&80 4 1943 / 180 50 493 4 87 P 1 1947 4 51 494 4 88 SS 8 2 1948 K 8 51 495 4 89 B ENDJOB 4 1950 B !55 51 496 4 90 DOLTO MCW @LTORG@,PUNCH&20 7 1954 M R87 120 51 497 4 91 B BUMP 4 1961 B Y61 51 1 1401 AUTOCODER-PASS 8 LOAD TAPE-RIGHT MAIN-VERSION 3 3782L PAGE 9 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 498 4 92 DCW @ @ 1 1965 51 499 4 93 ENDF1 DCW @}@ 1 1966 GMARK 51 500 4 94 XFR LIBRN B 000 52 1 1401 AUTOCODER-PASS 8-LOAD TAPE-LEFT MAIN -VERSION 3 3781L PAGE 10 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 501 4 95 JOB 1401 AUTOCODER-PASS 8-LOAD TAPE-LEFT MAIN -VERSION 3 502 4 96 ORG 2000 2000 503 4 97 OUTOPN DCW @ @ 1 2000 55 504 4 98 SSOP DCW @B@ 1 2001 55 505 4 99 RTW 1,1 8 2002 L %U1 001 R 55 506 5 00 NOP XXXX 4 2010 N 000 55 507 5 01 BER TPERR 5 2014 B M33 L 55 508 5 02 CW ENDF1,ENDF2 7 2019 ) Z66 I98 55 509 5 03 B INITLZ 4 2026 B 340 55 510 5 04 * 511 5 05 * WRITE CLEAR STORAGE AND BOOTSTRAP 512 5 06 * 513 5 07 WRITE1 SBR WT1XT&3 4 2030 H !54 56 514 5 08 WTW OUTAPE,OUTPUT 8 2034 L %U6 101 W 56 515 5 09 NOP XXXX 4 2042 N 000 56 516 5 10 BER TPERR 5 2046 B M33 L 56 517 5 11 WT1XT B XXXX 4 2051 B 000 56 518 5 12 * 519 5 13 * GO BACK TO PASS E FOR EXTRA OUTPUT 520 5 14 * 521 5 15 ENDJOB RTW 1,333 8 2055 L %U1 333 R 56 522 5 16 NOP XXXX 4 2063 N 000 56 523 5 17 BER TPERR 5 2067 B M33 L 57 524 5 18 B MESSAG 4 2072 B 333 57 525 5 19 * 526 5 20 * RETRIEVE INPUT RECORD 527 5 21 * 528 5 22 GET SBR GETXT&3 4 2076 H J58 57 529 5 23 C BLKCT,KBLKNG 7 2080 C P04 P01 57 530 5 24 BU NXTREC 5 2087 B J20 / 57 531 5 25 S HOLDA 4 2092 S P05 57 532 5 26 MCW &INPUT&13,LGTCK&6 7 2096 M R90 O58 57 533 5 27 RT INTAPE,INPUT 8 2103 M %U5 ?28 R 58 534 5 28 B CHKLGT 4 2111 B O37 58 535 5 29 BER TPERR 5 2115 B M33 L 58 536 5 30 NXTREC A &80,BLKCT 7 2120 A R92 P04 58 537 5 31 MCW BLKCT,XR3 7 2127 M P04 099 58 538 5 32 MCW INPUT-1&X3,IMAGE&80 7 2134 M ?B7 080 58 539 5 33 CHAIN 8 MACRO 540 MCW 1 2141 M GEN 58 541 MCW 1 2142 M GEN 59 542 MCW 1 2143 M GEN 59 543 MCW 1 2144 M GEN 59 544 MCW 1 2145 M GEN 59 545 MCW 1 2146 M GEN 59 546 MCW 1 2147 M GEN 59 547 MCW 1 2148 M GEN 59 548 5 34 S XR3&1 4 2149 S 100 60 549 5 35 S 1 2153 S 60 550 5 36 S 1 2154 S 60 1 1401 AUTOCODER-PASS 8-LOAD TAPE-LEFT MAIN -VERSION 3 3781L PAGE 11 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 551 5 37 GETXT B XXXX 4 2155 B 000 60 552 5 38 * 553 5 39 * DO NEXT RECORD 554 5 40 * 555 5 41 BYPASS B GET 4 2159 B !76 60 556 5 42 B ANALYZ 4 2163 B /20 60 557 5 43 * 558 5 44 * SET ADDRESSES IN OUTPUT 559 5 45 * 560 5 46 SETLOC SBR LOCXT&3 4 2167 H K10 60 561 5 47 B CNVRT 4 2171 B K11 61 562 5 48 MCW CNVWK,PUNCH&26 7 2175 M ?04 126 61 563 5 49 ZA &34,CNVADD 7 2182 ? R94 ?01 61 564 5 50 A COUNT,CNVADD 7 2189 A 007 ?01 61 565 5 51 B CNVRT 4 2196 B K11 61 566 5 52 MCW CNVWK,PUNCH&23 7 2200 M ?04 123 61 567 5 53 LOCXT B XXXX 4 2207 B 000 62 568 5 54 * 569 5 55 * CONVERT 5 TO 3 DIGIT ADDRESS 570 5 56 * 571 5 57 CNVRT SBR CNVXT&3 4 2211 H K63 62 572 5 58 BAV *&1 5 2215 B K20 Z 62 573 5 59 ADDAGN A &96,CNVADD-3 7 2220 A R96 R98 62 574 5 60 BAV ADDAGN 5 2227 B K20 Z 62 575 5 61 MZ CNVADD-4,CNVADD#5 7 2232 Y R97 ?01 62 576 5 62 MN CNVADD-3,*&4 7 2239 D R98 K49 62 577 5 63 MZ ZONE,CNVADD-2 7 2246 Y 339 R99 63 578 5 64 MCW CNVADD,CNVWK#3 7 2253 M ?01 ?04 63 579 5 65 CNVXT B XXXX 4 2260 B 000 63 580 5 66 * 581 5 67 * WRITE OUTPUT RECORDS 582 5 68 * 583 5 69 WRITE2 SBR WT2XT&3 4 2264 H L30 63 584 5 70 BCE DOGM,PUNCH&35,} 8 2268 B L31 135 } GMARK 63 585 5 71 WTW OUTAPE,OUTPUT&19 8 2276 L %U6 120 W 63 586 5 72 NOP XXXX 4 2284 N 000 64 587 5 73 BER TPERR 5 2288 B M33 L 64 588 5 74 NOP 1 2293 N 64 589 5 75 CLEAR MCW BLANK1,PUNCH&75 7 2294 M Q69 175 64 590 5 76 MCW PUNCH&75 4 2301 M 175 64 591 5 77 MCW BLANK1,HOLDDT 7 2305 M Q69 R48 64 592 5 78 MCW HOLDDT 4 2312 M R48 64 593 5 79 MCW @N000@,PUNCH&30 7 2316 M Q51 130 65 594 5 80 MCW @L @ 4 2323 M ?11 65 595 5 81 WT2XT B XXXX 4 2327 B 000 65 596 5 82 DOGM CS 299 4 2331 / 299 65 597 5 83 LCA PUNCH&80,280 7 2335 L 180 280 65 598 5 84 LCA 1 2342 L 65 599 5 85 MCW PUNCH&66,274 7 2343 M 166 274 65 600 5 86 LCA @ @ 4 2350 L Q43 66 1 1401 AUTOCODER-PASS 8-LOAD TAPE-LEFT MAIN -VERSION 3 3781L PAGE 12 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 601 5 87 LCA @B007@ 4 2354 L P35 66 602 5 88 LCA @)043043@ 4 2358 L ?18 66 603 5 89 LCA PUNCH&26 4 2362 L 126 66 604 5 90 LCA @,043@ 4 2366 L ?22 66 605 5 91 SW 225,235 7 2370 , 225 235 66 606 5 92 A &8,227 7 2377 A ?23 227 66 607 5 93 CW 225 4 2384 ) 225 67 608 5 94 BCE WTGM,PUNCH&27,N 8 2388 B M03 127 N 67 609 5 95 MCW PUNCH&30,237 7 2396 M 130 237 67 610 5 96 WTGM CW 235 4 2403 ) 235 67 611 5 97 WTW OUTAPE,220 8 2407 L %U6 220 W 67 612 5 98 NOP XXXX 4 2415 N 000 67 613 5 99 BER TPERR 5 2419 B M33 L 68 614 6 00 NOP 1 2424 N 68 615 6 01 CW 280 4 2425 ) 280 68 616 6 02 B CLEAR 4 2429 B K94 68 617 6 03 * 618 6 04 * TAPE REDUNDANCY ROUTINE 619 6 05 * 620 6 06 TPERR SBR XR2 4 2433 H 094 68 621 6 07 SBR REDXT&3 4 2437 H N05 68 622 6 08 MZ &9,XR2 7 2441 Y ?24 094 68 623 6 09 MCW 4000-10&X2,TPINST&7 7 2448 M IR0 M96 69 624 6 10 MN TPINST&3,BSP1&3 7 2455 D M92 M72 69 625 6 11 MCW TPINST&7,INST2&7 7 2462 M M96 O05 69 626 6 12 BSP1 BSP INITAP 5 2469 U %U0 B 69 627 6 13 BCE WRTRED,TPINST&7,W 8 2474 B N78 M96 W 69 628 6 14 MCW &9,READCT#1 7 2482 M ?24 ?25 70 629 6 15 TPINST RT INITAP,XXXX 8 2489 M %U0 000 R 70 630 6 16 BER RDRERR 5 2497 B N06 L 70 631 6 17 REDXT B XXXX 4 2502 B 000 70 632 6 18 RDRERR MN TPINST&3,BSP2&3 7 2506 D M92 N16 70 633 6 19 BSP2 BSP INITAP 5 2513 U %U0 B 70 634 6 20 S &1,READCT 7 2518 S R75 ?25 71 635 6 21 BWZ TPINST,READCT,B 8 2525 V M89 ?25 B 71 636 6 22 MN TPINST&3,TPHALT&6 7 2533 D M92 N46 71 637 6 23 TPHALT H XXXX,890 7 2540 . 000 890 71 638 6 24 MCW TPINST&7,*&8 7 2547 M M96 N61 71 639 6 25 RT INITAP,XXXX 8 2554 M %U0 000 R 72 640 6 26 BSS BSP1,E 5 2562 B M69 E 72 641 6 27 H XXXX,811 7 2567 . 000 811 72 642 6 28 B REDXT 4 2574 B N02 72 643 6 29 WRTRED SKP 1 5 2578 U %U1 E 72 644 6 30 BCE SUBCTR,WRTCTR-1,5 8 2583 B O15 ?26 5 72 645 6 31 A &1,WRTCTR#2 7 2591 A R75 ?27 73 646 6 32 INST2 WT INITAP,XXXX 8 2598 M %U0 000 W 73 647 6 33 BER BSP1 5 2606 B M69 L 73 648 6 34 B REDXT 4 2611 B N02 73 649 6 35 SUBCTR S WRTCTR 4 2615 S ?27 73 650 6 36 MN TPINST&3,*&7 7 2619 D M92 O32 73 1 1401 AUTOCODER-PASS 8-LOAD TAPE-LEFT MAIN -VERSION 3 3781L PAGE 13 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 651 6 37 H XXXX,860 7 2626 . 000 860 74 652 6 38 B INST2 4 2633 B N98 74 653 6 39 * 654 6 40 * CHECK FOR SHORT RECORDS 655 6 41 * 656 6 42 CHKLGT SBR XR2 4 2637 H 094 74 657 6 43 SBR LGTXT&3 4 2641 H O75 74 658 6 44 MZ &9,XR2 7 2645 Y ?24 094 74 659 6 45 LGTCK BCE 4000-12&X2,XXXX,} 8 2652 B IQ8 000 } GMARK 74 660 6 46 CHAIN 12 MACRO 661 BCE 1 2660 B GEN 74 662 BCE 1 2661 B GEN 75 663 BCE 1 2662 B GEN 75 664 BCE 1 2663 B GEN 75 665 BCE 1 2664 B GEN 75 666 BCE 1 2665 B GEN 75 667 BCE 1 2666 B GEN 75 668 BCE 1 2667 B GEN 75 669 BCE 1 2668 B GEN 76 670 BCE 1 2669 B GEN 76 671 BCE 1 2670 B GEN 76 672 BCE 1 2671 B GEN 76 673 6 47 LGTXT B XXXX 4 2672 B 000 76 674 6 48 BER1 DCW @B001L@ 5 2680 76 675 6 49 RDREC DCW @L%U1020R@ 8 2688 76 676 6 50 BSPTU1 DCW @U%U1B@ 5 2693 77 677 6 51 SEQCT DCW @0100 @ 5 2698 77 678 6 52 KBLKNG DCW 080 3 2701 77 679 6 53 HOLDA DCW &0000 4 2705 77 680 6 54 BLKCT EQU HOLDA-1 2704 681 6 55 GRPMRK DC @}@ 1 2706 GMARK 77 682 6 56 LTORG * 2707 DCW @2@ 1 2707 LIT 77 DCW @7@ 1 2708 LIT 77 DCW @013@ 3 2711 LIT 77 DCW @JOB@ 3 2714 LIT 78 IDENT DCW #04 4 2718 AREA 78 JOBSW DCW #01 1 2719 AREA 78 DCW @CTL@ 3 2722 LIT 78 DCW @33@ 2 2724 LIT 78 LTAPSW DCW #01 1 2725 AREA 78 PNH4SW DCW #01 1 2726 AREA 78 DCW @0@ 1 2727 LIT 79 DCW @1@ 1 2728 LIT 79 DCW @4@ 1 2729 LIT 79 DCW @ @ 2 2731 LIT 79 DCW @B007@ 4 2735 LIT 79 DCW @)021@ 4 2739 LIT 79 DCW @B047L@ 5 2744 LIT 79 DCW @L%U1001R@ 8 2752 LIT 80 1 1401 AUTOCODER-PASS 8-LOAD TAPE-LEFT MAIN -VERSION 3 3781L PAGE 14 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD DCW @.@ 1 2753 LIT 80 DCW @3@ 1 2754 LIT 80 DCW @6@ 1 2755 LIT 80 DCW @I0?@ 3 2758 LIT 80 DCW @099@ 3 2761 LIT 80 DCW @B053@ 4 2765 LIT 80 DCW @M074099@ 7 2772 LIT 81 DCW @)099@ 4 2776 LIT 81 DCW @B001/@ 5 2781 LIT 81 DCW @C004041@ 7 2788 LIT 81 DCW @#044004@ 7 2795 LIT 81 DCW @/I9I@ 4 2799 LIT 81 DCW @I0@ 2 2801 LIT 81 DCW @M080099@ 7 2808 LIT 82 DCW @B001@ 4 2812 LIT 82 DCW @B0320020@ 8 2820 LIT 82 DCW @)002@ 4 2824 LIT 82 DCW @A075003@ 7 2831 LIT 82 DCW @,002@ 4 2835 LIT 82 DCW @/I99@ 4 2839 LIT 82 DCW @Z@ 1 2840 LIT 83 DCW @T@ 1 2841 LIT 83 DCW @I@ 1 2842 LIT 83 DCW @ @ 1 2843 LIT 83 DCW @.020@ 4 2847 LIT 83 DCW @N000@ 4 2851 LIT 83 DCW @L @ 7 2858 LIT 83 SAVEZN DCW #01 1 2859 AREA 84 DCW &3 1 2860 LIT 84 DCW @400@ 3 2863 LIT 84 DCW @00@ 2 2865 LIT 84 DCW &HOLDDT-51 3 2868 Q97 ADCON 84 BLANK1 DCW #01 1 2869 AREA 84 DCW @32@ 2 2871 LIT 84 HOLDCT DCW #02 2 2873 AREA 85 TEMP DCW #20 20 2893 AREA 85 DCW @)@ 1 2894 LIT 85 DCW @31@ 2 2896 LIT 85 HOLDDT DCW #52 52 2948 AREA 87 DCW @,@ 1 2949 LIT 87 DCW @B@ 1 2950 LIT 87 DCW @N000000@ 7 2957 LIT 87 DCW @L @ 7 2964 LIT 87 DCW @/ 080@ 7 2971 LIT 88 DCW @113@ 3 2974 LIT 88 DCW &1 1 2975 LIT 88 BLANK4 DCW #04 4 2979 AREA 88 DCW @END@ 3 2982 LIT 88 DCW @LTORG@ 5 2987 LIT 88 DCW &INPUT&13 3 2990 ?41 ADCON 88 1 1401 AUTOCODER-PASS 8-LOAD TAPE-LEFT MAIN -VERSION 3 3781L PAGE 15 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD DCW &80 2 2992 LIT 89 DCW &34 2 2994 LIT 89 DCW &96 2 2996 LIT 89 CNVADD DCW #05 5 3001 AREA 89 CNVWK DCW #03 3 3004 AREA 89 DCW @L @ 7 3011 LIT 89 DCW @)043043@ 7 3018 LIT 89 DCW @,043@ 4 3022 LIT 90 DCW &8 1 3023 LIT 90 DCW &9 1 3024 LIT 90 READCT DCW #01 1 3025 AREA 90 WRTCTR DCW #02 2 3027 AREA 90 683 6 57 * 684 6 58 * INPUT AREA 685 6 59 * 686 6 60 INPUT EQU *&1 3028 687 6 61 ENDF2 EQU 3998 3998 688 6 62 3998 DCW @}@ 1 3998 GMARK 91 689 6 63 XFR LIBRN B 000 92 1 1401 AUTOCODER-PASS 8 EXTRA OUTPUT OVERLAY-VERSION 3 3783L PAGE 16 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 690 6 64 JOB 1401 AUTOCODER-PASS 8 EXTRA OUTPUT OVERLAY-VERSION 3 691 6 65 ORG 333 0333 692 6 66 * 693 6 67 * PRINT END OF JOB MESSAGES 694 6 68 * 695 6 69 MESSAG CC 1 2 0333 F 1 95 696 6 70 CS 332 4 0335 / 332 95 697 6 71 CS 1 0339 / 95 698 6 72 MCW @END OF ASSEMBLY@,PRINT&15 7 0340 M 696 215 95 699 6 73 W 1 0347 2 95 700 6 74 CC K 2 0348 F K 95 701 6 75 MCW @IF EXTRA OUTPUT DESIRED, SET SENSE@,PRINT&34 7 0350 M 730 234 95 702 6 76 MCW @SWITCH F ON, AND@, PRINT&51 7 0357 M 746 251 96 703 6 77 W 1 0364 2 96 704 6 78 CC J 2 0365 F J 96 705 6 79 CS PRINT&71 4 0367 / 271 96 706 6 80 MCW @B ON FOR CONDENSED CARDS@,PRINT&24 7 0371 M 770 224 96 707 6 81 W 1 0378 2 96 708 6 82 MCW @C ON FOR LOADABLE TAPE 6@,PRINT&24 7 0379 M 794 224 96 709 6 83 W 1 0386 2 97 710 6 84 MCW @D ON FOR LISTING TAPE 3@,PRINT&24 7 0387 M 818 224 97 711 6 85 W 1 0394 2 97 712 6 86 MCW @E ON TO SUPPRESS LISTING@,PRINT&24 7 0395 M 842 224 97 713 6 87 W 1 0402 2 97 714 6 88 MCW @G ON FOR NEW SOURCE DECK@,PRINT&24 7 0403 M 866 224 97 715 6 89 W 1 0410 2 97 716 6 90 CC J 2 0411 F J 98 717 6 91 CS PRINT&24 4 0413 / 224 98 718 6 92 MCW @AND PRESS START@,PRINT&15 7 0417 M 881 215 98 719 6 93 W 1 0424 2 98 720 6 94 CC K 2 0425 F K 98 721 6 95 MCW @IF NO EXTRA OUTPUT DESIRED, PRESS START@,PRINT&39 7 0427 M 920 239 98 722 6 96 W 1 0434 2 98 723 6 97 CC 1 2 0435 F 1 99 724 6 98 CW GRPMRK 4 0437 ) P06 99 725 6 99 H XXXX,880 7 0441 . 000 880 99 726 7 00 BSS GOTOE,F 5 0448 B 530 F 99 727 7 01 CS PRINT&39 4 0453 / 239 99 728 7 02 MCW @END OF JOB@,PRINT&10 7 0457 M 930 210 99 729 7 03 W 1 0464 2 99 730 7 04 CC K 2 0465 F K 100 731 7 05 MCW @INPUT FOR RE-ASSEMBLY ON TAPE UNIT 4@,PRINT&36 7 0467 M 966 236 100 732 7 06 W 1 0474 2 100 733 7 07 RWD 1 5 0475 U %U1 R 100 734 7 08 RWD 4 5 0480 U %U4 R 100 735 7 09 RWD 5 5 0485 U %U5 R 100 736 7 10 RWD 6 5 0490 U %U6 R 100 737 7 11 BW FINAL,LTAPSW 8 0495 V 517 P25 1 101 738 7 12 CS 236 4 0503 / 236 101 739 7 13 MLC @LOADABLE TAPE ON TAPE UNIT 6@,PRINT&28 7 0507 M 994 228 101 1 1401 AUTOCODER-PASS 8 EXTRA OUTPUT OVERLAY-VERSION 3 3783L PAGE 17 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 740 7 14 CC K 2 0514 F K 101 741 7 15 W 1 0516 2 101 742 7 16 FINAL CC 1 2 0517 F 1 101 743 7 17 H XXXX,889 7 0519 . 000 889 101 744 7 18 B FINAL&2 4 0526 B 519 102 745 7 19 GOTOE CW ENDF2,ENDF3 7 0530 ) I98 998 102 746 7 20 CW INPUT&80 4 0537 ) A08 102 747 7 21 CS PUNCH&99 4 0541 / 199 102 748 7 22 BSP 1 5 0545 U %U1 B 102 749 7 23 BSP 1 5 0550 U %U1 B 102 750 7 24 BSP 1 5 0555 U %U1 B 102 751 7 25 BSP 1 5 0560 U %U1 B 103 752 7 26 BSP 1 5 0565 U %U1 B 103 753 7 27 BSP 1 5 0570 U %U1 B 103 754 7 28 BSP 1 5 0575 U %U1 B 103 755 7 29 BSP 1 5 0580 U %U1 B 103 756 7 30 RTW 1,PASSE 8 0585 L %U1 Z00 R 103 757 7 31 BER TPERR2 5 0593 B 602 L 103 758 7 32 B PASSE&1 4 0598 B Z01 104 759 7 33 TPERR2 MCW &9,READC#1 7 0602 M 995 996 104 760 7 34 BSP 1 5 0609 U %U1 B 104 761 7 35 RETRY RTW 1,PASSE 8 0614 L %U1 Z00 R 104 762 7 36 BER AGAIN 5 0622 B 631 L 104 763 7 37 B PASSE&1 4 0627 B Z01 104 764 7 38 AGAIN BSP 1 5 0631 U %U1 B 104 765 7 39 S &1,READC 7 0636 S 997 996 105 766 7 40 BWZ RETRY,READC,B 8 0643 V 614 996 B 105 767 7 41 H XXXX,891 7 0651 . 000 891 105 768 7 42 RTW 1,PASSE 8 0658 L %U1 Z00 R 105 769 7 43 BSS TPERR2,E 5 0666 B 602 E 105 770 7 44 H XXXX,812 7 0671 . 000 812 106 771 7 45 B PASSE&1 4 0678 B Z01 106 772 7 46 LTORG * 0682 DCW @END OF ASSEMBLY@ 15 0696 LIT 106 DCW @IF EXTRA OUTPUT DESIRED, SET SENSE@ 34 0730 LIT 107 DCW @SWITCH F ON, AND@ 16 0746 LIT 108 DCW @B ON FOR CONDENSED CARDS@ 24 0770 LIT 109 DCW @C ON FOR LOADABLE TAPE 6@ 24 0794 LIT 110 DCW @D ON FOR LISTING TAPE 3@ 24 0818 LIT 111 DCW @E ON TO SUPPRESS LISTING@ 24 0842 LIT 112 DCW @G ON FOR NEW SOURCE DECK@ 24 0866 LIT 113 DCW @AND PRESS START@ 15 0881 LIT 113 DCW @IF NO EXTRA OUTPUT DESIRED, PRESS START@ 39 0920 LIT 114 DCW @END OF JOB@ 10 0930 LIT 115 DCW @INPUT FOR RE-ASSEMBLY ON TAPE UNIT 4@ 36 0966 LIT 116 DCW @LOADABLE TAPE ON TAPE UNIT 6@ 28 0994 LIT 117 DCW &9 1 0995 LIT 117 READC DCW #01 1 0996 AREA 117 DCW &1 1 0997 LIT 117 773 7 47 ENDF3 DCW @}@ 1 0998 GMARK 117 1 1401 AUTOCODER-PASS 8 EXTRA OUTPUT OVERLAY-VERSION 3 3783L PAGE 18 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 774 7 48 PASSE EQU 1900 1900 775 7 49 EX LIBRN B 000 118 776 7 50 END LIBRN / 000 080 1 1401 AUTOCODER-PASS 8 EXTRA OUTPUT OVERLAY-VERSION 3 3783L PAGE 19 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS ADD1 558 ADD2 569 ADD4 580 ADDAGN 2220 AGAIN 631 ALPHA 1323 ANALYZ 1120 AOP 70 BER1 2680 BLANK1 2869 BLANK4 2979 BLKCT 2704 BOP 73 BSP1 2469 BSP2 2513 BSPTU1 2693 BTSTRP 842 BUMP 1861 BYPASS 2159 CHKLGT 2637 CKCTL 444 CLEAR 2294 CNVADD 3001 CNVRT 2211 CNVWK 3004 CNVXT 2260 COMPAT 1732 CONST 1265 COUNT 7 DA 1585 DARTN 1647 DAXT 1678 DMOD 74 DOGM 2331 DOJOB 1211 DOLTO 1954 DOPCH 1913 DSA 1559 END 1758 ENDF1 1966 ENDF2 3998 ENDF3 998 ENDJOB 2055 EOJOB 1781 EXEND 1682 FIELD 1601 FINAL 517 GET 2076 GETXT 2155 GOTOE 530 GRPMRK 2706 HEADER 1624 HOLDA 2705 HOLDCT 2873 HOLDDT 2948 IDENT 2718 IMAGE 0 INITAP %U0 INITLZ 340 INPUT 3028 INST2 2598 INSTR 1222 INSTXT 1253 INTAPE %U5 IS12K 736 IS4K 747 ISJOB 1747 JOBSW 2719 KBLKNG 2701 LABADD 61 LARGE 1382 LGTCK 2652 LGTXT 2672 LIBRN 0 LOCXT 2207 LRGDC 1494 LRGXT 1422 LTAPOP 591 LTAPSW 2725 MESSAG 333 NXTREC 2120 OUTAPE %U6 OUTOPN 2000 OUTPUT 101 PASSE 1900 PCHCON 1344 PNH4OP 520 PNH4SW 2726 PRINT 200 PRODC 1447 PUNCH 100 PUNCH4 1793 RDREC 2688 RDRERR 2506 READ4 393 READC 996 READCT 3025 REDXT 2502 RETRY 614 SAVEZN 2859 SENSW 528 SEQCT 2698 SETINP 1084 SETLOC 2167 SSOP 2001 SSOUT 550 START 1017 SUBCTR 2615 SUPADD 66 TEMP 2893 TPERR 2433 TPERR2 602 TPHALT 2540 TPINST 2489 TSTLSW 1049 TSTOP 480 TSTSS 475 TSTSSC 540 TSTSSG 545 TYPE 75 WRITE1 2030 WRITE2 2264 WRTCTR 3027 WRTRED 2578 WT1XT 2051 WT2XT 2327 WTGM 2403 XR1 89 XR2 94 XR3 99 XTRA 1534 XXXX 0 ZONE 339 ------------- source code --------------------------- 101 000 job 1401 autocoder-pass 8 load tape-right main-version 3 3782l 102 ctl 630 1 103 * 104 * equates used by program 105 * 106 initap equ %u0 107 intape equ %u5 108 outape equ %u6 109 punch equ 100 110 output equ punch&1 111 image equ 0 112 xxxx equ 0 113 count equ image&7 114 labadd equ image&61 115 supadd equ image&66 116 aop equ image&70 117 bop equ image&73 118 dmod equ image&74 119 type equ image&75 120 print equ 200 121 librn equ 0 122 org 87 123 xr1 dcw 000 124 dc 00 125 xr2 dcw 000 126 dc 00 127 xr3 dcw 000 128 dc 00 129 * 130 * initialization routiune 131 * 132 org 336 133 zone dcw @2skb@ 134 initlz rwd outape 135 c outopn,@2@ 136 bh endjob 137 c outopn,@7@ 138 bl endjob 139 rwd 4 140 rwd intape 141 cw ltapsw,pnh4sw 142 mcw ssop,tstss 143 * 144 * test for ctl card 145 * 146 read4 mcw @013@,lgtck&6 147 rt 4,1 148 b chklgt 149 ber tperr 150 c 18,@job@ 151 bu ckctl 152 mcw 79,ident#4 153 cw jobsw#1 154 b read4 155 ckctl c 18,@ctl@ 156 mcw outopn,23 157 rwd 4 158 be tstss 159 lca @33@,22 160 tstss bss sensw,f 161 tstop bce ltapop,23,2 162 bce ltapop,23,3 163 bce ltapop,23,6 164 bce ltapop,23,7 165 sw ltapsw#1 166 b start 167 * 168 * option to punch new source deck 169 * 170 pnh4op sw pnh4sw#1 171 b tstlsw 172 * 173 * test sense switches for option 174 * 175 sensw lca @0@,23 176 bss add1,b 177 tstssc bss add2,c 178 tstssg bss add4,g 179 ssout cw 23 180 b tstop 181 add1 a @1@,23 182 b tstssc 183 add2 a @2@,23 184 b tstssg 185 add4 a @4@,23 186 b ssout 187 * 188 * set up clear storage record 189 * 190 ltapop cs punch&80 191 sw grpmrk 192 lca grpmrk,punch&99 193 lca ident,punch&79 194 lca @ @ 195 lca @b007@ 196 lca @)021@ 197 lca @b047l@ 198 lca @l%u1001r@ 199 lca @.@ 200 lca bsptu1 201 * 202 * test object core size 203 * 204 c 22,@3@ 205 be is4k 206 bh is4k 207 c 22,@6@ 208 bl is4k 209 lca @i0?@,punch&44 210 lca @099@ 211 lca @b053@ 212 lca @m074099@ 213 lca @)099@ 214 lca @b001/@ 215 lca @c004041@ 216 lca @#044004@ 217 lca @/i9i@ 218 bce btstrp,22,6 219 bce is12k,22,5 220 mz zone-2,punch&4 221 b btstrp 222 is12k mz zone-1,punch&4 223 b btstrp 224 is4k lca @i0@,punch&75 225 lca @b053@,punch&46 226 lca @m080099@ 227 lca @)099@ 228 lca @b001@ 229 lca @b0320020@ 230 lca @)002@ 231 lca @a075003@ 232 lca @,002@ 233 lca @/i99@ 234 sw punch&80 235 bce btstrp,22,3 236 mcw @z@,punch&2 237 bce btstrp,22,2 238 mcw @t@,punch&2 239 bce btstrp,22,1 240 mcw @i@,punch&2 241 * 242 * set up bootstrap program 243 * 244 btstrp b write1 245 cw punch&99 246 lca grpmrk,punch&80 247 lca @ @,punch&24 248 lca @.020@ 249 lca ber1 250 lca rdrec 251 lca @.@ 252 lca bsptu1 253 b write1 254 cs punch&75 255 lca @ @,punch&35 256 lca @b007@ 257 lca @n000@ 258 lca @l @ 259 lca ber1 260 lca rdrec 261 lca @.@ 262 lca bsptu1 263 * 264 * test processor core size 265 * 266 c 21,@3@ 267 be start 268 bh start 269 c 21,@6@ 270 bl start 271 mn 21,savezn#1 272 a &3,savezn 273 mn savezn,*&4 274 mz zone,*&7 275 lca grpmrk,grpmrk 276 cw grpmrk 277 mcw @400@,kblkng 278 bce start,21,4 279 a @400@,kblkng 280 * 281 * set parameters 282 * 283 start bce pnh4op,23,4 284 bce pnh4op,23,5 285 bce pnh4op,23,6 286 bce pnh4op,23,7 287 tstlsw bw eojob,ltapsw 288 mcw kblkng,blkct 289 cs 80 290 bw setinp,jobsw 291 rt intape,input 292 setinp sw image&23,image&57 293 sw image&62,image&67 294 sw image&68,image&71 295 sw image&74,image&6 296 sw image&1 297 b get 298 * 299 * analyze record type 300 * 301 analyz bce bypass,type,% 302 bm bypass,image&5 303 bce instr,type, 304 bce dojob,type,i 305 mn type,xr2 306 a xr2 307 a xr2 308 b *&1&x2 309 b da 310 b const 311 b dsa 312 b exend 313 b bypass 314 b bypass 315 b bypass 316 b bypass 317 b xtra 318 b bypass 319 dojob mcw image&20,punch&79 320 b bypass 321 * 322 * process instructions 323 * 324 instr mcw dmod,punch&42 325 mcw 326 mcw 327 mcw 328 mcw labadd,cnvadd 329 a count,cnvadd 330 s @1@,cnvadd 331 instxt b setloc 332 b write2 333 b bypass 334 * 335 * process constants 336 * 337 const a @00@,count 338 c count,@00@ 339 bl *&5 340 b bypass 341 bce pchcon,image&23,# 342 bwz pchcon,image&4,b 343 mcw image&53,holddt-22 344 bce alpha,image&23,@ 345 b pchcon 346 alpha mcw &holddt-51,xr1 347 a count,xr1 348 mcw blank1#1,xxxx&x1 349 pchcon mcw holddt-20,punch&66 350 mcw labadd,cnvadd 351 c count,@32@ 352 bl large 353 bce prodc,type,a 354 b instxt 355 * 356 * constants larger than 32 characters 357 * 358 large s @32@,count 359 s count,cnvadd 360 mcw count,holdct#2 361 mcw @32@,count 362 b setloc 363 bce lrgdc,type,a 364 lrgxt mcw holdct,count 365 mcw holddt,temp#20 366 b write2 367 mcw temp,punch&54 368 * 369 * process dc 370 * 371 prodc mcw labadd,cnvadd 372 s count,cnvadd 373 a @1@,cnvadd 374 b cnvrt 375 mcw cnvwk,punch&30 376 mcw @)@ 377 mcw labadd,cnvadd 378 b instxt 379 * 380 * dc greater than 32 characters 381 * 382 lrgdc mcw labadd,cnvadd 383 s holdct,cnvadd 384 s @31@,cnvadd 385 b cnvrt 386 mcw cnvwk,punch&30 387 mcw @)@ 388 b lrgxt 389 * 390 * extra constant for constant over 32 characters 391 * 392 xtra bce bypass,image&21, 393 mcw image&73,holddt#52 394 chain6 395 b bypass 396 * 397 * process dsa 398 * 399 dsa mcw bop,punch&37 400 bce prodc,type,b 401 mcw labadd,cnvadd 402 b instxt 403 * 404 * process define area 405 * 406 da bce bypass,type,! 407 bce header,type,0 408 * 409 * field, field repeat 410 * 411 field mcw supadd,cnvadd 412 b dartn 413 bce field,type,' 414 b analyz 415 * 416 * header, header repeat 417 * 418 header mcw labadd,cnvadd 419 b dartn 420 bce header,type,' 421 b analyz 422 * 423 * da subroutine 424 * 425 dartn sbr daxt&3 426 b cnvrt 427 mcw cnvwk,punch&26 428 mcw cnvwk 429 mcw @,@ 430 b write2 431 b get 432 daxt b xxxx 433 * 434 * process ex, end 435 * 436 exend bce end,type,3 437 mcw aop,punch&30 438 mcw @b@ 439 mcw @n000000@ 440 b write2 441 lca @ @,punch&24 442 lca @b007@ 443 b get 444 bce isjob,type,i 445 compat b write1 446 lca @l @,punch&26 447 b analyz 448 isjob mcw image&20,punch&79 449 b compat 450 * 451 * end 452 * 453 end mcw @/ 080@,punch&26 454 mcw aop,punch&23 455 b write2 456 wtm outape 457 eojob bw punch4,pnh4sw 458 b endjob 459 * 460 * punch new source deck 461 * 462 punch4 cs punch&80 463 mcw @113@,lgtck&6 464 rt 4,punch&1 465 b chklgt 466 ber tperr 467 bce dolto,punch&75,l 468 bce punch4,punch&75,s 469 bce punch4,punch&75,c 470 bce punch4,punch&75,z 471 bce punch4,punch&75,y 472 bump a &1,seqct-1 473 mcw seqct,punch&5 474 bce dopch,punch&6,* 475 mcw blank4#4,punch&15 476 c punch&18,@job@ 477 bu dopch 478 mcw blank4,punch&11 479 mcw blank4-2 480 dopch mcw blank4-1,punch&75 481 p 482 ss 4 483 c punch&18,@end@ 484 bu punch4 485 bce punch4,punch&6,* 486 cs punch&80 487 p 488 ss 8 489 b endjob 490 dolto mcw @ltorg@,punch&20 491 b bump 492 dcw @ @ 493 endf1 dcw @}@ 494 xfr librn 495 job 1401 autocoder-pass 8-load tape-left main -version 3 3781l 496 org 2000 497 outopn dcw @ @ 498 ssop dcw @b@ 499 rtw 1,1 500 nop xxxx 501 ber tperr 502 cw endf1,endf2 503 b initlz 504 * 505 * write clear storage and bootstrap 506 * 507 write1 sbr wt1xt&3 508 wtw outape,output 509 nop xxxx 510 ber tperr 511 wt1xt b xxxx 512 * 513 * go back to pass e for extra output 514 * 515 endjob rtw 1,333 516 nop xxxx 517 ber tperr 518 b messag 519 * 520 * retrieve input record 521 * 522 get sbr getxt&3 523 c blkct,kblkng 524 bu nxtrec 525 s holda 526 mcw &input&13,lgtck&6 527 rt intape,input 528 b chklgt 529 ber tperr 530 nxtrec a &80,blkct 531 mcw blkct,xr3 532 mcw input-1&x3,image&80 533 chain8 534 s xr3&1 535 s 536 s 537 getxt b xxxx 538 * 539 * do next record 540 * 541 bypass b get 542 b analyz 543 * 544 * set addresses in output 545 * 546 setloc sbr locxt&3 547 b cnvrt 548 mcw cnvwk,punch&26 549 za &34,cnvadd 550 a count,cnvadd 551 b cnvrt 552 mcw cnvwk,punch&23 553 locxt b xxxx 554 * 555 * convert 5 to 3 digit address 556 * 557 cnvrt sbr cnvxt&3 558 bav *&1 559 addagn a &96,cnvadd-3 560 bav addagn 561 mz cnvadd-4,cnvadd#5 562 mn cnvadd-3,*&4 563 mz zone,cnvadd-2 564 mcw cnvadd,cnvwk#3 565 cnvxt b xxxx 566 * 567 * write output records 568 * 569 write2 sbr wt2xt&3 570 bce dogm,punch&35,} 571 wtw outape,output&19 572 nop xxxx 573 ber tperr 574 nop 575 clear mcw blank1,punch&75 576 mcw punch&75 577 mcw blank1,holddt 578 mcw holddt 579 mcw @n000@,punch&30 580 mcw @l @ 581 wt2xt b xxxx 582 dogm cs 299 583 lca punch&80,280 584 lca 585 mcw punch&66,274 586 lca @ @ 587 lca @b007@ 588 lca @)043043@ 589 lca punch&26 590 lca @,043@ 591 sw 225,235 592 a &8,227 593 cw 225 594 bce wtgm,punch&27,n 595 mcw punch&30,237 596 wtgm cw 235 597 wtw outape,220 598 nop xxxx 599 ber tperr 600 nop 601 cw 280 602 b clear 603 * 604 * tape redundancy routine 605 * 606 tperr sbr xr2 607 sbr redxt&3 608 mz &9,xr2 609 mcw 4000-10&x2,tpinst&7 610 mn tpinst&3,bsp1&3 611 mcw tpinst&7,inst2&7 612 bsp1 bsp initap 613 bce wrtred,tpinst&7,w 614 mcw &9,readct#1 615 tpinst rt initap,xxxx 616 ber rdrerr 617 redxt b xxxx 618 rdrerr mn tpinst&3,bsp2&3 619 bsp2 bsp initap 620 s &1,readct 621 bwz tpinst,readct,b 622 mn tpinst&3,tphalt&6 623 tphalt h xxxx,890 624 mcw tpinst&7,*&8 625 rt initap,xxxx 626 bss bsp1,e 627 h xxxx,811 628 b redxt 629 wrtred skp 1 630 bce subctr,wrtctr-1,5 631 a &1,wrtctr#2 632 inst2 wt initap,xxxx 633 ber bsp1 634 b redxt 635 subctr s wrtctr 636 mn tpinst&3,*&7 637 h xxxx,860 638 b inst2 639 * 640 * check for short records 641 * 642 chklgt sbr xr2 643 sbr lgtxt&3 644 mz &9,xr2 645 lgtck bce 4000-12&x2,xxxx,} 646 chain12 647 lgtxt b xxxx 648 ber1 dcw @b001l@ 649 rdrec dcw @l%U1020r@ 650 bsptu1 dcw @u%u1b@ 651 seqct dcw @0100 @ 652 kblkng dcw 080 653 holda dcw &0000 654 blkct equ holda-1 655 grpmrk dc @}@ 656 ltorg* 657 * 658 * input area 659 * 660 input equ *&1 661 endf2 equ 3998 662 3998 dcw @}@ 663 xfr librn 664 job 1401 autocoder-pass 8 extra output overlay-version 3 3783l 665 org 333 666 * 667 * print end of job messages 668 * 669 messag cc 1 670 cs 332 671 cs 672 mcw @end of assembly@,print&15 673 w 674 cc k 675 mcw @if extra output desired, set sense@,print&34 676 mcw @switch f on, and@, print&51 677 w 678 cc j 679 cs print&71 680 mcw @b on for condensed cards@,print&24 681 w 682 mcw @c on for loadable tape 6@,print&24 683 w 684 mcw @d on for listing tape 3@,print&24 685 w 686 mcw @e on to suppress listing@,print&24 687 w 688 mcw @g on for new source deck@,print&24 689 w 690 cc j 691 cs print&24 692 mcw @and press start@,print&15 693 w 694 cc k 695 mcw @if no extra output desired, press start@,print&39 696 w 697 cc 1 698 cw grpmrk 699 h xxxx,880 700 bss gotoe,f 701 cs print&39 702 mcw @end of job@,print&10 703 w 704 cc k 705 mcw @input for re-assembly on tape unit 4@,print&36 706 w 707 rwd 1 708 rwd 4 709 rwd 5 710 rwd 6 711 bw final,ltapsw 712 cs 236 713 mlc @loadable tape on tape unit 6@,print&28 714 cc k 715 w 716 final cc 1 717 h xxxx,889 718 b final&2 719 gotoe cw endf2,endf3 720 cw input&80 721 cs punch&99 722 bsp 1 723 bsp 1 724 bsp 1 725 bsp 1 726 bsp 1 727 bsp 1 728 bsp 1 729 bsp 1 730 rtw 1,passe 731 ber tperr2 732 b passe&1 733 tperr2 mcw &9,readc#1 734 bsp 1 735 retry rtw 1,passe 736 ber again 737 b passe&1 738 again bsp 1 739 s &1,readc 740 bwz retry,readc,b 741 h xxxx,891 742 rtw 1,passe 743 bss tperr2,e 744 h xxxx,812 745 b passe&1 746 ltorg* 747 endf3 dcw @}@ 748 passe equ 1900 749 ex librn 750 end librn --------------- object code ---------------- ,008015,022026,030037,044,049,053053N000000N00001026 00013782L L068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0?00023782L ,008015,022029,036040,047054,061068,072/061039 ,001001104000033782L 000000000000000 L015101,092097,040040,040040104000043782L 2SKBU%U6RC!00P07B!55UC!00P08B!55TU%U4R L038373,340345,352357,364369104000053782L U%U5R)P25P26M!01475MP11O58M%U4001RBO37 L038411,379386,393400,408040104000063782L BM33LC018P14B444/M079P18)P19B393C018P22L039450,417424,429436,440444104000073782L M!00023U%U4RB475SLP24022B528FB5910232 L037487,458463,468475,480040104000083782L B5910233B5910236B5910237,P25B'17,P26 L036523,496504,512516,520040104000093782L B'49LP27023B558BB569CB580G)023B480 L034557,528535,540545,550554104000103782L AP28023B540AP07023B545AP29023B550/180 L037594,565569,576580,587591104000113782L ,P06LP06199LP18179LP31LP35LP39LP44 L034628,599606,613617,621625104000123782L LP52LP53LO93C022P54B747SB747UC022P55 L036664,633637,641648,653658104000133782L B747TLP58144LP61LP65LP72LP76LP81 L032696,670677,681685,689693104000143782L LP88LP95LP99B8420226B7360225Y337104B842L039735,701705,709717,725732104000153782L Y338104B842LQ01175LP65146LQ08LP76LQ12 L037772,743747,754761,765769104000163782L LQ20LQ24LQ31LQ35LQ39,180B8420223 L032804,777781,785789,793797104000173782L MQ40102B8420222MQ41102B8420221MQ42102 L037841,812820,827835,040040104000183782L B!30)199LP06180LQ43124LQ47LO80LO88 L034875,846850,857864,868872104000193782L LP53LO93B!30/175LQ43135LP35LQ51 L031906,880884,888892,899903104000203782L LQ58LO80LO88LP53LO93C021P54B'17S L032938,911915,919923,927934104000213782L B'17UC021P55B'17TD021Q59AQ60Q59DQ59980 L038976,944951,956963,970040104000223782L Y339990LP06P06)P06MQ63P01B'170214 L033'09,984991,995'02,040040104000233782L AQ63P01B5200234B5200235B5200236B5200237L039'48,'17'25,'33'41,040040104000243782L VX81P251MP01P04/080V'84P191M%U5?28R L035'83,'57'64,'68'76,040040104000253782L ,023057,062067,068071,074006,001B!76 L036/19,'91'98,/05/12,/16040104000263782L BJ59075%VJ59005KBS22075 BS11075ID075094L039/58,/28/36,/44/52,040040104000273782L A094A094B/P1BV85BS65BV59BW82 L028/86,/63/67,/71/75,/79/83104000283782L BJ59BJ59BJ59BJ59BV34BJ59M020179 L031S17,/91/95,/99S03,S07S11104000293782L BJ59M074142MMMM061?01A007?01 L028S45,S22S29,S30S31,S32S39104000303782L SP28?01BJ67BK64BJ59AQ65007C007Q65BS88T L038S83,S53S57,S61S65,S72S79104000313782L BJ59BT44023#VT44004BM053R26BT23023@BT44L039T22,S88S96,T04T11,T19040104000323782L MQ68089A007089MQ690'0MR28166M061?01 L035T57,T30T37,T44T51,040040104000333782L C007Q71BT82TBU47075ABS53SQ71007S007?01 L038T95,T65T70,T78T82,T89040104000343782L M007Q73MQ71007BJ67BU94075AMQ73007 L033U28,U03U10,U14U22,040040104000353782L MR48Q93BK64MQ93154M061?01S007?01AP28?01L039U67,U36U40,U47U54,U61040104000363782L BK11M?04130MQ94M061?01BS53M061?01 L033V00,U72U79,U83U90,U94040104000373782L SQ73?01SQ96?01BK11M?04130MQ94BU22 L033V33,V08V15,V19V26,V30040104000383782L BJ59021 M073R48MMMMM L020V53,V42V49,V50V51,V52V53104000393782L MBJ59M073137BU47075BM061?01BS53BJ59075!L039V92,V55V59,V66V74,V81V85104000403782L BW240750M066?01BW47BW01075'B/20M061?01 L038W30,W01W08,W12W20,W24040104000413782L BW47BW24075'B/20HW81BK11M?04126M?04 L035W65,W35W43,W47W51,W55W62104000423782L MR49BK64B!76B000BX580753M070130MR50 L035X00,W70W74,W78W82,W90W97104000433782L MR57BK64LQ43124LP35B!76BX47075IB!30 L035X35,X05X09,X16X20,X24X32104000443782L LR64126B/20M020179BX32MR71126M070123 L036X71,X43X47,X54X58,X65040104000453782L BK64U%U6MVX93P261B!55/180MR74O58 L032Y03,X76X81,X89X93,X97040104000463782L M%U4101RBO37BM33LBZ54175LBX93175S L033Y36,Y12Y16,Y21Y29,040040104000473782L BX93175CBX93175ZBX93175YAR75O97MO98105 L038Y74,Y45Y53,Y61Y68,040040104000483782L BZ13106*MR79115C118P14BZ13/MR79111MR77 L038Z12,Y83Y90,Y97Z02,Z09040104000493782L MR781754K4C118R82BX93/BX93106*/180 L034Z46,Z20Z21,Z23Z30,Z35Z43104000503782L 4K8B!55MR87120BY61 } L020Z66,Z48Z50,Z54Z61,Z65Z66104000513782L N000000,040040,040040,040040B00000523782L ,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 00533781L ,068072)063067/061039 ,001001104000543781L BL%U1001RN000BM33L)Z66I98B340 L030!29,!01!02,!10!14,!19!26104000553781L H!54L%U6101WN000BM33LB000L%U1333RN000 L037!66,!34!42,!46!51,!55!63104000563781L BM33LB333HJ58CP04P01BJ20/SP05MR90O58 L036J02,!72!76,!80!87,!92!96104000573781L M%U5?28RBO37BM33LAR92P04MP04099M?B7080ML039J41,J11J15,J20J27,J34J41104000583781L MMMMMMM L007J48,J43J44,J45J46,J47J48104000593781L S100SSB000B!76B/20HK10 L022J70,J53J54,J55J59,J63J67104000603781L BK11M?04126?R94?01A007?01BK11M?04123 L036K06,J75J82,J89J96,K00040104000613781L B000HK63BK20ZAR96R98BK20ZYR97?01DR98K49L039K45,K11K15,K20K27,K32K39104000623781L Y339R99M?01?04B000HL30BL31135}L%U6120W L038K83,K53K60,K64K68,K76040104000633781L N000BM33LNMQ69175M175MQ69R48MR48 L032L15,K88K93,K94L01,L05L12104000643781L MQ51130M?11B000/299L180280LM166274 L034L49,L23L27,L31L35,L42L43104000653781L LQ43LP35L?18L126L?22,225235A?23227 L034L83,L54L58,L62L66,L70L77104000663781L )225BM03127NM130237)235L%U6220WN000 L035M18,L88L96,M03M07,M15040104000673781L BM33LN)280BK94H094HN05Y?24094 L029M47,M24M25,M29M33,M37M41104000683781L MIR0M96DM92M72MM96O05U%U0BBN78M96W L034M81,M55M62,M69M74,040040104000693781L M?24?25M%U0000RBN06LB000DM92N16U%U0B L036N17,M89M97,N02N06,N13040104000703781L SR75?25VM89?25BDM92N46.000890MM96N61 L036N53,N25N33,N40N47,040040104000713781L M%U0000RBM69E.000811BN02U%U1EBO15?265 L037N90,N62N67,N74N78,N83040104000723781L AR75?27M%U0000WBM69LBN02S?27DM92O32 L035O25,N98O06,O11O15,O19040104000733781L .000860BN98H094HO75Y?24094BIQ8000}B L035O60,O33O37,O41O45,O52O60104000743781L BBBBBBB L007O67,O62O63,O64O65,O66O67104000753781L BBBBB000B001LL%U1020R L021O88,O69O70,O71O72,O76O81104000763781L U%U1B0100 080000?}27013 L023P11,O94O99,P02P07,P08P09104000773781L JOB CTL33 L015P26,P15P19,P20P23,P25P26104000783781L 014 B007)021B047L L018P44,P28P29,P30P32,P36P40104000793781L L%U1001R.36I0?099B053 L021P65,P53P54,P55P56,P59P62104000803781L M074099)099B001/C004041#044004/I9II0 L036Q01,P73P77,P82P89,P96Q00104000813781L M080099B001B0320020)002A075003,002/I99 L038Q39,Q09Q13,Q21Q25,Q32Q36104000823781L ZTI .020N000L L019Q58,Q41Q42,Q43Q44,Q48Q52104000833781L C40000Q97 32 L013Q71,Q60Q61,Q64Q66,Q69Q70104000843781L )31 L025Q96,Q74Q94,Q95040,040040104000853781L L039R35,040040,040040,040040104000863781L ,BN000000L L029R64)R36R36,R49R50,R51R58104000873781L / 080113A ENDLTORG?41 L026R90,R72R75,R76R80,R83R88104000883781L 8?3D9F L )043043 L028?18,R93R95,R97?02,?05?12104000893781L ,043HI L009?27,?23?24,?25?26,040040104000903781L } L001I98,040040,040040,040040104000913781L N000000,040040,040040,040040B00000923781L ,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 00933783L ,068072)063067/061039 ,001001104000943783L F1/332/M6962152FKM730234 L024356,335339,340347,348350104000953783L M7462512FJ/271M7702242M794224 L029385,364365,367371,378379104000963783L 2M8182242M8422242M8662242 L025410,387394,395402,403410104000973783L FJ/224M8812152FKM9202392 L024434,413417,424425,427434104000983783L F1)P06.000880B530F/239M9302102 L030464,437441,448453,457464104000993783L FKM9662362U%U1RU%U4RU%U5RU%U6R L030494,467474,475480,485490104001003783L V517P251/236M994228FK2F1.000889 L031525,503507,514516,517519104001013783L B519)I98998)A08/199U%U1BU%U1BU%U1B L034559,530537,541545,550555104001023783L U%U1BU%U1BU%U1BU%U1BU%U1BL%U1Z00RB602L L038597,565570,575580,585593104001033783L BZ01M995996U%U1BL%U1Z00RB631LBZ01U%U1B L038635,602609,614622,627631104001043783L S997996V614996B.000891L%U1Z00RB602E L035670,643651,658666,040040104001053783L .000812BZ01END OF ASSEMBLY L026696,678682,040040,040040104001063783L IF EXTRA OUTPUT DESIRED, SET SENSE L034730,040040,040040,040040104001073783L SWITCH F ON, AND L016746,040040,040040,040040104001083783L B ON FOR CONDENSED CARDS L024770,040040,040040,040040104001093783L C ON FOR LOADABLE TAPE 6 L024794,040040,040040,040040104001103783L D ON FOR LISTING TAPE 3 L024818,040040,040040,040040104001113783L E ON TO SUPPRESS LISTING L024842,040040,040040,040040104001123783L G ON FOR NEW SOURCE DECKAND PRESS STARTL039881,867040,040040,040040104001133783L IF NO EXTRA OUTPUT DESIRED, PRESS STARTL039920,040040,040040,040040104001143783L END OF JOB L010930,040040,040040,040040104001153783L INPUT FOR RE-ASSEMBLY ON TAPE UNIT 4 L036966,040040,040040,040040104001163783L LOADABLE TAPE ON TAPE UNIT 6I A} L032998,995996,997998,040040104001173783L N000000,040040,040040,040040B00001183783L ,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 01193783L ,068072)063067/061039 ,001001104001203783L /000080 01213783L