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 1148 1334 12 88 LTORG * 1180 HEADSW DCW #01 1 1180 AREA 175 DCW @A@ 1 1181 LIT 175 DCW @Z@ 1 1182 LIT 175 DCW @010@ 3 1185 LIT 175 DCW @UNREFERENCED LABELS@ 19 1204 LIT 176 DCW @1@ 1 1205 LIT 176 DCW @&X@ 2 1207 LIT 176 DCW @2@ 1 1208 LIT 176 DCW @3@ 1 1209 LIT 176 ENDSW DCW #01 1 1210 AREA 176 1 AUTOCODER-PASS 6 PRINT SYMBOL TABLE -VERSION 3 3762L PAGE 28 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD DCW &1 1 1211 LIT 176 DCW @016@ 3 1214 LIT 177 DCW @128@ 3 1217 LIT 177 PNTSW DCW #01 1 1218 AREA 177 DCW @SYMBOL TABLE@ 12 1230 LIT 177 DCW @5@ 1 1231 LIT 177 DCW @00@ 2 1233 LIT 177 DCW @ @ 1 1234 LIT 177 DCW &0009 4 1238 LIT 178 DCW &SSOP-1 3 1241 Y99 ADCON 178 DCW @N@ 1 1242 LIT 178 DCW &9 1 1243 LIT 178 RDCT DCW #01 1 1244 AREA 178 1335 12 89 ENDOVL DCW @}@ 1 1245 GMARK 178 1336 12 90 EX LIBRN B 000 179 1337 12 91 END LIBRN / 000 080 1 AUTOCODER-PASS 6 PRINT SYMBOL TABLE -VERSION 3 3762L PAGE 29 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS ABBIT 113 ABIT 111 ACTSW 1867 ACTUAL 761 ADDBNK 1503 ADDHO 2400+X2 ADDLO 2403+X2 ADDRSW 1859 ADDRTN 1086 AGAIN 1097 AINDEX 27 ANAL 114 AOP 70 AOPADJ 26 AOPER 22 AOPHO 17 AOPOR 536 AOPOUT 669 AOPROC 1618 AOPRTN 1484 ARGUMT 1908 ASTADD 1439 ASTRSK 708 ASTRSW 1418 BBIT 112 BLKAOP 735 BLKCT 2330 BLKG12 2852 BLKG8K 2836 BMPXR3 668 BRANCH 1784 BRNCH2 1784 BRSRH 1464 BSP1 2040 BSP2 2084 BTOADD 887 BTOLAB 474 BTOLBL 1157 BUMP 1681 BUMPER 878 BUMPOP 2327 BYPRD 1429 CARD 0 CHKLGT 2208 CHRADJ 1049 CINPUT %U5 CLEAR 1820 CLR 1024 CLRMAX 2299 CLRMIN 2302 CLRTAB 1813 CMP16K 409 CNVLAB 56 CNVSYM 626 CNVTO3 1094 COMPRS 390 CONST 260 COUNT 7 COUTPT %U6 DA 871 DASW 1868 DBLDEF 1298 DBLSW 1864 DINPUT %U6 DOINDX 1417 DOIO 635 DOLABL 1358 DOLABR 1431 DONEXT 461 DOPNT 777 DOREF 441 DOUTPT %U5 DS 295 DSAPUT 1872 DUMP 646 ENDINT 2901 ENDOFC 1924 ENDOFD 1868 ENDOPN 478 ENDOVL 1245 ENDSW 1210 EOJOB 997 EXEND 973 FACTOR 2388 FINAL 1873 FINALD 1813 FLOAT 1221 FNCTN 2308 GET 1925 GOTOE 1057 GPMRK3 3998 GRPMK2 1431 GRPMRK 2866 HEADSW 1180 HGHCTR 1858 HOADD 57 HOLD1 1427 HOLD2 1468 HOLD4 1472 HOLD7 1426 HOLDA 2331 HOLDAD 1912 HOLDAR 1458 HOLDZN 1485 INDFTR 1869 INITAP %U0 INPUT 3917+X3 INST2 2169 INSTR 219 IOADD 1179 ITERSW 1428 KBLKNG 2326 KEEP1 2877 LABADD 61 LABEL 13 LABRTN 1294 LBLHO 8 LBLREF 2401+X2 LGTCK 2223 LGTXT 2243 LIBRN 0 LIMAD 2894 LIMIT 3931 LIST 1179 LITRAL 1325 LITRSW 1861 LITTST 1090 LOADDR 215 LOOP1 767 LOZNG 530 LSTITR 1407 MACHSZ 2389 MARK 1168 MAXADD 2314 MAXSER 2322 MAXSW 1860 MDTP 2882 MDTP12 2865 MDTP8K 2849 MOVEIN 1951 MPYLP 706 MRKPRC 1280 MULT 714 NEWPGE 502 NOBIT 110 NOT 726 NOWCTR 1848 NXTCNT 655 NXTCTR 656 NXTDGT 740 NXTLBL 348 NXTPGE 859 NXTREC 1937 OPRTN 1175 ORG 376 ORGADD 32 ORGCTR 1853 ORGEQU 489 ORGOUT 574 ORGSAV 432 ORGSW 1866 ORIGDA 926 PASSD 1290 PERCNT 950 PGXT 884 PNTSW 1218 PNTSYM 812 PRCADD 1003 PRCAST 283 PRDSA 318 PRINST 196 PRINT 538 PROAST 1190 PROCLB 1109 PROCOP 578 PROCSW 2395 PROCTU 361 PROEND 446 PROSFX 1279 PRTXT 631 PUT 1977 RDCT 1244 RDPSSC 2272 RDPSSD 2247 RDRERR 2077 READ 1788 READ2 1788 READCT 2338 READE 1044 RECALL 980 REDXT 2073 REFLOT 1256 RETRY 1080 RETURN 1763 RSTSWA 616 SAVETP %U4 SAVEZN 1920 SCAN 687 SCNTB 806 SEARCH 1629 SEEBOP 268 SERCHS 2399 SET8K 2620 SETAOP 1435 SETAST 208 SETBMP 2718 SETDBL 1745 SETDSA 337 SETFUN 1376 SETHGH 405 SETIO 2493 SETORG 609 SETSPC 1756 SETSWL 1250 SETSWS 598 SETSYM 804 SETTP 2662 SETZRO 942 SFX 992 SFXCTR 2323 SORTAB 1148 SPCSW 1863 SRHLOP 858 SSOP 1900 STADDR 3 STAOP 1 STBOP 4 STLABL 2 STORE 1269 STRADD 1161 STRBNK 1488 STRSAV 502 SUBCTR 2186 SUPADD 66 SWICH1 1419 SWTAB 433 SYMBOL 2409+X2 SYMHO 2404+X2 SYSERR 1068 SYSTPE %U1 TABLE 2409 TABLSZ 2318 TABMAX 2311 TBLM12 2859 TBLM8K 2843 TBLSRH 1661 TBSZ12 2856 TBSZ8K 2840 TOTLAB 2393 TPAD 2334 TPAD12 2862 TPAD8K 2846 TPAREA 3918 TPERR 2004 TPHALT 2111 TPHLT2 2197 TPHLT3 2138 TPINST 2060 TSTADD 1022 TSTCNV 1078 TSTDBL 1207 TSTEOJ 888 TSTESW 847 TSTLBL 718 TSTLST 474 TSTPRC 434 TSTREF 333 TSTRPT 910 TSTX00 821 TYPE 75 TYPEA 1433 UNDEF 961 UNPROC 1181 UNPRSW 2394 W6AREA 1465 WRAPSW 1862 WRITE 1767 WRITE2 1767 WRTCTR 2341 WRTRED 2149 XR1 89 XR2 94 XR3 99 XXXX 0 ZONE 113 ZONE2 109 --------------------- source code ---------------------- 101 000 job autocoder-pass 5-process labels-initl-version 3 3751l 102 ctl 63011 103 * 104 * equates used by program 105 * 106 initap equ %u0 107 systpe equ %u1 108 savetp equ %u4 109 cinput equ %u5 110 coutpt equ %u6 111 doutpt equ %u5 112 dinput equ %u6 113 table equ 2409 114 addlo equ table-006&x2 115 symho equ table-005&x2 116 addho equ table-009&x2 117 lblref equ table-008&x2 118 symbol equ table&x2 119 card equ 0 120 staop equ card&001 121 stlabl equ card&002 122 staddr equ card&003 123 stbop equ card&004 124 count equ card&007 125 label equ card&013 126 aoper equ card&022 127 aopadj equ card&026 128 aindex equ card&027 129 orgadd equ card&032 130 cnvlab equ card&056 131 labadd equ card&061 132 supadd equ card&066 133 aop equ card&070 134 type equ card&075 135 aopho equ card&017 136 lblho equ card&008 137 hoadd equ card&057 138 tparea equ 3918 139 input equ tparea-001&x3 140 limit equ tparea&13 141 xxxx equ 0 142 gpmrk3 equ 3998 143 librn equ 0 144 * 145 * 146 * get, put, redundancy & 147 * crossover routines common 148 * to both passes 149 * 150 * 151 org endofc&1 152 * 153 * get & put 154 * 155 get c blkct,kblkng 156 be write 157 nxtrec a &80,blkct 158 mcw blkct,xr3 159 movein mcw input,card&80 160 chain9 161 s xr3&001 162 s 163 s 164 b anal 165 put mcw blkct,xr3 166 mcw card&80,input 167 chain9 168 b get 169 * 170 *tape redundancy routine 171 * 172 tperr sbr xr1 173 sbr redxt&3 174 mz &9,xr1 175 mcw 4000-10&x1,tpinst&7 176 mn tpinst&3,bsp1&3 177 mcw tpinst&7,inst2&7 178 bsp1 bsp initap 179 bce wrtred,tpinst&7,w 180 mcw &9,readct#1 181 tpinst rt initap,xxxx 182 ber rdrerr 183 redxt b xxxx 184 rdrerr mn tpinst&3,bsp2&3 185 bsp2 bsp initap 186 s &1,readct 187 bwz tpinst,readct,b 188 mn tpinst&3,tphalt&6 189 tphalt h xxxx,590 190 mcw tpinst&7,*&8 191 rt initap,xxxx 192 bss bsp1,e 193 tphlt3 h xxxx,511 194 b redxt 195 wrtred skp systpe 196 bce subctr,wrtctr-1,5 197 a &1,wrtctr#2 198 inst2 wt initap,xxxx 199 ber bsp1 200 b redxt 201 subctr s wrtctr 202 mn tpinst&3,*&7 203 tphlt2 h xxxx,560 204 b inst2 205 * 206 * check for short records 207 * 208 chklgt sbr xr1 209 sbr lgtxt&3 210 mz &9,xr1 211 lgtck bce 4000-12&x1,limit,} 212 chain12 213 lgtxt b xxxx 214 * 215 * crossover, c to d 216 * 217 rdpssd rtw systpe,1 218 nop xxxx 219 ber tperr 220 cw endofd 221 b passd 222 * 223 * crossover, d to c 224 * 225 rdpssc rtw coutpt,1 226 nop xxxx 227 ber tperr 228 cw endofc 229 b clrtab 230 * 231 * common constants 232 * 233 clrmax dcw @i97@ 234 clrmin dsa table-010 235 fnctn dcw @ @ 236 tabmax dcw @v00@ 237 maxadd dcw @ @ 238 tablsz dcw &0150 239 maxser dcw @ @ 240 sfxctr dcw @ @ 241 kblkng dcw @080@ 242 bumpop dcw @#@ 243 holda dcw &0000 244 blkct equ holda-1 245 tpad dsa tparea 246 ltorg* 247 * 248 * protected constants 249 * 250 factor equ table-021 251 machsz equ table-020 252 totlab equ table-016 253 unprsw equ table-015 254 procsw equ table-014 255 serchs equ table-010 256 * 257 * initialize pass c one time 258 * 259 org table-009 260 rwd savetp 261 rwd cinput 262 rwd coutpt 263 cs 3999 264 sw grpmrk 265 lca @00@,procsw 266 lca &0150,serchs 267 lca @0015@,factor 268 rtw systpe,1 269 nop xxxx 270 ber tperr 271 cw endint 272 * 273 * set i/o group mark 274 * 275 mcw machsz,keep1#001 276 a &3,keep1 277 mn keep1,*&004 278 mz zone2,*&007 279 setio lca grpmrk,gpmrk3 280 bwz setbmp,setio&006,2 281 cs 4799 282 cs 4399 283 mcw @#@,bump 284 bce set8k,machsz,4 285 * 286 * 12k constants 287 * 288 mcw blkg12,kblkng 289 mcw tbsz12,tablsz 290 mcw tblm12,tabmax 291 mcw tpad12,tpad 292 mcw mdtp12,mdtp#003 293 a &72,factor 294 bce settp,machsz,5 295 * 296 * 16k constants 297 * 298 a &400,tablsz 299 a &40,factor 300 mz abbit,tabmax 301 mz abbit,tpad 302 mz abbit,mdtp 303 b settp 304 * 305 * 8k constants 306 * 307 set8k mcw blkg8k,kblkng 308 mcw tbsz8k,tablsz 309 mcw tblm8k,tabmax 310 mcw tpad8k,tpad 311 mcw mdtp8k,mdtp 312 a &36,factor 313 settp mz tpad,clrmax 314 mcw mdtp,movein&003 315 mcw mdtp,put&013 316 mcw tpad,write&006 317 mcw tpad,read&010 318 mcw tpad,limad#3 319 ma &13,limad ??? &013 ??? 320 mcw limad,lgtck&6 321 setbmp mcw bump,bumpop 322 lca grpmrk,endofc 323 * 324 * write pass c checkpoint on 6 325 * 326 cs 80 327 sw card&001,card&006 328 sw card&017,card&024 329 sw card&028,card&035 330 sw card&057,card&062 331 sw card&068,card&071 332 wtw coutpt,1 333 nop xxxx 334 ber tperr 335 cw endofc,grpmrk 336 c totlab,tablsz 337 mcw tablsz,serchs 338 s totlab 339 be clrtab 340 bh clrtab 341 mcw &0009,serchs 342 b clrtab 343 blkg8k dcw @400@ 344 tbsz8k dcw &0510 345 tblm8k dsa 5100 346 tpad8k dsa 7598 347 mdtp8k dsa 7597&x3 348 blkg12 dcw @800@ 349 tbsz12 dcw &0870 350 tblm12 dsa 8700 351 tpad12 dsa 11198 352 mdtp12 dsa 11197&x3 353 grpmrk dc @}@ 354 ltorg* 355 endint dcw @}@ 356 xfr librn 357 job autocoder-pass 5 main line -version 3 3752l 358 * 359 * pass c-load symbol table& set addresses 360 * 361 zone equ 113 362 113 dcw @2skb@ 363 zone2 equ 109 364 109 dcw @2skb@ 365 abbit equ zone 366 bbit equ zone-001 367 abit equ zone-002 368 nobit equ zone-003 369 xr1 equ 89 370 89 dcw @000@ 371 xr2 equ 94 372 94 dcw @000@ 373 xr3 equ 99 374 99 dcw @000@ 375 org zone&001 376 * 377 * determine record type 378 * 379 anal bm put,card&005 380 bce put,type,% 381 bce instr,type, 382 mn type,xr2 383 bce da,xr2,0 384 mcw @0@,indftr 385 mcw @0@,dasw 386 a xr2 387 a xr2 388 b *&001&x2 389 nop xxxx 390 b const 391 b const 392 b exend 393 b sfx 394 b put 395 b org 396 b ds 397 b put 398 b put 399 * 400 * process instructions 401 * 402 instr mcw @0@,indftr 403 b prcadd 404 b proclb 405 bwz put,staddr,2 406 a count,nowctr 407 s @1@,nowctr 408 b put 409 * 410 * process constants & dcw 411 * 412 const bce prcast,aopho,* 413 mcw @1@,actsw 414 b proclb 415 b put 416 * 417 * constantds with asterisk address 418 * 419 prcast b prcadd 420 b proclb 421 b put 422 * 423 * process ds & equates 424 * 425 ds bce proctu,aopho,% 426 a aindex,indftr 427 bce const,aopho,* 428 bwz const,aopho,2 429 bwz *&5,staop,2 430 b const 431 * 432 * equate 433 * 434 b setaop 435 mcw dsaput,labrtn&003 436 bwz unproc,staop,2 437 b const 438 * 439 * ds of input device 440 * 441 proctu mcw aoper-003,labadd-001 442 mcw @0@ 443 b const 444 * 445 * process origin & literal origin 446 * 447 org bwz sethgh,card&033,b 448 za labadd,orgadd 449 a @1@,orgadd 450 mz abbit,card&033 451 sethgh bce orgsav,maxsw,1 452 c nowctr,hghctr 453 bh orgsav 454 za nowctr,hghctr 455 * 456 * process save counter of origin 457 * 458 orgsav bce aopor,lblho, 459 mcw @005@,xr1 460 mcw &aopor,labrtn&003 461 bwz *&005,stlabl,2 462 b aopor 463 bce strsav,supadd, 464 btolab b dolabl 465 b search 466 bce store,dblsw,1 467 bce store,spcsw,0 468 b unproc 469 strsav bce unproc,addrsw,1 470 bce unproc,litrsw,1 471 mcw nowctr,supadd 472 a @1@,supadd 473 b btolab 474 * 475 * process a operand of origin 476 * 477 aopor bwz *&005,staop,2 478 b actual 479 bce astrsk,aopho,* 480 mcw @0@,litrsw 481 s nowctr 482 bce blkaop,aopho, 483 * 484 * symbolic origin 485 * 486 mcw @0@,orgsw 487 s xr1&001 488 b setaop 489 bce setorg,orgsw,1 490 setsws mcw @11@,maxsw 491 b scntb&7 492 setorg mcw labadd,orgctr 493 rstswa mcw @0@,addrsw 494 bce *&005,aopadj-002,x 495 b aopout 496 * 497 * adjustment of x00 498 * 499 bce nxtcnt,aopho,* 500 c orgctr,&00 501 be aopout 502 nxtcnt mcw &00,orgctr 503 a @1@,orgctr-002 504 aopout a orgctr,orgadd 505 za orgctr,labadd 506 za orgadd,nowctr 507 s @1@,nowctr 508 mz abbit,staop 509 b put 510 * 511 * origin asterisk 512 * 513 astrsk bce put,addrsw,1 514 bce setsws,litrsw,1 515 mcw nowctr,orgctr 516 b rstswa 517 * 518 * origin maximum 519 * 520 blkaop bce setsws,maxsw,1 521 mcw hghctr,orgctr 522 a @1@,orgctr 523 b rstswa 524 * 525 * origin actual or processed 526 * 527 actual za orgadd,nowctr 528 s @1@,nowctr 529 bce tstx00,aopho,* 530 mcw @0@,litrsw 531 bwz scntb,aopho,2 532 bwz setorg,staop,k 533 scntb mcw @0@,addrsw 534 s orgctr 535 b put 536 tstx00 bce put,aopadj-002,x 537 bwz put,card&034,b 538 a orgctr,orgadd 539 bce put,addrsw,1 540 bce put,litrsw,1 541 mz abbit,card&34 542 b actual 543 * 544 * process da statements 545 * 546 da bce origda,type,0 547 bce tstrpt,actsw,1 548 btoadd c labadd,supadd 549 bl *&8 550 mcw @005@,xr3 551 b prcadd 552 tstrpt bce put,type,' 553 b proclb 554 b put 555 * 556 * da header 557 * 558 origda mcw @0@,indftr 559 a aindex,indftr 560 mcw @1@,dasw 561 mcw @0@,actsw 562 bce btoadd,aopho,* 563 mcw @1@,actsw 564 b tstrpt 565 * 566 * ??? missing from listing in CE manual *** 567 * ??? missing from listing in CE manual *** 568 exend bwz put,type,b 569 mcw @b@,branch 570 b write 571 * 572 * process suffix 573 * 574 sfx mcw aopho,sfxctr 575 b put 576 * 577 * process addresses 578 * 579 prcadd sbr addrtn&003 580 mcw @0@,actsw 581 bwz littst,stlabl,k 582 tstadd bwz addrtn,staddr,b 583 bce addrtn,addrsw,1 584 a orgctr,labadd 585 a orgctr,supadd 586 c nowctr,labadd&x3 587 bl *&008 588 za labadd&x3,nowctr 589 bce addrtn,litrsw,1 590 mz abbit,staddr 591 addrtn b xxxx 592 littst mcw dsaput,labrtn&003 593 bce litral,type,/ 594 b tstadd 595 * 596 * process label 597 * 598 proclb sbr labrtn&003 599 bwz *&005,stlabl,2 600 b labrtn 601 bce mrkprc,lblho, 602 bce btolbl,actsw,1 603 bce tstdbl,litrsw,1 604 bce tstdbl,addrsw,1 605 btolbl b dolabl 606 b search 607 bce dbldef,dblsw,1 608 bce store,spcsw,0 609 * 610 * unprocessed label 611 * 612 unproc mcw @1@,unprsw 613 a @1@,totlab 614 bce setswl,type,/ 615 b labrtn 616 * 617 * search table for dbl def literal 618 * 619 tstdbl bce unproc,lblho,$ 620 b dolabl 621 b search 622 bce unproc,dblsw,0 623 bce unproc,addho, 624 mz bbit,stlabl 625 b labrtn 626 * 627 * unprocessed label of literal 628 * 629 setswl bce labrtn,lblho,$ 630 mcw @11@,litrsw 631 b labrtn 632 * 633 * store label in table 634 * 635 store lca fnctn,symbol 636 lca holdad 637 mrkprc mz abbit,stlabl 638 mcw @1@,procsw 639 labrtn b xxxx 640 * 641 * doubly defined label 642 * 643 dbldef bce store,addho, 644 mz bbit,stlabl 645 bce litral,type,/ 646 b labrtn 647 * 648 * double defined literal 649 * 650 litral bwz labrtn,stbop,b 651 mcw @%@,type 652 s count,orgctr 653 s count,nowctr 654 b labrtn 655 * 656 * set up label & address 657 * for table search 658 * 659 dolabl sbr dolabr&003 660 mcw label,fnctn 661 mcw cnvlab,argumt#3 662 setfun bce *&5,fnctn, 663 b *&8 664 mcw sfxctr,fnctn 665 mcw labadd&x1,holdad#004 666 bce doindx,hoadd&x1,0 667 mz abit,holdad-003 668 doindx mn indftr,*&004 669 mz zone,holdad-001 670 dolabr b xxxx 671 * 672 * process a operand of origin & equate 673 * 674 setaop sbr aoprtn&003 675 mcw &brsrh,dolabr&003 676 mcw aoper,fnctn 677 mcw aop,argumt 678 b setfun 679 brsrh b search 680 bce addbnk,dblsw,1 681 bce strbnk,spcsw,0 682 aoprtn b xxxx 683 * 684 * label not in table, store 685 * with blank address 686 * 687 strbnk lca fnctn,symbol 688 lca @ @ 689 b aoprtn 690 * 691 * retrieve value from table 692 * 693 addbnk bce aoprtn,addho, 694 mcw @1@,orgsw 695 bwz *&5,lblref,2 696 b *&8 697 mz abit,lblref 698 mcw addlo,labadd 699 bce aoproc,labadd-3,% 700 bwz *&008,labadd-003,2 701 mcw @1@,hoadd 702 bce aoprtn,type,o 703 * 704 * add character adjustment for equate 705 * 706 mz labadd-001,savezn#001 707 a aopadj,labadd 708 mz savezn,labadd-001 709 bce aoproc,aindex, 710 mn indftr,*&004 711 mz zone,labadd-001 712 aoproc mz abbit,staop 713 b aoprtn 714 * 715 * table search 716 * 717 search sbr return&003 718 mcw dblsw&001,dblsw 719 mcw tabmax,maxadd 720 mcw argumt,xr2 721 mcw serchs,maxser 722 tblsrh c fnctn,symbol 723 be setdbl 724 bce return,symho, 725 bump a @010@,xr2 726 s @1@,maxser 727 bm setspc,maxser 728 c xr2,maxadd 729 bu tblsrh 730 bce setspc,wrapsw,1 731 mcw @1@,wrapsw 732 mcw argumt,maxadd 733 s xr2&001 734 b tblsrh 735 * 736 * label in table 737 * 738 setdbl mcw @1@,dblsw 739 b return 740 * 741 * space available 742 * 743 setspc mcw @1@,spcsw 744 return b xxxx 745 * 746 * input/output - pass c 747 * 748 write wt coutpt,tparea 749 nop xxxx 750 ber tperr 751 branch nop final 752 read s holda 753 rt cinput,tparea 754 b chklgt 755 ber tperr 756 b nxtrec 757 * 758 * clear table area 759 * 760 clrtab mcw clrmax,clear&003 761 clear cs xxxx 762 sbr clear&003 763 c clear&003,clrmin 764 bu clear 765 b read 766 nowctr dcw &00000 767 orgctr dcw &00000 768 hghctr dcw &00000 769 addrsw dcw @0@ 770 maxsw dc @0@ 771 litrsw dc @0@ 772 wrapsw dcw @0@ 773 spcsw dc @0@ 774 dblsw dc @0@ 775 dc @0@ 776 orgsw dcw @0@ 777 actsw dcw @0@ 778 dasw dcw @0@ 779 indftr dcw @0@ 780 dsaput dsa put 781 * 782 * end of pass c, get pass d 783 * 784 final wtm coutpt 785 rwd cinput 786 rwd coutpt 787 b rdpssd 788 ltorg* 789 endofc dcw @}@ 790 xfr librn 791 job autocoder-pass 6-process operands -version 3 3761l 792 * 793 91 dcw @00000@ 794 96 dcw @00000@ 795 101 dcw @00000@ 796 109 dcw @2skb@ 797 113 dcw @2skb@ 798 org zone&001 799 * 800 * determine record type 801 * 802 mcw @0@,astrsw 803 bm put,card&005 804 bce put,type,% 805 mn type,typea#001 806 bce prinst,typea, 807 bce prdsa,typea,2 808 bce proend,typea,3 809 bce prosfx,typea,4 810 bce orgequ,typea,6 811 bce orgequ,typea,7 812 b put 813 * 814 * process instructions 815 * 816 prinst bwz setast,staddr,2 817 b loaddr 818 setast mcw @1@,astrsw 819 * 820 * set asterisk address 821 * 822 loaddr za labadd,astadd#005 823 a count,astadd 824 s @1@,astadd 825 * 826 * test for a operand 827 * 828 bce put,count,1 829 bce put,count,2 830 bwz *&005,staop,2 831 b seebop 832 b procop 833 * 834 * test for b operand 835 * 836 seebop bce put,count,4 837 bce put,count,5 838 bwz *&005,stbop,2 839 b put 840 mcw @003@,xr3 841 mcw @011@,xr1 842 b procop 843 b put 844 * 845 * process dsa and adcon 846 * 847 prdsa bwz *&005,staddr,2 848 b tstprc 849 mcw @1@,astrsw 850 setdsa za labadd,astadd 851 mcw @003@,xr3 852 mcw @011@,xr1 853 bwz *&005,stbop,2 854 b put 855 b procop 856 bwz put,stbop,2 857 bce cmp16k,aindex,- 858 comprs mcw &put,oprtn&3 859 bce put,aop&1,% 860 b cnvto3 861 * 862 * get 16000 complement 863 * 864 cmp16k mcw &16000,fnctn-001 865 s holdar,fnctn-001 866 za fnctn-001,holdar#005 867 b comprs 868 tstprc bwz setdsa,stbop,2 869 b put 870 * 871 * process ex & end 872 * 873 proend s astadd 874 bwz *&005,staop,2 875 b *&005 876 b procop 877 bce endopn,type,3 878 b put 879 endopn mcw @b@,brnch2 880 b put 881 * 882 * process origin & equate 883 * 884 orgequ bwz *&005,staop,2 885 b orgout 886 bce orgout,aopho, 887 bwz orgout,aopho,2 888 bce orgout,aopho,* 889 bce orgout,aopho,% 890 b procop 891 bwz orgout,staop,2 892 mcw @0@,itersw 893 bce *&008,typea,7 894 mz bbit,staop 895 mcw holdar,labadd 896 orgout b put 897 * 898 * process operand sub-routine 899 * 900 procop sbr oprtn&003 901 bwz *&005,staop&x3,2 902 b oprtn 903 bce setzro,aopho&x1, 904 bce percnt,aopho&x1,% 905 bwz float,aopho&x1,2 906 bce proast,aopho&x1,* 907 * 908 * convert symbol to table address 909 * 910 cnvsym bce *&005,aop-002&x3, 911 b setsym 912 mcw aoper&x1,w6area#006 913 bce *&5,w6area, 914 b *&8 915 mcw sfxctr,w6area 916 za &2,hold2#002 917 za w6area-2,hold4#004 918 a w6area,hold4 919 a w6area,hold4-002 920 mz nobit,hold4 921 za factor,hold7 922 mpylp mn hold7,hold1 923 za 924 mult bce nxtdgt,hold1,? 925 a hold4,hold7-002 926 s &1,hold1 927 b mult 928 nxtdgt s &1,hold2 929 bwz mpylp,hold2,b 930 mcw @000@,aop&x3 931 bav *&001 932 loop1 a &96,hold7-005 933 bav loop1 934 mz hold7-006,aop&x3 935 mcw hold7-003 936 mn hold7-005,*&004 937 mz zone2,aop-002&x3 938 * 939 * symbolic operand 940 * 941 setsym mcw aoper&x1,fnctn 942 bce *&005,fnctn, 943 b *&008 944 mcw sfxctr,fnctn 945 mcw tabmax,maxadd 946 mcw @0@,swich1 947 mcw aop&x3,xr2 948 mcw serchs,maxser 949 * 950 * table search 951 * 952 srhlop c fnctn,symbol 953 be recall 954 bce undef,symho, 955 bumper a @010@,xr2 956 s @1@,maxser 957 bm undef,maxser 958 c xr2,maxadd 959 bu srhlop 960 bce undef,swich1,1 961 mcw @1@,swich1 962 mcw aop&x3,maxadd 963 s xr2&001 964 b srhlop 965 * 966 * blank operand 967 * 968 setzro s holdar 969 b chradj 970 * 971 * percent operand 972 * 973 percnt mcw aoper-003&x1,aop&x3 974 b mark 975 * 976 * undefined operand 977 * 978 undef bce oprtn,itersw,0 979 mcw @###@,aop&x3 980 b oprtn 981 * 982 * retrieve value from table 983 * 984 recall bce undef,addho, 985 bwz *&5,lblref,2 986 b *&8 987 mz abit,lblref 988 mcw addlo,holdar 989 mcw @0@ 990 bce ioadd,holdar-003,% 991 bwz *&008,holdar-003,2 992 mcw @1@,holdar-4 993 bce tstcnv,typea,6 994 * 995 * add character adjustment 996 * 997 chradj mz holdar-001,holdzn#001 998 bce tstcnv,aopadj-002&x1,x 999 a aopadj&x1,holdar 1000 mz holdzn,holdar-001 1001 tstcnv bm mark,type 1002 bce mark,typea,2 1003 * 1004 * convert five digit address to three digit addr 1005 * 1006 cnvto3 bav *&001 1007 a @96@,holdar-003 1008 bav cnvto3&005 1009 mz holdar-004,holdar 1010 mn holdar-003,*&004 1011 mz zone2,holdar-002 1012 mz holdzn,holdar-001 1013 bce stradd,aindex&x1, 1014 mn aindex&x1,*&004 1015 mz zone,holdar-001 1016 stradd mcw holdar,aop&x3 1017 * 1018 * mark operand processing 1019 * 1020 mark mz abbit,staop&x3 1021 oprtn b xxxx 1022 * 1023 * I/O address in table 1024 * 1025 ioadd mcw holdar-001,aop&x3 1026 b mark 1027 * 1028 * asterisk operand 1029 * 1030 proast bce *&5,aoper&x1, 1031 b cnvsym 1032 bce oprtn,astrsw,1 1033 mcw astadd,holdar 1034 b chradj 1035 * 1036 * actual operand - float to 5 digits 1037 * 1038 float bce cnvsym,aopho&x1,# 1039 bce cnvsym,aopho&x1,@ 1040 bwz *&005,aoper-004&x1,2 1041 b cnvsym 1042 za aoper-001&x1,holdar 1043 reflot bce *&005,holdar,& 1044 b chradj 1045 za holdar-001,holdar 1046 b reflot 1047 * 1048 * process suffix 1049 * 1050 prosfx mcw aopho,sfxctr 1051 b put 1052 * 1053 * initialize pass d 1054 * 1055 passd sw grpmk2-1 1056 rtw dinput,byprd 1057 cw grpmk2-1 1058 cs card&80 1059 sw card&001,card&006 1060 sw card&017,card&024 1061 sw card&028,card&035 1062 sw card&057,card&062 1063 sw card&068,card&071 1064 mcw bumpop,bumper 1065 mcw @6@,tphalt&4 1066 mcw @6@,tphlt2&4 1067 mcw @6@,tphlt3&4 1068 mcw tpad,write2&006 1069 mcw tpad,read2&010 1070 mcw @ @,sfxctr 1071 * 1072 * test last iteration 1073 * 1074 bce lstitr,procsw,0 1075 bce 1076 b read2 1077 lstitr mcw @1@,itersw 1078 b read2 1079 astrsw dcw 0 1080 swich1 dcw @0@ 1081 hold7 dcw @ @ 1082 hold1 dcw &0 1083 itersw dcw @0@ 1084 byprd dcw @ @ 1085 grpmk2 dc @} @ 1086 ssop equ 1900 1087 ltorg* 1088 * 1089 * input/output - pass d 1090 * 1091 org write 1092 write2 wt doutpt,tparea 1093 nop xxxx 1094 ber tperr 1095 brnch2 nop finald 1096 read2 s holda 1097 rt dinput,tparea 1098 b chklgt 1099 ber tperr 1100 b nxtrecd 1101 * 1102 finald wtm doutpt 1103 rwd dinput 1104 rwd doutpt 1105 rtw systpe,333 1106 nop xxxx 1107 ber tperr 1108 cw endovl 1109 mcw bumpop,tstlst 1110 mcw bumpop,not 1111 b tstref 1112 dcw @ @ 1113 endofd dcw @}@ 1114 ex librn 1115 job autocoder-pass 6 print symbol table -version 3 3762l 1116 * 1117 org 333 1118 * 1119 * end of pass d 1120 * 1121 * print list of unreferenced labels 1122 * 1123 tstref cs 0332 1124 cs 1125 s xr3&1 1126 s 1127 s 1128 sw headsw#001 1129 nxtlbl bce tstlst,symho, 1130 bce tstlst,addho, 1131 bce lozng,symho,) 1132 c symho,@A@ 1133 bh doref 1134 c symho,@Z@ 1135 bl doref 1136 mn symho,xr3 1137 bwz swtab,symho,b 1138 a @010@,xr3 1139 bm swtab,symho 1140 a @010@,xr3 1141 swtab sw sortab&x3 1142 s xr3&2 1143 doref bwz *&5,lblref,2 1144 b tstlst 1145 bw newpge,headsw 1146 donext cw headsw 1147 b print 1148 w 1149 cs 216 1150 tstlst a @010@,xr2 1151 c xr2,tabmax 1152 be dump 1153 bcv newpge 1154 b nxtlbl 1155 newpge cc 1 1156 mcw @unreferenced labels@,219 1157 cc t 1158 w 1159 cs 0219 1160 bw donext,headsw 1161 b nxtlbl 1162 lozng sw list-1 1163 b doref 1164 * 1165 * print subroutine for unreferenced labels & symbol tabble 1166 * 1167 print sbr prtxt&3 1168 mcw symbol,206&x1 1169 bce doio,addho,% 1170 mn addlo,212&x1 1171 mn 1172 mn 1173 mn 1174 bwz *&8,addho,2 1175 mcw @1@,208&x1 1176 bwz prtxt,addlo-1,2 1177 mn @1@,215&x1 1178 mcw @&x@ 1179 bwz prtxt,addlo-1,s 1180 mn @2@,215&x1 1181 bwz prtxt,addlo-1,k 1182 mn @3@,215&x1 1183 prtxt b xxxx 1184 doio mcw addlo,212&x1 1185 b prtxt 1186 * 1187 * print symbol table 1188 * 1189 dump b nxtpge 1190 s xr3&1 1191 s 1192 s 1193 nxtctr sw endsw#1 1194 bw scan,sortab&1&x3 1195 bmpxr3 bce tsteoj,sortab&1&x3,@ 1196 a &1,xr3 1197 b nxtctr 1198 scan bce bmpxr3,sortab&1&x3,! 1199 bce bmpxr3,sortab&1&x3,' 1200 bce bmpxr3,sortab&1&x3,/ 1201 mcw sortab&1&x3,tstlbl&7 1202 tstlbl bce dopnt,symho,x 1203 not a @010@,xr2 1204 c xr2,tabmax 1205 bu tstlbl 1206 s xr2&1 1207 s 1208 a &1,xr3 1209 cw endsw 1210 bw pntsym,pntsw 1211 sw pntsw 1212 b tstesw 1213 dopnt bce not,addho, 1214 b print 1215 sw pntsw 1216 a @016@,xr1 1217 c xr1,@128@ 1218 bu not 1219 pntsym w 1220 cw pntsw#1 1221 cs 332 1222 cs 1223 s xr1&1 1224 bw *&9,endsw 1225 bce tsteoj,sortab&1&x3,@ 1226 bcv nxtpge 1227 tstesw bw not,endsw 1228 b nxtctr 1229 nxtpge sbr pgxt&3 1230 cs 332 1231 cs 1232 cc 1 1233 mcw @symbol table@,212 1234 w 1235 cc k 1236 cs 212 1237 pgxt b xxxx 1238 tsteoj bw *&3,headsw 1239 cc 1 12391 cs 332 12392 chain3 1240 bce eojob,itersw,1 1241 * 1242 * get pass c 1243 * 1244 bsp systpe 1245 bsp systpe 1246 mcw @5@,tphalt&4 1247 mcw @5@,tphlt2&4 1248 mcw @5@,tphlt3&4 1249 mcw @00@,procsw 1250 mcw @ @,sfxctr 1251 * 1252 * set number of seeks for table search 1253 * 1254 c totlab,tablsz 1255 mcw tablsz,serchs 1256 s totlab 1257 be rdpssc 1258 bh rdpssc 1259 mcw &0009,serchs 1260 b rdpssc 1261 * 1262 * last iteration, get pass c 1263 * 1264 eojob cw grpmk2-1 1265 cs 3999 1266 bce reade,machsz,3 1267 cs 4799 1268 chain7 12681clr cs 3999 12682 sbr clr&3 12683 c clr&3,&ssop-1 12684 bu clr 1269 reade rtw systpe,ssop 1270 ber syserr 1271 gotoe mcw @n@,ssop 1272 b ssop&1 1273 syserr mcw &9,rdct#1 1274 bsp systpe 1275 retry rtw systpe,ssop 1276 ber again 1277 b gotoe 1278 again bsp systpe 1279 s @1@,rdct 1280 bwz retry,rdct,b 1281 h xxxx,691 1282 rtw systpe,ssop 1283 bss syserr,e 1284 h xxxx,612 1285 b gotoe 1286 list dcw @ abcdefghi!jklmnopqr'/stuvwxyz)@@ 1287 sortab equ list-31 1288 ltorg* 1289 endovl dcw @}@ 1290 ex librn 1291 end librn ---------------- object code --------------------------- ,008015,022026,030037,044,049,053053N000000N00001026 00013751L L068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0?00023751L ,008015,022029,036040,047054,061068,072/061039 ,001001104000033751L CL30L26BX67SAL36L30ML30099MIA7080MM L035Z59,Z32Z37,Z44Z51,Z58Z59104000043751L MMMMMMM L007Z66,Z61Z62,Z63Z64,Z65Z66104000053751L S100SSB114ML30099M080IA7M L025Z91,Z71Z72,Z73Z77,Z84Z91104000063751L MMMMMMM L007Z98,Z93Z94,Z95Z96,Z97Z98104000073751L MBZ25H089H!76YL37089MIZ0!67D!63!43 L034!32,!00!04,!08!12,!19!26104000083751L M!67J76U%U0BBJ49!67WML37L38M%U0000R L035!67,!40!45,!53!60,040040104000093751L B!77LB000D!63!87U%U0BSL39L38V!60L38B L036J03,!73!77,!84!89,!96040104000103751L D!63J17.000590M!67J32M%U0000RB!40E L034J37,J11J18,J25J33,040040104000113751L .000511B!73U%U1EBJ86L405AL39L41M%U0000WL039J76,J45J49,J54J62,J69040104000123751L B!40LB!73SL41D!63K03.000560BJ69H089 L035K11,J82J86,J90J97,K04K08104000133751L HK46YL37089BIY8I31}BBBB L023K34,K16K23,K31K32,K33K34104000143751L BBBBBBB L007K41,K36K37,K38K39,K40K41104000153751L BB000L%U1001RN000B!04L)Y68BS90 L030K71,K43K47,K55K59,K64K68104000163751L L%U6001RN000B!04L)Z24BY13I97L99 L031L02,K80K84,K89K93,K97L00104000173751L V00 015? 080 L024L26,L09L12,L15L19,L23L24104000183751L #000?I188?I A L013L39,L28L32,L35L37,L38L39104000193751L L002L41,040040,040040,040040104000203751L U%U4RU%U5RU%U6R/I99,Q66LQ68L95LQ72L99 L037M36,M05M10,M15M19,M23M30104000213751L LQ76L88L%U1001RN000B!04L)R01ML89Q77 L035M71,M44M52,M56M61,M65040104000223751L AQ78Q77DQ77M89Y109M99LQ66I98VP18M992 L036N07,M79M86,M93N00,040040104000233751L /79Z/39ZMQ79W81BO20L894MQ52L26MQ56L18 L037N44,N12N16,N23N31,N38040104000243751L MQ59L11MQ62L34MQ65Q82AQ84L88BO62L895 L036N80,N52N59,N66N73,040040104000253751L AQ87L18AQ89L88Y113L11Y113L34Y113Q82BO62L039O19,N88N95,O02O09,O16040104000263751L MQ36L26MQ40L18MQ43L11MQ46L34MQ49Q82 L035O54,O27O34,O41O48,040040104000273751L AQ91L88YL34K99MQ82Z54MQ82Z90ML34X73 L035O89,O62O69,O76O83,040040104000283751L ML34X98ML34Q94#Q96Q94MQ94K29MW81L27 L035P24,O97P04,P11P18,040040104000293751L LQ66Z24/080,001006,017024,028035,057062L039P63,P32P36,P43P50,P57040104000303751L ,068071L%U6001WN000B!04L)Z24Q66CL93L18 L038Q01,P71P79,P83P88,P95040104000313751L ML18L99SL93BY13SBY13UMR00L99BY13400 L035Q36,Q09Q13,Q18Q23,Q30Q34104000323751L 051?/0'E9YEIX800087?70! L023Q59,Q41Q44,Q47Q50,Q53Q57104000333751L A9QAIP}00015?0015 C L019Q78,Q63Q67,Q69Q73,Q77Q78104000343751L # 7B40?4?3F L016Q94,Q80Q83,Q85Q88,Q90Q92104000353751L 1C000I} L007R01,Q97R01,040040,040040104000363751L N000000,040040,040040,040040B00000373751L ,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 00383752L ,068072)063067/061039 ,001001104000393752L 2SKB L004113,040040,040040,040040104000403752L 2SKB L004109,040040,040040,040040104000413752L 000 L003089,040040,040040,040040104000423752L 000 L003094,040040,040040,040040104000433752L 000 L003099,040040,040040,040040104000443752L VZ77005KBZ77075%B219075 D075094B8710940L039152,122130,138145,040040104000453752L MY92Y69MY92Y68A094A094B1P9N000B260 L034186,160167,171175,179183104000463752L B260B973B992BZ77B376B295BZ77 L028214,191195,199203,207211104000473752L BZ77MY92Y69B'03B/09VZ770032A007Y48 L034248,219226,230234,242040104000483752L SY93Y48BZ77B283017*MY93Y67B/09BZ77B'03 L038286,256260,268275,279283104000493752L B/09BZ77B361017%A027Y69B260017*V2600172L039325,291295,303310,318040104000503752L V3380012B260BU35MY72S97V/810012B260 L035360,334338,342349,357040104000513752L M019060MY92B260V405033B?061032AY93032 L037397,368372,376384,391040104000523752L Y113033B432Y601CY48Y58B432U?Y48Y58 L034431,405413,420425,040040104000533752L B536008 MY96089MY99S97V4660022B536 L034465,440447,454462,040040104000543752L B502066 BT58BW29BS69Y641BS69Y630B/81 L036501,474478,482490,498040104000553752L B/81Y591B/81Y611MY48066AY93066B474 L034535,510518,525532,040040104000563752L V5480012B761B708017*MY92Y61SY48B735017 L039574,544548,556563,567040104000573752L MY92Y66S090BU35B609Y661MZ01Y60B813 L034608,582586,590598,605040104000583752L M061Y53MY92Y59B635024XB669B655017* L034642,616623,631635,040040104000593752L CY53Z03B669SMZ03Y53AY93Y51AY53032 L033675,650655,662669,040040104000603752L ?Y53061?032Y48SY93Y48Y113001BZ77 L032707,683690,697704,040040104000613752L BZ77Y591B598Y611MY48Y53B616B598Y601 L035742,716724,731735,040040104000623752L MY58Y53AY93Y53B616?032Y48SY93Y48 L032774,750757,761768,040040104000633752L B821017*MY92Y61V8060172V609001KMY92Y59 L038812,783790,798806,040040104000643752L SY53BZ77BZ77024XVZ77034BAY53032BZ77Y591L039851,817821,829837,844040104000653752L BZ77Y611Y113034B761B9260750B910Y671 L035886,860867,871879,040040104000663752L C061066B906TMY96099B'03BZ77075'B/09BZ77L039925,894899,906910,918922104000673752L MY92Y69A027Y69MY93Y68MY92Y67B887017* L036961,933940,947954,040040104000683752L MY93Y67B910VZ77075BMZ04X84BX67M017L23 L037998,969973,981988,992040104000693752L BZ77H'89MY92Y67V'90002KV'86003BB'86Y591L039'37,'03'07,'14'22,'30040104000703752L AY53061AY53066CY480F1B'71T?0F1Y48 L033'70,'45'52,'59'64,040040104000713752L B'86Y611Y113003B000MY72S97BT25075/B'22 L038/08,'79'86,'90'97,/05040104000723752L HS97V/250022BS94BS80008 B/57Y671 L032/40,/13/21,/25/33,040040104000733752L BS07Y611BS07Y591BT58BW29BS98Y641 L032/72,/49/57,/61/65,040040104000743752L BS69Y630MY93L94AY93L93BS50075/BS94 L034S06,/81/88,/95S03,040040104000753752L B/81008$BT58BW29B/81Y640B/81M!0 Y112002L039S45,S15S19,S23S31,S39040104000763752L BS94BS94008$MZ01Y61BS94LL08M!9LZ12 L034S79,S50S58,S65S69,S76040104000773752L Y113002MY93L95B000BS69M!0 Y112002 L033T12,S87S94,S98T06,040040104000783752L BT25075/BS94VS94004BMZ05075S007Y53 L034T46,T21T25,T33T40,040040104000793752L S007Y48BS94HU34M013L08M056Z08BT88L08 L037T83,T54T58,T62T69,T76040104000803752L BT95ML23L08M0W1Z12BU170V70Y111Z09 L033U16,T88T95,U02U10,040040104000813752L DY69U27Y113Z11B000HU87MZ15U34M022L08 L036U52,U24U31,U35U39,U46040104000823752L M070Z08BT76BW29BV03Y641BU88Y630B000 L035U87,U60U64,U68U76,U84040104000833752L LL08M!9LZ19BU84BU84M!0 MY93Y66VV30M!12 L038V25,U95U99,V03V11,V18040104000843752L BV37Y111M!1MM!3061BW18058%VV670582 L034V59,V30V37,V44V52,040040104000853752L MY93057BU84075OY060Z20A026061YZ20060 L036V95,V67V75,V82V89,040040104000863752L BW18027 DY69W14Y113060Y113001BU84HX66 L037W32,W04W11,W18W25,W29040104000873752L MY65Y64ML11L14MZ08094ML99L22CL08M!9 L035W67,W40W47,W54W61,040040104000883752L BX45SBX63M!4 AZ23094SY93L22VX56L22K L035X02,W73W81,W88W95,040040104000893752L C094L14BW61/BX56Y621MY93Y62MZ08L14S095 L038X40,X10X15,X23X30,X37040104000903752L BW61MY93Y64BX63MY93Y63B000M%U6I18WN000 L038X78,X45X52,X56X63,X67X75104000913752L B!04LNY73SL31M%U5I18RBK08B!04LBZ37 L034Y12,X84X88,X92Y00,Y04Y09104000923752L MK99Y23/000HY23CY23L02BY20/BX880000? L036Y48,Y20Y24,Y28Y35,Y40Y44104000933752L 0000?0000?0000000000 L020Y68,Y54Y59,Y62Y66,Y67Y68104000943752L 0Z77U%U6MU%U5RU%U6RBK470 L024Y92,Y70Y73,Y78Y83,Y88Y92104000953752L 1005536110?B% L013Z05,Y94Y97,Z00Z02,Z04Z05104000963752L U64 010} L019Z24,Z09Z13,Z16Z20,Z21Z24104000973752L N000000,040040,040040,040040B00000983752L ,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 00993761L ,068072)063067/061039 ,001001104001003761L 000000000000000 L015101,092097,040040,040040104001013761L 2SKB2SKBMU32U18VZ77005KBZ77075%D075U33 L038143,110114,121129,137040104001023761L B196U33 B318U332B446U333BS79U334 L032175,152160,168040,040040104001033761L B489U336B489U337BZ77V2080032B215MU34U18L039214,184192,196204,208040104001043761L ?061U39A007U39SU34U39BZ770071BZ770072 L037251,222229,236244,040040104001053761L V2640012B268B578BZ770074BZ770075 L032283,260264,268276,040040104001063761L V2960042BZ77MU42099MU45089B578BZ77 L034317,292296,303310,314040104001073761L V3300032B434MU34U18?061U39MU42099 L033350,326330,337344,040040104001083761L MU45089V3700042BZ77B578VZ770042B409027-L039389,358366,370374,382040104001093761L MU48/78BZ77071%B'94MU53L07SU58L07 L033422,397405,409416,040040104001103761L ?L07U58B390V3370042BZ77SU39V4620012B466L039461,430434,442446,450458104001113761L B578B4780753BZ77MU59X84BZ77V5010012B574L039500,466474,478485,489497104001123761L B574017 V5740172B574017*B574017%B578 L036536,509517,525533,040040104001133761L V5740012MU32U28B567U337Y112001MU58061 L037573,545552,560567,040040104001143761L BZ77H/78V5940?12B/75B9420/7 B9500/7% L036609,578582,590594,602040104001153761L VS210/72B/900/7*B6380F8 B804M0S2U65 L035644,618626,634638,040040104001163761L B657U65 B664ML23U65?U66U68?U63U72 L033677,653657,664671,040040104001173761L AU65U72AU65U70Y110U72?L88U26DU26U27? L036713,685692,699706,713040104001183761L B740U27?AU72U24SU73U27B714SU73U68 L033746,722729,736740,040040104001193761L V706U68BMU760G0B767ZAU78U21B767ZYU200G0L039785,755762,767774,779040104001203761L MU23DU21800Y1090F8M0S2L08B823L08 B830 L037822,790797,804811,819040104001213761L ML23L08ML11L14MU32U19M0G0094ML99L22 L035857,830837,844851,040040104001223761L CL08M!9B980SB961M!4 AU81094SU34L22 L034891,865870,878885,040040104001233761L V961L22KC094L14B858/B961U191MU34U19 L035926,900907,912920,040040104001243761L M0G0L14S095B858SU58B'49M0/90G0B/68 L034960,934938,942946,950957104001253761L B/75U280MU840G0B/75B961M!0 V'00M!12B'07L039999,969976,980988,996040104001263761L Y111M!1MM!3U58MU32B/79U55%V'41U552 L034'33,'07'14,'18'26,040040104001273761L MU34U54B'78U336YU57U85B'780S4XA0S6U58 L037'70,'41'49,'56'64,040040104001283761L YU85U57V/68075KB/68U332B'99ZAU87U55 L035/05,'78'86,'94'99,040040104001293761L B'99ZYU54U58DU55/28Y109U56YU85U57 L033/38,/11/18,/25/32,040040104001303761L B/610S7 D0S7/57Y113U57MU580G0Y1130?1 L036/74,/47/54,/61/68,040040104001313761L B000MU570G0B/68BS020S2 B626B/75U181 L035S09,/79/86,/90/98,S02040104001323761L MU39U58B'49B6260/7#B6260/7@VS490/82B626L039S48,S17S21,S29S37,S45040104001333761L ?0S1U58BS68U58&B'49?U57U58BS56M017L23 L037S85,S56S64,S68S75,S79040104001343761L BZ77,U30L%U6U29R)U30/080,001006,017024 L038T23,S90S94,T02T06,T10T17104001353761L ,028035,057062,068071ML27878MU88J15 L035T58,T31T38,T45T52,040040104001363761L MU88K01MU88J42ML34X73ML34X98MU89L23 L035T93,T66T73,T80T87,040040104001373761L BU07L950BBX88MU34U28BX8800 L026U19,U02U03,U07U14,U18U19104001383761L ?0 } 0 1 L015U34,U27U28,U29U32,U33U34104001393761L 003011Z771600? B L025U59,U40U43,U46U49,U54U59104001403761L B A0009F L019U78,U66U67,U69U73,U74U77104001413761L 010### 966 L011U89,U82U85,U86U88,U89040104001423761L M%U5I18WN000B!04LNY13SL31M%U6I18RBK08 L037Y03,X75X79,X84X88,X92Y00104001433761L B!04LBZ37U%U5MU%U6RU%U5RL%U1333RN000 L036Y39,Y09Y13,Y18Y23,Y28Y36104001443761L B!04L)S45ML27474ML27726B333 } L029Y68,Y45Y49,Y56Y63,Y67Y68104001453761L N000000,040040,040040,040040B00001463761L ,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 01473762L ,068072)063067/061039 ,001001104001483762L /332/S100SS,/80B474M!4 L023355,337338,342343,344348104001493762L B474M!0 B530M!4)CM!4/81B441UCM!4/82 L035390,364372,379384,040040104001503762L B441TDM!4099V433M!4BA/85099V433M!4K L035425,396403,411418,040040104001513762L A/85099,/D8S101V453M!12B474V502/801)/80L039464,433437,441449,453461104001523762L B5382/216A/85094C094L11B646SB502@ L033497,469470,474481,488493104001533762L B348F1MS04219FT2/219V461/801 L028525,502504,511513,514518104001543762L B348,/78B441H634MM!92'6B635M!0%DM!32/2 L038563,530534,538542,549557104001553762L DDDV582M!02MS052'8V631M!22DS052/5 L033596,565566,567575,582590104001563762L MS07V631M!2SDS082/5V631M!2KDS092/5B000 L038634,601609,616624,631040104001573762L MM!32/2B631B859S100SS,S10 L025659,642646,650654,655656104001583762L V687/D91B888/D9@AS11099B656B668/D9! L035694,668676,683687,040040104001593762L B668/D9'B668/D9/M/D9725B777M!4XA/85094 L038732,703711,718726,040040104001603762L C094L11B718/S095SAS11099)S10V812S181 L036768,740745,749750,757761104001613762L ,S18B847B726M!0 B538,S18AS14089C089S17 L038806,773777,785789,793800104001623762L B726/2)S18/332/S090V842S101 L027833,812813,817821,822826104001633762L B888/D9@B859@V726S101B656H887/332/ L034867,842847,855859,863867104001643762L F1MS302122FK/212B000V898/801 L028895,870877,878880,884888104001653762L F1/332///B997U281U%U1B L022917,898902,903904,905913104001663762L U%U1BMS31J15MS31K01MS31J42MS33L95 L033950,923930,937944,040040104001673762L MS34L23CL93L18ML18L99SL93BK72SBK72U L035985,958965,972976,981040104001683762L MS38L99BK72)U30/I99B'44L893/79Z/ L032'17,993997,'01'05,'13'17104001693762L ///////I99 L010'27,'19'20,'21'22,'23'24104001703762L H'27C'27S41B'24/L%U1Z00RB'68LMS42Z00 L036'63,'32'39,'44'52,'57040104001713762L BZ01MS43S44U%U1BL%U1Z00RB'97LB'57U%U1B L038/01,'68'75,'80'88,'93'97104001723762L SS05S44V'80S44B.000691L%U1Z00RB'68E L035/36,/09/17,/24/32,040040104001733762L .000612B'57 L011/47,/44040,040040,040040104001743762L ABCDEFGHI!JKLMNOPQR'/STUVWXYZ)@ AZ010 L038/85,/80/81,/82/83,040040104001753762L UNREFERENCED LABELS1&X23 A L026S11,S05S06,S08S09,S10S11104001763762L 016128 SYMBOL TABLE500 L023S34,S15S18,S19S31,S32S34104001773762L 000IY99NI } L011S45,S39S42,S43S44,S45040104001783762L N000000,040040,040040,040040B00001793762L ,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 01803762L ,068072)063067/061039 ,001001104001813762L /000080 01823762L