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 AUTOCODER-PASS 5-PROCESS LABELS-INITL-VERSION 3 3751L PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 1 01 000 JOB AUTOCODER-PASS 5-PROCESS LABELS-INITL-VERSION 3 102 1 02 CTL 63011 103 1 03 * 104 1 04 * EQUATES USED BY PROGRAM 105 1 05 * 106 1 06 INITAP EQU %U0 %U0 107 1 07 SYSTPE EQU %U1 %U1 108 1 08 SAVETP EQU %U4 %U4 109 1 09 CINPUT EQU %U5 %U5 110 1 10 COUTPT EQU %U6 %U6 111 1 11 DOUTPT EQU %U5 %U5 112 1 12 DINPUT EQU %U6 %U6 113 1 13 TABLE EQU 2409 2409 114 1 14 ADDLO EQU TABLE-006&X2 2403 X 115 1 15 SYMHO EQU TABLE-005&X2 2404 X 116 1 16 ADDHO EQU TABLE-009&X2 2400 X 117 1 17 LBLREF EQU TABLE-008&X2 2401 X 118 1 18 SYMBOL EQU TABLE&X2 2409 X 119 1 19 CARD EQU 0 0000 120 1 20 STAOP EQU CARD&001 0001 121 1 21 STLABL EQU CARD&002 0002 122 1 22 STADDR EQU CARD&003 0003 123 1 23 STBOP EQU CARD&004 0004 124 1 24 COUNT EQU CARD&007 0007 125 1 25 LABEL EQU CARD&013 0013 126 1 26 AOPER EQU CARD&022 0022 127 1 27 AOPADJ EQU CARD&026 0026 128 1 28 AINDEX EQU CARD&027 0027 129 1 29 ORGADD EQU CARD&032 0032 130 1 30 CNVLAB EQU CARD&056 0056 131 1 31 LABADD EQU CARD&061 0061 132 1 32 SUPADD EQU CARD&066 0066 133 1 33 AOP EQU CARD&070 0070 134 1 34 TYPE EQU CARD&075 0075 135 1 35 AOPHO EQU CARD&017 0017 136 1 36 LBLHO EQU CARD&008 0008 137 1 37 HOADD EQU CARD&057 0057 138 1 38 TPAREA EQU 3918 3918 139 1 39 INPUT EQU TPAREA-001&X3 3917 X 140 1 40 LIMIT EQU TPAREA&13 3931 141 1 41 XXXX EQU 0 0000 142 1 42 GPMRK3 EQU 3998 3998 143 1 43 LIBRN EQU 0 0000 144 1 44 * 145 1 45 * 146 1 46 * GET, PUT, REDUNDANCY & 147 1 47 * CROSSOVER ROUTINES COMMON 1 AUTOCODER-PASS 5-PROCESS LABELS-INITL-VERSION 3 3751L PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 1 48 * TO BOTH PASSES 149 1 49 * 150 1 50 * 151 1 51 ORG ENDOFC&1 1925 152 1 52 * 153 1 53 * GET & PUT 154 1 54 * 155 1 55 GET C BLKCT,KBLKNG 7 1925 C L30 L26 4 156 1 56 BE WRITE 5 1932 B X67 S 4 157 1 57 NXTREC A &80,BLKCT 7 1937 A L36 L30 4 158 1 58 MCW BLKCT,XR3 7 1944 M L30 099 4 159 1 59 MOVEIN MCW INPUT,CARD&80 7 1951 M IA7 080 4 160 1 60 CHAIN 9 MACRO 161 MCW 1 1958 M GEN 4 162 MCW 1 1959 M GEN 4 163 MCW 1 1960 M GEN 5 164 MCW 1 1961 M GEN 5 165 MCW 1 1962 M GEN 5 166 MCW 1 1963 M GEN 5 167 MCW 1 1964 M GEN 5 168 MCW 1 1965 M GEN 5 169 MCW 1 1966 M GEN 5 170 1 61 S XR3&001 4 1967 S 100 6 171 1 62 S 1 1971 S 6 172 1 63 S 1 1972 S 6 173 1 64 B ANAL 4 1973 B 114 6 174 1 65 PUT MCW BLKCT,XR3 7 1977 M L30 099 6 175 1 66 MCW CARD&80,INPUT 7 1984 M 080 IA7 6 176 1 67 CHAIN 9 MACRO 177 MCW 1 1991 M GEN 6 178 MCW 1 1992 M GEN 7 179 MCW 1 1993 M GEN 7 180 MCW 1 1994 M GEN 7 181 MCW 1 1995 M GEN 7 182 MCW 1 1996 M GEN 7 183 MCW 1 1997 M GEN 7 184 MCW 1 1998 M GEN 7 185 MCW 1 1999 M GEN 8 186 1 68 B GET 4 2000 B Z25 8 187 1 69 * 188 1 70 *TAPE REDUNDANCY ROUTINE 189 1 71 * 190 1 72 TPERR SBR XR1 4 2004 H 089 8 191 1 73 SBR REDXT&3 4 2008 H !76 8 192 1 74 MZ &9,XR1 7 2012 Y L37 089 8 193 1 75 MCW 4000-10&X1,TPINST&7 7 2019 M IZ0 !67 8 194 1 76 MN TPINST&3,BSP1&3 7 2026 D !63 !43 8 195 1 77 MCW TPINST&7,INST2&7 7 2033 M !67 J76 9 196 1 78 BSP1 BSP INITAP 5 2040 U %U0 B 9 197 1 79 BCE WRTRED,TPINST&7,W 8 2045 B J49 !67 W 9 1 AUTOCODER-PASS 5-PROCESS LABELS-INITL-VERSION 3 3751L PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 1 80 MCW &9,READCT#1 7 2053 M L37 L38 9 199 1 81 TPINST RT INITAP,XXXX 8 2060 M %U0 000 R 9 200 1 82 BER RDRERR 5 2068 B !77 L 10 201 1 83 REDXT B XXXX 4 2073 B 000 10 202 1 84 RDRERR MN TPINST&3,BSP2&3 7 2077 D !63 !87 10 203 1 85 BSP2 BSP INITAP 5 2084 U %U0 B 10 204 1 86 S &1,READCT 7 2089 S L39 L38 10 205 1 87 BWZ TPINST,READCT,B 8 2096 V !60 L38 B 10 206 1 88 MN TPINST&3,TPHALT&6 7 2104 D !63 J17 11 207 1 89 TPHALT H XXXX,590 7 2111 . 000 590 11 208 1 90 MCW TPINST&7,*&8 7 2118 M !67 J32 11 209 1 91 RT INITAP,XXXX 8 2125 M %U0 000 R 11 210 1 92 BSS BSP1,E 5 2133 B !40 E 11 211 1 93 TPHLT3 H XXXX,511 7 2138 . 000 511 12 212 1 94 B REDXT 4 2145 B !73 12 213 1 95 WRTRED SKP SYSTPE 5 2149 U %U1 E 12 214 1 96 BCE SUBCTR,WRTCTR-1,5 8 2154 B J86 L40 5 12 215 1 97 A &1,WRTCTR#2 7 2162 A L39 L41 12 216 1 98 INST2 WT INITAP,XXXX 8 2169 M %U0 000 W 12 217 1 99 BER BSP1 5 2177 B !40 L 13 218 2 00 B REDXT 4 2182 B !73 13 219 2 01 SUBCTR S WRTCTR 4 2186 S L41 13 220 2 02 MN TPINST&3,*&7 7 2190 D !63 K03 13 221 2 03 TPHLT2 H XXXX,560 7 2197 . 000 560 13 222 2 04 B INST2 4 2204 B J69 13 223 2 05 * 224 2 06 * CHECK FOR SHORT RECORDS 225 2 07 * 226 2 08 CHKLGT SBR XR1 4 2208 H 089 13 227 2 09 SBR LGTXT&3 4 2212 H K46 14 228 2 10 MZ &9,XR1 7 2216 Y L37 089 14 229 2 11 LGTCK BCE 4000-12&X1,LIMIT,} 8 2223 B IY8 I31 } GMARK 14 230 2 12 CHAIN 12 MACRO 231 BCE 1 2231 B GEN 14 232 BCE 1 2232 B GEN 14 233 BCE 1 2233 B GEN 14 234 BCE 1 2234 B GEN 14 235 BCE 1 2235 B GEN 15 236 BCE 1 2236 B GEN 15 237 BCE 1 2237 B GEN 15 238 BCE 1 2238 B GEN 15 239 BCE 1 2239 B GEN 15 240 BCE 1 2240 B GEN 15 241 BCE 1 2241 B GEN 15 242 BCE 1 2242 B GEN 16 243 2 13 LGTXT B XXXX 4 2243 B 000 16 244 2 14 * 245 2 15 * CROSSOVER, C TO D 246 2 16 * 247 2 17 RDPSSD RTW SYSTPE,1 8 2247 L %U1 001 R 16 1 AUTOCODER-PASS 5-PROCESS LABELS-INITL-VERSION 3 3751L PAGE 4 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 248 2 18 NOP XXXX 4 2255 N 000 16 249 2 19 BER TPERR 5 2259 B !04 L 16 250 2 20 CW ENDOFD 4 2264 ) Y68 16 251 2 21 B PASSD 4 2268 B S90 16 252 2 22 * 253 2 23 * CROSSOVER, D TO C 254 2 24 * 255 2 25 RDPSSC RTW COUTPT,1 8 2272 L %U6 001 R 17 256 2 26 NOP XXXX 4 2280 N 000 17 257 2 27 BER TPERR 5 2284 B !04 L 17 258 2 28 CW ENDOFC 4 2289 ) Z24 17 259 2 29 B CLRTAB 4 2293 B Y13 17 260 2 30 * 261 2 31 * COMMON CONSTANTS 262 2 32 * 263 2 33 CLRMAX DCW @I97@ 3 2299 17 264 2 34 CLRMIN DSA TABLE-010 3 2302 L99 17 265 2 35 FNCTN DCW @ @ 6 2308 18 266 2 36 TABMAX DCW @V00@ 3 2311 18 267 2 37 MAXADD DCW @ @ 3 2314 18 268 2 38 TABLSZ DCW &0150 4 2318 18 269 2 39 MAXSER DCW @ @ 4 2322 18 270 2 40 SFXCTR DCW @ @ 1 2323 18 271 2 41 KBLKNG DCW @080@ 3 2326 18 272 2 42 BUMPOP DCW @#@ 1 2327 19 273 2 43 HOLDA DCW &0000 4 2331 19 274 2 44 BLKCT EQU HOLDA-1 2330 275 2 45 TPAD DSA TPAREA 3 2334 I18 19 276 2 46 LTORG * 2335 DCW &80 2 2336 LIT 19 DCW &9 1 2337 LIT 19 READCT DCW #01 1 2338 AREA 19 DCW &1 1 2339 LIT 19 WRTCTR DCW #02 2 2341 AREA 20 277 2 47 * 278 2 48 * PROTECTED CONSTANTS 279 2 49 * 280 2 50 FACTOR EQU TABLE-021 2388 281 2 51 MACHSZ EQU TABLE-020 2389 282 2 52 TOTLAB EQU TABLE-016 2393 283 2 53 UNPRSW EQU TABLE-015 2394 284 2 54 PROCSW EQU TABLE-014 2395 285 2 55 SERCHS EQU TABLE-010 2399 286 2 56 * 287 2 57 * INITIALIZE PASS C ONE TIME 288 2 58 * 289 2 59 ORG TABLE-009 2400 290 2 60 RWD SAVETP 5 2400 U %U4 R 21 291 2 61 RWD CINPUT 5 2405 U %U5 R 21 292 2 62 RWD COUTPT 5 2410 U %U6 R 21 1 AUTOCODER-PASS 5-PROCESS LABELS-INITL-VERSION 3 3751L PAGE 5 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 293 2 63 CS 3999 4 2415 / I99 21 294 2 64 SW GRPMRK 4 2419 , Q66 21 295 2 65 LCA @00@,PROCSW 7 2423 L Q68 L95 21 296 2 66 LCA &0150,SERCHS 7 2430 L Q72 L99 21 297 2 67 LCA @0015@,FACTOR 7 2437 L Q76 L88 22 298 2 68 RTW SYSTPE,1 8 2444 L %U1 001 R 22 299 2 69 NOP XXXX 4 2452 N 000 22 300 2 70 BER TPERR 5 2456 B !04 L 22 301 2 71 CW ENDINT 4 2461 ) R01 22 302 2 72 * 303 2 73 * SET I/O GROUP MARK 304 2 74 * 305 2 75 MCW MACHSZ,KEEP1#001 7 2465 M L89 Q77 22 306 2 76 A &3,KEEP1 7 2472 A Q78 Q77 23 307 2 77 MN KEEP1,*&004 7 2479 D Q77 M89 23 308 2 78 MZ ZONE2,*&007 7 2486 Y 109 M99 23 309 2 79 SETIO LCA GRPMRK,GPMRK3 7 2493 L Q66 I98 23 310 2 80 BWZ SETBMP,SETIO&006,2 8 2500 V P18 M99 2 23 311 2 81 CS 4799 4 2508 / 79Z 24 312 2 82 CS 4399 4 2512 / 39Z 24 313 2 83 MCW @#@,BUMP 7 2516 M Q79 W81 24 314 2 84 BCE SET8K,MACHSZ,4 8 2523 B O20 L89 4 24 315 2 85 * 316 2 86 * 12K CONSTANTS 317 2 87 * 318 2 88 MCW BLKG12,KBLKNG 7 2531 M Q52 L26 24 319 2 89 MCW TBSZ12,TABLSZ 7 2538 M Q56 L18 24 320 2 90 MCW TBLM12,TABMAX 7 2545 M Q59 L11 25 321 2 91 MCW TPAD12,TPAD 7 2552 M Q62 L34 25 322 2 92 MCW MDTP12,MDTP#003 7 2559 M Q65 Q82 25 323 2 93 A &72,FACTOR 7 2566 A Q84 L88 25 324 2 94 BCE SETTP,MACHSZ,5 8 2573 B O62 L89 5 25 325 2 95 * 326 2 96 * 16K CONSTANTS 327 2 97 * 328 2 98 A &400,TABLSZ 7 2581 A Q87 L18 26 329 2 99 A &40,FACTOR 7 2588 A Q89 L88 26 330 3 00 MZ ABBIT,TABMAX 7 2595 Y 113 L11 26 331 3 01 MZ ABBIT,TPAD 7 2602 Y 113 L34 26 332 3 02 MZ ABBIT,MDTP 7 2609 Y 113 Q82 26 333 3 03 B SETTP 4 2616 B O62 26 334 3 04 * 335 3 05 * 8K CONSTANTS 336 3 06 * 337 3 07 SET8K MCW BLKG8K,KBLKNG 7 2620 M Q36 L26 27 338 3 08 MCW TBSZ8K,TABLSZ 7 2627 M Q40 L18 27 339 3 09 MCW TBLM8K,TABMAX 7 2634 M Q43 L11 27 340 3 10 MCW TPAD8K,TPAD 7 2641 M Q46 L34 27 341 3 11 MCW MDTP8K,MDTP 7 2648 M Q49 Q82 27 342 3 12 A &36,FACTOR 7 2655 A Q91 L88 28 1 AUTOCODER-PASS 5-PROCESS LABELS-INITL-VERSION 3 3751L PAGE 6 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 343 3 13 SETTP MZ TPAD,CLRMAX 7 2662 Y L34 K99 28 344 3 14 MCW MDTP,MOVEIN&003 7 2669 M Q82 Z54 28 345 3 15 MCW MDTP,PUT&013 7 2676 M Q82 Z90 28 346 3 16 MCW TPAD,WRITE&006 7 2683 M L34 X73 28 347 3 17 MCW TPAD,READ&010 7 2690 M L34 X98 29 348 3 18 MCW TPAD,LIMAD#3 7 2697 M L34 Q94 29 349 3 19 MA &13,LIMAD ??? &013 ??? 7 2704 # Q96 Q94 29 350 3 20 MCW LIMAD,LGTCK&6 7 2711 M Q94 K29 29 351 3 21 SETBMP MCW BUMP,BUMPOP 7 2718 M W81 L27 29 352 3 22 LCA GRPMRK,ENDOFC 7 2725 L Q66 Z24 30 353 3 23 * 354 3 24 * WRITE PASS C CHECKPOINT ON 6 355 3 25 * 356 3 26 CS 80 4 2732 / 080 30 357 3 27 SW CARD&001,CARD&006 7 2736 , 001 006 30 358 3 28 SW CARD&017,CARD&024 7 2743 , 017 024 30 359 3 29 SW CARD&028,CARD&035 7 2750 , 028 035 30 360 3 30 SW CARD&057,CARD&062 7 2757 , 057 062 30 361 3 31 SW CARD&068,CARD&071 7 2764 , 068 071 31 362 3 32 WTW COUTPT,1 8 2771 L %U6 001 W 31 363 3 33 NOP XXXX 4 2779 N 000 31 364 3 34 BER TPERR 5 2783 B !04 L 31 365 3 35 CW ENDOFC,GRPMRK 7 2788 ) Z24 Q66 31 366 3 36 C TOTLAB,TABLSZ 7 2795 C L93 L18 31 367 3 37 MCW TABLSZ,SERCHS 7 2802 M L18 L99 32 368 3 38 S TOTLAB 4 2809 S L93 32 369 3 39 BE CLRTAB 5 2813 B Y13 S 32 370 3 40 BH CLRTAB 5 2818 B Y13 U 32 371 3 41 MCW &0009,SERCHS 7 2823 M R00 L99 32 372 3 42 B CLRTAB 4 2830 B Y13 32 373 3 43 BLKG8K DCW @400@ 3 2836 32 374 3 44 TBSZ8K DCW &0510 4 2840 33 375 3 45 TBLM8K DSA 5100 3 2843 /0' 33 376 3 46 TPAD8K DSA 7598 3 2846 E9Y 33 377 3 47 MDTP8K DSA 7597&X3 3 2849 EIX 33 378 3 48 BLKG12 DCW @800@ 3 2852 33 379 3 49 TBSZ12 DCW &0870 4 2856 33 380 3 50 TBLM12 DSA 8700 3 2859 70! 33 381 3 51 TPAD12 DSA 11198 3 2862 A9Q 34 382 3 52 MDTP12 DSA 11197&X3 3 2865 AIP 34 383 3 53 GRPMRK DC @}@ 1 2866 GMARK 34 384 3 54 LTORG * 2867 DCW @00@ 2 2868 LIT 34 DCW &0150 4 2872 LIT 34 DCW @0015@ 4 2876 LIT 34 KEEP1 DCW #01 1 2877 AREA 34 DCW &3 1 2878 LIT 34 DCW @#@ 1 2879 LIT 35 MDTP DCW #03 3 2882 AREA 35 DCW &72 2 2884 LIT 35 1 AUTOCODER-PASS 5-PROCESS LABELS-INITL-VERSION 3 3751L PAGE 7 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD DCW &400 3 2887 LIT 35 DCW &40 2 2889 LIT 35 DCW &36 2 2891 LIT 35 LIMAD DCW #03 3 2894 AREA 35 DCW &13 2 2896 LIT 36 DCW &0009 4 2900 LIT 36 385 3 55 ENDINT DCW @}@ 1 2901 GMARK 36 386 3 56 XFR LIBRN B 000 37 1 AUTOCODER-PASS 5 MAIN LINE -VERSION 3 3752L PAGE 8 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 387 3 57 JOB AUTOCODER-PASS 5 MAIN LINE -VERSION 3 388 3 58 * 389 3 59 * PASS C-LOAD SYMBOL TABLE& SET ADDRESSES 390 3 60 * 391 3 61 ZONE EQU 113 0113 392 3 62 113 DCW @2SKB@ 4 0113 40 393 3 63 ZONE2 EQU 109 0109 394 3 64 109 DCW @2SKB@ 4 0109 41 395 3 65 ABBIT EQU ZONE 0113 396 3 66 BBIT EQU ZONE-001 0112 397 3 67 ABIT EQU ZONE-002 0111 398 3 68 NOBIT EQU ZONE-003 0110 399 3 69 XR1 EQU 89 0089 400 3 70 89 DCW @000@ 3 0089 42 401 3 71 XR2 EQU 94 0094 402 3 72 94 DCW @000@ 3 0094 43 403 3 73 XR3 EQU 99 0099 404 3 74 99 DCW @000@ 3 0099 44 405 3 75 ORG ZONE&001 0114 406 3 76 * 407 3 77 * DETERMINE RECORD TYPE 408 3 78 * 409 3 79 ANAL BM PUT,CARD&005 8 0114 V Z77 005 K 45 410 3 80 BCE PUT,TYPE,% 8 0122 B Z77 075 % 45 411 3 81 BCE INSTR,TYPE, 8 0130 B 219 075 45 412 3 82 MN TYPE,XR2 7 0138 D 075 094 45 413 3 83 BCE DA,XR2,0 8 0145 B 871 094 0 45 414 3 84 MCW @0@,INDFTR 7 0153 M Y92 Y69 46 415 3 85 MCW @0@,DASW 7 0160 M Y92 Y68 46 416 3 86 A XR2 4 0167 A 094 46 417 3 87 A XR2 4 0171 A 094 46 418 3 88 B *&001&X2 4 0175 B 1P9 46 419 3 89 NOP XXXX 4 0179 N 000 46 420 3 90 B CONST 4 0183 B 260 46 421 3 91 B CONST 4 0187 B 260 47 422 3 92 B EXEND 4 0191 B 973 47 423 3 93 B SFX 4 0195 B 992 47 424 3 94 B PUT 4 0199 B Z77 47 425 3 95 B ORG 4 0203 B 376 47 426 3 96 B DS 4 0207 B 295 47 427 3 97 B PUT 4 0211 B Z77 47 428 3 98 B PUT 4 0215 B Z77 48 429 3 99 * 430 4 00 * PROCESS INSTRUCTIONS 431 4 01 * 432 4 02 INSTR MCW @0@,INDFTR 7 0219 M Y92 Y69 48 433 4 03 B PRCADD 4 0226 B '03 48 434 4 04 B PROCLB 4 0230 B /09 48 435 4 05 BWZ PUT,STADDR,2 8 0234 V Z77 003 2 48 436 4 06 A COUNT,NOWCTR 7 0242 A 007 Y48 48 1 AUTOCODER-PASS 5 MAIN LINE -VERSION 3 3752L PAGE 9 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 437 4 07 S @1@,NOWCTR 7 0249 S Y93 Y48 49 438 4 08 B PUT 4 0256 B Z77 49 439 4 09 * 440 4 10 * PROCESS CONSTANTS & DCW 441 4 11 * 442 4 12 CONST BCE PRCAST,AOPHO,* 8 0260 B 283 017 * 49 443 4 13 MCW @1@,ACTSW 7 0268 M Y93 Y67 49 444 4 14 B PROCLB 4 0275 B /09 49 445 4 15 B PUT 4 0279 B Z77 49 446 4 16 * 447 4 17 * CONSTANTDS WITH ASTERISK ADDRESS 448 4 18 * 449 4 19 PRCAST B PRCADD 4 0283 B '03 49 450 4 20 B PROCLB 4 0287 B /09 50 451 4 21 B PUT 4 0291 B Z77 50 452 4 22 * 453 4 23 * PROCESS DS & EQUATES 454 4 24 * 455 4 25 DS BCE PROCTU,AOPHO,% 8 0295 B 361 017 % 50 456 4 26 A AINDEX,INDFTR 7 0303 A 027 Y69 50 457 4 27 BCE CONST,AOPHO,* 8 0310 B 260 017 * 50 458 4 28 BWZ CONST,AOPHO,2 8 0318 V 260 017 2 50 459 4 29 BWZ *&5,STAOP,2 8 0326 V 338 001 2 51 460 4 30 B CONST 4 0334 B 260 51 461 4 31 * 462 4 32 * EQUATE 463 4 33 * 464 4 34 B SETAOP 4 0338 B U35 51 465 4 35 MCW DSAPUT,LABRTN&003 7 0342 M Y72 S97 51 466 4 36 BWZ UNPROC,STAOP,2 8 0349 V /81 001 2 51 467 4 37 B CONST 4 0357 B 260 51 468 4 38 * 469 4 39 * DS OF INPUT DEVICE 470 4 40 * 471 4 41 PROCTU MCW AOPER-003,LABADD-001 7 0361 M 019 060 52 472 4 42 MCW @0@ 4 0368 M Y92 52 473 4 43 B CONST 4 0372 B 260 52 474 4 44 * 475 4 45 * PROCESS ORIGIN & LITERAL ORIGIN 476 4 46 * 477 4 47 ORG BWZ SETHGH,CARD&033,B 8 0376 V 405 033 B 52 478 4 48 ZA LABADD,ORGADD 7 0384 ? 061 032 52 479 4 49 A @1@,ORGADD 7 0391 A Y93 032 52 480 4 50 MZ ABBIT,CARD&033 7 0398 Y 113 033 53 481 4 51 SETHGH BCE ORGSAV,MAXSW,1 8 0405 B 432 Y60 1 53 482 4 52 C NOWCTR,HGHCTR 7 0413 C Y48 Y58 53 483 4 53 BH ORGSAV 5 0420 B 432 U 53 484 4 54 ZA NOWCTR,HGHCTR 7 0425 ? Y48 Y58 53 485 4 55 * 486 4 56 * PROCESS SAVE COUNTER OF ORIGIN 1 AUTOCODER-PASS 5 MAIN LINE -VERSION 3 3752L PAGE 10 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 487 4 57 * 488 4 58 ORGSAV BCE AOPOR,LBLHO, 8 0432 B 536 008 54 489 4 59 MCW @005@,XR1 7 0440 M Y96 089 54 490 4 60 MCW &AOPOR,LABRTN&003 7 0447 M Y99 S97 54 491 4 61 BWZ *&005,STLABL,2 8 0454 V 466 002 2 54 492 4 62 B AOPOR 4 0462 B 536 54 493 4 63 BCE STRSAV,SUPADD, 8 0466 B 502 066 55 494 4 64 BTOLAB B DOLABL 4 0474 B T58 55 495 4 65 B SEARCH 4 0478 B W29 55 496 4 66 BCE STORE,DBLSW,1 8 0482 B S69 Y64 1 55 497 4 67 BCE STORE,SPCSW,0 8 0490 B S69 Y63 0 55 498 4 68 B UNPROC 4 0498 B /81 55 499 4 69 STRSAV BCE UNPROC,ADDRSW,1 8 0502 B /81 Y59 1 56 500 4 70 BCE UNPROC,LITRSW,1 8 0510 B /81 Y61 1 56 501 4 71 MCW NOWCTR,SUPADD 7 0518 M Y48 066 56 502 4 72 A @1@,SUPADD 7 0525 A Y93 066 56 503 4 73 B BTOLAB 4 0532 B 474 56 504 4 74 * 505 4 75 * PROCESS A OPERAND OF ORIGIN 506 4 76 * 507 4 77 AOPOR BWZ *&005,STAOP,2 8 0536 V 548 001 2 57 508 4 78 B ACTUAL 4 0544 B 761 57 509 4 79 BCE ASTRSK,AOPHO,* 8 0548 B 708 017 * 57 510 4 80 MCW @0@,LITRSW 7 0556 M Y92 Y61 57 511 4 81 S NOWCTR 4 0563 S Y48 57 512 4 82 BCE BLKAOP,AOPHO, 8 0567 B 735 017 57 513 4 83 * 514 4 84 * SYMBOLIC ORIGIN 515 4 85 * 516 4 86 MCW @0@,ORGSW 7 0575 M Y92 Y66 58 517 4 87 S XR1&001 4 0582 S 090 58 518 4 88 B SETAOP 4 0586 B U35 58 519 4 89 BCE SETORG,ORGSW,1 8 0590 B 609 Y66 1 58 520 4 90 SETSWS MCW @11@,MAXSW 7 0598 M Z01 Y60 58 521 4 91 B SCNTB&7 4 0605 B 813 58 522 4 92 SETORG MCW LABADD,ORGCTR 7 0609 M 061 Y53 59 523 4 93 RSTSWA MCW @0@,ADDRSW 7 0616 M Y92 Y59 59 524 4 94 BCE *&005,AOPADJ-002,X 8 0623 B 635 024 X 59 525 4 95 B AOPOUT 4 0631 B 669 59 526 4 96 * 527 4 97 * ADJUSTMENT OF X00 528 4 98 * 529 4 99 BCE NXTCNT,AOPHO,* 8 0635 B 655 017 * 59 530 5 00 C ORGCTR,&00 7 0643 C Y53 Z03 60 531 5 01 BE AOPOUT 5 0650 B 669 S 60 532 5 02 NXTCNT MCW &00,ORGCTR 7 0655 M Z03 Y53 60 533 5 03 A @1@,ORGCTR-002 7 0662 A Y93 Y51 60 534 5 04 AOPOUT A ORGCTR,ORGADD 7 0669 A Y53 032 60 535 5 05 ZA ORGCTR,LABADD 7 0676 ? Y53 061 61 536 5 06 ZA ORGADD,NOWCTR 7 0683 ? 032 Y48 61 1 AUTOCODER-PASS 5 MAIN LINE -VERSION 3 3752L PAGE 11 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 537 5 07 S @1@,NOWCTR 7 0690 S Y93 Y48 61 538 5 08 MZ ABBIT,STAOP 7 0697 Y 113 001 61 539 5 09 B PUT 4 0704 B Z77 61 540 5 10 * 541 5 11 * ORIGIN ASTERISK 542 5 12 * 543 5 13 ASTRSK BCE PUT,ADDRSW,1 8 0708 B Z77 Y59 1 62 544 5 14 BCE SETSWS,LITRSW,1 8 0716 B 598 Y61 1 62 545 5 15 MCW NOWCTR,ORGCTR 7 0724 M Y48 Y53 62 546 5 16 B RSTSWA 4 0731 B 616 62 547 5 17 * 548 5 18 * ORIGIN MAXIMUM 549 5 19 * 550 5 20 BLKAOP BCE SETSWS,MAXSW,1 8 0735 B 598 Y60 1 62 551 5 21 MCW HGHCTR,ORGCTR 7 0743 M Y58 Y53 63 552 5 22 A @1@,ORGCTR 7 0750 A Y93 Y53 63 553 5 23 B RSTSWA 4 0757 B 616 63 554 5 24 * 555 5 25 * ORIGIN ACTUAL OR PROCESSED 556 5 26 * 557 5 27 ACTUAL ZA ORGADD,NOWCTR 7 0761 ? 032 Y48 63 558 5 28 S @1@,NOWCTR 7 0768 S Y93 Y48 63 559 5 29 BCE TSTX00,AOPHO,* 8 0775 B 821 017 * 64 560 5 30 MCW @0@,LITRSW 7 0783 M Y92 Y61 64 561 5 31 BWZ SCNTB,AOPHO,2 8 0790 V 806 017 2 64 562 5 32 BWZ SETORG,STAOP,K 8 0798 V 609 001 K 64 563 5 33 SCNTB MCW @0@,ADDRSW 7 0806 M Y92 Y59 64 564 5 34 S ORGCTR 4 0813 S Y53 65 565 5 35 B PUT 4 0817 B Z77 65 566 5 36 TSTX00 BCE PUT,AOPADJ-002,X 8 0821 B Z77 024 X 65 567 5 37 BWZ PUT,CARD&034,B 8 0829 V Z77 034 B 65 568 5 38 A ORGCTR,ORGADD 7 0837 A Y53 032 65 569 5 39 BCE PUT,ADDRSW,1 8 0844 B Z77 Y59 1 65 570 5 40 BCE PUT,LITRSW,1 8 0852 B Z77 Y61 1 66 571 5 41 MZ ABBIT,CARD&34 7 0860 Y 113 034 66 572 5 42 B ACTUAL 4 0867 B 761 66 573 5 43 * 574 5 44 * PROCESS DA STATEMENTS 575 5 45 * 576 5 46 DA BCE ORIGDA,TYPE,0 8 0871 B 926 075 0 66 577 5 47 BCE TSTRPT,ACTSW,1 8 0879 B 910 Y67 1 66 578 5 48 BTOADD C LABADD,SUPADD 7 0887 C 061 066 67 579 5 49 BL *&8 5 0894 B 906 T 67 580 5 50 MCW @005@,XR3 7 0899 M Y96 099 67 581 5 51 B PRCADD 4 0906 B '03 67 582 5 52 TSTRPT BCE PUT,TYPE,' 8 0910 B Z77 075 ' 67 583 5 53 B PROCLB 4 0918 B /09 67 584 5 54 B PUT 4 0922 B Z77 67 585 5 55 * 586 5 56 * DA HEADER 1 AUTOCODER-PASS 5 MAIN LINE -VERSION 3 3752L PAGE 12 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 587 5 57 * 588 5 58 ORIGDA MCW @0@,INDFTR 7 0926 M Y92 Y69 68 589 5 59 A AINDEX,INDFTR 7 0933 A 027 Y69 68 590 5 60 MCW @1@,DASW 7 0940 M Y93 Y68 68 591 5 61 MCW @0@,ACTSW 7 0947 M Y92 Y67 68 592 5 62 BCE BTOADD,AOPHO,* 8 0954 B 887 017 * 68 593 5 63 MCW @1@,ACTSW 7 0962 M Y93 Y67 69 594 5 64 B TSTRPT 4 0969 B 910 69 595 5 65 * 596 5 66 * ??? MISSING FROM LISTING IN CE MANUAL *** 597 5 67 * ??? MISSING FROM LISTING IN CE MANUAL *** 598 5 68 EXEND BWZ PUT,TYPE,B 8 0973 V Z77 075 B 69 599 5 69 MCW @B@,BRANCH 7 0981 M Z04 X84 69 600 5 70 B WRITE 4 0988 B X67 69 601 5 71 * 602 5 72 * PROCESS SUFFIX 603 5 73 * 604 5 74 SFX MCW AOPHO,SFXCTR 7 0992 M 017 L23 69 605 5 75 B PUT 4 0999 B Z77 70 606 5 76 * 607 5 77 * PROCESS ADDRESSES 608 5 78 * 609 5 79 PRCADD SBR ADDRTN&003 4 1003 H '89 70 610 5 80 MCW @0@,ACTSW 7 1007 M Y92 Y67 70 611 5 81 BWZ LITTST,STLABL,K 8 1014 V '90 002 K 70 612 5 82 TSTADD BWZ ADDRTN,STADDR,B 8 1022 V '86 003 B 70 613 5 83 BCE ADDRTN,ADDRSW,1 8 1030 B '86 Y59 1 70 614 5 84 A ORGCTR,LABADD 7 1038 A Y53 061 71 615 5 85 A ORGCTR,SUPADD 7 1045 A Y53 066 71 616 5 86 C NOWCTR,LABADD&X3 7 1052 C Y48 0F1 71 617 5 87 BL *&008 5 1059 B '71 T 71 618 5 88 ZA LABADD&X3,NOWCTR 7 1064 ? 0F1 Y48 71 619 5 89 BCE ADDRTN,LITRSW,1 8 1071 B '86 Y61 1 72 620 5 90 MZ ABBIT,STADDR 7 1079 Y 113 003 72 621 5 91 ADDRTN B XXXX 4 1086 B 000 72 622 5 92 LITTST MCW DSAPUT,LABRTN&003 7 1090 M Y72 S97 72 623 5 93 BCE LITRAL,TYPE,/ 8 1097 B T25 075 / 72 624 5 94 B TSTADD 4 1105 B '22 72 625 5 95 * 626 5 96 * PROCESS LABEL 627 5 97 * 628 5 98 PROCLB SBR LABRTN&003 4 1109 H S97 73 629 5 99 BWZ *&005,STLABL,2 8 1113 V /25 002 2 73 630 6 00 B LABRTN 4 1121 B S94 73 631 6 01 BCE MRKPRC,LBLHO, 8 1125 B S80 008 73 632 6 02 BCE BTOLBL,ACTSW,1 8 1133 B /57 Y67 1 73 633 6 03 BCE TSTDBL,LITRSW,1 8 1141 B S07 Y61 1 74 634 6 04 BCE TSTDBL,ADDRSW,1 8 1149 B S07 Y59 1 74 635 6 05 BTOLBL B DOLABL 4 1157 B T58 74 636 6 06 B SEARCH 4 1161 B W29 74 1 AUTOCODER-PASS 5 MAIN LINE -VERSION 3 3752L PAGE 13 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 637 6 07 BCE DBLDEF,DBLSW,1 8 1165 B S98 Y64 1 74 638 6 08 BCE STORE,SPCSW,0 8 1173 B S69 Y63 0 75 639 6 09 * 640 6 10 * UNPROCESSED LABEL 641 6 11 * 642 6 12 UNPROC MCW @1@,UNPRSW 7 1181 M Y93 L94 75 643 6 13 A @1@,TOTLAB 7 1188 A Y93 L93 75 644 6 14 BCE SETSWL,TYPE,/ 8 1195 B S50 075 / 75 645 6 15 B LABRTN 4 1203 B S94 75 646 6 16 * 647 6 17 * SEARCH TABLE FOR DBL DEF LITERAL 648 6 18 * 649 6 19 TSTDBL BCE UNPROC,LBLHO,$ 8 1207 B /81 008 $ 76 650 6 20 B DOLABL 4 1215 B T58 76 651 6 21 B SEARCH 4 1219 B W29 76 652 6 22 BCE UNPROC,DBLSW,0 8 1223 B /81 Y64 0 76 653 6 23 BCE UNPROC,ADDHO, 8 1231 B /81 M!0 76 654 6 24 MZ BBIT,STLABL 7 1239 Y 112 002 76 655 6 25 B LABRTN 4 1246 B S94 77 656 6 26 * 657 6 27 * UNPROCESSED LABEL OF LITERAL 658 6 28 * 659 6 29 SETSWL BCE LABRTN,LBLHO,$ 8 1250 B S94 008 $ 77 660 6 30 MCW @11@,LITRSW 7 1258 M Z01 Y61 77 661 6 31 B LABRTN 4 1265 B S94 77 662 6 32 * 663 6 33 * STORE LABEL IN TABLE 664 6 34 * 665 6 35 STORE LCA FNCTN,SYMBOL 7 1269 L L08 M!9 77 666 6 36 LCA HOLDAD 4 1276 L Z12 77 667 6 37 MRKPRC MZ ABBIT,STLABL 7 1280 Y 113 002 78 668 6 38 MCW @1@,PROCSW 7 1287 M Y93 L95 78 669 6 39 LABRTN B XXXX 4 1294 B 000 78 670 6 40 * 671 6 41 * DOUBLY DEFINED LABEL 672 6 42 * 673 6 43 DBLDEF BCE STORE,ADDHO, 8 1298 B S69 M!0 78 674 6 44 MZ BBIT,STLABL 7 1306 Y 112 002 78 675 6 45 BCE LITRAL,TYPE,/ 8 1313 B T25 075 / 79 676 6 46 B LABRTN 4 1321 B S94 79 677 6 47 * 678 6 48 * DOUBLE DEFINED LITERAL 679 6 49 * 680 6 50 LITRAL BWZ LABRTN,STBOP,B 8 1325 V S94 004 B 79 681 6 51 MCW @%@,TYPE 7 1333 M Z05 075 79 682 6 52 S COUNT,ORGCTR 7 1340 S 007 Y53 79 683 6 53 S COUNT,NOWCTR 7 1347 S 007 Y48 80 684 6 54 B LABRTN 4 1354 B S94 80 685 6 55 * 686 6 56 * SET UP LABEL & ADDRESS 1 AUTOCODER-PASS 5 MAIN LINE -VERSION 3 3752L PAGE 14 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 687 6 57 * FOR TABLE SEARCH 688 6 58 * 689 6 59 DOLABL SBR DOLABR&003 4 1358 H U34 80 690 6 60 MCW LABEL,FNCTN 7 1362 M 013 L08 80 691 6 61 MCW CNVLAB,ARGUMT#3 7 1369 M 056 Z08 80 692 6 62 SETFUN BCE *&5,FNCTN, 8 1376 B T88 L08 80 693 6 63 B *&8 4 1384 B T95 81 694 6 64 MCW SFXCTR,FNCTN 7 1388 M L23 L08 81 695 6 65 MCW LABADD&X1,HOLDAD#004 7 1395 M 0W1 Z12 81 696 6 66 BCE DOINDX,HOADD&X1,0 8 1402 B U17 0V7 0 81 697 6 67 MZ ABIT,HOLDAD-003 7 1410 Y 111 Z09 81 698 6 68 DOINDX MN INDFTR,*&004 7 1417 D Y69 U27 82 699 6 69 MZ ZONE,HOLDAD-001 7 1424 Y 113 Z11 82 700 6 70 DOLABR B XXXX 4 1431 B 000 82 701 6 71 * 702 6 72 * PROCESS A OPERAND OF ORIGIN & EQUATE 703 6 73 * 704 6 74 SETAOP SBR AOPRTN&003 4 1435 H U87 82 705 6 75 MCW &BRSRH,DOLABR&003 7 1439 M Z15 U34 82 706 6 76 MCW AOPER,FNCTN 7 1446 M 022 L08 82 707 6 77 MCW AOP,ARGUMT 7 1453 M 070 Z08 83 708 6 78 B SETFUN 4 1460 B T76 83 709 6 79 BRSRH B SEARCH 4 1464 B W29 83 710 6 80 BCE ADDBNK,DBLSW,1 8 1468 B V03 Y64 1 83 711 6 81 BCE STRBNK,SPCSW,0 8 1476 B U88 Y63 0 83 712 6 82 AOPRTN B XXXX 4 1484 B 000 83 713 6 83 * 714 6 84 * LABEL NOT IN TABLE, STORE 715 6 85 * WITH BLANK ADDRESS 716 6 86 * 717 6 87 STRBNK LCA FNCTN,SYMBOL 7 1488 L L08 M!9 84 718 6 88 LCA @ @ 4 1495 L Z19 84 719 6 89 B AOPRTN 4 1499 B U84 84 720 6 90 * 721 6 91 * RETRIEVE VALUE FROM TABLE 722 6 92 * 723 6 93 ADDBNK BCE AOPRTN,ADDHO, 8 1503 B U84 M!0 84 724 6 94 MCW @1@,ORGSW 7 1511 M Y93 Y66 84 725 6 95 BWZ *&5,LBLREF,2 8 1518 V V30 M!1 2 84 726 6 96 B *&8 4 1526 B V37 85 727 6 97 MZ ABIT,LBLREF 7 1530 Y 111 M!1 85 728 6 98 MCW ADDLO,LABADD 7 1537 M M!3 061 85 729 6 99 BCE AOPROC,LABADD-3,% 8 1544 B W18 058 % 85 730 7 00 BWZ *&008,LABADD-003,2 8 1552 V V67 058 2 85 731 7 01 MCW @1@,HOADD 7 1560 M Y93 057 86 732 7 02 BCE AOPRTN,TYPE,O 8 1567 B U84 075 O 86 733 7 03 * 734 7 04 * ADD CHARACTER ADJUSTMENT FOR EQUATE 735 7 05 * 736 7 06 MZ LABADD-001,SAVEZN#001 7 1575 Y 060 Z20 86 1 AUTOCODER-PASS 5 MAIN LINE -VERSION 3 3752L PAGE 15 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 737 7 07 A AOPADJ,LABADD 7 1582 A 026 061 86 738 7 08 MZ SAVEZN,LABADD-001 7 1589 Y Z20 060 86 739 7 09 BCE AOPROC,AINDEX, 8 1596 B W18 027 87 740 7 10 MN INDFTR,*&004 7 1604 D Y69 W14 87 741 7 11 MZ ZONE,LABADD-001 7 1611 Y 113 060 87 742 7 12 AOPROC MZ ABBIT,STAOP 7 1618 Y 113 001 87 743 7 13 B AOPRTN 4 1625 B U84 87 744 7 14 * 745 7 15 * TABLE SEARCH 746 7 16 * 747 7 17 SEARCH SBR RETURN&003 4 1629 H X66 87 748 7 18 MCW DBLSW&001,DBLSW 7 1633 M Y65 Y64 88 749 7 19 MCW TABMAX,MAXADD 7 1640 M L11 L14 88 750 7 20 MCW ARGUMT,XR2 7 1647 M Z08 094 88 751 7 21 MCW SERCHS,MAXSER 7 1654 M L99 L22 88 752 7 22 TBLSRH C FNCTN,SYMBOL 7 1661 C L08 M!9 88 753 7 23 BE SETDBL 5 1668 B X45 S 89 754 7 24 BCE RETURN,SYMHO, 8 1673 B X63 M!4 89 755 7 25 BUMP A @010@,XR2 7 1681 A Z23 094 89 756 7 26 S @1@,MAXSER 7 1688 S Y93 L22 89 757 7 27 BM SETSPC,MAXSER 8 1695 V X56 L22 K 89 758 7 28 C XR2,MAXADD 7 1703 C 094 L14 90 759 7 29 BU TBLSRH 5 1710 B W61 / 90 760 7 30 BCE SETSPC,WRAPSW,1 8 1715 B X56 Y62 1 90 761 7 31 MCW @1@,WRAPSW 7 1723 M Y93 Y62 90 762 7 32 MCW ARGUMT,MAXADD 7 1730 M Z08 L14 90 763 7 33 S XR2&001 4 1737 S 095 90 764 7 34 B TBLSRH 4 1741 B W61 91 765 7 35 * 766 7 36 * LABEL IN TABLE 767 7 37 * 768 7 38 SETDBL MCW @1@,DBLSW 7 1745 M Y93 Y64 91 769 7 39 B RETURN 4 1752 B X63 91 770 7 40 * 771 7 41 * SPACE AVAILABLE 772 7 42 * 773 7 43 SETSPC MCW @1@,SPCSW 7 1756 M Y93 Y63 91 774 7 44 RETURN B XXXX 4 1763 B 000 91 775 7 45 * 776 7 46 * INPUT/OUTPUT - PASS C 777 7 47 * 778 7 48 WRITE WT COUTPT,TPAREA 8 1767 M %U6 I18 W 91 779 7 49 NOP XXXX 4 1775 N 000 91 780 7 50 BER TPERR 5 1779 B !04 L 92 781 7 51 BRANCH NOP FINAL 4 1784 N Y73 92 782 7 52 READ S HOLDA 4 1788 S L31 92 783 7 53 RT CINPUT,TPAREA 8 1792 M %U5 I18 R 92 784 7 54 B CHKLGT 4 1800 B K08 92 785 7 55 BER TPERR 5 1804 B !04 L 92 786 7 56 B NXTREC 4 1809 B Z37 92 1 AUTOCODER-PASS 5 MAIN LINE -VERSION 3 3752L PAGE 16 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 787 7 57 * 788 7 58 * CLEAR TABLE AREA 789 7 59 * 790 7 60 CLRTAB MCW CLRMAX,CLEAR&003 7 1813 M K99 Y23 93 791 7 61 CLEAR CS XXXX 4 1820 / 000 93 792 7 62 SBR CLEAR&003 4 1824 H Y23 93 793 7 63 C CLEAR&003,CLRMIN 7 1828 C Y23 L02 93 794 7 64 BU CLEAR 5 1835 B Y20 / 93 795 7 65 B READ 4 1840 B X88 93 796 7 66 NOWCTR DCW &00000 5 1848 93 797 7 67 ORGCTR DCW &00000 5 1853 94 798 7 68 HGHCTR DCW &00000 5 1858 94 799 7 69 ADDRSW DCW @0@ 1 1859 94 800 7 70 MAXSW DC @0@ 1 1860 94 801 7 71 LITRSW DC @0@ 1 1861 94 802 7 72 WRAPSW DCW @0@ 1 1862 94 803 7 73 SPCSW DC @0@ 1 1863 94 804 7 74 DBLSW DC @0@ 1 1864 94 805 7 75 DC @0@ 1 1865 94 806 7 76 ORGSW DCW @0@ 1 1866 94 807 7 77 ACTSW DCW @0@ 1 1867 94 808 7 78 DASW DCW @0@ 1 1868 94 809 7 79 INDFTR DCW @0@ 1 1869 95 810 7 80 DSAPUT DSA PUT 3 1872 Z77 95 811 7 81 * 812 7 82 * END OF PASS C, GET PASS D 813 7 83 * 814 7 84 FINAL WTM COUTPT 5 1873 U %U6 M 95 815 7 85 RWD CINPUT 5 1878 U %U5 R 95 816 7 86 RWD COUTPT 5 1883 U %U6 R 95 817 7 87 B RDPSSD 4 1888 B K47 95 818 7 88 LTORG * 1892 DCW @0@ 1 1892 LIT 95 DCW @1@ 1 1893 LIT 96 DCW @005@ 3 1896 LIT 96 DCW &AOPOR 3 1899 536 ADCON 96 DCW @11@ 2 1901 LIT 96 DCW &00 2 1903 LIT 96 DCW @B@ 1 1904 LIT 96 DCW @%@ 1 1905 LIT 96 ARGUMT DCW #03 3 1908 AREA 97 HOLDAD DCW #04 4 1912 AREA 97 DCW &BRSRH 3 1915 U64 ADCON 97 DCW @ @ 4 1919 LIT 97 SAVEZN DCW #01 1 1920 AREA 97 DCW @010@ 3 1923 LIT 97 819 7 89 ENDOFC DCW @}@ 1 1924 GMARK 97 820 7 90 XFR LIBRN B 000 98 1 AUTOCODER-PASS 6-PROCESS OPERANDS -VERSION 3 3761L PAGE 17 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 821 7 91 JOB AUTOCODER-PASS 6-PROCESS OPERANDS -VERSION 3 822 7 92 * 823 7 93 91 DCW @00000@ 5 0091 101 824 7 94 96 DCW @00000@ 5 0096 101 825 7 95 101 DCW @00000@ 5 0101 101 826 7 96 109 DCW @2SKB@ 4 0109 102 827 7 97 113 DCW @2SKB@ 4 0113 102 828 7 98 ORG ZONE&001 0114 829 7 99 * 830 8 00 * DETERMINE RECORD TYPE 831 8 01 * 832 8 02 MCW @0@,ASTRSW 7 0114 M U32 U18 102 833 8 03 BM PUT,CARD&005 8 0121 V Z77 005 K 102 834 8 04 BCE PUT,TYPE,% 8 0129 B Z77 075 % 102 835 8 05 MN TYPE,TYPEA#001 7 0137 D 075 U33 102 836 8 06 BCE PRINST,TYPEA, 8 0144 B 196 U33 103 837 8 07 BCE PRDSA,TYPEA,2 8 0152 B 318 U33 2 103 838 8 08 BCE PROEND,TYPEA,3 8 0160 B 446 U33 3 103 839 8 09 BCE PROSFX,TYPEA,4 8 0168 B S79 U33 4 103 840 8 10 BCE ORGEQU,TYPEA,6 8 0176 B 489 U33 6 104 841 8 11 BCE ORGEQU,TYPEA,7 8 0184 B 489 U33 7 104 842 8 12 B PUT 4 0192 B Z77 104 843 8 13 * 844 8 14 * PROCESS INSTRUCTIONS 845 8 15 * 846 8 16 PRINST BWZ SETAST,STADDR,2 8 0196 V 208 003 2 104 847 8 17 B LOADDR 4 0204 B 215 104 848 8 18 SETAST MCW @1@,ASTRSW 7 0208 M U34 U18 104 849 8 19 * 850 8 20 * SET ASTERISK ADDRESS 851 8 21 * 852 8 22 LOADDR ZA LABADD,ASTADD#005 7 0215 ? 061 U39 105 853 8 23 A COUNT,ASTADD 7 0222 A 007 U39 105 854 8 24 S @1@,ASTADD 7 0229 S U34 U39 105 855 8 25 * 856 8 26 * TEST FOR A OPERAND 857 8 27 * 858 8 28 BCE PUT,COUNT,1 8 0236 B Z77 007 1 105 859 8 29 BCE PUT,COUNT,2 8 0244 B Z77 007 2 105 860 8 30 BWZ *&005,STAOP,2 8 0252 V 264 001 2 106 861 8 31 B SEEBOP 4 0260 B 268 106 862 8 32 B PROCOP 4 0264 B 578 106 863 8 33 * 864 8 34 * TEST FOR B OPERAND 865 8 35 * 866 8 36 SEEBOP BCE PUT,COUNT,4 8 0268 B Z77 007 4 106 867 8 37 BCE PUT,COUNT,5 8 0276 B Z77 007 5 106 868 8 38 BWZ *&005,STBOP,2 8 0284 V 296 004 2 107 869 8 39 B PUT 4 0292 B Z77 107 870 8 40 MCW @003@,XR3 7 0296 M U42 099 107 1 AUTOCODER-PASS 6-PROCESS OPERANDS -VERSION 3 3761L PAGE 18 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 871 8 41 MCW @011@,XR1 7 0303 M U45 089 107 872 8 42 B PROCOP 4 0310 B 578 107 873 8 43 B PUT 4 0314 B Z77 107 874 8 44 * 875 8 45 * PROCESS DSA AND ADCON 876 8 46 * 877 8 47 PRDSA BWZ *&005,STADDR,2 8 0318 V 330 003 2 108 878 8 48 B TSTPRC 4 0326 B 434 108 879 8 49 MCW @1@,ASTRSW 7 0330 M U34 U18 108 880 8 50 SETDSA ZA LABADD,ASTADD 7 0337 ? 061 U39 108 881 8 51 MCW @003@,XR3 7 0344 M U42 099 108 882 8 52 MCW @011@,XR1 7 0351 M U45 089 109 883 8 53 BWZ *&005,STBOP,2 8 0358 V 370 004 2 109 884 8 54 B PUT 4 0366 B Z77 109 885 8 55 B PROCOP 4 0370 B 578 109 886 8 56 BWZ PUT,STBOP,2 8 0374 V Z77 004 2 109 887 8 57 BCE CMP16K,AINDEX,- 8 0382 B 409 027 - 109 888 8 58 COMPRS MCW &PUT,OPRTN&3 7 0390 M U48 /78 110 889 8 59 BCE PUT,AOP&1,% 8 0397 B Z77 071 % 110 890 8 60 B CNVTO3 4 0405 B '94 110 891 8 61 * 892 8 62 * GET 16000 COMPLEMENT 893 8 63 * 894 8 64 CMP16K MCW &16000,FNCTN-001 7 0409 M U53 L07 110 895 8 65 S HOLDAR,FNCTN-001 7 0416 S U58 L07 110 896 8 66 ZA FNCTN-001,HOLDAR#005 7 0423 ? L07 U58 111 897 8 67 B COMPRS 4 0430 B 390 111 898 8 68 TSTPRC BWZ SETDSA,STBOP,2 8 0434 V 337 004 2 111 899 8 69 B PUT 4 0442 B Z77 111 900 8 70 * 901 8 71 * PROCESS EX & END 902 8 72 * 903 8 73 PROEND S ASTADD 4 0446 S U39 111 904 8 74 BWZ *&005,STAOP,2 8 0450 V 462 001 2 111 905 8 75 B *&005 4 0458 B 466 111 906 8 76 B PROCOP 4 0462 B 578 112 907 8 77 BCE ENDOPN,TYPE,3 8 0466 B 478 075 3 112 908 8 78 B PUT 4 0474 B Z77 112 909 8 79 ENDOPN MCW @B@,BRNCH2 7 0478 M U59 X84 112 910 8 80 B PUT 4 0485 B Z77 112 911 8 81 * 912 8 82 * PROCESS ORIGIN & EQUATE 913 8 83 * 914 8 84 ORGEQU BWZ *&005,STAOP,2 8 0489 V 501 001 2 112 915 8 85 B ORGOUT 4 0497 B 574 112 916 8 86 BCE ORGOUT,AOPHO, 8 0501 B 574 017 113 917 8 87 BWZ ORGOUT,AOPHO,2 8 0509 V 574 017 2 113 918 8 88 BCE ORGOUT,AOPHO,* 8 0517 B 574 017 * 113 919 8 89 BCE ORGOUT,AOPHO,% 8 0525 B 574 017 % 113 920 8 90 B PROCOP 4 0533 B 578 113 1 AUTOCODER-PASS 6-PROCESS OPERANDS -VERSION 3 3761L PAGE 19 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 921 8 91 BWZ ORGOUT,STAOP,2 8 0537 V 574 001 2 114 922 8 92 MCW @0@,ITERSW 7 0545 M U32 U28 114 923 8 93 BCE *&008,TYPEA,7 8 0552 B 567 U33 7 114 924 8 94 MZ BBIT,STAOP 7 0560 Y 112 001 114 925 8 95 MCW HOLDAR,LABADD 7 0567 M U58 061 114 926 8 96 ORGOUT B PUT 4 0574 B Z77 115 927 8 97 * 928 8 98 * PROCESS OPERAND SUB-ROUTINE 929 8 99 * 930 9 00 PROCOP SBR OPRTN&003 4 0578 H /78 115 931 9 01 BWZ *&005,STAOP&X3,2 8 0582 V 594 0?1 2 115 932 9 02 B OPRTN 4 0590 B /75 115 933 9 03 BCE SETZRO,AOPHO&X1, 8 0594 B 942 0/7 115 934 9 04 BCE PERCNT,AOPHO&X1,% 8 0602 B 950 0/7 % 115 935 9 05 BWZ FLOAT,AOPHO&X1,2 8 0610 V S21 0/7 2 116 936 9 06 BCE PROAST,AOPHO&X1,* 8 0618 B /90 0/7 * 116 937 9 07 * 938 9 08 * CONVERT SYMBOL TO TABLE ADDRESS 939 9 09 * 940 9 10 CNVSYM BCE *&005,AOP-002&X3, 8 0626 B 638 0F8 116 941 9 11 B SETSYM 4 0634 B 804 116 942 9 12 MCW AOPER&X1,W6AREA#006 7 0638 M 0S2 U65 116 943 9 13 BCE *&5,W6AREA, 8 0645 B 657 U65 117 944 9 14 B *&8 4 0653 B 664 117 945 9 15 MCW SFXCTR,W6AREA 7 0657 M L23 U65 117 946 9 16 ZA &2,HOLD2#002 7 0664 ? U66 U68 117 947 9 17 ZA W6AREA-2,HOLD4#004 7 0671 ? U63 U72 117 948 9 18 A W6AREA,HOLD4 7 0678 A U65 U72 118 949 9 19 A W6AREA,HOLD4-002 7 0685 A U65 U70 118 950 9 20 MZ NOBIT,HOLD4 7 0692 Y 110 U72 118 951 9 21 ZA FACTOR,HOLD7 7 0699 ? L88 U26 118 952 9 22 MPYLP MN HOLD7,HOLD1 7 0706 D U26 U27 118 953 9 23 ZA 1 0713 ? 118 954 9 24 MULT BCE NXTDGT,HOLD1,? 8 0714 B 740 U27 ? 119 955 9 25 A HOLD4,HOLD7-002 7 0722 A U72 U24 119 956 9 26 S &1,HOLD1 7 0729 S U73 U27 119 957 9 27 B MULT 4 0736 B 714 119 958 9 28 NXTDGT S &1,HOLD2 7 0740 S U73 U68 119 959 9 29 BWZ MPYLP,HOLD2,B 8 0747 V 706 U68 B 120 960 9 30 MCW @000@,AOP&X3 7 0755 M U76 0G0 120 961 9 31 BAV *&001 5 0762 B 767 Z 120 962 9 32 LOOP1 A &96,HOLD7-005 7 0767 A U78 U21 120 963 9 33 BAV LOOP1 5 0774 B 767 Z 120 964 9 34 MZ HOLD7-006,AOP&X3 7 0779 Y U20 0G0 120 965 9 35 MCW HOLD7-003 4 0786 M U23 121 966 9 36 MN HOLD7-005,*&004 7 0790 D U21 800 121 967 9 37 MZ ZONE2,AOP-002&X3 7 0797 Y 109 0F8 121 968 9 38 * 969 9 39 * SYMBOLIC OPERAND 970 9 40 * 1 AUTOCODER-PASS 6-PROCESS OPERANDS -VERSION 3 3761L PAGE 20 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 971 9 41 SETSYM MCW AOPER&X1,FNCTN 7 0804 M 0S2 L08 121 972 9 42 BCE *&005,FNCTN, 8 0811 B 823 L08 121 973 9 43 B *&008 4 0819 B 830 121 974 9 44 MCW SFXCTR,FNCTN 7 0823 M L23 L08 122 975 9 45 MCW TABMAX,MAXADD 7 0830 M L11 L14 122 976 9 46 MCW @0@,SWICH1 7 0837 M U32 U19 122 977 9 47 MCW AOP&X3,XR2 7 0844 M 0G0 094 122 978 9 48 MCW SERCHS,MAXSER 7 0851 M L99 L22 122 979 9 49 * 980 9 50 * TABLE SEARCH 981 9 51 * 982 9 52 SRHLOP C FNCTN,SYMBOL 7 0858 C L08 M!9 123 983 9 53 BE RECALL 5 0865 B 980 S 123 984 9 54 BCE UNDEF,SYMHO, 8 0870 B 961 M!4 123 985 9 55 BUMPER A @010@,XR2 7 0878 A U81 094 123 986 9 56 S @1@,MAXSER 7 0885 S U34 L22 123 987 9 57 BM UNDEF,MAXSER 8 0892 V 961 L22 K 124 988 9 58 C XR2,MAXADD 7 0900 C 094 L14 124 989 9 59 BU SRHLOP 5 0907 B 858 / 124 990 9 60 BCE UNDEF,SWICH1,1 8 0912 B 961 U19 1 124 991 9 61 MCW @1@,SWICH1 7 0920 M U34 U19 124 992 9 62 MCW AOP&X3,MAXADD 7 0927 M 0G0 L14 125 993 9 63 S XR2&001 4 0934 S 095 125 994 9 64 B SRHLOP 4 0938 B 858 125 995 9 65 * 996 9 66 * BLANK OPERAND 997 9 67 * 998 9 68 SETZRO S HOLDAR 4 0942 S U58 125 999 9 69 B CHRADJ 4 0946 B '49 125 1000 9 70 * 1001 9 71 * PERCENT OPERAND 1002 9 72 * 1003 9 73 PERCNT MCW AOPER-003&X1,AOP&X3 7 0950 M 0/9 0G0 125 1004 9 74 B MARK 4 0957 B /68 125 1005 9 75 * 1006 9 76 * UNDEFINED OPERAND 1007 9 77 * 1008 9 78 UNDEF BCE OPRTN,ITERSW,0 8 0961 B /75 U28 0 126 1009 9 79 MCW @###@,AOP&X3 7 0969 M U84 0G0 126 1010 9 80 B OPRTN 4 0976 B /75 126 1011 9 81 * 1012 9 82 * RETRIEVE VALUE FROM TABLE 1013 9 83 * 1014 9 84 RECALL BCE UNDEF,ADDHO, 8 0980 B 961 M!0 126 1015 9 85 BWZ *&5,LBLREF,2 8 0988 V '00 M!1 2 126 1016 9 86 B *&8 4 0996 B '07 126 1017 9 87 MZ ABIT,LBLREF 7 1000 Y 111 M!1 127 1018 9 88 MCW ADDLO,HOLDAR 7 1007 M M!3 U58 127 1019 9 89 MCW @0@ 4 1014 M U32 127 1020 9 90 BCE IOADD,HOLDAR-003,% 8 1018 B /79 U55 % 127 1 AUTOCODER-PASS 6-PROCESS OPERANDS -VERSION 3 3761L PAGE 21 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1021 9 91 BWZ *&008,HOLDAR-003,2 8 1026 V '41 U55 2 127 1022 9 92 MCW @1@,HOLDAR-4 7 1034 M U34 U54 128 1023 9 93 BCE TSTCNV,TYPEA,6 8 1041 B '78 U33 6 128 1024 9 94 * 1025 9 95 * ADD CHARACTER ADJUSTMENT 1026 9 96 * 1027 9 97 CHRADJ MZ HOLDAR-001,HOLDZN#001 7 1049 Y U57 U85 128 1028 9 98 BCE TSTCNV,AOPADJ-002&X1,X 8 1056 B '78 0S4 X 128 1029 9 99 A AOPADJ&X1,HOLDAR 7 1064 A 0S6 U58 128 1030 10 00 MZ HOLDZN,HOLDAR-001 7 1071 Y U85 U57 129 1031 10 01 TSTCNV BM MARK,TYPE 8 1078 V /68 075 K 129 1032 10 02 BCE MARK,TYPEA,2 8 1086 B /68 U33 2 129 1033 10 03 * 1034 10 04 * CONVERT FIVE DIGIT ADDRESS TO THREE DIGIT ADDR 1035 10 05 * 1036 10 06 CNVTO3 BAV *&001 5 1094 B '99 Z 129 1037 10 07 A @96@,HOLDAR-003 7 1099 A U87 U55 129 1038 10 08 BAV CNVTO3&005 5 1106 B '99 Z 130 1039 10 09 MZ HOLDAR-004,HOLDAR 7 1111 Y U54 U58 130 1040 10 10 MN HOLDAR-003,*&004 7 1118 D U55 /28 130 1041 10 11 MZ ZONE2,HOLDAR-002 7 1125 Y 109 U56 130 1042 10 12 MZ HOLDZN,HOLDAR-001 7 1132 Y U85 U57 130 1043 10 13 BCE STRADD,AINDEX&X1, 8 1139 B /61 0S7 131 1044 10 14 MN AINDEX&X1,*&004 7 1147 D 0S7 /57 131 1045 10 15 MZ ZONE,HOLDAR-001 7 1154 Y 113 U57 131 1046 10 16 STRADD MCW HOLDAR,AOP&X3 7 1161 M U58 0G0 131 1047 10 17 * 1048 10 18 * MARK OPERAND PROCESSING 1049 10 19 * 1050 10 20 MARK MZ ABBIT,STAOP&X3 7 1168 Y 113 0?1 131 1051 10 21 OPRTN B XXXX 4 1175 B 000 132 1052 10 22 * 1053 10 23 * I/O ADDRESS IN TABLE 1054 10 24 * 1055 10 25 IOADD MCW HOLDAR-001,AOP&X3 7 1179 M U57 0G0 132 1056 10 26 B MARK 4 1186 B /68 132 1057 10 27 * 1058 10 28 * ASTERISK OPERAND 1059 10 29 * 1060 10 30 PROAST BCE *&5,AOPER&X1, 8 1190 B S02 0S2 132 1061 10 31 B CNVSYM 4 1198 B 626 132 1062 10 32 BCE OPRTN,ASTRSW,1 8 1202 B /75 U18 1 132 1063 10 33 MCW ASTADD,HOLDAR 7 1210 M U39 U58 133 1064 10 34 B CHRADJ 4 1217 B '49 133 1065 10 35 * 1066 10 36 * ACTUAL OPERAND - FLOAT TO 5 DIGITS 1067 10 37 * 1068 10 38 FLOAT BCE CNVSYM,AOPHO&X1,# 8 1221 B 626 0/7 # 133 1069 10 39 BCE CNVSYM,AOPHO&X1,@ 8 1229 B 626 0/7 @ 133 1070 10 40 BWZ *&005,AOPER-004&X1,2 8 1237 V S49 0/8 2 133 1 AUTOCODER-PASS 6-PROCESS OPERANDS -VERSION 3 3761L PAGE 22 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1071 10 41 B CNVSYM 4 1245 B 626 133 1072 10 42 ZA AOPER-001&X1,HOLDAR 7 1249 ? 0S1 U58 134 1073 10 43 REFLOT BCE *&005,HOLDAR,& 8 1256 B S68 U58 & 134 1074 10 44 B CHRADJ 4 1264 B '49 134 1075 10 45 ZA HOLDAR-001,HOLDAR 7 1268 ? U57 U58 134 1076 10 46 B REFLOT 4 1275 B S56 134 1077 10 47 * 1078 10 48 * PROCESS SUFFIX 1079 10 49 * 1080 10 50 PROSFX MCW AOPHO,SFXCTR 7 1279 M 017 L23 134 1081 10 51 B PUT 4 1286 B Z77 135 1082 10 52 * 1083 10 53 * INITIALIZE PASS D 1084 10 54 * 1085 10 55 PASSD SW GRPMK2-1 4 1290 , U30 135 1086 10 56 RTW DINPUT,BYPRD 8 1294 L %U6 U29 R 135 1087 10 57 CW GRPMK2-1 4 1302 ) U30 135 1088 10 58 CS CARD&80 4 1306 / 080 135 1089 10 59 SW CARD&001,CARD&006 7 1310 , 001 006 135 1090 10 60 SW CARD&017,CARD&024 7 1317 , 017 024 135 1091 10 61 SW CARD&028,CARD&035 7 1324 , 028 035 136 1092 10 62 SW CARD&057,CARD&062 7 1331 , 057 062 136 1093 10 63 SW CARD&068,CARD&071 7 1338 , 068 071 136 1094 10 64 MCW BUMPOP,BUMPER 7 1345 M L27 878 136 1095 10 65 MCW @6@,TPHALT&4 7 1352 M U88 J15 136 1096 10 66 MCW @6@,TPHLT2&4 7 1359 M U88 K01 137 1097 10 67 MCW @6@,TPHLT3&4 7 1366 M U88 J42 137 1098 10 68 MCW TPAD,WRITE2&006 7 1373 M L34 X73 137 1099 10 69 MCW TPAD,READ2&010 7 1380 M L34 X98 137 1100 10 70 MCW @ @,SFXCTR 7 1387 M U89 L23 137 1101 10 71 * 1102 10 72 * TEST LAST ITERATION 1103 10 73 * 1104 10 74 BCE LSTITR,PROCSW,0 8 1394 B U07 L95 0 138 1105 10 75 BCE 1 1402 B 138 1106 10 76 B READ2 4 1403 B X88 138 1107 10 77 LSTITR MCW @1@,ITERSW 7 1407 M U34 U28 138 1108 10 78 B READ2 4 1414 B X88 138 1109 10 79 ASTRSW DCW 0 1 1418 138 1110 10 80 SWICH1 DCW @0@ 1 1419 138 1111 10 81 HOLD7 DCW @ @ 7 1426 139 1112 10 82 HOLD1 DCW &0 1 1427 139 1113 10 83 ITERSW DCW @0@ 1 1428 139 1114 10 84 BYPRD DCW @ @ 1 1429 139 1115 10 85 GRPMK2 DC @} @ 2 1431 139 1116 10 86 SSOP EQU 1900 1900 1117 10 87 LTORG * 1432 DCW @0@ 1 1432 LIT 139 TYPEA DCW #01 1 1433 AREA 139 DCW @1@ 1 1434 LIT 139 1 AUTOCODER-PASS 6-PROCESS OPERANDS -VERSION 3 3761L PAGE 23 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD ASTADD DCW #05 5 1439 AREA 140 DCW @003@ 3 1442 LIT 140 DCW @011@ 3 1445 LIT 140 DCW &PUT 3 1448 Z77 ADCON 140 DCW &16000 5 1453 LIT 140 HOLDAR DCW #05 5 1458 AREA 140 DCW @B@ 1 1459 LIT 140 W6AREA DCW #06 6 1465 AREA 141 DCW &2 1 1466 LIT 141 HOLD2 DCW #02 2 1468 AREA 141 HOLD4 DCW #04 4 1472 AREA 141 DCW &1 1 1473 LIT 141 DCW @000@ 3 1476 LIT 141 DCW &96 2 1478 LIT 141 DCW @010@ 3 1481 LIT 142 DCW @###@ 3 1484 LIT 142 HOLDZN DCW #01 1 1485 AREA 142 DCW @96@ 2 1487 LIT 142 DCW @6@ 1 1488 LIT 142 DCW @ @ 1 1489 LIT 142 1118 10 88 * 1119 10 89 * INPUT/OUTPUT - PASS D 1120 10 90 * 1121 10 91 ORG WRITE 1767 1122 10 92 WRITE2 WT DOUTPT,TPAREA 8 1767 M %U5 I18 W 143 1123 10 93 NOP XXXX 4 1775 N 000 143 1124 10 94 BER TPERR 5 1779 B !04 L 143 1125 10 95 BRNCH2 NOP FINALD 4 1784 N Y13 143 1126 10 96 READ2 S HOLDA 4 1788 S L31 143 1127 10 97 RT DINPUT,TPAREA 8 1792 M %U6 I18 R 143 1128 10 98 B CHKLGT 4 1800 B K08 143 1129 10 99 BER TPERR 5 1804 B !04 L 144 1130 11 00 B NXTRECD 4 1809 B Z37 144 1131 11 01 * 1132 11 02 FINALD WTM DOUTPT 5 1813 U %U5 M 144 1133 11 03 RWD DINPUT 5 1818 U %U6 R 144 1134 11 04 RWD DOUTPT 5 1823 U %U5 R 144 1135 11 05 RTW SYSTPE,333 8 1828 L %U1 333 R 144 1136 11 06 NOP XXXX 4 1836 N 000 144 1137 11 07 BER TPERR 5 1840 B !04 L 145 1138 11 08 CW ENDOVL 4 1845 ) S45 145 1139 11 09 MCW BUMPOP,TSTLST 7 1849 M L27 474 145 1140 11 10 MCW BUMPOP,NOT 7 1856 M L27 726 145 1141 11 11 B TSTREF 4 1863 B 333 145 1142 11 12 DCW @ @ 1 1867 145 1143 11 13 ENDOFD DCW @}@ 1 1868 GMARK 145 1144 11 14 EX LIBRN B 000 146 1 AUTOCODER-PASS 6 PRINT SYMBOL TABLE -VERSION 3 3762L PAGE 24 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1145 11 15 JOB AUTOCODER-PASS 6 PRINT SYMBOL TABLE -VERSION 3 1146 11 16 * 1147 11 17 ORG 333 0333 1148 11 18 * 1149 11 19 * END OF PASS D 1150 11 20 * 1151 11 21 * PRINT LIST OF UNREFERENCED LABELS 1152 11 22 * 1153 11 23 TSTREF CS 0332 4 0333 / 332 149 1154 11 24 CS 1 0337 / 149 1155 11 25 S XR3&1 4 0338 S 100 149 1156 11 26 S 1 0342 S 149 1157 11 27 S 1 0343 S 149 1158 11 28 SW HEADSW#001 4 0344 , /80 149 1159 11 29 NXTLBL BCE TSTLST,SYMHO, 8 0348 B 474 M!4 149 1160 11 30 BCE TSTLST,ADDHO, 8 0356 B 474 M!0 150 1161 11 31 BCE LOZNG,SYMHO,) 8 0364 B 530 M!4 ) 150 1162 11 32 C SYMHO,@A@ 7 0372 C M!4 /81 150 1163 11 33 BH DOREF 5 0379 B 441 U 150 1164 11 34 C SYMHO,@Z@ 7 0384 C M!4 /82 150 1165 11 35 BL DOREF 5 0391 B 441 T 151 1166 11 36 MN SYMHO,XR3 7 0396 D M!4 099 151 1167 11 37 BWZ SWTAB,SYMHO,B 8 0403 V 433 M!4 B 151 1168 11 38 A @010@,XR3 7 0411 A /85 099 151 1169 11 39 BM SWTAB,SYMHO 8 0418 V 433 M!4 K 151 1170 11 40 A @010@,XR3 7 0426 A /85 099 152 1171 11 41 SWTAB SW SORTAB&X3 4 0433 , /D8 152 1172 11 42 S XR3&2 4 0437 S 101 152 1173 11 43 DOREF BWZ *&5,LBLREF,2 8 0441 V 453 M!1 2 152 1174 11 44 B TSTLST 4 0449 B 474 152 1175 11 45 BW NEWPGE,HEADSW 8 0453 V 502 /80 1 152 1176 11 46 DONEXT CW HEADSW 4 0461 ) /80 152 1177 11 47 B PRINT 4 0465 B 538 153 1178 11 48 W 1 0469 2 153 1179 11 49 CS 216 4 0470 / 216 153 1180 11 50 TSTLST A @010@,XR2 7 0474 A /85 094 153 1181 11 51 C XR2,TABMAX 7 0481 C 094 L11 153 1182 11 52 BE DUMP 5 0488 B 646 S 153 1183 11 53 BCV NEWPGE 5 0493 B 502 @ 153 1184 11 54 B NXTLBL 4 0498 B 348 154 1185 11 55 NEWPGE CC 1 2 0502 F 1 154 1186 11 56 MCW @UNREFERENCED LABELS@,219 7 0504 M S04 219 154 1187 11 57 CC T 2 0511 F T 154 1188 11 58 W 1 0513 2 154 1189 11 59 CS 0219 4 0514 / 219 154 1190 11 60 BW DONEXT,HEADSW 8 0518 V 461 /80 1 154 1191 11 61 B NXTLBL 4 0526 B 348 155 1192 11 62 LOZNG SW LIST-1 4 0530 , /78 155 1193 11 63 B DOREF 4 0534 B 441 155 1194 11 64 * 1 AUTOCODER-PASS 6 PRINT SYMBOL TABLE -VERSION 3 3762L PAGE 25 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1195 11 65 * PRINT SUBROUTINE FOR UNREFERENCED LABELS & SYMBOL TABBLE 1196 11 66 * 1197 11 67 PRINT SBR PRTXT&3 4 0538 H 634 155 1198 11 68 MCW SYMBOL,206&X1 7 0542 M M!9 2'6 155 1199 11 69 BCE DOIO,ADDHO,% 8 0549 B 635 M!0 % 155 1200 11 70 MN ADDLO,212&X1 7 0557 D M!3 2/2 155 1201 11 71 MN 1 0564 D 156 1202 11 72 MN 1 0565 D 156 1203 11 73 MN 1 0566 D 156 1204 11 74 BWZ *&8,ADDHO,2 8 0567 V 582 M!0 2 156 1205 11 75 MCW @1@,208&X1 7 0575 M S05 2'8 156 1206 11 76 BWZ PRTXT,ADDLO-1,2 8 0582 V 631 M!2 2 156 1207 11 77 MN @1@,215&X1 7 0590 D S05 2/5 156 1208 11 78 MCW @&X@ 4 0597 M S07 157 1209 11 79 BWZ PRTXT,ADDLO-1,S 8 0601 V 631 M!2 S 157 1210 11 80 MN @2@,215&X1 7 0609 D S08 2/5 157 1211 11 81 BWZ PRTXT,ADDLO-1,K 8 0616 V 631 M!2 K 157 1212 11 82 MN @3@,215&X1 7 0624 D S09 2/5 157 1213 11 83 PRTXT B XXXX 4 0631 B 000 157 1214 11 84 DOIO MCW ADDLO,212&X1 7 0635 M M!3 2/2 158 1215 11 85 B PRTXT 4 0642 B 631 158 1216 11 86 * 1217 11 87 * PRINT SYMBOL TABLE 1218 11 88 * 1219 11 89 DUMP B NXTPGE 4 0646 B 859 158 1220 11 90 S XR3&1 4 0650 S 100 158 1221 11 91 S 1 0654 S 158 1222 11 92 S 1 0655 S 158 1223 11 93 NXTCTR SW ENDSW#1 4 0656 , S10 158 1224 11 94 BW SCAN,SORTAB&1&X3 8 0660 V 687 /D9 1 159 1225 11 95 BMPXR3 BCE TSTEOJ,SORTAB&1&X3,@ 8 0668 B 888 /D9 @ 159 1226 11 96 A &1,XR3 7 0676 A S11 099 159 1227 11 97 B NXTCTR 4 0683 B 656 159 1228 11 98 SCAN BCE BMPXR3,SORTAB&1&X3,! 8 0687 B 668 /D9 ! 159 1229 11 99 BCE BMPXR3,SORTAB&1&X3,' 8 0695 B 668 /D9 ' 160 1230 12 00 BCE BMPXR3,SORTAB&1&X3,/ 8 0703 B 668 /D9 / 160 1231 12 01 MCW SORTAB&1&X3,TSTLBL&7 7 0711 M /D9 725 160 1232 12 02 TSTLBL BCE DOPNT,SYMHO,X 8 0718 B 777 M!4 X 160 1233 12 03 NOT A @010@,XR2 7 0726 A /85 094 160 1234 12 04 C XR2,TABMAX 7 0733 C 094 L11 161 1235 12 05 BU TSTLBL 5 0740 B 718 / 161 1236 12 06 S XR2&1 4 0745 S 095 161 1237 12 07 S 1 0749 S 161 1238 12 08 A &1,XR3 7 0750 A S11 099 161 1239 12 09 CW ENDSW 4 0757 ) S10 161 1240 12 10 BW PNTSYM,PNTSW 8 0761 V 812 S18 1 161 1241 12 11 SW PNTSW 4 0769 , S18 162 1242 12 12 B TSTESW 4 0773 B 847 162 1243 12 13 DOPNT BCE NOT,ADDHO, 8 0777 B 726 M!0 162 1244 12 14 B PRINT 4 0785 B 538 162 1 AUTOCODER-PASS 6 PRINT SYMBOL TABLE -VERSION 3 3762L PAGE 26 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1245 12 15 SW PNTSW 4 0789 , S18 162 1246 12 16 A @016@,XR1 7 0793 A S14 089 162 1247 12 17 C XR1,@128@ 7 0800 C 089 S17 162 1248 12 18 BU NOT 5 0807 B 726 / 163 1249 12 19 PNTSYM W 1 0812 2 163 1250 12 20 CW PNTSW#1 4 0813 ) S18 163 1251 12 21 CS 332 4 0817 / 332 163 1252 12 22 CS 1 0821 / 163 1253 12 23 S XR1&1 4 0822 S 090 163 1254 12 24 BW *&9,ENDSW 8 0826 V 842 S10 1 163 1255 12 25 BCE TSTEOJ,SORTAB&1&X3,@ 8 0834 B 888 /D9 @ 164 1256 12 26 BCV NXTPGE 5 0842 B 859 @ 164 1257 12 27 TSTESW BW NOT,ENDSW 8 0847 V 726 S10 1 164 1258 12 28 B NXTCTR 4 0855 B 656 164 1259 12 29 NXTPGE SBR PGXT&3 4 0859 H 887 164 1260 12 30 CS 332 4 0863 / 332 164 1261 12 31 CS 1 0867 / 164 1262 12 32 CC 1 2 0868 F 1 165 1263 12 33 MCW @SYMBOL TABLE@,212 7 0870 M S30 212 165 1264 12 34 W 1 0877 2 165 1265 12 35 CC K 2 0878 F K 165 1266 12 36 CS 212 4 0880 / 212 165 1267 12 37 PGXT B XXXX 4 0884 B 000 165 1268 12 38 TSTEOJ BW *&3,HEADSW 8 0888 V 898 /80 1 165 1269 12 39 CC 1 2 0896 F 1 166 1270 12 391 CS 332 4 0898 / 332 166 1271 12 392 CHAIN 3 MACRO 1272 CS 1 0902 / GEN 166 1273 CS 1 0903 / GEN 166 1274 CS 1 0904 / GEN 166 1275 12 40 BCE EOJOB,ITERSW,1 8 0905 B 997 U28 1 166 1276 12 41 * 1277 12 42 * GET PASS C 1278 12 43 * 1279 12 44 BSP SYSTPE 5 0913 U %U1 B 166 1280 12 45 BSP SYSTPE 5 0918 U %U1 B 167 1281 12 46 MCW @5@,TPHALT&4 7 0923 M S31 J15 167 1282 12 47 MCW @5@,TPHLT2&4 7 0930 M S31 K01 167 1283 12 48 MCW @5@,TPHLT3&4 7 0937 M S31 J42 167 1284 12 49 MCW @00@,PROCSW 7 0944 M S33 L95 167 1285 12 50 MCW @ @,SFXCTR 7 0951 M S34 L23 168 1286 12 51 * 1287 12 52 * SET NUMBER OF SEEKS FOR TABLE SEARCH 1288 12 53 * 1289 12 54 C TOTLAB,TABLSZ 7 0958 C L93 L18 168 1290 12 55 MCW TABLSZ,SERCHS 7 0965 M L18 L99 168 1291 12 56 S TOTLAB 4 0972 S L93 168 1292 12 57 BE RDPSSC 5 0976 B K72 S 168 1293 12 58 BH RDPSSC 5 0981 B K72 U 168 1294 12 59 MCW &0009,SERCHS 7 0986 M S38 L99 169 1 AUTOCODER-PASS 6 PRINT SYMBOL TABLE -VERSION 3 3762L PAGE 27 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1295 12 60 B RDPSSC 4 0993 B K72 169 1296 12 61 * 1297 12 62 * LAST ITERATION, GET PASS C 1298 12 63 * 1299 12 64 EOJOB CW GRPMK2-1 4 0997 ) U30 169 1300 12 65 CS 3999 4 1001 / I99 169 1301 12 66 BCE READE,MACHSZ,3 8 1005 B '44 L89 3 169 1302 12 67 CS 4799 4 1013 / 79Z 169 1303 12 68 CHAIN 7 MACRO 1304 CS 1 1017 / GEN 169 1305 CS 1 1018 / GEN 170 1306 CS 1 1019 / GEN 170 1307 CS 1 1020 / GEN 170 1308 CS 1 1021 / GEN 170 1309 CS 1 1022 / GEN 170 1310 CS 1 1023 / GEN 170 1311 12 681 CLR CS 3999 4 1024 / I99 170 1312 12 682 SBR CLR&3 4 1028 H '27 171 1313 12 683 C CLR&3,&SSOP-1 7 1032 C '27 S41 171 1314 12 684 BU CLR 5 1039 B '24 / 171 1315 12 69 READE RTW SYSTPE,SSOP 8 1044 L %U1 Z00 R 171 1316 12 70 BER SYSERR 5 1052 B '68 L 171 1317 12 71 GOTOE MCW @N@,SSOP 7 1057 M S42 Z00 171 1318 12 72 B SSOP&1 4 1064 B Z01 172 1319 12 73 SYSERR MCW &9,RDCT#1 7 1068 M S43 S44 172 1320 12 74 BSP SYSTPE 5 1075 U %U1 B 172 1321 12 75 RETRY RTW SYSTPE,SSOP 8 1080 L %U1 Z00 R 172 1322 12 76 BER AGAIN 5 1088 B '97 L 172 1323 12 77 B GOTOE 4 1093 B '57 172 1324 12 78 AGAIN BSP SYSTPE 5 1097 U %U1 B 172 1325 12 79 S @1@,RDCT 7 1102 S S05 S44 173 1326 12 80 BWZ RETRY,RDCT,B 8 1109 V '80 S44 B 173 1327 12 81 H XXXX,691 7 1117 . 000 691 173 1328 12 82 RTW SYSTPE,SSOP 8 1124 L %U1 Z00 R 173 1329 12 83 BSS SYSERR,E 5 1132 B '68 E 173 1330 12 84 H XXXX,612 7 1137 . 000 612 174 1331 12 85 B GOTOE 4 1144 B '57 174 1332 12 86 LIST DCW @ ABCDEFGHI!JKLMNOPQR'/STUVWXYZ)@@ 32 1179 175 1333 12 87 SORTAB EQU LIST-31