CLEAR STORAGE 1 ,008015,022026,030037,044,049,053053N000000N00001026 1 CLEAR STORAGE 2 L068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0? 2 BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 1401 AUTOCODER-PASS 7-LIST,CONDNS-INITL 1 -VERSION 3 3771L PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 1 01 000 JOB 1401 AUTOCODER-PASS 7-LIST,CONDNS-INITL 1 -VERSION 3 102 1 02 CTL 630 1 103 1 03 * 104 1 04 * EQUATERS USED BY THE PROGRAM 105 1 05 * 106 1 06 INITAP EQU %U0 %U0 107 1 07 SYSTAP EQU %U1 %U1 108 1 08 ORIGTP EQU %U4 %U4 109 1 09 WORKTP EQU %U5 %U5 110 1 10 XTRATP EQU %U6 %U6 111 1 11 FIXFRM EQU 0 0000 112 1 12 STLABL EQU FIXFRM&2 0002 113 1 13 STSTMT EQU FIXFRM&5 0005 114 1 14 COUNT EQU FIXFRM&7 0007 115 1 15 ORGADD EQU FIXFRM&32 0032 116 1 16 LABADD EQU FIXFRM&61 0061 117 1 17 SUPADD EQU FIXFRM&66 0066 118 1 18 OP EQU FIXFRM&67 0067 119 1 19 AOP EQU FIXFRM&70 0070 120 1 20 BOP EQU FIXFRM&73 0073 121 1 21 DMOD EQU FIXFRM&74 0074 122 1 22 TYPE EQU FIXFRM&75 0075 123 1 23 ALTER EQU FIXFRM&80 0080 124 1 24 XXXX EQU 0 0000 125 1 25 PRINT EQU 200 0200 126 1 26 ALT EQU PRINT&4 0204 127 1 27 PG EQU PRINT&7 0207 128 1 28 LIN EQU PRINT&11 0211 129 1 29 LAB EQU PRINT&19 0219 130 1 30 OPCODE EQU PRINT&25 0225 131 1 31 OPRAND EQU PRINT&78 0278 132 1 32 SUFFIX EQU PRINT&80 0280 133 1 33 CT EQU PRINT&84 0284 134 1 34 LOCN EQU PRINT&90 0290 135 1 35 INOP EQU PRINT&93 0293 136 1 36 INAOP EQU PRINT&97 0297 137 1 37 INBOP EQU PRINT&101 0301 138 1 38 INDMOD EQU PRINT&103 0303 139 1 39 KIND EQU PRINT&109 0309 140 1 40 CARDNO EQU PRINT&114 0314 141 1 41 PUNCH EQU 100 0100 142 1 42 LIBRN EQU 0 0000 143 1 43 ZONE EQU 189 0189 144 1 44 XR1 EQU 89 0089 145 1 45 XR2 EQU 94 0094 146 1 46 XR3 EQU 99 0099 147 1 47 * 1 1401 AUTOCODER-PASS 7-LIST,CONDNS-INITL 1 -VERSION 3 3771L PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 1 48 * INITIALIZATION ROUTINE 149 1 49 * 150 1 50 ORG 1900 1900 151 1 51 SSOP DCW @B@ 1 1900 4 152 1 52 CS 332 4 1901 / 332 4 153 1 53 CS 1 1905 / 4 154 1 54 CS 1 1906 / 4 155 1 55 CS 1 1907 / 4 156 1 56 RTW SYSTAP,400 8 1908 L %U1 400 R 4 157 1 57 NOP XXXX 4 1916 N 000 4 158 1 58 BER TPERRI 5 1920 B M03 L 5 159 1 59 CW ENDIN2,LSTOP1 7 1925 ) X99 O93 5 160 1 60 SW ENDIN 4 1932 , I98 5 161 1 61 LCA ENDIN,333 7 1936 L I98 333 5 162 1 62 LCA ENDIN,181 7 1943 L I98 181 5 163 1 63 MCW SSOP,TSTSIZ 7 1950 M Z00 407 5 164 1 64 MCW SSOP,SSAVE1 7 1957 M Z00 O91 6 165 1 65 CW ENDIN 4 1964 ) I98 6 166 1 66 RWD ORIGTP 5 1968 U %U4 R 6 167 1 67 RWD WORKTP 5 1973 U %U5 R 6 168 1 68 RWD XTRATP 5 1978 U %U6 R 6 169 1 69 SW PUNCH&72,PUNCH&76 7 1983 , 172 176 6 170 1 70 A &1,PUNCH&75 7 1990 A O96 175 7 171 1 71 B READ4 4 1997 B T15 7 172 1 72 * 173 1 73 * CHECK FOR JOB CARD 174 1 74 * 175 1 75 C MNEMON-2,@JOB@ 7 2001 C H48 O99 7 176 1 76 BU CKCTL 5 2008 B !78 / 7 177 1 77 CW JOBSW#1 4 2013 ) P00 7 178 1 78 RT WORKTP,180 8 2017 M %U5 180 R 7 179 1 79 LCA 333,181 7 2025 L 333 181 8 180 1 80 MCW OPERND,JOBSAV 7 2032 M I02 O85 8 181 1 81 MCW IMAGE&80,PUNCH&80 7 2039 M I10 180 8 182 1 82 MCW ALTNO,JOBALT#4 7 2046 M I14 P04 8 183 1 83 MCW PAGENO,JOBPAG#2 7 2053 M H32 P06 8 184 1 84 MCW LINENO,JOBLIN#3 7 2060 M H35 P09 9 185 1 85 MCW LABEL,JOBLAB#6 7 2067 M H41 P15 9 186 1 86 B READ4 4 2074 B T15 9 187 1 87 * 188 1 88 * CHECK FOR CONTROL CARD 189 1 89 * 190 1 90 CKCTL C MNEMON-2,@CTL@ 7 2078 C H48 P18 9 191 1 91 BU TSTSIZ 5 2085 B 407 / 9 192 1 92 CW CTLSW#1 4 2090 ) P19 9 193 1 93 MCW IMAGE&30,CTLSAV#10 7 2094 M H60 P29 10 194 1 94 MCW ALTNO,CTLALT#4 7 2101 M I14 P33 10 195 1 95 MCW PAGENO,CTLPAG#2 7 2108 M H32 P35 10 196 1 96 MCW LINENO,CTLLIN#3 7 2115 M H35 P38 10 197 1 97 B READ4 4 2122 B T15 10 1 1401 AUTOCODER-PASS 7-LIST,CONDNS-INITL 1 -VERSION 3 3771L PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 1 98 * 199 1 99 * TEST OUTPUT OPTIONS DESIRED 200 2 00 * 201 2 01 CHKOP BCE OPNTAP,LSTAPE,1 8 2126 B K14 P24 1 11 202 2 02 TSTOP BCE TSTSIZ,OUTOPN,0 8 2134 B 407 P22 0 11 203 2 03 BCE CONDOP,OUTOPN,1 8 2142 B 400 P22 1 11 204 2 04 BCE TSTSIZ,OUTOPN,2 8 2150 B 407 P22 2 11 205 2 05 BCE CONDOP,OUTOPN,3 8 2158 B 400 P22 3 12 206 2 06 BCE TSTSIZ,OUTOPN,4 8 2166 B 407 P22 4 12 207 2 07 BCE CONDOP,OUTOPN,5 8 2174 B 400 P22 5 12 208 2 08 BCE TSTSIZ,OUTOPN,6 8 2182 B 407 P22 6 12 209 2 09 BCE CONDOP,OUTOPN,7 8 2190 B 400 P22 7 13 210 2 10 BCE TSTSIZ,OUTOPN, 8 2198 B 407 P22 13 211 2 11 CW CTLSW1#1 4 2206 ) P39 13 212 2 12 B TSTSIZ 4 2210 B 407 13 213 2 13 OPNTAP CW TAPOP1 4 2214 ) O92 13 214 2 14 B TSTOP 4 2218 B J34 13 215 2 15 * 216 2 16 * SETUP & GET MAIN PROGRAM 217 2 17 * 218 2 18 GETMAN BSP ORIGTP 5 2222 U %U4 B 13 219 2 19 SW FIXFRM&1,FIXFRM&6 7 2227 , 001 006 14 220 2 20 SW FIXFRM&8,FIXFRM&14 7 2234 , 008 014 14 221 2 21 SW FIXFRM&23,FIXFRM&57 7 2241 , 023 057 14 222 2 22 SW FIXFRM&62,FIXFRM&67 7 2248 , 062 067 14 223 2 23 SW FIXFRM&68,FIXFRM&71 7 2255 , 068 071 14 224 2 24 SW FIXFRM&74 4 2262 , 074 14 225 2 25 CW 181,333 7 2266 ) 181 333 15 226 2 26 MCW KBLK1,HOLDA1-1 7 2273 M O27 O23 15 227 2 27 LCA @L0 , , , 1 @,PUNCH&71 7 2280 L P71 171 15 228 2 28 LCA @2SKB@,ZONE 7 2287 L P75 189 15 229 2 29 LCA @00000@,XR3&2 7 2294 L P80 101 15 230 2 30 LCA XR3&2 4 2301 L 101 15 231 2 31 LCA 1 2305 L 16 232 2 32 SW GRPMK3 4 2306 , O95 16 233 2 33 BCE SETOUT,CNDSW1,1 8 2310 B L49 O33 1 16 234 2 34 BW *&5,LSTOP1 8 2318 V L30 O93 1 16 235 2 35 B SETOUT 4 2326 B L49 16 236 2 36 BW *&5,TAPOP1 8 2330 V L42 O92 1 16 237 2 37 B SETOUT 4 2338 B L49 16 238 2 38 MCW @1@,NOOUT1 7 2342 M P81 O94 17 239 2 39 SETOUT MCW OUTOPN,OPNSV1 7 2349 M P22 O90 17 240 2 40 WTW XTRATP,SAVCN1 8 2356 L %U6 O21 W 17 241 2 41 NOP XXXX 4 2364 N 000 17 242 2 42 BER TPERRI 5 2368 B M03 L 17 243 2 43 RWD XTRATP 5 2373 U %U6 R 17 244 2 44 CW GRPMK3 4 2378 ) O95 18 245 2 45 RTW SYSTAP,201 8 2382 L %U1 201 R 18 246 2 46 NOP XXXX 4 2390 N 000 18 247 2 47 BER TPERRI 5 2394 B M03 L 18 1 1401 AUTOCODER-PASS 7-LIST,CONDNS-INITL 1 -VERSION 3 3771L PAGE 4 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 248 2 48 B INIT2 4 2399 B 201 18 249 2 49 * 250 2 50 * TAPE REDUNDANCY ROUTINE 251 2 51 * 252 2 52 TPERRI SBR XR2 4 2403 H 094 18 253 2 53 SBR REDXI&3 4 2407 H M75 18 254 2 54 MZ &9,XR2 7 2411 Y P82 094 19 255 2 55 MCW 4000-10&X2,TPINSI&7 7 2418 M IR0 M66 19 256 2 56 MN TPINSI&3,BSPI&3 7 2425 D M62 M42 19 257 2 57 MCW TPINSI&7,INST2I&7 7 2432 M M66 N75 19 258 2 58 BSPI BSP INITAP 5 2439 U %U0 B 19 259 2 59 BCE WRTRDI,TPINSI&7,W 8 2444 B N48 M66 W 20 260 2 60 MCW &9,READCI#1 7 2452 M P82 P83 20 261 2 61 TPINSI RT INITAP,XXXX 8 2459 M %U0 000 R 20 262 2 62 BER RDRERI 5 2467 B M76 L 20 263 2 63 REDXI B XXXX 4 2472 B 000 20 264 2 64 RDRERI MN TPINSI&3,BSP2I&3 7 2476 D M62 M86 20 265 2 65 BSP2I BSP INITAP 5 2483 U %U0 B 21 266 2 66 S &1,READCI 7 2488 S O96 P83 21 267 2 67 BWZ TPINSI,READCI,B 8 2495 V M59 P83 B 21 268 2 68 MN TPINSI&3,TPHALI&6 7 2503 D M62 N16 21 269 2 69 TPHALI H XXXX,790 7 2510 . 000 790 21 270 2 70 MCW TPINSI&7,*&8 7 2517 M M66 N31 22 271 2 71 RT INITAP,XXXX 8 2524 M %U0 000 R 22 272 2 72 BSS BSPI,E 5 2532 B M39 E 22 273 2 73 H XXXX,711 7 2537 . 000 711 22 274 2 74 B REDXI 4 2544 B M72 22 275 2 75 WRTRDI SKP SYSTAP 5 2548 U %U1 E 22 276 2 76 BCE SUBCTI,WRTCTI-1,5 8 2553 B N85 P84 5 23 277 2 77 A &1,WRTCTI#2 7 2561 A O96 P85 23 278 2 78 INST2I WT INITAP,XXXX 8 2568 M %U0 000 W 23 279 2 79 BER BSPI 5 2576 B M39 L 23 280 2 80 B REDXI 4 2581 B M72 23 281 2 81 SUBCTI S WRTCTI 4 2585 S P85 23 282 2 82 MN TPINSI&3,*&7 7 2589 D M62 O02 24 283 2 83 H XXXX,760 7 2596 . 000 760 24 284 2 84 B INST2I 4 2603 B N68 24 285 2 85 CLRLEG DCW @CLEAR STORAGE @ 14 2620 24 286 2 86 HOLDA1 DCW &0000 4 2624 24 287 2 87 KBLK1 DCW @080@ 3 2627 24 288 2 88 CORSIZ DCW @ 3999@ 5 2632 25 289 2 89 CNDSW1 DCW @0@ 1 2633 25 290 2 90 JOBSAV DCW #52 52 2685 27 291 2 91 ERRCT1 DCW @0000@ 4 2689 27 292 2 92 OPNSV1 DCW @ @ 1 2690 27 293 2 93 SSAVE1 DCW @ @ 1 2691 27 294 2 94 TAPOP1 DCW @ @ 1 2692 27 295 2 95 LSTOP1 DCW @ @ 1 2693 28 296 2 96 NOOUT1 DCW @ @ 1 2694 28 297 2 97 GRPMK3 DC @}@ 1 2695 GMARK 28 1 1401 AUTOCODER-PASS 7-LIST,CONDNS-INITL 1 -VERSION 3 3771L PAGE 5 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 298 2 98 SAVCN1 EQU HOLDA1-3 2621 299 2 99 LTORG * 2696 DCW &1 1 2696 LIT 28 DCW @JOB@ 3 2699 LIT 28 JOBSW DCW #01 1 2700 AREA 28 JOBALT DCW #04 4 2704 AREA 28 JOBPAG DCW #02 2 2706 AREA 28 JOBLIN DCW #03 3 2709 AREA 29 JOBLAB DCW #06 6 2715 AREA 29 DCW @CTL@ 3 2718 LIT 29 CTLSW DCW #01 1 2719 AREA 29 CTLSAV DCW #10 10 2729 AREA 29 CTLALT DCW #04 4 2733 AREA 29 CTLPAG DCW #02 2 2735 AREA 29 CTLLIN DCW #03 3 2738 AREA 30 CTLSW1 DCW #01 1 2739 AREA 30 DCW @L0 , , , 1 @ 32 2771 LIT 30 DCW @2SKB@ 4 2775 LIT 31 DCW @00000@ 5 2780 LIT 31 DCW @1@ 1 2781 LIT 31 DCW &9 1 2782 LIT 31 READCI DCW #01 1 2783 AREA 31 WRTCTI DCW #02 2 2785 AREA 31 300 3 00 ORG 3831 3831 301 3 01 INPUT4 DA 1X86 3831 3916 302 3 02 PAGENO 1,2 3832 FIELD 303 3 03 LINENO 3,5 3835 FIELD 304 3 04 LABEL 6,11 3841 FIELD 305 3 05 MNEMON 16,20 3850 FIELD 306 3 06 OPERND 21,72 3902 FIELD 307 3 07 ALTNO 81,84 3914 FIELD 308 3 08 IMAGE EQU INPUT4-1 3830 309 3 09 FIXINP EQU IMAGE&87&X3 3917 X 310 3 10 INPUT5 EQU FIXINP&1&X0 3918 311 3 11 PROSIZ EQU CTLSAV-9 2720 312 3 12 OBJSIZ EQU CTLSAV-8 2721 313 3 13 OUTOPN EQU CTLSAV-7 2722 314 3 14 LSTAPE EQU CTLSAV-5 2724 315 3 15 ENDIN EQU 3998 3998 316 3 16 3998 DCW @}@ 1 3998 GMARK 33 317 3 17 XFR LIBRN B 000 34 1 1401 AUTOCODER-PASS 7-LIST,CONDNS-INITL 2 -VERSION 3 3772L PAGE 6 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 318 3 18 JOB 1401 AUTOCODER-PASS 7-LIST,CONDNS-INITL 2 -VERSION 3 319 3 19 ORG 400 0400 320 3 20 * 321 3 21 * CONDENSE OPTION 322 3 22 * 323 3 23 CONDOP MCW @1@,CNDSW1 7 0400 M T64 O33 37 324 3 24 * 325 3 25 * TEST OBJECT MACHINE SIZE 326 3 26 * 327 3 27 TSTSIZ BSS SENSW,F 5 0407 B /03 F 37 328 3 28 BW *&3,LSTOP1 8 0412 V 422 O93 1 37 329 3 29 CC 1 2 0420 F 1 37 330 3 30 MCW @1@,PRINT&15 7 0422 M T64 215 37 331 3 31 MCW CLRLEG 4 0429 M O20 37 332 3 32 MCW @1@,200 7 0433 M T64 200 38 333 3 33 BW IS4K,CTLSW 8 0440 V 544 P19 1 38 334 3 34 C OBJSIZ,@3@ 7 0448 C P21 T65 38 335 3 35 BL OVER4K 5 0455 B 464 T 38 336 3 36 B IS4K 4 0460 B 544 38 337 3 37 OVER4K C OBJSIZ,@6@ 7 0464 C P21 T66 38 338 3 38 BL BADCTL 5 0471 B 540 T 39 339 3 39 MCW @,053053N000000N00001026@,PUNCH&52 7 0476 M T89 152 39 340 3 40 LCA @,008015,022026,030037,044,049@ 4 0483 L U18 39 341 3 41 MCW PUNCH&52,PRINT&72 7 0487 M 152 272 39 342 3 42 B PRTPNH 4 0494 B S17 39 343 3 43 MCW @1,001/001117I0?@,PUNCH&71 7 0498 M U33 171 39 344 3 44 MCW @#071029C029056B026/B001/099@ 4 0505 M U60 39 345 3 45 LCA @L068116,105106,110117B101/I9I@ 4 0509 L U89 40 346 3 46 BCE IS8K,OBJSIZ,4 8 0513 B 651 P21 4 40 347 3 47 BCE IS12K,OBJSIZ,5 8 0521 B 669 P21 5 40 348 3 48 MCW @15@,CORSIZ-3 7 0529 M U91 O29 40 349 3 49 B CLRST2 4 0536 B 683 40 350 3 50 BADCTL CW CTLSW1 4 0540 ) P39 40 351 3 51 IS4K MCW @,0570571026@,PUNCH&44 7 0544 M V02 144 41 352 3 52 LCA @,008015,019026,030,034041,045,053@ 4 0551 L V35 41 353 3 53 MCW PUNCH&44,PRINT&64 7 0555 M 144 264 41 354 3 54 B PRTPNH 4 0562 B S17 41 355 3 55 MCW @B0010270B0261,001/001113I0@,PUNCH&70 7 0566 M V61 170 41 356 3 56 LCA @L068112,102106,113/101099/I99,027A070028)027@ 4 0573 L W05 41 357 3 57 BCE CLRST2,OBJSIZ,3 8 0577 B 683 P21 3 42 358 3 58 MZ @S@,PUNCH&27 7 0585 Y W06 127 42 359 3 59 MCW @1@,CORSIZ-3 7 0592 M T64 O29 42 360 3 60 BCE CLRST2,OBJSIZ,2 8 0599 B 683 P21 2 42 361 3 61 MCW @T@,PUNCH&27 7 0607 M W07 127 42 362 3 62 MCW @3@,CORSIZ-2 7 0614 M T65 O30 43 363 3 63 BCE CLRST2,OBJSIZ,1 8 0621 B 683 P21 1 43 364 3 64 CW CTLSW1 4 0629 ) P39 43 365 3 65 MCW @I@,PUNCH&27 7 0633 M W08 127 43 366 3 66 MCW @39@,CORSIZ-2 7 0640 M W10 O30 43 367 3 67 B CLRST2 4 0647 B 683 43 1 1401 AUTOCODER-PASS 7-LIST,CONDNS-INITL 2 -VERSION 3 3772L PAGE 7 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 368 3 68 IS8K MZ @S@,PUNCH&29 7 0651 Y W06 129 44 369 3 69 MCW @7@,CORSIZ-3 7 0658 M W11 O29 44 370 3 70 B CLRST2 4 0665 B 683 44 371 3 71 IS12K MZ @K@,PUNCH&29 7 0669 Y W12 129 44 372 3 72 MCW @11@,CORSIZ-3 7 0676 M W14 O29 44 373 3 73 CLRST2 MCW PUNCH&71,PRINT&91 7 0683 M 171 291 44 374 3 74 MCW @2@,PRINT&15 7 0690 M W15 215 45 375 3 75 MCW CLRLEG 4 0697 M O20 45 376 3 76 B PRTPNH 4 0701 B S17 45 377 3 77 MCW @,0010011040@,PUNCH&71 7 0705 M W26 171 45 378 3 78 MCW @,061068,072/061039@,PUNCH&46 7 0712 M W44 146 45 379 3 79 LCA @,008015,022029,036040,047054@ 4 0719 L W72 45 380 3 80 MCW PUNCH&71,PRINT&91 7 0723 M 171 291 46 381 3 81 MCW @BOOTSTRAP@,PRINT&9 7 0730 M W81 209 46 382 3 82 B PRTPNH 4 0737 B S17 46 383 3 83 BW *&3,LSTOP1 8 0741 V 751 O93 1 46 384 3 84 CC K 2 0749 F K 46 385 3 85 BW DOHEAD,CTLSW 8 0751 V 818 P19 1 46 386 3 86 * 387 3 87 * TEST PROCESSOR MACHINE SIZE 388 3 88 * 389 3 89 C PROSIZ,@3@ 7 0759 C P20 T65 47 390 3 90 BE DOHEAD 5 0766 B 818 S 47 391 3 91 BH BADPRO 5 0771 B 814 U 47 392 3 92 C PROSIZ,@6@ 7 0776 C P20 T66 47 393 3 93 BL BADPRO 5 0783 B 814 T 47 394 3 94 MCW @400@,KBLK1 7 0788 M W84 O27 47 395 3 95 BCE DOHEAD,PROSIZ,4 8 0795 B 818 P20 4 48 396 3 96 A @400@,KBLK1 7 0803 A W84 O27 48 397 3 97 B DOHEAD 4 0810 B 818 48 398 3 98 BADPRO CW CTLSW1 4 0814 ) P39 48 399 3 99 * 400 4 00 * PRINT HEADING, JOB & CONTROL CARDS 401 4 01 * 402 4 02 DOHEAD MCW @1@,PRINT&114 7 0818 M T64 314 48 403 4 03 MCW @PAGE@,PRINT&109 7 0825 M W88 309 48 404 4 04 MCW JOBSAV,OPRAND 7 0832 M O85 278 49 405 4 05 MCW PUNCH&80,LOCN 7 0839 M 180 290 49 406 4 06 MCW @0@,200 7 0846 M W89 200 49 407 4 07 B PRINT2 4 0853 B '61 49 408 4 08 BW *&3,LSTOP1 8 0857 V 867 O93 1 49 409 4 09 CC K 2 0865 F K 49 410 4 10 CS PRINT&78 4 0867 / 278 49 411 4 11 MCW @SFX CT LOCN INSTRUCTION TYPE CARD@,PRINT&114 7 0871 M X25 314 50 412 4 12 MCW @SEQ PG LIN LABEL OP OPERANDS@,PRINT&34 7 0878 M X58 234 50 413 4 13 MCW @0@,200 7 0885 M W89 200 50 414 4 14 B PRINT2 4 0892 B '61 50 415 4 15 CS PRINT&132 4 0896 / 332 50 416 4 16 CS 1 0900 / 50 417 4 17 B PRINT2 4 0901 B '61 50 1 1401 AUTOCODER-PASS 7-LIST,CONDNS-INITL 2 -VERSION 3 3772L PAGE 8 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 418 4 18 BW TSTCTL,JOBSW 8 0905 V 970 P00 1 51 419 4 19 MCS JOBALT,ALT 7 0913 Z P04 204 51 420 4 20 MCS JOBPAG,PG 7 0920 Z P06 207 51 421 4 21 MZ JOBPAG,PG 7 0927 Y P06 207 51 422 4 22 MCW JOBLIN,LIN 7 0934 M P09 211 51 423 4 23 MCW JOBLAB,LAB 7 0941 M P15 219 52 424 4 24 MCW @JOB@,OPCODE-2 7 0948 M X61 223 52 425 4 25 MCW JOBSAV,OPRAND 7 0955 M O85 278 52 426 4 26 B PRINT2 4 0962 B '61 52 427 4 27 CS OPRAND 4 0966 / 278 52 428 4 28 TSTCTL BW NOCNTL,CTLSW 8 0970 V '50 P19 1 52 429 4 29 MCS CTLALT,ALT 7 0978 Z P33 204 53 430 4 30 MCS CTLPAG,PG 7 0985 Z P35 207 53 431 4 31 MZ CTLPAG,PG 7 0992 Y P35 207 53 432 4 32 MCW CTLLIN,LIN 7 0999 M P38 211 53 433 4 33 MCW CTLSAV,PRINT&36 7 1006 M P29 236 53 434 4 34 MCW @CTL@,OPCODE-2 7 1013 M X64 223 54 435 4 35 BW CTLPNT,CTLSW1 8 1020 V '42 P39 1 54 436 4 36 MCW @BAD STATEMENT@,PRINT&128 7 1028 M X77 328 54 437 4 37 ERRCTL A &1,ERRCT1 7 1035 A X78 O89 54 438 4 38 CTLPNT B PRINT2 4 1042 B '61 54 439 4 39 B GETMAN 4 1046 B K22 54 440 4 40 NOCNTL MCW @NO CONTROL CARD@,PRINT&130 7 1050 M X93 330 55 441 4 41 B ERRCTL 4 1057 B '35 55 442 4 42 PRINT2 SBR PNT2XT&3 4 1061 H /02 55 443 4 43 BW *&2,LSTOP1 8 1065 V '74 O93 1 55 444 4 44 W 1 1073 2 55 445 4 45 BW PNT2XT,TAPOP1 8 1074 V '99 O92 1 55 446 4 46 WT 3,200 8 1082 M %U3 200 W 56 447 4 47 NOP XXXX 4 1090 N 000 56 448 4 48 BER TPERRI 5 1094 B M03 L 56 449 4 49 PNT2XT B XXXX 4 1099 B 000 56 450 4 50 * 451 4 51 * TEST SENSE SWITCHES FOR OUTPUT OPTIONS 452 4 52 * 453 4 53 SENSW LCA @0@,OUTOPN 7 1103 L W89 P22 56 454 4 54 LCA @0@,CNDSW1 7 1110 L W89 O33 56 455 4 55 MCW @ @,LSTAPE 7 1117 M X94 P24 57 456 4 56 SW TAPOP1 4 1124 , O92 57 457 4 57 BSS ADD1,B 5 1128 B /68 B 57 458 4 58 TSTSSC BSS ADD2,C 5 1133 B /79 C 57 459 4 59 TSTSSG BSS ADD4,G 5 1138 B /90 G 57 460 4 60 TSTSSD BSS LSTAP,D 5 1143 B S01 D 57 461 4 61 TSTSSE BSS SUPLST,E 5 1148 B S09 E 57 462 4 62 SSXT CW OUTOPN 4 1153 ) P22 58 463 4 63 MCW @N@,TSTSIZ 7 1157 M X95 407 58 464 4 64 B CHKOP 4 1164 B J26 58 465 4 65 ADD1 A &1,OUTOPN 7 1168 A X78 P22 58 466 4 66 B TSTSSC 4 1175 B /33 58 467 4 67 ADD2 A &2,OUTOPN 7 1179 A X96 P22 58 1 1401 AUTOCODER-PASS 7-LIST,CONDNS-INITL 2 -VERSION 3 3772L PAGE 9 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 468 4 68 B TSTSSG 4 1186 B /38 58 469 4 69 ADD4 A &4,OUTOPN 7 1190 A X97 P22 59 470 4 70 B TSTSSD 4 1197 B /43 59 471 4 71 LSTAP CW TAPOP1 4 1201 ) O92 59 472 4 72 B TSTSSE 4 1205 B /48 59 473 4 73 SUPLST SW LSTOP1 4 1209 , O93 59 474 4 74 B SSXT 4 1213 B /53 59 475 4 75 * 476 4 76 * PRINT AND/OR PUNCH 477 4 77 * 478 4 78 PRTPNH SBR EXIT&3 4 1217 H T14 59 479 4 79 MCS PUNCH&75,CARDNO 7 1221 Z 175 314 60 480 4 80 BW *&2,LSTOP1 8 1228 V S37 O93 1 60 481 4 81 W 1 1236 2 60 482 4 82 BW PUNCH1,TAPOP1 8 1237 V S86 O92 1 60 483 4 83 WT 3,200 8 1245 M %U3 200 W 60 484 4 84 NOP XXXX 4 1253 N 000 60 485 4 85 BER TPERRI 5 1257 B M03 L 61 486 4 86 MCW @&@,100 7 1262 M X98 100 61 487 4 87 WT 3,100 8 1269 M %U3 100 W 61 488 4 88 NOP XXXX 4 1277 N 000 61 489 4 89 BER TPERRI 5 1281 B M03 L 61 490 4 90 PUNCH1 BCE *&2,CNDSW1,0 8 1286 B S95 O33 0 61 491 4 91 P 1 1294 4 61 492 4 92 A &1,PUNCH&75 7 1295 A X78 175 62 493 4 93 CS PRINT&132 4 1302 / 332 62 494 4 94 CS 1 1306 / 62 495 4 95 CS PUNCH&71 4 1307 / 171 62 496 4 96 EXIT B XXXX 4 1311 B 000 62 497 4 97 * 498 4 98 * READ ORIGINAL TAPE 499 4 99 * 500 5 00 READ4 SBR READ4X&3 4 1315 H T39 62 501 5 01 RT ORIGTP,INPUT4 8 1319 M %U4 H31 R 62 502 5 02 B CHKLG 4 1327 B T40 63 503 5 03 BER TPERRI 5 1331 B M03 L 63 504 5 04 READ4X B XXXX 4 1336 B 000 63 505 5 05 CHKLG BCE READ4&4,INPUT4&12,} 8 1340 B T19 H43 } GMARK 63 506 5 06 CHAIN 12 MACRO 507 BCE 1 1348 B GEN 63 508 BCE 1 1349 B GEN 63 509 BCE 1 1350 B GEN 63 510 BCE 1 1351 B GEN 64 511 BCE 1 1352 B GEN 64 512 BCE 1 1353 B GEN 64 513 BCE 1 1354 B GEN 64 514 BCE 1 1355 B GEN 64 515 BCE 1 1356 B GEN 64 516 BCE 1 1357 B GEN 64 517 BCE 1 1358 B GEN 65 1 1401 AUTOCODER-PASS 7-LIST,CONDNS-INITL 2 -VERSION 3 3772L PAGE 10 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 518 BCE 1 1359 B GEN 65 519 5 07 B READ4X-5 4 1360 B T31 65 520 5 08 LTORG * 1364 DCW @1@ 1 1364 LIT 65 DCW @3@ 1 1365 LIT 65 DCW @6@ 1 1366 LIT 65 DCW @,053053N000000N00001026@ 23 1389 LIT 65 DCW @,008015,022026,030037,044,049@ 29 1418 LIT 66 DCW @1,001/001117I0?@ 15 1433 LIT 67 DCW @#071029C029056B026/B001/099@ 27 1460 LIT 68 DCW @L068116,105106,110117B101/I9I@ 29 1489 LIT 69 DCW @15@ 2 1491 LIT 69 DCW @,0570571026@ 11 1502 LIT 70 DCW @,008015,019026,030,034041,045,053@ 33 1535 LIT 71 DCW @B0010270B0261,001/001113I0@ 26 1561 LIT 72 DCW @L068112,102106,113/101099/I99,027A070028)027@ 44 1605 LIT 74 DCW @S@ 1 1606 LIT 74 DCW @T@ 1 1607 LIT 74 DCW @I@ 1 1608 LIT 74 DCW @39@ 2 1610 LIT 74 DCW @7@ 1 1611 LIT 75 DCW @K@ 1 1612 LIT 75 DCW @11@ 2 1614 LIT 75 DCW @2@ 1 1615 LIT 75 DCW @,0010011040@ 11 1626 LIT 75 DCW @,061068,072/061039@ 18 1644 LIT 75 DCW @,008015,022029,036040,047054@ 28 1672 LIT 76 DCW @BOOTSTRAP@ 9 1681 LIT 76 DCW @400@ 3 1684 LIT 77 DCW @PAGE@ 4 1688 LIT 77 DCW @0@ 1 1689 LIT 77 DCW @SFX CT LOCN INSTRUCTION TYPE CARD@ 36 1725 LIT 78 DCW @SEQ PG LIN LABEL OP OPERANDS@ 33 1758 LIT 79 DCW @JOB@ 3 1761 LIT 79 DCW @CTL@ 3 1764 LIT 79 DCW @BAD STATEMENT@ 13 1777 LIT 80 DCW &1 1 1778 LIT 80 DCW @NO CONTROL CARD@ 15 1793 LIT 80 DCW @ @ 1 1794 LIT 80 DCW @N@ 1 1795 LIT 80 DCW &2 1 1796 LIT 80 DCW &4 1 1797 LIT 80 DCW @&@ 1 1798 LIT 81 521 5 09 ENDIN2 DCW @}@ 1 1799 GMARK 81 522 5 10 XFR LIBRN B 000 82 1 1401 AUTOCODER-PASS 7 PROCESS EX/END -VERSION 3 3775L PAGE 11 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 523 5 11 JOB 1401 AUTOCODER-PASS 7 PROCESS EX/END -VERSION 3 524 5 12 ORG ISIOCS 0794 525 5 13 * 526 5 14 * EX, END CARDS 527 5 15 * 528 5 16 EXEND MCW @B@,INOP 7 0794 M D12 293 85 529 5 17 MCW @B@,HOLDH&1 7 0801 M D12 D93 85 530 5 18 BCE SETAOP,TYPE,C 8 0808 B 830 075 C 85 531 5 19 MCW @/ 080@,INBOP 7 0816 M D21 301 85 532 5 20 MCW @/ 080@,HOLDH&7 7 0823 M D28 D99 85 533 5 21 SETAOP MCW AOP,INAOP 7 0830 M 070 297 86 534 5 22 MCW AOP,HOLDH&4 7 0837 M 070 D96 86 535 5 23 BCE SYMUND,AOP,# 8 0844 B L09 070 # 86 536 5 24 B SETLOC 4 0852 B U18 86 537 5 25 B CONDNS 4 0856 B L54 86 538 5 26 B PRNTLN 4 0860 B Y54 86 539 5 27 BCE GETOV1,TYPE,C 8 0864 B Z63 075 C 87 540 5 28 CC 1 2 0872 F 1 87 541 5 29 MCW @1@,200 7 0874 M D29 200 87 542 5 30 MCS ERRCNT,PRINT&4 7 0881 Z C66 204 87 543 5 31 C PRINT&4,BLANK4#4 7 0888 C 204 D33 87 544 5 32 BU SETERH 5 0895 B 945 / 87 545 5 33 TSTCOR BW EOJOB,ADDRSW#1 8 0900 V 928 D34 1 88 546 5 34 MCW WORD1,PRINT&20 7 0908 M S49 220 88 547 5 35 B WTAPE 4 0915 B J24 88 548 5 36 BW *&2,LSTOP 8 0919 V 928 C70 1 88 549 5 37 W 1 0927 2 88 550 5 38 EOJOB BW RESET,TAPOP 8 0928 V 543 C69 1 88 551 5 39 WTM 3 5 0936 U %U3 M 89 552 5 40 B RESET 4 0941 B 543 89 553 5 41 SETERH MCW @ERRORS@,PRINT&11 7 0945 M D40 211 89 554 5 42 C PRINT&4,@ 1@ 7 0952 C 204 D44 89 555 5 43 BU *&8 5 0959 B 971 / 89 556 5 44 MCW BLANK1,PRINT&11 7 0964 M D30 211 89 557 5 45 B WTAPE 4 0971 B J24 89 558 5 46 BW *&2,LSTOP 8 0975 V 984 C70 1 90 559 5 47 W 1 0983 2 90 560 5 48 CS PRINT&11 4 0984 / 211 90 561 5 49 B TSTCOR 4 0988 B 900 90 562 5 50 * 563 5 51 * CONDENSE EX, END CARDS 564 5 52 * 565 5 53 NOCARD C WMLOC,AWMSTR 7 0992 C C75 C78 90 566 5 54 BE TSTEND 5 0999 B '20 S 90 567 5 55 CW NEWSW 4 1004 ) G27 90 568 5 56 ENDRTN BW NOCARD,NEWSW 8 1008 V 992 G27 1 91 569 5 57 B PNCHCD 4 1016 B P62 91 570 5 58 TSTEND BCE EXCUTE,TYPE,C 8 1020 B '57 075 C 91 571 5 59 CS PUNCH&71 4 1028 / 171 91 572 5 60 MCW HOLDH&7,PUNCH&46 7 1032 M D99 146 91 1 1401 AUTOCODER-PASS 7 PROCESS EX/END -VERSION 3 3775L PAGE 12 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 573 5 61 MCS PUNCH&75,CARDNO 7 1039 Z 175 314 91 574 5 62 SBR PNHXT&3,LSTCD 7 1046 H Q90 S11 92 575 5 63 B TSTPCH 4 1053 B Q21 92 576 5 64 EXCUTE MCE WMSTR,PUNCH&71 7 1057 E D11 171 92 577 5 65 MCW @N000000@,PUNCH&46 7 1064 M D51 146 92 578 5 66 MCW HOLDH&4,PUNCH&71 7 1071 M D96 171 92 579 5 67 MCS PUNCH&75,CARDNO 7 1078 Z 175 314 92 580 5 68 SBR PNHXT&3,EXOUT 7 1085 H Q90 '96 93 581 5 69 B TSTPCH 4 1092 B Q21 93 582 5 70 * 583 5 71 * PUNCH COMPATIBILITY CARDS 584 5 72 * 585 5 73 EXOUT CS PUNCH&71 4 1096 / 171 93 586 5 74 B READOG 4 1100 B B09 93 587 5 75 BSP ORIGTP 5 1104 U %U4 B 93 588 5 76 C MNEMON-2,@JOB@ 7 1109 C H48 D54 93 589 5 77 BU *&8 5 1116 B /28 / 93 590 5 78 MCW IMAGE&80,PUNCH&80 7 1121 M I10 180 94 591 5 79 MCW WORD2,PUNCH&39 7 1128 M S88 139 94 592 5 80 LCA WORD3,PUNCH&66 7 1135 L S99 166 94 593 5 81 MCW PUNCH&66,PUNCH&50 7 1142 M 166 150 94 594 5 82 BCE *&2,CONDSW,0 8 1149 B /58 C10 0 94 595 5 83 P 1 1157 4 94 596 5 84 B WTAP2 4 1158 B ?43 95 597 5 85 CS PUNCH&66 4 1162 / 166 95 598 5 86 A &1,PUNCH&75 7 1166 A D55 175 95 599 5 87 MCW WORD4,PUNCH&21 7 1173 M T20 121 95 600 5 88 MCW WORD5,PUNCH&71 7 1180 M T31 171 95 601 5 89 SBR PNHXT&3,OUTEX 7 1187 H Q90 S26 95 602 5 90 BCE *&2,CONDSW,0 8 1194 B S03 C10 0 96 603 5 91 P 1 1202 4 96 604 5 92 B WTAP2 4 1203 B ?43 96 605 5 93 B NEWCRD 4 1207 B Q34 96 606 5 94 LSTCD CS PUNCH&80 4 1211 / 180 96 607 5 95 BCE *&4,CONDSW,0 8 1215 B S26 C10 0 96 608 5 96 P 1 1223 4 96 609 5 97 SS 8 2 1224 K 8 97 610 5 98 OUTEX B CNDOUT&7 4 1226 B ?14 97 611 5 99 WORD1 DCW @OBJECT CORE EXCEEDED@ 20 1249 97 612 6 00 WORD2 DCW @,015022)024056,029036,040047,0540611001@ 39 1288 98 613 6 01 WORD3 DCW @,001008B001@ 11 1299 99 614 6 02 WORD4 DCW @,068072)063067/061039@ 21 1320 99 615 6 03 WORD5 DCW @,0010011040@ 11 1331 100 616 6 04 OV2GM DCW @}@ 1 1332 GMARK 100 617 6 05 XFR LIBRN B 000 101 1 1401 AUTOCODER-PASS 7 LEFT MAIN LINE -VERSION 3 3773L PAGE 13 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 618 6 06 JOB 1401 AUTOCODER-PASS 7 LEFT MAIN LINE -VERSION 3 619 6 07 * 620 6 08 * READ SECOND HALF OF MAIN PROGRAM 621 6 09 * 622 6 10 ORG 201 0201 623 6 11 INIT2 RTW SYSTAP,2000 8 0201 L %U1 !00 R 104 624 6 12 NOP XXXX 4 0209 N 000 104 625 6 13 BER TPERR 5 0213 B 334 L 104 626 6 14 RTW XTRATP,SAVCON 8 0218 L %U6 B98 R 104 627 6 15 NOP XXXX 4 0226 N 000 104 628 6 16 BER TPERR 5 0230 B 334 L 104 629 6 17 RWD XTRATP 5 0235 U %U6 R 104 630 6 18 CW GMSAVE,WMSW#1 7 0240 ) C72 D56 105 631 6 19 CW ENDE1,ENDE2 7 0247 ) Z94 H27 105 632 6 20 SW GM,181 7 0254 , 333 181 105 633 6 21 SW OV1GM 4 0261 , U17 105 634 6 22 WTW XTRATP,ISIOCS 8 0265 L %U6 794 W 105 635 6 23 NOP XXXX 4 0273 N 000 105 636 6 24 BER TPERR 5 0277 B 334 L 106 637 6 25 RWD XTRATP 5 0282 U %U6 R 106 638 6 26 CW OV1GM 4 0287 ) U17 106 639 6 27 ZA &5,LINCT 7 0291 ? D57 F13 106 640 6 28 BCE RESET,NOOUT,1 8 0298 B 543 C71 1 106 641 6 29 B GET 4 0306 B A24 106 642 6 30 B SETUP 4 0310 B 595 106 643 6 31 DCW @ @ 1 0314 107 644 6 32 * 645 6 33 * MAIN LINE PROGRAM 646 6 34 * 647 6 35 ORG 333 0333 648 6 36 GM DC @}@ 1 0333 GMARK 108 649 6 37 * 650 6 38 * TAPE REDUNDANCY ROUTINE 651 6 39 * 652 6 40 TPERR SBR XR2 4 0334 H 094 108 653 6 41 SBR REDXT&3 4 0338 H 406 108 654 6 42 MZ PLUS9,XR2 7 0342 Y 538 094 108 655 6 43 MCW 4000-10&X2,TPINST&7 7 0349 M IR0 397 108 656 6 44 MN TPINST&3,BSP1&3 7 0356 D 393 373 109 657 6 45 MCW TPINST&7,INST2&7 7 0363 M 397 506 109 658 6 46 BSP1 BSP INITAP 5 0370 U %U0 B 109 659 6 47 BCE WRTRED,TPINST&7,W 8 0375 B 479 397 W 109 660 6 48 MCW PLUS9,READCT 7 0383 M 538 540 109 661 6 49 TPINST RT INITAP,XXXX 8 0390 M %U0 000 R 110 662 6 50 BER RDRERR 5 0398 B 407 L 110 663 6 51 REDXT B XXXX 4 0403 B 000 110 664 6 52 RDRERR MN TPINST&3,BSP2&3 7 0407 D 393 417 110 665 6 53 BSP2 BSP INITAP 5 0414 U %U0 B 110 666 6 54 S PLUS1,READCT 7 0419 S 539 540 110 667 6 55 BWZ TPINSTM,READCT,B 8 0426 V 390 540 B 111 1 1401 AUTOCODER-PASS 7 LEFT MAIN LINE -VERSION 3 3773L PAGE 14 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 668 6 56 MN TPINST&3,TPHALT&6 7 0434 D 393 447 111 669 6 57 TPHALT H XXXX,790 7 0441 . 000 790 111 670 6 58 MCW TPINST&7,*&8 7 0448 M 397 462 111 671 6 59 RT INITAP,XXXX 8 0455 M %U0 000 R 111 672 6 60 BSS BSP1,E 5 0463 B 370 E 112 673 6 61 H XXXX,712 7 0468 . 000 712 112 674 6 62 B REDXT 4 0475 B 403 112 675 6 63 WRTRED SKP SYSTAP 5 0479 U %U1 E 112 676 6 64 BCE SUBCTR,WRTCTR-1,5 8 0484 B 516 541 5 112 677 6 65 A PLUS1,WRTCTR 7 0492 A 539 542 112 678 6 66 INST2 WT INITAP,XXXX 8 0499 M %U0 000 W 113 679 6 67 BER BSP1 5 0507 B 370 L 113 680 6 68 B REDXT 4 0512 B 403 113 681 6 69 SUBCTR S WRTCTR 4 0516 S 542 113 682 6 70 MN TPINST&3,*&7 7 0520 D 393 533 113 683 6 71 H XXXX,760 7 0527 . 000 760 113 684 6 72 B INST2 4 0534 B 499 113 685 6 73 PLUS9 DCW &9 1 0538 114 686 6 74 PLUS1 DCW &1 1 0539 114 687 6 75 READCT DCW #1 1 0540 114 688 6 76 WRTCTR DCW #2 2 0542 114 689 6 77 * 690 6 78 * GET PASS F 691 6 79 * 692 6 80 RESET LCA SSAVE,201 7 0543 L C68 201 114 693 6 81 LCA 1 0550 L 114 694 6 82 RT SYSTAP,332 8 0551 M %U1 332 R 114 695 6 83 CW 181,333 7 0559 ) 181 333 115 696 6 84 RTW SYSTAP,2000 8 0566 L %U1 !00 R 115 697 6 85 NOP XXXX 4 0574 N 000 115 698 6 86 BER TPERR 5 0578 B 334 L 115 699 6 87 MCW 201,2001 7 0583 M 201 !01 115 700 6 88 MCW 1 0590 M 115 701 6 89 B 2002 4 0591 B !02 115 702 6 90 * 703 6 91 * BEGIN MAIN LINE PROGRAM 704 6 92 * 705 6 93 SETUP CS PRINT&132 4 0595 / 332 116 706 6 94 CS 1 0599 / 116 707 6 95 GETORG B READOG 4 0600 B B09 116 708 6 96 * 709 6 97 * DETERMINE TYPE 710 6 98 * 711 6 99 ANALWK SW TYPESW#1 4 0604 , D58 116 712 7 00 MN TYPE,TYPEA#1 7 0608 D 075 D59 116 713 7 01 BCE BYPASS,TYPE,% 8 0615 B S85 075 % 116 714 7 02 BCE BYPASS,TYPE,8 8 0623 B S85 075 8 116 715 7 03 BCE BYPASS,TYPE,I 8 0631 B S85 075 I 117 716 7 04 BCE BYPASS,TYPE,H 8 0639 B S85 075 H 117 717 7 05 BCE PROWRK,ALTER, 8 0647 B 881 080 117 1 1401 AUTOCODER-PASS 7 LEFT MAIN LINE -VERSION 3 3773L PAGE 15 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 718 7 06 ANALOG BCE SETCOM,LABEL-5,* 8 0655 B J72 H36 * 117 719 7 07 BCE MAPCNT,IMAGE&75,R 8 0663 B 805 I05 R 118 720 7 08 BCE ISIOCS,IMAGE&75,W 8 0671 B 794 I05 W 118 721 7 09 BCE MAPCNT&7,IMAGE&75,S 8 0679 B 812 I05 S 118 722 7 10 BCE MAPCNT&7,IMAGE&75,Z 8 0687 B 812 I05 Z 118 723 7 11 C MNEMON-2,@JOB@ 7 0695 C H48 D54 118 724 7 115 BE DOJOB 5 0702 B 843 S 119 725 7 12 C ALTER,ALTNO 7 0707 C 080 I14 119 726 7 13 BU SEQERR 5 0714 B ?83 / 119 727 7 14 B SETFRE 4 0719 B T01 119 728 7 15 CW TYPESW 4 0723 ) D58 119 729 7 16 BCE INSTR,TYPE, 8 0727 B V43 075 119 730 7 17 MN TYPE,XR2 7 0735 D 075 094 120 731 7 18 A XR2 4 0742 A 094 120 732 7 19 A XR2 4 0746 A 094 120 733 7 20 B *&1&X2 4 0750 B 7N4 120 734 7 21 B DA 4 0754 B W52 120 735 7 22 B CONST 4 0758 B '62 120 736 7 23 B DSA 4 0762 B 969 120 737 7 24 B GETOV2 4 0766 B ?94 121 738 7 25 B SFX 4 0770 B L43 121 739 7 26 B TYPERR 4 0774 B S78 121 740 7 27 B ORG 4 0778 B K12 121 741 7 28 B DS 4 0782 B K85 121 742 7 29 B TYPERR 4 0786 B S78 121 743 7 30 B TYPERR 4 0790 B S78 121 744 7 31 * 745 7 32 * MACRO CARD 746 7 33 * 747 7 34 ISIOCS MCW @IOCS@,KIND-1 7 0794 M D63 308 122 748 7 35 B MAPCNT&7 4 0801 B 812 122 749 7 36 MAPCNT MCW @MACRO@,KIND 7 0805 M D68 309 122 750 7 37 B SETFRE 4 0812 B T01 122 751 7 38 BCE CALERR,IMAGE&86,7 8 0816 B 828 I16 7 122 752 7 39 B COMXT 4 0824 B J85 122 753 7 40 CALERR MCW @OVERCALL@,PRINT&123 7 0828 M D76 323 123 754 7 41 B BMPERR 4 0835 B L28 123 755 7 42 B COMXT 4 0839 B J85 123 756 7 43 * 757 7 44 * NEW JOB CARD 758 7 45 * 759 7 46 DOJOB MCW OPERND,JOB 7 0843 M I02 C62 123 760 7 47 BW DOIDT,NEWSW 8 0850 V 862 G27 1 123 761 7 48 B PNCHCD 4 0858 B P62 123 762 7 49 DOIDT MCW IMAGE&80,PUNCH&80 7 0862 M I10 180 124 763 7 50 S LINCT 4 0869 S F13 124 764 7 51 B PRTHDG 4 0873 B !00 124 765 7 52 B MAPCNT&7 4 0877 B 812 124 766 7 53 * 767 7 54 * PROGRAM GENERAGED RECORD 1 1401 AUTOCODER-PASS 7 LEFT MAIN LINE -VERSION 3 3773L PAGE 16 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 768 7 55 * 769 7 56 PROWRK BCE XTRA,TYPE,Y 8 0881 B 924 075 Y 124 770 7 57 CW OP&1 4 0889 ) 068 124 771 7 58 MCS AOP,PRINT&11 7 0893 Z 070 211 124 772 7 59 SW OP&1 4 0900 , 068 125 773 7 60 BCE ADCON,TYPE,S 8 0904 B 944 075 S 125 774 7 61 BCE LITRAL,TYPEA,1 8 0912 B 999 D59 1 125 775 7 62 B TYPERR 4 0920 B S78 125 776 7 63 * 777 7 64 * LITERAL GREATER THAN 30 CHARACTERS 778 7 65 * 779 7 66 XTRA SW PRINT&27 4 0924 , 227 125 780 7 67 MCW FIXFRM&72,OPRAND 7 0928 M 072 278 125 781 7 68 CHAIN 5 MACRO 782 MCW 1 0935 M GEN 125 783 MCW 1 0936 M GEN 126 784 MCW 1 0937 M GEN 126 785 MCW 1 0938 M GEN 126 786 MCW 1 0939 M GEN 126 787 7 69 B BYPASS 4 0940 B S85 126 788 7 70 * 789 7 71 * ADCON CARD 790 7 72 * 791 7 73 ADCON MCW @ADCON@,KIND 7 0944 M D81 309 126 792 7 74 SW PRINT&27 4 0951 , 227 126 793 7 75 MCW FIXFRM&53,PRINT&40 7 0955 M 053 240 127 794 7 76 MCW FIXFRM&16,OPCODE-2 7 0962 M 016 223 127 795 7 77 DSA MCW BOP,PRINT&95 7 0969 M 073 295 127 796 7 78 MCW BOP,HOLDH&3 7 0976 M 073 D95 127 797 7 79 B SETADD 4 0983 B S45 127 798 7 80 BCE SYMUND,BOP,# 8 0987 B L09 073 # 128 799 7 81 B SETLIT 4 0995 B /56 128 800 7 82 * 801 7 83 * LITERAL AND AREA DEFINITION CARDS 802 7 84 * 803 7 85 LITRAL BWZ PROLIT,TYPE,S 8 0999 V '41 075 S 128 804 7 86 BWZ DADC,FIXFRM&1,B 8 1007 V S28 001 B 128 805 7 87 MCW @RMARK@,KIND 7 1015 M D86 309 128 806 7 88 BCE PROLIT&7,TYPE,A 8 1022 B '48 075 A 129 807 7 89 MCW @G@,KIND-4 7 1030 M D87 305 129 808 7 90 B PROLIT&7 4 1037 B '48 129 809 7 91 PROLIT MCW @LIT@,KIND-2 7 1041 M D90 307 129 810 7 92 MCW FIXFRM&53,PRINT&57 7 1048 M 053 257 129 811 7 93 MCW FIXFRM&16,OPCODE-2 7 1055 M 016 223 130 812 7 94 CONST B SETADD 4 1062 B S45 130 813 7 95 A @00@,COUNT 7 1066 A D92 007 130 814 7 96 C COUNT,@00@ 7 1073 C 007 D92 130 815 7 97 BL GOOD 5 1080 B '96 T 130 816 7 98 MZ ZONE-1,STSTMT 7 1085 Y 188 005 130 817 7 99 B SETLIT 4 1092 B /56 131 1 1401 AUTOCODER-PASS 7 LEFT MAIN LINE -VERSION 3 3773L PAGE 17 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 818 8 00 GOOD BCE AREADF,PRINT&27,# 8 1096 B /83 227 # 131 819 8 01 BWZ AREADF,FIXFRM&4,B 8 1104 V /83 004 B 131 820 8 02 MCW OPRAND,HOLDDT-1 7 1112 M 278 E43 131 821 8 03 BCE SETLIT,PRINT&27,@ 8 1119 B /56 227 @ 131 822 8 04 BWZ UNSIGN,PRINT&27,2 8 1127 V /72 227 2 132 823 8 05 MCW COUNT,XR1 7 1135 M 007 089 132 824 8 06 MZ BLANK4,PRINT&27&X1 7 1142 Y D33 2S7 132 825 8 07 MZ PRINT&27,HOLDH&X1 7 1149 Y 227 DZ2 132 826 8 08 SETLIT B SETLOC 4 1156 B U18 132 827 8 09 B CONDNS 4 1160 B L54 132 828 8 10 LITOUT B PRNTLN 4 1164 B Y54 133 829 8 11 B BYPASS 4 1168 B S85 133 830 8 12 UNSIGN MCW OPRAND,HOLDDT#52 7 1172 M 278 E44 133 831 8 13 B SETLIT 4 1179 B /56 133 832 8 14 AREADF BW *&5,TYPESW 8 1183 V /95 D58 1 133 833 8 15 B SETLIT 4 1191 B /56 133 834 8 16 MCW FIXFRM&13,LAB 7 1195 M 013 219 133 835 8 17 MCW BLANK4-2,PRINT&31 7 1202 M D31 231 134 836 8 18 MCW COUNT 4 1209 M 007 134 837 8 19 MCW @#@ 4 1213 M E45 134 838 8 20 MCW @AREA@,KIND-1 7 1217 M E49 308 134 839 8 21 B SETLIT 4 1224 B /56 134 840 8 22 DADC B SETADD 4 1228 B S45 134 841 8 23 B CONDNS 4 1232 B L54 134 842 8 24 CS PRINT&132 4 1236 / 332 135 843 8 25 CS 1 1240 / 135 844 8 26 B BYPASS 4 1241 B S85 135 845 8 27 * 846 8 28 * SET CONDENSE ADDRESSES FOR CONSTANTS 847 8 29 * 848 8 30 SETADD SBR ADDXT&3 4 1245 H S77 135 849 8 31 ZA LABADD,LOADAD 7 1249 ? 061 E83 135 850 8 32 MCW LOADAD 4 1256 M E83 135 851 8 33 S COUNT,WMADDR 7 1260 S 007 E78 135 852 8 34 A &1,WMADDR 7 1267 A D55 E78 136 853 8 35 ADDXT B XXXX 4 1274 B 000 136 854 8 36 * 855 8 37 * GET NEXT RECORDS 856 8 38 * 857 8 39 TYPERR H XXXX,770 7 1278 . 000 770 136 858 8 40 BYPASS B GET 4 1285 B A24 136 859 8 41 BW ANALWK,TYPESW 8 1289 V 604 D58 1 136 860 8 42 B GETORG 4 1297 B 600 136 861 8 43 * 862 8 44 * FREE FORM RECORD TO PRINT AREA 863 8 45 * 864 8 46 SETFRE SBR FREEXT&3 4 1301 H T89 136 865 8 47 MCS ALTNO,ALT 7 1305 Z I14 204 137 866 8 48 MCS PAGENO,PG 7 1312 Z H32 207 137 867 8 49 MZ PAGENO,PG 7 1319 Y H32 207 137 1 1401 AUTOCODER-PASS 7 LEFT MAIN LINE -VERSION 3 3773L PAGE 18 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 868 8 50 MCW LINENO,LIN 7 1326 M H35 211 137 869 8 51 MCW LABEL,LAB 7 1333 M H41 219 137 870 8 52 MCW MNEMON,OPCODE 7 1340 M H50 225 138 871 8 53 MCW OPERND,OPRAND 7 1347 M I02 278 138 872 8 54 BCE IOGEN,IMAGE&75,Z 8 1354 B T90 I05 Z 138 873 8 55 BCE IOGEN,IMAGE&75,Y 8 1362 B T90 I05 Y 138 874 8 56 BCE GENSTM,IMAGE&75,C 8 1370 B T97 I05 C 138 875 8 57 BCE GENSTM,IMAGE&75,S 8 1378 B T97 I05 S 139 876 8 58 FREEXT B XXXX 4 1386 B 000 139 877 8 59 IOGEN MCW @IO@,KIND 7 1390 M E51 309 139 878 8 60 GENSTM MCW @GEN@,KIND-2 7 1397 M E54 307 139 879 8 61 BCE COMERR,IMAGE&86,B 8 1404 B J97 I16 B 139 880 8 62 B FREEXT 4 1412 B T86 139 881 8 63 DCW @ @ 1 1416 139 882 8 64 OV1GM DC @}@ 1 1417 GMARK 140 883 8 65 * 884 8 66 * ASSEMBLED INFORMATION TO PRINT AREA 885 8 67 * 886 8 68 SETLOC SBR LOCXT&3 4 1418 H V01 140 887 8 69 MCS COUNT,CT 7 1422 Z 007 284 140 888 8 70 MCW SFXCTR,SUFFIX 7 1429 M G18 280 140 889 8 71 MN LABADD,LOCN 7 1436 D 061 290 140 890 8 72 MCW 1 1443 M 141 891 8 73 BWZ TSTFR,LABADD-1,2 8 1444 V U66 060 2 141 892 8 74 MCW @X@,PRINT&92 7 1452 M E55 292 141 893 8 75 MZ BLANK1,PRINT&89 7 1459 Y D30 289 141 894 8 76 TSTFR BCE FOURCH,LABADD-4,0 8 1466 B V02 057 0 141 895 8 77 TSTLBL BM DBLDEF,STLABL 8 1474 V V13 002 K 141 896 8 78 TSTSTM BM STMBAD,STSTMT 8 1482 V V28 005 K 142 897 8 79 BWZ STMBAD,STSTMT,S 8 1490 V V28 005 S 142 898 8 80 LOCXT B XXXX 4 1498 B 000 142 899 8 81 FOURCH MCW BLANK1,LOCN-4 7 1502 M D30 286 142 900 8 82 B TSTLBL 4 1509 B U74 142 901 8 83 DBLDEF MCW @LABEL@,PRINT&120 7 1513 M E60 320 142 902 8 84 B BMPERR 4 1520 B L28 143 903 8 85 B TSTSTM 4 1524 B U82 143 904 8 86 STMBAD MCW @BAD STATEMENT@,PRINT&128 7 1528 M E73 328 143 905 8 87 B BMPERR 4 1535 B L28 143 906 8 88 B LOCXT 4 1539 B U98 143 907 8 89 * 908 8 90 * INSTRUCTION CARD 909 8 91 * 910 8 92 INSTR MCW DMOD,INDMOD 7 1543 M 074 303 143 911 8 93 MCW BOP,INBOP 7 1550 M 073 301 143 912 8 94 MCW AOP,INAOP 7 1557 M 070 297 144 913 8 95 MCW OP,INOP 7 1564 M 067 293 144 914 8 96 MCW DMOD,HOLDH&8 7 1571 M 074 E00 144 915 8 97 MCW 1 1578 M 144 916 8 98 MCW 1 1579 M 144 917 8 99 MCW 1 1580 M 144 1 1401 AUTOCODER-PASS 7 LEFT MAIN LINE -VERSION 3 3773L PAGE 19 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 918 9 00 MCW LABADD,WMADDR#5 7 1581 M 061 E78 144 919 9 01 MCW LABADD,LOADAD#5 7 1588 M 061 E83 145 920 9 02 A COUNT,LOADAD 7 1595 A 007 E83 145 921 9 03 S &1,LOADAD 7 1602 S D55 E83 145 922 9 04 BCE SYMUND,BOP,# 8 1609 B L09 073 # 145 923 9 05 BCE SYMUND,AOP,# 8 1617 B L09 070 # 145 924 9 06 BCE BADOP,OP, 8 1625 B W37 067 146 925 9 07 B SETLIT 4 1633 B /56 146 926 9 08 BADOP MCW @ OP@,PRINT&123 7 1637 M E86 323 146 927 9 09 B BMPERR 4 1644 B L28 146 928 9 10 B SETLIT 4 1648 B /56 146 929 9 11 * 930 9 12 * DEFINE AREA CARDS 931 9 13 * 932 9 14 DA BCE HEADER,TYPE,0 8 1652 B X41 075 0 146 933 9 15 MCW SUPADD,WMADDR 7 1660 M 066 E78 147 934 9 16 MCW @FIELD@,KIND 7 1667 M E91 309 147 935 9 17 BWZ SETDA,TYPE,B 8 1674 V W93 075 B 147 936 9 18 MCW @SBF@,KIND-2 7 1682 M E94 307 147 937 9 19 B ORGXT 4 1689 B K62 147 938 9 20 SETDA B SETLOC 4 1693 B U18 147 939 9 21 B CONDNS 4 1697 B L54 148 940 9 22 B PRNTLN 4 1701 B Y54 148 941 9 23 BYPDA B GET 4 1705 B A24 148 942 9 24 BCE RPTOUT,TYPE,' 8 1709 B X21 075 ' 148 943 9 25 B GETORG 4 1717 B 600 148 944 9 26 RPTOUT MCW SUPADD,WMADDR 7 1721 M 066 E78 148 945 9 27 B CONDNS 4 1728 B L54 148 946 9 28 CS PRINT&132 4 1732 / 332 149 947 9 29 CS 1 1736 / 149 948 9 30 B BYPDA 4 1737 B X05 149 949 9 31 HEADER BWZ BADDA,FIXFRM&4,B 8 1741 V Y24 004 B 149 950 9 32 B SETLOC 4 1749 B U18 149 951 9 33 NXTRPT MN SUPADD,PRINT&97 7 1753 D 066 297 149 952 9 34 MCW 1 1760 M 149 953 9 35 MCW LABADD,WMADDR 7 1761 M 061 E78 150 954 9 36 B CONDNS 4 1768 B L54 150 955 9 37 B GET 4 1772 B A24 150 956 9 38 C FIXFRM&16,@DA @ 7 1776 C 016 E97 150 957 9 39 BU PNTDA 5 1783 B X96 / 150 958 9 40 BCE NXTRPT,TYPE,' 8 1788 B X53 075 ' 150 959 9 41 PNTDA BCE ADDR4K,PRINT&93,0 8 1796 B Y39 293 0 151 960 9 42 C PRINT&97,OBJCOR 7 1804 C 297 C09 151 961 9 43 BL PUADSW 5 1811 B K97 T 151 962 9 44 B PRNTLN 4 1816 B Y54 151 963 9 45 B GETORG 4 1820 B 600 151 964 9 46 BADDA MCW @ NO B X L@,PRINT&129 7 1824 M F06 329 151 965 9 47 B BMPERR 4 1831 B L28 151 966 9 48 B HEADER&8 4 1835 B X49 152 967 9 49 ADDR4K SBR AD4KXT&3 4 1839 H Y53 152 1 1401 AUTOCODER-PASS 7 LEFT MAIN LINE -VERSION 3 3773L PAGE 20 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 968 9 50 MCW BLANK1,PRINT&93 7 1843 M D30 293 152 969 9 51 AD4KXT B XXXX 4 1850 B 000 152 970 9 52 * 971 9 53 * PRINT STATEMENTS 972 9 54 * 973 9 55 PRNTLN SBR PRNTXT&3 4 1854 H Z50 152 974 9 56 BCE DOPNT,LOCN, 8 1858 B Y86 290 152 975 9 57 BCE DOPNT,TYPEA,7 8 1866 B Y86 D59 7 152 976 9 58 C LOCN,@ 0081@ 7 1874 C 290 F11 153 977 9 59 BH ADDERR 5 1881 B J57 U 153 978 9 60 DOPNT BW *&2,LSTOP 8 1886 V Y95 C70 1 153 979 9 61 W 1 1894 2 153 980 9 62 B WTAPE 4 1895 B J24 153 981 9 63 BCE CLR,TYPEA,7 8 1899 B Z19 D59 7 153 982 9 64 C LOCN,OBJCOR 7 1907 C 290 C09 154 983 9 65 BL PUADSW 5 1914 B K97 T 154 984 9 66 CLR CS PRINT&132 4 1919 / 332 154 985 9 67 CS 1 1923 / 154 986 9 68 BCE PRNTXT,TYPE,3 8 1924 B Z47 075 3 154 987 9 69 A &1,LINCT#2 7 1932 A D55 F13 154 988 9 70 BCE OVRFLO,LINCT-1,5 8 1939 B Z51 F12 5 155 989 9 71 PRNTXT B XXXX 4 1947 B 000 155 990 9 72 OVRFLO B PRTHDG 4 1951 B !00 155 991 9 73 S LINCT 4 1955 S F13 155 992 9 74 B PRNTXT 4 1959 B Z47 155 993 9 75 GETOV1 RTW XTRATP,ISIOCS 8 1963 L %U6 794 R 155 994 9 76 NOP XXXX 4 1971 N 000 155 995 9 77 BER TPERR 5 1975 B 334 L 156 996 9 78 CW OV1GM 4 1980 ) U17 156 997 9 79 RWD XTRATP 5 1984 U %U6 R 156 998 9 80 B BYPASS 4 1989 B S85 156 999 9 81 DCW @ @ 1 1993 156 1000 9 82 ENDE1 DCW @}@ 1 1994 GMARK 156 1001 9 83 XFR LIBRN B 000 157 1 1401 AUTOCODER-PASS 7 RIGHT MAIN LINE -VERSION 3 3774L PAGE 21 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1002 9 84 JOB 1401 AUTOCODER-PASS 7 RIGHT MAIN LINE -VERSION 3 1003 9 85 ORG 2000 2000 1004 9 86 * 1005 9 87 * PRINT PAGE HEADING 1006 9 88 * 1007 9 89 PRTHDG SBR PHDGXT&3 4 2000 H J23 160 1008 9 90 MCW @PAGE@,PRINT&109 7 2004 M F17 309 160 1009 9 91 A &1,NUMBER 7 2011 A D55 C84 160 1010 9 92 MCS NUMBER,PRINT&114 7 2018 Z C84 314 160 1011 9 93 MCW JOB,OPRAND 7 2025 M C62 278 160 1012 9 94 MCW PUNCH&80,LOCN 7 2032 M 180 290 160 1013 9 95 BW WTHEAD,LSTOP 8 2039 V !52 C70 1 161 1014 9 96 CC 1 2 2047 F 1 161 1015 9 97 W 1 2049 2 161 1016 9 98 NK WAS CC K IN REV 0 2 2050 N K 161 1017 9 99 WTHEAD MCW @1@,200 7 2052 M D29 200 161 1018 10 00 B WTAPE 4 2059 B J24 161 1019 10 01 CS PRINT&132 4 2063 / 332 161 1020 10 02 CS 1 2067 / 162 1021 10 03 MCW @SFX CT LOCN INSTRUCTION TYPE CARD@,PRINT&114 7 2068 M F53 314 162 1022 10 04 MCW @SEQ PG LIN LABEL OP OPERANDS@,PRINT&34 7 2075 M F86 234 162 1023 10 05 BW *&2,LSTOP 8 2082 V !91 C70 1 162 1024 10 06 W 1 2090 2 162 1025 10 07 MCW @0@,200 7 2091 M F87 200 162 1026 10 08 B WTAPE 4 2098 B J24 162 1027 10 09 CS PRINT&132 4 2102 / 332 163 1028 10 10 CS 1 2106 / 163 1029 10 11 BW *&2,LSTOP 8 2107 V J16 C70 1 163 1030 10 12 W 1 2115 2 163 1031 10 13 B WTAPE 4 2116 B J24 163 1032 10 14 PHDGXT B XXXX 4 2120 B 000 163 1033 10 15 WTAPE SBR WTXT&3 4 2124 H J56 163 1034 10 16 BW WTXT,TAPOP 8 2128 V J53 C69 1 164 1035 10 17 WT 3,200 8 2136 M %U3 200 W 164 1036 10 18 NOP XXXX 4 2144 N 000 164 1037 10 19 BER TPERR 5 2148 B 334 L 164 1038 10 20 WTXT B XXXX 4 2153 B 000 164 1039 10 21 ADDERR MCW @ ADDR@,PRINT&132 7 2157 M F92 332 164 1040 10 22 B BMPERR 4 2164 B L28 165 1041 10 23 B DOPNT 4 2168 B Y86 165 1042 10 24 * 1043 10 25 * COMMENTS CARD 1044 10 26 * 1045 10 27 SETCOM B SETFRE 4 2172 B T01 165 1046 10 28 MCW OPERND,PRINT&80 7 2176 M I02 280 165 1047 10 29 MCW 1 2183 M 165 1048 10 30 MCW 1 2184 M 165 1049 10 31 COMXT B PRNTLN 4 2185 B Y54 165 1050 10 32 B READOG 4 2189 B B09 166 1051 10 33 B ANALOG 4 2193 B 655 166 1 1401 AUTOCODER-PASS 7 RIGHT MAIN LINE -VERSION 3 3774L PAGE 22 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1052 10 34 COMERR MCW @MACRO ERROR@,PRINT&126 7 2197 M G03 326 166 1053 10 35 B BMPERR 4 2204 B L28 166 1054 10 36 B FREEXT 4 2208 B T86 166 1055 10 37 * 1056 10 38 * ORG, LTORG CARDS 1057 10 39 * 1058 10 40 ORG MCW SUPADD,LABADD 7 2212 M 066 061 166 1059 10 41 MCW ORGADD,SUPADD 7 2219 M 032 066 166 1060 10 42 BWZ BADORG,FIXFRM&1,2 8 2226 V K70 001 2 167 1061 10 43 ORGOUT MN SUPADD,PRINT&97 7 2234 D 066 297 167 1062 10 44 MCW 1 2241 M 167 1063 10 45 BCE ADDR4K,PRINT&93,0 8 2242 B Y39 293 0 167 1064 10 46 C PRINT&97,OBJCOR 7 2250 C 297 C09 167 1065 10 47 BL PUADSW 5 2257 B K97 T 167 1066 10 48 ORGXT B SETLOC 4 2262 B U18 168 1067 10 49 B LITOUT 4 2266 B /64 168 1068 10 50 BADORG MCW @ UNDEF ORG@,PRINT&130 7 2270 M G13 330 168 1069 10 51 B BMPERR 4 2277 B L28 168 1070 10 52 B ORGOUT 4 2281 B K34 168 1071 10 53 * 1072 10 54 * DS, EQU CARDS 1073 10 55 * 1074 10 56 DS BCE SYMUND,AOP,# 8 2285 B L09 070 # 168 1075 10 57 B ORGXT 4 2293 B K62 168 1076 10 58 * 1077 10 59 * ERROR - ADDRESS EXCEEDS CORE 1078 10 60 * 1079 10 61 PUADSW SBR ADSWXT&3 4 2297 H L08 169 1080 10 62 CW ADDRSW 4 2301 ) D34 169 1081 10 63 ADSWXT B XXXX 4 2305 B 000 169 1082 10 64 * 1083 10 65 * ERROR - UNDEFINED SYMBOL 1084 10 66 * 1085 10 67 SYMUND SBR UNDXT&3 4 2309 H L27 169 1086 10 68 MCW @ SYM@,PRINT&127 7 2313 M G17 327 169 1087 10 69 B BMPERR 4 2320 B L28 169 1088 10 70 UNDXT B XXXX 4 2324 B 000 169 1089 10 71 * 1090 10 72 * BUMP NUMBER OF ERRORS 1091 10 73 * 1092 10 74 BMPERR SBR ERREXT&3 4 2328 H L42 170 1093 10 75 A &1,ERRCNT 7 2332 A D55 C66 170 1094 10 76 ERREXT B XXXX 4 2339 B 000 170 1095 10 77 * 1096 10 78 * SUFFIX CARD 1097 10 79 * 1098 10 80 SFX MCW IMAGE&21,SFXCTR#1 7 2343 M H51 G18 170 1099 10 81 B LITOUT 4 2350 B /64 170 1100 10 82 * 1101 10 83 * CONDENSE ROUTINE 1 1401 AUTOCODER-PASS 7 RIGHT MAIN LINE -VERSION 3 3774L PAGE 23 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1102 10 84 * 1103 10 85 CONDNS SBR CONDXT&3 4 2354 H ?42 170 1104 10 86 CW BIGSW,DCSW 7 2358 ) H17 G48 170 1105 10 87 BM CONDXT,STSTMT 8 2365 V ?39 005 K 171 1106 10 88 BW PNCHCD,WMSW 8 2373 V P62 D56 1 171 1107 10 89 * 1108 10 90 * PROCESS RECORD 1109 10 91 * 1110 10 92 NXTRCD BCE DOWM,TYPEA,0 8 2381 B N39 D59 0 171 1111 10 93 BCE ENDRTN,TYPEA,3 8 2389 B '08 D59 3 171 1112 10 94 BWZ TSTDC,TYPE,B 8 2397 V O17 075 B 172 1113 10 95 * 1114 10 96 * TEST ROOM ON CARD 1115 10 97 * 1116 10 98 TSTROM C COUNT,@39@ 7 2405 C 007 G20 172 1117 10 99 BL TSTCON 5 2412 B Q91 T 172 1118 11 00 MCW PNHLOC,ROOMCT#3 7 2417 M C81 G23 172 1119 11 01 A COUNT,ROOMCT 7 2424 A 007 G23 172 1120 11 02 C ROOMCT,@039@ 7 2431 C G23 G26 173 1121 11 03 BL SETPNH 5 2438 B O09 T 173 1122 11 04 BW RSTCTR,NEWSW#1 8 2443 V N98 G27 1 173 1123 11 05 * 1124 11 06 * TEST SEQUENCE 1125 11 07 * 1126 11 08 MCW COUNTR#5,SEQCT#5 7 2451 M G32 G37 173 1127 11 09 A COUNT,SEQCT 7 2458 A 007 G37 173 1128 11 10 C LOADAD,SEQCT 7 2465 C E83 G37 174 1129 11 11 BU SETPNH 5 2472 B O09 / 174 1130 11 12 A COUNT,COUNTR 7 2477 A 007 G32 174 1131 11 13 * 1132 11 14 * MOVE DATA TO PUNCH AREA 1133 11 15 * 1134 11 16 MVDATA SBR XR3,HOLDH 7 2484 H 099 D92 174 1135 11 17 A COUNT,XR3 7 2491 A 007 099 174 1136 11 18 A COUNT,PNHLOC 7 2498 A 007 C81 175 1137 11 19 MCW PNHLOC,XR2 7 2505 M C81 094 175 1138 11 20 MCW XXXX&X3,PUNCH&X2 7 2512 M 0?0 1!0 175 1139 11 21 CW DATASW#1 4 2519 ) G38 175 1140 11 22 BW FIRST,NEWSW 8 2523 V O53 G27 1 175 1141 11 23 BWZ CNDOUT,TYPE,B 8 2531 V ?07 075 B 176 1142 11 24 * 1143 11 25 * SET WORD MARK ADDRESS 1144 11 26 * 1145 11 27 DOWM MCW WMADDR,CNVADD#5 7 2539 M E78 G43 176 1146 11 28 B CNVRT 4 2546 B P16 176 1147 11 29 A &3,WMLOC 7 2550 A G44 C75 176 1148 11 30 MCW WMLOC,XR1 7 2557 M C75 089 176 1149 11 31 MCW CNVADD,WMADDR-2 7 2564 M G43 E76 177 1150 11 32 MCW WMADDR-2,XXXX&X1 7 2571 M E76 0'0 177 1151 11 33 C XR1,&WMSTR-3 7 2578 C 089 G47 177 1 1401 AUTOCODER-PASS 7 RIGHT MAIN LINE -VERSION 3 3774L PAGE 24 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1152 11 34 BU CNDOUT 5 2585 B ?07 / 177 1153 11 35 SW WMSW 4 2590 , D56 177 1154 11 36 B CNDOUT 4 2594 B ?07 177 1155 11 37 RSTCTR MCW LOADAD,COUNTR 7 2598 M E83 G32 178 1156 11 38 B MVDATA 4 2605 B M84 178 1157 11 39 SETPNH B PNCHCD 4 2609 B P62 178 1158 11 40 B NXTRCD 4 2613 B L81 178 1159 11 41 TSTDC BW COMPWM,NEWSW 8 2617 V O29 G27 1 178 1160 11 42 B TSTROM 4 2625 B M05 178 1161 11 43 COMPWM C WMLOC,AWMSTR 7 2629 C C75 C78 178 1162 11 44 BE TSTROM 5 2636 B M05 S 179 1163 11 45 SW DCSW#1 4 2641 , G48 179 1164 11 46 B PNCHCD 4 2645 B P62 179 1165 11 47 B TSTROM 4 2649 B M05 179 1166 11 48 * 1167 11 49 * FIRST DATA ON CARD 1168 11 50 * 1169 11 51 FIRST CW NEWSW 4 2653 ) G27 179 1170 11 52 BWZ PRODC,TYPE,B 8 2657 V O69 075 B 179 1171 11 53 B CNDOUT 4 2665 B ?07 179 1172 11 54 * 1173 11 55 * CONDENSE DC CARDS 1174 11 56 * 1175 11 57 PRODC MCW @)@,PUNCH&47 7 2669 M G49 147 180 1176 11 58 MCW WMADDR,CNVADD 7 2676 M E78 G43 180 1177 11 59 B CNVRT 4 2683 B P16 180 1178 11 60 MCW CNVADD,WMADDR-2 7 2687 M G43 E76 180 1179 11 61 MCW WMADDR-2,WMSTR-15 7 2694 M E76 C96 180 1180 11 62 MCW WMADDR-2 4 2701 M E76 180 1181 11 63 A &6,WMLOC 7 2705 A G50 C75 181 1182 11 64 B CNDOUT 4 2712 B ?07 181 1183 11 65 * 1184 11 66 * CONVERT 5 TO 3 DIGIT ADDRESS 1185 11 67 * 1186 11 68 CNVRT SBR CNVXT&3 4 2716 H P61 181 1187 11 69 BAV *&1 5 2720 B P25 Z 181 1188 11 70 ADDAGN A &96,CNVADD-3 7 2725 A G52 G40 181 1189 11 71 BAV ADDAGN 5 2732 B P25 Z 181 1190 11 72 MZ CNVADD-4,CNVADD 7 2737 Y G39 G43 181 1191 11 73 MN CNVADD-3,*&4 7 2744 D G40 P54 182 1192 11 74 MZ ZONE,CNVADD-2 7 2751 Y 189 G41 182 1193 11 75 CNVXT B XXXX 4 2758 B 000 182 1194 11 76 * 1195 11 77 * PUNCH A CARD 1196 11 78 * 1197 11 79 PNCHCD SBR PNHXT&3 4 2762 H Q90 182 1198 11 80 BW EDIT,DCSW 8 2766 V Q07 G48 1 182 1199 11 81 BW EDIT,DATASW 8 2774 V Q07 G38 1 182 1200 11 82 MCW COUNTR,CNVADD 7 2782 M G32 G43 183 1201 11 83 B CNVRT 4 2789 B P16 183 1 1401 AUTOCODER-PASS 7 RIGHT MAIN LINE -VERSION 3 3774L PAGE 25 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1202 11 84 MCW CNVADD,WMSTR-21 7 2793 M G43 C90 183 1203 11 85 MCW PNHLOC,WMSTR-24 7 2800 M C81 C87 183 1204 11 86 EDIT MCE WMSTR,PUNCH&71 7 2807 E D11 171 183 1205 11 87 MN @0@,PUNCH&41 7 2814 D F87 141 183 1206 11 88 TSTPCH BCE *&2,CONDSW,0 8 2821 B Q30 C10 0 184 1207 11 89 P 1 2829 4 184 1208 11 90 B WTAP2 4 2830 B ?43 184 1209 11 91 * 1210 11 92 * RESET COUNTERS AND SWITCHES 1211 11 93 * 1212 11 94 NEWCRD A &1,PUNCH&75 7 2834 A D55 175 184 1213 11 95 CS PUNCH&71 4 2841 / 171 184 1214 11 96 LCA @L0 , , , 1 @,PUNCH&71 7 2845 L G84 171 184 1215 11 97 SW NEWSW,DATASW 7 2852 , G27 G38 184 1216 11 98 CW WMSW,DCSW 7 2859 ) D56 G48 185 1217 11 99 MCW @000@,PNHLOC 7 2866 M G87 C81 185 1218 12 00 MCW AWMSTR,WMLOC 7 2873 M C78 C75 185 1219 12 01 MCW @001001040040040040040040040@,WMSTR 7 2880 M H14 D11 185 1220 12 02 PNHXT B XXXX 4 2887 B 000 185 1221 12 03 * 1222 12 04 * CONSTANT GREATER THAN 39 CHARACTERS* 1223 12 05 * 1224 12 06 TSTCON BW *&5,NEWSW 8 2891 V R03 G27 1 186 1225 12 07 B PNCHCD 4 2899 B P62 186 1226 12 08 MCW COUNT,HOLDCT#2 7 2903 M 007 H16 186 1227 12 09 MCW LOADAD,COUNTR 7 2910 M E83 G32 186 1228 12 10 MCW @39@,COUNT 7 2917 M G20 007 186 1229 12 11 S @39@,HOLDCT 7 2924 S G20 H16 187 1230 12 12 S HOLDCT,COUNTR 7 2931 S H16 G32 187 1231 12 13 MZ ZONE-3,HOLDCT 7 2938 Y 186 H16 187 1232 12 14 SW BIGSW#1 4 2945 , H17 187 1233 12 15 MCW WMADDR,SAVEWM#5 7 2949 M E78 H22 187 1234 12 16 B MVDATA 4 2956 B M84 187 1235 12 17 BIGRN B PNCHCD 4 2960 B P62 188 1236 12 18 CW BIGSW 4 2964 ) H17 188 1237 12 19 MCW HOLDCT,COUNT 7 2968 M H16 007 188 1238 12 20 MCW @A@,TYPE 7 2975 M H23 075 188 1239 12 21 MCW HOLDDT,HOLDDT-39 7 2982 M E44 E05 188 1240 12 22 MCW SAVEWM,WMADDR 7 2989 M H22 E78 188 1241 12 23 A @39@,WMADDR 7 2996 A G20 E78 189 1242 12 24 B RSTCTR 4 3003 B N98 189 1243 12 25 * 1244 12 26 * EXIT FROM CONDENSE ROUTINE* 1245 12 27 * 1246 12 28 CNDOUT MCS PUNCH&75,CARDNO 7 3007 Z 175 314 189 1247 12 29 S XR3&1 4 3014 S 100 189 1248 12 30 S 1 3018 S 189 1249 12 31 S 1 3019 S 189 1250 12 32 BW BIGRN,BIGSW 8 3020 V R60 H17 1 189 1251 12 33 MCW BLANK1,HOLDDT 7 3028 M D30 E44 190 1 1401 AUTOCODER-PASS 7 RIGHT MAIN LINE -VERSION 3 3774L PAGE 26 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1252 12 34 MCW HOLDDT 4 3035 M E44 190 1253 12 35 CONDXT B XXXX 4 3039 B 000 190 1254 12 36 WTAP2 SBR WT2XT&3 4 3043 H ?82 190 1255 12 37 BW WT2XT,TAPOP 8 3047 V ?79 C69 1 190 1256 12 38 MCW @&@,100 7 3055 M H24 100 190 1257 12 39 WT 3,100 8 3062 M %U3 100 W 191 1258 12 40 NOP XXXX 4 3070 N 000 191 1259 12 41 BER TPERR 5 3074 B 334 L 191 1260 12 42 WT2XT B XXXX 4 3079 B 000 191 1261 12 43 * 1262 12 44 * SEQUENCE ERROR ON INPUT RECORDS 1263 12 45 * 1264 12 46 SEQERR H XXXX,777 7 3083 . 000 777 191 1265 12 47 B SEQERR 4 3090 B ?83 191 1266 12 48 GETOV2 RTW SYSTAP,ISIOCS 8 3094 L %U1 794 R 192 1267 12 49 NOP XXXX 4 3102 N 000 192 1268 12 50 BER TPERR 5 3106 B 334 L 192 1269 12 51 CW OV2GM 4 3111 ) T32 192 1270 12 52 BSP SYSTAP 5 3115 U %U1 B 192 1271 12 53 B EXEND 4 3120 B 794 192 1272 12 54 * 1273 12 55 * GET RECORD FROM WORKING TAPE 1274 12 56 * 1275 12 57 GET SBR WORKXT&3 4 3124 H B08 192 1276 12 58 C BLKCT,KBLKNG 7 3128 C C00 C04 193 1277 12 59 BU NXTREC 5 3135 B A68 / 193 1278 12 60 S HOLDA 4 3140 S C01 193 1279 12 61 SBR LGTCK&6,INPUT5&13 7 3144 H B80 I31 193 1280 12 62 RT WORKTP,INPUT5 8 3151 M %U5 I18 R 193 1281 12 63 B CHKLGT 4 3159 B B59 193 1282 12 64 BER TPERR 5 3163 B 334 L 194 1283 12 65 NXTREC A &80,BLKCT 7 3168 A H26 C00 194 1284 12 66 MCW BLKCT,XR3 7 3175 M C00 099 194 1285 12 67 MCW FIXINP,FIXFRM&80 7 3182 M IA7 080 194 1286 12 68 CHAIN 10 MACRO 1287 MCW 1 3189 M GEN 194 1288 MCW 1 3190 M GEN 194 1289 MCW 1 3191 M GEN 194 1290 MCW 1 3192 M GEN 195 1291 MCW 1 3193 M GEN 195 1292 MCW 1 3194 M GEN 195 1293 MCW 1 3195 M GEN 195 1294 MCW 1 3196 M GEN 195 1295 MCW 1 3197 M GEN 195 1296 MCW 1 3198 M GEN 195 1297 12 69 S XR3&1 4 3199 S 100 196 1298 12 70 S 1 3203 S 196 1299 12 71 S 1 3204 S 196 1300 12 72 WORKXT B XXXX 4 3205 B 000 196 1301 12 73 * 1 1401 AUTOCODER-PASS 7 RIGHT MAIN LINE -VERSION 3 3774L PAGE 27 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1302 12 74 * READ ORIGINAL TAPE 1303 12 75 * 1304 12 76 READOG SBR ORIGXT&3 4 3209 H B58 196 1305 12 77 MCW BLANK1,IMAGE&21 7 3213 M D30 H51 196 1306 12 78 S IMAGE&20 4 3220 S H50 196 1307 12 79 S 1 3224 S 197 1308 12 80 S 1 3225 S 197 1309 12 81 S 1 3226 S 197 1310 12 82 SBR LGTCK&6,INPUT4&12 7 3227 H B80 H43 197 1311 12 83 RT ORIGTP,INPUT4 8 3234 M %U4 H31 R 197 1312 12 84 B CHKLGT 4 3242 B B59 197 1313 12 85 BER TPERR 5 3246 B 334 L 197 1314 12 86 S XR2&1 4 3251 S 095 198 1315 12 87 ORIGXT B XXXX 4 3255 B 000 198 1316 12 88 * 1317 12 89 * CHECK FOR SHORT RECORDS 1318 12 90 * 1319 12 91 CHKLGT SBR XR2 4 3259 H 094 198 1320 12 92 SBR LGTXT&3 4 3263 H B97 198 1321 12 93 MZ @B@,XR2 7 3267 Y D12 094 198 1322 12 94 LGTCK BCE 4000-12&X2,XXXX,} 8 3274 B IQ8 000 } GMARK 198 1323 12 95 CHAIN 12 MACRO 1324 BCE 1 3282 B GEN 198 1325 BCE 1 3283 B GEN 199 1326 BCE 1 3284 B GEN 199 1327 BCE 1 3285 B GEN 199 1328 BCE 1 3286 B GEN 199 1329 BCE 1 3287 B GEN 199 1330 BCE 1 3288 B GEN 199 1331 BCE 1 3289 B GEN 199 1332 BCE 1 3290 B GEN 200 1333 BCE 1 3291 B GEN 200 1334 BCE 1 3292 B GEN 200 1335 BCE 1 3293 B GEN 200 1336 12 96 LGTXT B XXXX 4 3294 B 000 200 1337 12 97 HOLDA DCW &0000 4 3301 200 1338 12 98 BLKCT EQU HOLDA-1 3300 1339 12 99 KBLKNG DCW @080@ 3 3304 200 1340 13 00 OBJCOR DCW @ 3999@ 5 3309 201 1341 13 01 CONDSW DCW @0@ 1 3310 201 1342 13 02 JOB DCW #52 52 3362 203 1343 13 03 ERRCNT DCW @0000@ 4 3366 203 1344 13 04 DCW @ @ 1 3367 203 1345 13 05 SSAVE DCW @ @ 1 3368 203 1346 13 06 TAPOP DCW @ @ 1 3369 203 1347 13 07 LSTOP DCW @ @ 1 3370 204 1348 13 08 NOOUT DCW @ @ 1 3371 204 1349 13 09 SAVCON EQU HOLDA-3 3298 1350 13 10 GMSAVE DC @}@ 1 3372 GMARK 204 1351 13 11 WMLOC DSA WMSTR-21 3 3375 C90 204 1 1401 AUTOCODER-PASS 7 RIGHT MAIN LINE -VERSION 3 3774L PAGE 28 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1352 13 12 AWMSTR DSA WMSTR-21 3 3378 C90 204 1353 13 13 PNHLOC DCW @000@ 3 3381 204 1354 13 14 NUMBER DCW @001@ 3 3384 204 1355 13 15 WMSTR DCW @001001040040040040040040040@ 27 3411 205 1356 13 16 LTORG * 3412 DCW @B@ 1 3412 LIT 205 DCW @/ 080@ 9 3421 LIT 205 DCW @/ 080@ 7 3428 LIT 206 DCW @1@ 1 3429 LIT 206 BLANK4 DCW #04 4 3433 AREA 206 ADDRSW DCW #01 1 3434 AREA 206 DCW @ERRORS@ 6 3440 LIT 206 DCW @ 1@ 4 3444 LIT 206 DCW @N000000@ 7 3451 LIT 206 DCW @JOB@ 3 3454 LIT 207 DCW &1 1 3455 LIT 207 WMSW DCW #01 1 3456 AREA 207 DCW &5 1 3457 LIT 207 TYPESW DCW #01 1 3458 AREA 207 TYPEA DCW #01 1 3459 AREA 207 DCW @IOCS@ 4 3463 LIT 207 DCW @MACRO@ 5 3468 LIT 208 DCW @OVERCALL@ 8 3476 LIT 208 DCW @ADCON@ 5 3481 LIT 208 DCW @RMARK@ 5 3486 LIT 208 DCW @G@ 1 3487 LIT 208 DCW @LIT@ 3 3490 LIT 208 DCW @00@ 2 3492 LIT 208 HOLDDT DCW #52 52 3544 AREA 210 DCW @#@ 1 3545 LIT 210 DCW @AREA@ 4 3549 LIT 210 DCW @IO@ 2 3551 LIT 210 DCW @GEN@ 3 3554 LIT 210 DCW @X@ 1 3555 LIT 211 DCW @LABEL@ 5 3560 LIT 211 DCW @BAD STATEMENT@ 13 3573 LIT 211 WMADDR DCW #05 5 3578 AREA 211 LOADAD DCW #05 5 3583 AREA 211 DCW @ OP@ 3 3586 LIT 211 DCW @FIELD@ 5 3591 LIT 211 DCW @SBF@ 3 3594 LIT 212 DCW @DA @ 3 3597 LIT 212 DCW @ NO B X L@ 9 3606 LIT 212 DCW @ 0081@ 5 3611 LIT 212 LINCT DCW #02 2 3613 AREA 212 DCW @PAGE@ 4 3617 LIT 212 DCW @SFX CT LOCN INSTRUCTION TYPE CARD@ 36 3653 LIT 213 DCW @SEQ PG LIN LABEL OP OPERANDS@ 33 3686 LIT 214 DCW @0@ 1 3687 LIT 214 DCW @ ADDR@ 5 3692 LIT 214 1 1401 AUTOCODER-PASS 7 RIGHT MAIN LINE -VERSION 3 3774L PAGE 29 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD DCW @MACRO ERROR@ 11 3703 LIT 215 DCW @ UNDEF ORG@ 10 3713 LIT 215 DCW @ SYM@ 4 3717 LIT 215 SFXCTR DCW #01 1 3718 AREA 215 DCW @39@ 2 3720 LIT 215 ROOMCT DCW #03 3 3723 AREA 215 DCW @039@ 3 3726 LIT 215 NEWSW DCW #01 1 3727 AREA 216 COUNTR DCW #05 5 3732 AREA 216 SEQCT DCW #05 5 3737 AREA 216 DATASW DCW #01 1 3738 AREA 216 CNVADD DCW #05 5 3743 AREA 216 DCW &3 1 3744 LIT 216 DCW &WMSTR-3 3 3747 D08 ADCON 216 DCSW DCW #01 1 3748 AREA 217 DCW @)@ 1 3749 LIT 217 DCW &6 1 3750 LIT 217 DCW &96 2 3752 LIT 217 DCW @L0 , , , 1 @ 32 3784 LIT 217 DCW @000@ 3 3787 LIT 218 DCW @001001040040040040040040040@ 27 3814 LIT 218 HOLDCT DCW #02 2 3816 AREA 218 BIGSW DCW #01 1 3817 AREA 218 SAVEWM DCW #05 5 3822 AREA 218 DCW @A@ 1 3823 LIT 218 DCW @&@ 1 3824 LIT 219 DCW &80 2 3826 LIT 219 1357 13 17 ENDE2 DCW @}@ 1 3827 GMARK 219 1358 13 18 BLANK1 EQU BLANK4-3 3430 1359 13 19 HOLDH EQU HOLDDT-52 3492 1360 13 20 EX LIBRN B 000 220 1361 13 21 END LIBRN / 000 080 1 1401 AUTOCODER-PASS 7 RIGHT MAIN LINE -VERSION 3 3774L PAGE 30 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS AD4KXT 1850 ADCON 944 ADD1 1168 ADD2 1179 ADD4 1190 ADDAGN 2725 ADDERR 2157 ADDR4K 1839 ADDRSW 3434 ADDXT 1274 ADSWXT 2305 ALT 204 ALTER 80 ALTNO 3914 ANALOG 655 ANALWK 604 AOP 70 AREADF 1183 AWMSTR 3378 BADCTL 540 BADDA 1824 BADOP 1637 BADORG 2270 BADPRO 814 BIGRN 2960 BIGSW 3817 BLANK1 3430 BLANK4 3433 BLKCT 3300 BMPERR 2328 BOP 73 BSP1 370 BSP2 414 BSP2I 2483 BSPI 2439 BYPASS 1285 BYPDA 1705 CALERR 828 CARDNO 314 CHKLG 1340 CHKLGT 3259 CHKOP 2126 CKCTL 2078 CLR 1919 CLRLEG 2620 CLRST2 683 CNDOUT 3007 CNDSW1 2633 CNVADD 3743 CNVRT 2716 CNVXT 2758 COMERR 2197 COMPWM 2629 COMXT 2185 CONDNS 2354 CONDOP 400 CONDSW 3310 CONDXT 3039 CONST 1062 CORSIZ 2632 COUNT 7 COUNTR 3732 CT 284 CTLALT 2733 CTLLIN 2738 CTLPAG 2735 CTLPNT 1042 CTLSAV 2729 CTLSW 2719 CTLSW1 2739 DA 1652 DADC 1228 DATASW 3738 DBLDEF 1513 DCSW 3748 DMOD 74 DOHEAD 818 DOIDT 862 DOJOB 843 DOPNT 1886 DOWM 2539 DS 2285 DSA 969 EDIT 2807 ENDE1 1994 ENDE2 3827 ENDIN 3998 ENDIN2 1799 ENDRTN 1008 EOJOB 928 ERRCNT 3366 ERRCT1 2689 ERRCTL 1035 ERREXT 2339 EXCUTE 1057 EXEND 794 EXIT 1311 EXOUT 1096 FIRST 2653 FIXFRM 0 FIXINP 3917+X3 FOURCH 1502 FREEXT 1386 GENSTM 1397 GET 3124 GETMAN 2222 GETORG 600 GETOV1 1963 GETOV2 3094 GM 333 GMSAVE 3372 GOOD 1096 GRPMK3 2695 HEADER 1741 HOLDA 3301 HOLDA1 2624 HOLDCT 3816 HOLDDT 3544 HOLDH 3492 IMAGE 3830 INAOP 297 INBOP 301 INDMOD 303 INIT2 201 INITAP %U0 INOP 293 INPUT4 3831 INPUT5 3918 INST2 499 INST2I 2568 INSTR 1543 IOGEN 1390 IS12K 669 IS4K 544 IS8K 651 ISIOCS 794 JOB 3362 JOBALT 2704 JOBLAB 2715 JOBLIN 2709 JOBPAG 2706 JOBSAV 2685 JOBSW 2700 KBLK1 2627 KBLKNG 3304 KIND 309 LAB 219 LABADD 61 LABEL 3841 LGTCK 3274 LGTXT 3294 LIBRN 0 LIN 211 LINCT 3613 LINENO 3835 LITOUT 1164 LITRAL 999 LOADAD 3583 LOCN 290 LOCXT 1498 LSTAP 1201 LSTAPE 2724 LSTCD 1211 LSTOP 3370 LSTOP1 2693 MAPCNT 805 MNEMON 3850 MVDATA 2484 NEWCRD 2834 NEWSW 3727 NOCARD 992 NOCNTL 1050 NOOUT 3371 NOOUT1 2694 NUMBER 3384 NXTRCD 2381 NXTREC 3168 NXTRPT 1753 OBJCOR 3309 OBJSIZ 2721 OP 67 OPCODE 225 OPERND 3902 OPNSV1 2690 OPNTAP 2214 OPRAND 278 ORG 2212 ORGADD 32 ORGOUT 2234 ORGXT 2262 ORIGTP %U4 ORIGXT 3255 OUTEX 1226 OUTOPN 2722 OV1GM 1417 OV2GM 1332 OVER4K 464 OVRFLO 1951 PAGENO 3832 PG 207 PHDGXT 2120 PLUS1 539 PLUS9 538 PNCHCD 2762 PNHLOC 3381 PNHXT 2887 PNT2XT 1099 PNTDA 1796 PRINT 200 PRINT2 1061 PRNTLN 1854 PRNTXT 1947 PRODC 2669 PROLIT 1041 PROSIZ 2720 PROWRK 881 PRTHDG 2000 PRTPNH 1217 PUADSW 2297 PUNCH 100 PUNCH1 1286 RDRERI 2476 RDRERR 407 READ4 1315 READ4X 1336 READCI 2783 READCT 540 READOG 3209 REDXI 2472 REDXT 403 RESET 543 ROOMCT 3723 RPTOUT 1721 RSTCTR 2598 SAVCN1 2621 SAVCON 3298 SAVEWM 3822 SENSW 1103 SEQCT 3737 SEQERR 3083 SETADD 1245 SETAOP 830 SETCOM 2172 SETDA 1693 SETERH 945 SETFRE 1301 SETLIT 1156 SETLOC 1418 SETOUT 2349 SETPNH 2609 SETUP 595 SFX 2343 SFXCTR 3718 SSAVE 3368 SSAVE1 2691 SSOP 1900 SSXT 1153 STLABL 2 STMBAD 1528 STSTMT 5 SUBCTI 2585 SUBCTR 516 SUFFIX 280 SUPADD 66 SUPLST 1209 SYMUND 2309 SYSTAP %U1 TAPOP 3369 TAPOP1 2692 TPERR 334 TPERRI 2403 TPHALI 2510 TPHALT 441 TPINSI 2459 TPINST 390 TSTCON 2891 TSTCOR 900 TSTCTL 970 TSTDC 2617 TSTEND 1020 TSTFR 1466 TSTLBL 1474 TSTOP 2134 TSTPCH 2821 TSTROM 2405 TSTSIZ 407 TSTSSC 1133 TSTSSD 1143 TSTSSE 1148 TSTSSG 1138 TSTSTM 1482 TYPE 75 TYPEA 3459 TYPERR 1278 TYPESW 3458 UNDXT 2324 UNSIGN 1172 WMADDR 3578 WMLOC 3375 WMSTR 3411 WMSW 3456 WORD1 1249 WORD2 1288 WORD3 1299 WORD4 1320 WORD5 1331 WORKTP %U5 WORKXT 3205 WRTCTI 2785 WRTCTR 542 WRTRDI 2548 WRTRED 479 WT2XT 3079 WTAP2 3043 WTAPE 2124 WTHEAD 2052 WTXT 2153 XR1 89 XR2 94 XR3 99 XTRA 924 XTRATP %U6 XXXX 0 ZONE 189 ----------------- source code --------------------------- 101 000 job 1401 autocoder-pass 7-list,condns-initl 1 -version 3 3771l 102 ctl 630 1 103 * 104 * equaters used by the program 105 * 106 initap equ %u0 107 systap equ %u1 108 origtp equ %u4 109 worktp equ %u5 110 xtratp equ %u6 111 fixfrm equ 0 112 stlabl equ fixfrm&2 113 ststmt equ fixfrm&5 114 count equ fixfrm&7 115 orgadd equ fixfrm&32 116 labadd equ fixfrm&61 117 supadd equ fixfrm&66 118 op equ fixfrm&67 119 aop equ fixfrm&70 120 bop equ fixfrm&73 121 dmod equ fixfrm&74 122 type equ fixfrm&75 123 alter equ fixfrm&80 124 xxxx equ 0 125 print equ 200 126 alt equ print&4 127 pg equ print&7 128 lin equ print&11 129 lab equ print&19 130 opcode equ print&25 131 oprand equ print&78 132 suffix equ print&80 133 ct equ print&84 134 locn equ print&90 135 inop equ print&93 136 inaop equ print&97 137 inbop equ print&101 138 indmod equ print&103 139 kind equ print&109 140 cardno equ print&114 141 punch equ 100 142 librn equ 0 143 zone equ 189 144 xr1 equ 89 145 xr2 equ 94 146 xr3 equ 99 147 * 148 * initialization routine 149 * 150 org 1900 151 ssop dcw @b@ 152 cs 332 153 cs 154 cs 155 cs 156 rtw systap,400 157 nop xxxx 158 ber tperri 159 cw endin2,lstop1 160 sw endin 161 lca endin,333 162 lca endin,181 163 mcw ssop,tstsiz 164 mcw ssop,ssave1 165 cw endin 166 rwd origtp 167 rwd worktp 168 rwd xtratp 169 sw punch&72,punch&76 170 a &1,punch&75 171 b read4 172 * 173 * check for job card 174 * 175 c mnemon-2,@job@ 176 bu ckctl 177 cw jobsw#1 178 rt worktp,180 179 lca 333,181 180 mcw opernd,jobsav 181 mcw image&80,punch&80 182 mcw altno,jobalt#4 183 mcw pageno,jobpag#2 184 mcw lineno,joblin#3 185 mcw label,joblab#6 186 b read4 187 * 188 * check for control card 189 * 190 ckctl c mnemon-2,@ctl@ 191 bu tstsiz 192 cw ctlsw#1 193 mcw image&30,ctlsav#10 194 mcw altno,ctlalt#4 195 mcw pageno,ctlpag#2 196 mcw lineno,ctllin#3 197 b read4 198 * 199 * test output options desired 200 * 201 chkop bce opntap,lstape,1 202 tstop bce tstsiz,outopn,0 203 bce condop,outopn,1 204 bce tstsiz,outopn,2 205 bce condop,outopn,3 206 bce tstsiz,outopn,4 207 bce condop,outopn,5 208 bce tstsiz,outopn,6 209 bce condop,outopn,7 210 bce tstsiz,outopn, 211 cw ctlsw1#1 212 b tstsiz 213 opntap cw tapop1 214 b tstop 215 * 216 * setup & get main program 217 * 218 getman bsp origtp 219 sw fixfrm&1,fixfrm&6 220 sw fixfrm&8,fixfrm&14 221 sw fixfrm&23,fixfrm&57 222 sw fixfrm&62,fixfrm&67 223 sw fixfrm&68,fixfrm&71 224 sw fixfrm&74 225 cw 181,333 226 mcw kblk1,holda1-1 227 lca @l0 , , , 1 @,punch&71 228 lca @2skb@,zone 229 lca @00000@,xr3&2 230 lca xr3&2 231 lca 232 sw grpmk3 233 bce setout,cndsw1,1 234 bw *&5,lstop1 235 b setout 236 bw *&5,tapop1 237 b setout 238 mcw @1@,noout1 239 setout mcw outopn,opnsv1 240 wtw xtratp,savcn1 241 nop xxxx 242 ber tperri 243 rwd xtratp 244 cw grpmk3 245 rtw systap,201 246 nop xxxx 247 ber tperri 248 b init2 249 * 250 * tape redundancy routine 251 * 252 tperri sbr xr2 253 sbr redxi&3 254 mz &9,xr2 255 mcw 4000-10&x2,tpinsi&7 256 mn tpinsi&3,bspi&3 257 mcw tpinsi&7,inst2i&7 258 bspi bsp initap 259 bce wrtrdi,tpinsi&7,w 260 mcw &9,readci#1 261 tpinsi rt initap,xxxx 262 ber rdreri 263 redxi b xxxx 264 rdreri mn tpinsi&3,bsp2i&3 265 bsp2i bsp initap 266 s &1,readci 267 bwz tpinsi,readci,b 268 mn tpinsi&3,tphali&6 269 tphali h xxxx,790 270 mcw tpinsi&7,*&8 271 rt initap,xxxx 272 bss bspi,e 273 h xxxx,711 274 b redxi 275 wrtrdi skp systap 276 bce subcti,wrtcti-1,5 277 a &1,wrtcti#2 278 inst2i wt initap,xxxx 279 ber bspi 280 b redxi 281 subcti s wrtcti 282 mn tpinsi&3,*&7 283 h xxxx,760 284 b inst2i 285 clrleg dcw @clear storage @ 286 holda1 dcw &0000 287 kblk1 dcw @080@ 288 corsiz dcw @ 3999@ 289 cndsw1 dcw @0@ 290 jobsav dcw #52 291 errct1 dcw @0000@ 292 opnsv1 dcw @ @ 293 ssave1 dcw @ @ 294 tapop1 dcw @ @ 295 lstop1 dcw @ @ 296 noout1 dcw @ @ 297 grpmk3 dc @}@ 298 savcn1 equ holda1-3 299 ltorg* 300 org 3831 301 input4 da 1x86 302 pageno 1,2 303 lineno 3,5 304 label 6,11 305 mnemon 16,20 306 opernd 21,72 307 altno 81,84 308 image equ input4-1 309 fixinp equ image&87&x3 310 input5 equ fixinp&1&x0 311 prosiz equ ctlsav-9 312 objsiz equ ctlsav-8 313 outopn equ ctlsav-7 314 lstape equ ctlsav-5 315 endin equ 3998 316 3998 dcw @}@ 317 xfr librn 318 job 1401 autocoder-pass 7-list,condns-initl 2 -version 3 3772l 319 org 400 320 * 321 * condense option 322 * 323 condop mcw @1@,cndsw1 324 * 325 * test object machine size 326 * 327 tstsiz bss sensw,f 328 bw *&3,lstop1 329 cc 1 330 mcw @1@,print&15 331 mcw clrleg 332 mcw @1@,200 333 bw is4k,ctlsw 334 c objsiz,@3@ 335 bl over4k 336 b is4k 337 over4k c objsiz,@6@ 338 bl badctl 339 mcw @,053053n000000n00001026@,punch&52 340 lca @,008015,022026,030037,044,049@ 341 mcw punch&52,print&72 342 b prtpnh 343 mcw @1,001/001117I0?@,punch&71 344 mcw @#071029c029056b026/b001/099@ 345 lca @l068116,105106,110117b101/i9i@ 346 bce is8k,objsiz,4 347 bce is12k,objsiz,5 348 mcw @15@,corsiz-3 349 b clrst2 350 badctl cw ctlsw1 351 is4k mcw @,0570571026@,punch&44 352 lca @,008015,019026,030,034041,045,053@ 353 mcw punch&44,print&64 354 b prtpnh 355 mcw @b0010270b0261,001/001113I0@,punch&70 356 lca @l068112,102106,113/101099/I99,027a070028)027@ 357 bce clrst2,objsiz,3 358 mz @s@,punch&27 359 mcw @1@,corsiz-3 360 bce clrst2,objsiz,2 361 mcw @t@,punch&27 362 mcw @3@,corsiz-2 363 bce clrst2,objsiz,1 364 cw ctlsw1 365 mcw @I@,punch&27 366 mcw @39@,corsiz-2 367 b clrst2 368 is8k mz @s@,punch&29 369 mcw @7@,corsiz-3 370 b clrst2 371 is12k mz @k@,punch&29 372 mcw @11@,corsiz-3 373 clrst2 mcw punch&71,print&91 374 mcw @2@,print&15 375 mcw clrleg 376 b prtpnh 377 mcw @,0010011040@,punch&71 378 mcw @,061068,072/061039@,punch&46 379 lca @,008015,022029,036040,047054@ 380 mcw punch&71,print&91 381 mcw @bootstrap@,print&9 382 b prtpnh 383 bw *&3,lstop1 384 cc k 385 bw dohead,ctlsw 386 * 387 * test processor machine size 388 * 389 c prosiz,@3@ 390 be dohead 391 bh badpro 392 c prosiz,@6@ 393 bl badpro 394 mcw @400@,kblk1 395 bce dohead,prosiz,4 396 a @400@,kblk1 397 b dohead 398 badpro cw ctlsw1 399 * 400 * print heading, job & control cards 401 * 402 dohead mcw @1@,print&114 403 mcw @page@,print&109 404 mcw jobsav,oprand 405 mcw punch&80,locn 406 mcw @0@,200 407 b print2 408 bw *&3,lstop1 409 cc k 410 cs print&78 411 mcw @sfx ct locn instruction type card@,print&114 412 mcw @seq pg lin label op operands@,print&34 413 mcw @0@,200 414 b print2 415 cs print&132 416 cs 417 b print2 418 bw tstctl,jobsw 419 mcs jobalt,alt 420 mcs jobpag,pg 421 mz jobpag,pg 422 mcw joblin,lin 423 mcw joblab,lab 424 mcw @job@,opcode-2 425 mcw jobsav,oprand 426 b print2 427 cs oprand 428 tstctl bw nocntl,ctlsw 429 mcs ctlalt,alt 430 mcs ctlpag,pg 431 mz ctlpag,pg 432 mcw ctllin,lin 433 mcw ctlsav,print&36 434 mcw @ctl@,opcode-2 435 bw ctlpnt,ctlsw1 436 mcw @bad statement@,print&128 437 errctl a &1,errct1 438 ctlpnt b print2 439 b getman 440 nocntl mcw @no control card@,print&130 441 b errctl 442 print2 sbr pnt2xt&3 443 bw *&2,lstop1 444 w 445 bw pnt2xt,tapop1 446 wt 3,200 447 nop xxxx 448 ber tperri 449 pnt2xt b xxxx 450 * 451 * test sense switches for output options 452 * 453 sensw lca @0@,outopn 454 lca @0@,cndsw1 455 mcw @ @,lstape 456 sw tapop1 457 bss add1,b 458 tstssc bss add2,c 459 tstssg bss add4,g 460 tstssd bss lstap,d 461 tstsse bss suplst,e 462 ssxt cw outopn 463 mcw @n@,tstsiz 464 b chkop 465 add1 a &1,outopn 466 b tstssc 467 add2 a &2,outopn 468 b tstssg 469 add4 a &4,outopn 470 b tstssd 471 lstap cw tapop1 472 b tstsse 473 suplst sw lstop1 474 b ssxt 475 * 476 * print and/or punch 477 * 478 prtpnh sbr exit&3 479 mcs punch&75,cardno 480 bw *&2,lstop1 481 w 482 bw punch1,tapop1 483 wt 3,200 484 nop xxxx 485 ber tperri 486 mcw @&@,100 487 wt 3,100 488 nop xxxx 489 ber tperri 490 punch1 bce *&2,cndsw1,0 491 p 492 a &1,punch&75 493 cs print&132 494 cs 495 cs punch&71 496 exit b xxxx 497 * 498 * read original tape 499 * 500 read4 sbr read4x&3 501 rt origtp,input4 502 b chklg 503 ber tperri 504 read4x b xxxx 505 chklg bce read4&4,input4&12,} 506 chain12 507 b read4x-5 508 ltorg* 509 endin2 dcw @}@ 510 xfr librn 511 job 1401 autocoder-pass 7 process ex/end -version 3 3775l 512 org isiocs 513 * 514 * ex, end cards 515 * 516 exend mcw @b@,inop 517 mcw @b@,holdh&1 518 bce setaop,type,c 519 mcw @/ 080@,inbop 520 mcw @/ 080@,holdh&7 521 setaop mcw aop,inaop 522 mcw aop,holdh&4 523 bce symund,aop,# 524 b setloc 525 b condns 526 b prntln 527 bce getov1,type,c 528 cc 1 529 mcw @1@,200 530 mcs errcnt,print&4 531 c print&4,blank4#4 532 bu seterh 533 tstcor bw eojob,addrsw#1 534 mcw word1,print&20 535 b wtape 536 bw *&2,lstop 537 w 538 eojob bw reset,tapop 539 wtm 3 540 b reset 541 seterh mcw @errors@,print&11 542 c print&4,@ 1@ 543 bu *&8 544 mcw blank1,print&11 545 b wtape 546 bw *&2,lstop 547 w 548 cs print&11 549 b tstcor 550 * 551 * condense ex, end cards 552 * 553 nocard c wmloc,awmstr 554 be tstend 555 cw newsw 556 endrtn bw nocard,newsw 557 b pnchcd 558 tstend bce excute,type,c 559 cs punch&71 560 mcw holdh&7,punch&46 561 mcs punch&75,cardno 562 sbr pnhxt&3,lstcd 563 b tstpch 564 excute mce wmstr,punch&71 565 mcw @n000000@,punch&46 566 mcw holdh&4,punch&71 567 mcs punch&75,cardno 568 sbr pnhxt&3,exout 569 b tstpch 570 * 571 * punch compatibility cards 572 * 573 exout cs punch&71 574 b readog 575 bsp origtp 576 c mnemon-2,@job@ 577 bu *&8 578 mcw image&80,punch&80 579 mcw word2,punch&39 580 lca word3,punch&66 581 mcw punch&66,punch&50 582 bce *&2,condsw,0 583 p 584 b wtap2 585 cs punch&66 586 a &1,punch&75 587 mcw word4,punch&21 588 mcw word5,punch&71 589 sbr pnhxt&3,outex 590 bce *&2,condsw,0 591 p 592 b wtap2 593 b newcrd 594 lstcd cs punch&80 595 bce *&4,condsw,0 596 p 597 ss 8 598 outex b cndout&7 599 word1 dcw @object core exceeded@ 600 word2 dcw @,015022)024056,029036,040047,0540611001@ 601 word3 dcw @,001008b001@ 602 word4 dcw @,068072)063067/061039@ 603 word5 dcw @,0010011040@ 604 ov2gm dcw @}@ 605 xfr librn 606 job 1401 autocoder-pass 7 left main line -version 3 3773l 607 * 608 * read second half of main program 609 * 610 org 201 611 init2 rtw systap,2000 612 nop xxxx 613 ber tperr 614 rtw xtratp,savcon 615 nop xxxx 616 ber tperr 617 rwd xtratp 618 cw gmsave,wmsw#1 619 cw ende1,ende2 620 sw gm,181 621 sw ov1gm 622 wtw xtratp,isiocs 623 nop xxxx 624 ber tperr 625 rwd xtratp 626 cw ov1gm 627 za &5,linct 628 bce reset,noout,1 629 b get 630 b setup 631 dcw @ @ 632 * 633 * main line program 634 * 635 org 333 636 gm dc @}@ 637 * 638 * tape redundancy routine 639 * 640 tperr sbr xr2 641 sbr redxt&3 642 mz plus9,xr2 643 mcw 4000-10&x2,tpinst&7 644 mn tpinst&3,bsp1&3 645 mcw tpinst&7,inst2&7 646 bsp1 bsp initap 647 bce wrtred,tpinst&7,w 648 mcw plus9,readct 649 tpinst rt initap,xxxx 650 ber rdrerr 651 redxt b xxxx 652 rdrerr mn tpinst&3,bsp2&3 653 bsp2 bsp initap 654 s plus1,readct 655 bwz tpinstm,readct,b 656 mn tpinst&3,tphalt&6 657 tphalt h xxxx,790 658 mcw tpinst&7,*&8 659 rt initap,xxxx 660 bss bsp1,e 661 h xxxx,712 662 b redxt 663 wrtred skp systap 664 bce subctr,wrtctr-1,5 665 a plus1,wrtctr 666 inst2 wt initap,xxxx 667 ber bsp1 668 b redxt 669 subctr s wrtctr 670 mn tpinst&3,*&7 671 h xxxx,760 672 b inst2 673 plus9 dcw &9 674 plus1 dcw &1 675 readct dcw #1 676 wrtctr dcw #2 677 * 678 * get pass f 679 * 680 reset lca ssave,201 681 lca 682 rt systap,332 683 cw 181,333 684 rtw systap,2000 685 nop xxxx 686 ber tperr 687 mcw 201,2001 688 mcw 689 b 2002 690 * 691 * begin main line program 692 * 693 setup cs print&132 694 cs 695 getorg b readog 696 * 697 * determine type 698 * 699 analwk sw typesw#1 700 mn type,typea#1 701 bce bypass,type,% 702 bce bypass,type,8 703 bce bypass,type,i 704 bce bypass,type,h 705 bce prowrk,alter, 706 analog bce setcom,label-5,* 707 bce mapcnt,image&75,r 708 bce isiocs,image&75,w 709 bce mapcnt&7,image&75,s 710 bce mapcnt&7,image&75,z 711 c mnemon-2,@job@ 7115 be dojob 712 c alter,altno 713 bu seqerr 714 b setfre 715 cw typesw 716 bce instr,type, 717 mn type,xr2 718 a xr2 719 a xr2 720 b *&1&x2 721 b da 722 b const 723 b dsa 724 b getov2 725 b sfx 726 b typerr 727 b org 728 b ds 729 b typerr 730 b typerr 731 * 732 * macro card 733 * 734 isiocs mcw @iocs@,kind-1 735 b mapcnt&7 736 mapcnt mcw @macro@,kind 737 b setfre 738 bce calerr,image&86,7 739 b comxt 740 calerr mcw @overcall@,print&123 741 b bmperr 742 b comxt 743 * 744 * new job card 745 * 746 dojob mcw opernd,job 747 bw doidt,newsw 748 b pnchcd 749 doidt mcw image&80,punch&80 750 s linct 751 b prthdg 752 b mapcnt&7 753 * 754 * program generaged record 755 * 756 prowrk bce xtra,type,y 757 cw op&1 758 mcs aop,print&11 759 sw op&1 760 bce adcon,type,s 761 bce litral,typea,1 762 b typerr 763 * 764 * literal greater than 30 characters 765 * 766 xtra sw print&27 767 mcw fixfrm&72,oprand 768 chain5 769 b bypass 770 * 771 * adcon card 772 * 773 adcon mcw @adcon@,kind 774 sw print&27 775 mcw fixfrm&53,print&40 776 mcw fixfrm&16,opcode-2 777 dsa mcw bop,print&95 778 mcw bop,holdh&3 779 b setadd 780 bce symund,bop,# 781 b setlit 782 * 783 * literal and area definition cards 784 * 785 litral bwz prolit,type,s 786 bwz dadc,fixfrm&1,b 787 mcw @rmark@,kind 788 bce prolit&7,type,a 789 mcw @g@,kind-4 790 b prolit&7 791 prolit mcw @lit@,kind-2 792 mcw fixfrm&53,print&57 793 mcw fixfrm&16,opcode-2 794 const b setadd 795 a @00@,count 796 c count,@00@ 797 bl good 798 mz zone-1,ststmt 799 b setlit 800 good bce areadf,print&27,# 801 bwz areadf,fixfrm&4,b 802 mcw oprand,holddt-1 803 bce setlit,print&27,@ 804 bwz unsign,print&27,2 805 mcw count,xr1 806 mz blank4,print&27&x1 807 mz print&27,holdh&x1 808 setlit b setloc 809 b condns 810 litout b prntln 811 b bypass 812 unsign mcw oprand,holddt#52 813 b setlit 814 areadf bw *&5,typesw 815 b setlit 816 mcw fixfrm&13,lab 817 mcw blank4-2,print&31 818 mcw count 819 mcw @#@ 820 mcw @area@,kind-1 821 b setlit 822 dadc b setadd 823 b condns 824 cs print&132 825 cs 826 b bypass 827 * 828 * set condense addresses for constants 829 * 830 setadd sbr addxt&3 831 za labadd,loadad 832 mcw loadad 833 s count,wmaddr 834 a &1,wmaddr 835 addxt b xxxx 836 * 837 * get next records 838 * 839 typerr h xxxx,770 840 bypass b get 841 bw analwk,typesw 842 b getorg 843 * 844 * free form record to print area 845 * 846 setfre sbr freext&3 847 mcs altno,alt 848 mcs pageno,pg 849 mz pageno,pg 850 mcw lineno,lin 851 mcw label,lab 852 mcw mnemon,opcode 853 mcw opernd,oprand 854 bce iogen,image&75,z 855 bce iogen,image&75,y 856 bce genstm,image&75,c 857 bce genstm,image&75,s 858 freext b xxxx 859 iogen mcw @io@,kind 860 genstm mcw @gen@,kind-2 861 bce comerr,image&86,b 862 b freext 863 dcw @ @ 864 ov1gm dc @}@ 865 * 866 * assembled information to print area 867 * 868 setloc sbr locxt&3 869 mcs count,ct 870 mcw sfxctr,suffix 871 mn labadd,locn 872 mcw 873 bwz tstfr,labadd-1,2 874 mcw @x@,print&92 875 mz blank1,print&89 876 tstfr bce fourch,labadd-4,0 877 tstlbl bm dbldef,stlabl 878 tststm bm stmbad,ststmt 879 bwz stmbad,ststmt,s 880 locxt b xxxx 881 fourch mcw blank1,locn-4 882 b tstlbl 883 dbldef mcw @label@,print&120 884 b bmperr 885 b tststm 886 stmbad mcw @bad statement@,print&128 887 b bmperr 888 b locxt 889 * 890 * instruction card 891 * 892 instr mcw dmod,indmod 893 mcw bop,inbop 894 mcw aop,inaop 895 mcw op,inop 896 mcw dmod,holdh&8 897 mcw 898 mcw 899 mcw 900 mcw labadd,wmaddr#5 901 mcw labadd,loadad#5 902 a count,loadad 903 s &1,loadad 904 bce symund,bop,# 905 bce symund,aop,# 906 bce badop,op, 907 b setlit 908 badop mcw @ op@,print&123 909 b bmperr 910 b setlit 911 * 912 * define area cards 913 * 914 da bce header,type,0 915 mcw supadd,wmaddr 916 mcw @field@,kind 917 bwz setda,type,b 918 mcw @sbf@,kind-2 919 b orgxt 920 setda b setloc 921 b condns 922 b prntln 923 bypda b get 924 bce rptout,type,' 925 b getorg 926 rptout mcw supadd,wmaddr 927 b condns 928 cs print&132 929 cs 930 b bypda 931 header bwz badda,fixfrm&4,b 932 b setloc 933 nxtrpt mn supadd,print&97 934 mcw 935 mcw labadd,wmaddr 936 b condns 937 b get 938 c fixfrm&16,@da @ 939 bu pntda 940 bce nxtrpt,type,' 941 pntda bce addr4k,print&93,0 942 c print&97,objcor 943 bl puadsw 944 b prntln 945 b getorg 946 badda mcw @ no b x l@,print&129 947 b bmperr 948 b header&8 949 addr4k sbr ad4kxt&3 950 mcw blank1,print&93 951 ad4kxt b xxxx 952 * 953 * print statements 954 * 955 prntln sbr prntxt&3 956 bce dopnt,locn, 957 bce dopnt,typea,7 958 c locn,@ 0081@ 959 bh adderr 960 dopnt bw *&2,lstop 961 w 962 b wtape 963 bce clr,typea,7 964 c locn,objcor 965 bl puadsw 966 clr cs print&132 967 cs 968 bce prntxt,type,3 969 a &1,linct#2 970 bce ovrflo,linct-1,5 971 prntxt b xxxx 972 ovrflo b prthdg 973 s linct 974 b prntxt 975 getov1 rtw xtratp,isiocs 976 nop xxxx 977 ber tperr 978 cw ov1gm 979 rwd xtratp 980 b bypass 981 dcw @ @ 982 ende1 dcw @}@ 983 xfr librn 984 job 1401 autocoder-pass 7 right main line -version 3 3774l 985 org 2000 986 * 987 * print page heading 988 * 989 prthdg sbr phdgxt&3 990 mcw @page@,print&109 991 a &1,number 992 mcs number,print&114 993 mcw job,oprand 994 mcw punch&80,locn 995 bw wthead,lstop 996 cc 1 997 w 998 nk was cc k in rev 0 999 wthead mcw @1@,200 1000 b wtape 1001 cs print&132 1002 cs 1003 mcw @sfx ct locn instruction type card@,print&114 1004 mcw @seq pg lin label op operands@,print&34 1005 bw *&2,lstop 1006 w 1007 mcw @0@,200 1008 b wtape 1009 cs print&132 1010 cs 1011 bw *&2,lstop 1012 w 1013 b wtape 1014 phdgxt b xxxx 1015 wtape sbr wtxt&3 1016 bw wtxt,tapop 1017 wt 3,200 1018 nop xxxx 1019 ber tperr 1020 wtxt b xxxx 1021 adderr mcw @ addr@,print&132 1022 b bmperr 1023 b dopnt 1024 * 1025 * comments card 1026 * 1027 setcom b setfre 1028 mcw opernd,print&80 1029 mcw 1030 mcw 1031 comxt b prntln 1032 b readog 1033 b analog 1034 comerr mcw @macro error@,print&126 1035 b bmperr 1036 b freext 1037 * 1038 * org, ltorg cards 1039 * 1040 org mcw supadd,labadd 1041 mcw orgadd,supadd 1042 bwz badorg,fixfrm&1,2 1043 orgout mn supadd,print&97 1044 mcw 1045 bce addr4k,print&93,0 1046 c print&97,objcor 1047 bl puadsw 1048 orgxt b setloc 1049 b litout 1050 badorg mcw @ undef org@,print&130 1051 b bmperr 1052 b orgout 1053 * 1054 * ds, equ cards 1055 * 1056 ds bce symund,aop,# 1057 b orgxt 1058 * 1059 * error - address exceeds core 1060 * 1061 puadsw sbr adswxt&3 1062 cw addrsw 1063 adswxt b xxxx 1064 * 1065 * error - undefined symbol 1066 * 1067 symund sbr undxt&3 1068 mcw @ sym@,print&127 1069 b bmperr 1070 undxt b xxxx 1071 * 1072 * bump number of errors 1073 * 1074 bmperr sbr errext&3 1075 a &1,errcnt 1076 errext b xxxx 1077 * 1078 * suffix card 1079 * 1080 sfx mcw image&21,sfxctr#1 1081 b litout 1082 * 1083 * condense routine 1084 * 1085 condns sbr condxt&3 1086 cw bigsw,dcsw 1087 bm condxt,ststmt 1088 bw pnchcd,wmsw 1089 * 1090 * process record 1091 * 1092 nxtrcd bce dowm,typea,0 1093 bce endrtn,typea,3 1094 bwz tstdc,type,b 1095 * 1096 * test room on card 1097 * 1098 tstrom c count,@39@ 1099 bl tstcon 1100 mcw pnhloc,roomct#3 1101 a count,roomct 1102 c roomct,@039@ 1103 bl setpnh 1104 bw rstctr,newsw#1 1105 * 1106 * test sequence 1107 * 1108 mcw countr#5,seqct#5 1109 a count,seqct 1110 c loadad,seqct 1111 bu setpnh 1112 a count,countr 1113 * 1114 * move data to punch area 1115 * 1116 mvdata sbr xr3,holdh 1117 a count,xr3 1118 a count,pnhloc 1119 mcw pnhloc,xr2 1120 mcw xxxx&x3,punch&x2 1121 cw datasw#1 1122 bw first,newsw 1123 bwz cndout,type,b 1124 * 1125 * set word mark address 1126 * 1127 dowm mcw wmaddr,cnvadd#5 1128 b cnvrt 1129 a &3,wmloc 1130 mcw wmloc,xr1 1131 mcw cnvadd,wmaddr-2 1132 mcw wmaddr-2,xxxx&x1 1133 c xr1,&wmstr-3 1134 bu cndout 1135 sw wmsw 1136 b cndout 1137 rstctr mcw loadad,countr 1138 b mvdata 1139 setpnh b pnchcd 1140 b nxtrcd 1141 tstdc bw compwm,newsw 1142 b tstrom 1143 compwm c wmloc,awmstr 1144 be tstrom 1145 sw dcsw#1 1146 b pnchcd 1147 b tstrom 1148 * 1149 * first data on card 1150 * 1151 first cw newsw 1152 bwz prodc,type,b 1153 b cndout 1154 * 1155 * condense dc cards 1156 * 1157 prodc mcw @)@,punch&47 1158 mcw wmaddr,cnvadd 1159 b cnvrt 1160 mcw cnvadd,wmaddr-2 1161 mcw wmaddr-2,wmstr-15 1162 mcw wmaddr-2 1163 a &6,wmloc 1164 b cndout 1165 * 1166 * convert 5 to 3 digit address 1167 * 1168 cnvrt sbr cnvxt&3 1169 bav *&1 1170 addagn a &96,cnvadd-3 1171 bav addagn 1172 mz cnvadd-4,cnvadd 1173 mn cnvadd-3,*&4 1174 mz zone,cnvadd-2 1175 cnvxt b xxxx 1176 * 1177 * punch a card 1178 * 1179 pnchcd sbr pnhxt&3 1180 bw edit,dcsw 1181 bw edit,datasw 1182 mcw countr,cnvadd 1183 b cnvrt 1184 mcw cnvadd,wmstr-21 1185 mcw pnhloc,wmstr-24 1186 edit mce wmstr,punch&71 1187 mn @0@,punch&41 1188 tstpch bce *&2,condsw,0 1189 p 1190 b wtap2 1191 * 1192 * reset counters and switches 1193 * 1194 newcrd a &1,punch&75 1195 cs punch&71 1196 lca @l0 , , , 1 @,punch&71 1197 sw newsw,datasw 1198 cw wmsw,dcsw 1199 mcw @000@,pnhloc 1200 mcw awmstr,wmloc 1201 mcw @001001040040040040040040040@,wmstr 1202 pnhxt b xxxx 1203 * 1204 * constant greater than 39 characters* 1205 * 1206 tstcon bw *&5,newsw 1207 b pnchcd 1208 mcw count,holdct#2 1209 mcw loadad,countr 1210 mcw @39@,count 1211 s @39@,holdct 1212 s holdct,countr 1213 mz zone-3,holdct 1214 sw bigsw#1 1215 mcw wmaddr,savewm#5 1216 b mvdata 1217 bigrn b pnchcd 1218 cw bigsw 1219 mcw holdct,count 1220 mcw @a@,type 1221 mcw holddt,holddt-39 1222 mcw savewm,wmaddr 1223 a @39@,wmaddr 1224 b rstctr 1225 * 1226 * exit from condense routine* 1227 * 1228 cndout mcs punch&75,cardno 1229 s xr3&1 1230 s 1231 s 1232 bw bigrn,bigsw 1233 mcw blank1,holddt 1234 mcw holddt 1235 condxt b xxxx 1236 wtap2 sbr wt2xt&3 1237 bw wt2xt,tapop 1238 mcw @&@,100 1239 wt 3,100 1240 nop xxxx 1241 ber tperr 1242 wt2xt b xxxx 1243 * 1244 * sequence error on input records 1245 * 1246 seqerr h xxxx,777 1247 b seqerr 1248 getov2 rtw systap,isiocs 1249 nop xxxx 1250 ber tperr 1251 cw ov2gm 1252 bsp systap 1253 b exend 1254 * 1255 * get record from working tape 1256 * 1257 get sbr workxt&3 1258 c blkct,kblkng 1259 bu nxtrec 1260 s holda 1261 sbr lgtck&6,input5&13 1262 rt worktp,input5 1263 b chklgt 1264 ber tperr 1265 nxtrec a &80,blkct 1266 mcw blkct,xr3 1267 mcw fixinp,fixfrm&80 1268 chain10 1269 s xr3&1 1270 s 1271 s 1272 workxt b xxxx 1273 * 1274 * read original tape 1275 * 1276 readog sbr origxt&3 1277 mcw blank1,image&21 1278 s image&20 1279 s 1280 s 1281 s 1282 sbr lgtck&6,input4&12 1283 rt origtp,input4 1284 b chklgt 1285 ber tperr 1286 s xr2&1 1287 origxt b xxxx 1288 * 1289 * check for short records 1290 * 1291 chklgt sbr xr2 1292 sbr lgtxt&3 1293 mz @b@,xr2 1294 lgtck bce 4000-12&x2,xxxx,} 1295 chain12 1296 lgtxt b xxxx 1297 holda dcw &0000 1298 blkct equ holda-1 1299 kblkng dcw @080@ 1300 objcor dcw @ 3999@ 1301 condsw dcw @0@ 1302 job dcw #52 1303 errcnt dcw @0000@ 1304 dcw @ @ 1305 ssave dcw @ @ 1306 tapop dcw @ @ 1307 lstop dcw @ @ 1308 noout dcw @ @ 1309 savcon equ holda-3 1310 gmsave dc @}@ 1311 wmloc dsa wmstr-21 1312 awmstr dsa wmstr-21 1313 pnhloc dcw @000@ 1314 number dcw @001@ 1315 wmstr dcw @001001040040040040040040040@ 1316 ltorg* 1317 ende2 dcw @}@ 1318 blank1 equ blank4-3 1319 holdh equ holddt-52 1320 ex librn 1321 end librn ------------- object code --------------------------------- ,008015,022026,030037,044,049,053053N000000N00001026 00013771L L068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0?00023771L ,008015,022029,036040,047054,061068,072/061039 ,001001104000033771L B/332///L%U1400RN000 L020Z19,Z01Z05,Z06Z07,Z08Z16104000043771L BM03L)X99O93,I98LI98333LI98181MZ00407 L037Z56,Z25Z32,Z36Z43,Z50040104000053771L MZ00O91)I98U%U4RU%U5RU%U6R,172176 L033Z89,Z64Z68,Z73Z78,Z83040104000063771L AO96175BT15CH48O99B!78/)P00M%U5180R L035!24,Z97!01,!08!13,!17040104000073771L L333181MI02O85MI10180MI14P04MH32P06 L035!59,!32!39,!46!53,040040104000083771L MH35P09MH41P15BT15CH48P18B407/)P19 L034!93,!67!74,!78!85,!90040104000093771L MH60P29MI14P33MH32P35MH35P38BT15 L032J25,J01J08,J15J22,040040104000103771L BK14P241B407P220B400P221B407P222 L032J57,J34J42,J50040,040040104000113771L B400P223B407P224B400P225B407P226 L032J89,J66J74,J82040,040040104000123771L B400P227B407P22 )P39B407)O92BJ34U%U4B L037K26,J98K06,K10K14,K18K22104000133771L ,001006,008014,023057,062067,068071,074L039K65,K34K41,K48K55,K62040104000143771L )181333MO27O23LP71171LP75189LP80101L101L039L04,K73K80,K87K94,L01040104000153771L L,O95BL49O331VL30O931BL49VL42O921BL49 L037L41,L06L10,L18L26,L30L38104000163771L MP81O94MP22O90L%U6O21WN000BM03LU%U6R L036L77,L49L56,L64L68,L73040104000173771L )O95L%U1201RN000BM03LB201H094HM75 L033M10,L82L90,L94L99,M03M07104000183771L YP82094MIR0M66DM62M42MM66N75U%U0B L033M43,M18M25,M32M39,040040104000193771L BN48M66WMP82P83M%U0000RBM76LB000DM62M86L039M82,M52M59,M67M72,M76040104000203771L U%U0BSO96P83VM59P83BDM62N16.000790 L034N16,M88M95,N03N10,040040104000213771L MM66N31M%U0000RBM39E.000711BM72U%U1E L036N52,N24N32,N37N44,N48040104000223771L BN85P845AO96P85M%U0000WBM39LBM72SP85 L036N88,N61N68,N76N81,N85040104000233771L DM62O02.000760BN68CLEAR STORAGE 000?080L039O27,N96O03,O07O21,O25040104000243771L 39990 L006O33,O33040,040040,040040104000253771L L039O72,040040,040040,040040104000263771L 0000 L020O92)O73O73,O86O90,O91O92104000273771L }AJOB L014P06,O94O96,O97P00,P01P05104000283771L CTL L029P35,P10P16,P19P20,P30P34104000293771L L0 , , , 1 L036P71,P39P40,040040,040040104000303771L 2SKB000001I L014P85,P76P81,P82P83,P84H31104000313771L L001001,H31H33,H36H46,H51I11104000323771L } L001I98,040040,040040,040040104000333771L N000000,040040,040040,040040B00000343771L ,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 00353772L ,068072)063067/061039 ,001001104000363772L MT64O33B/03FV422O931F1MT64215MO20 L033432,407412,420422,429040104000373772L MT64200V544P191CP21T65B464TB544CP21T66 L038470,440448,455460,464040104000383772L B540TMT89152LU18M152272BS17MU33171MU60 L038508,476483,487494,498505104000393772L LU89B651P214B669P215MU91O29B683)P39 L035543,513521,529536,540040104000403772L MV02144LV35M144264BS17MV61170LW05 L033576,551555,562566,573040104000413772L B683P213YW06127MT64O29B683P212MW07127 L037613,585592,599607,040040104000423772L MT65O30B683P211)P39MW08127MW10O30B683 L037650,621629,633640,647040104000433772L YW06129MW11O29B683YW12129MW14O29M171291L039689,658665,669676,683040104000443772L MW15215MO20BS17MW26171MW44146LW72 L033722,697701,705712,719040104000453772L M171291MW81209BS17V751O931FKV818P191 L036758,730737,741749,751040104000463772L CP20T65B818SB814UCP20T66B814TMW84O27 L036794,766771,776783,788040104000473772L B818P204AW84O27B818)P39MT64314MW88309 L037831,803810,814818,825040104000483772L MO85278M180290MW89200B'61V867O931FK/278L039870,839846,853857,865867104000493772L MX25314MX58234MW89200B'61/332/B'61 L034904,878885,892896,900901104000503772L V970P001ZP04204ZP06207YP06207MP09211 L036940,913920,927934,040040104000513772L MP15219MX61223MO85278B'61/278V'50P191 L037977,948955,962966,970040104000523772L ZP33204ZP35207YP35207MP38211MP29236 L035'12,985992,999'06,040040104000533772L MX64223V'42P391MX77328AX78O89B'61BK22 L037'49,'20'28,'35'42,'46040104000543772L MX93330B'35H/02V'74O9312V'99O921 L032'81,'57'61,'65'73,'74040104000553772L M%U3200WN000BM03LB000LW89P22LW89O33 L035/16,'90'94,'99/03,/10040104000563772L MX94P24,O92B/68BB/79CB/90GBS01DBS09E L036/52,/24/28,/33/38,/43/48104000573772L )P22MX95407BJ26AX78P22B/33AX96P22B/38 L037/89,/57/64,/68/75,/79/86104000583772L AX97P22B/43)O92B/48,O93B/53HT14 L031S20,/97S01,S05S09,S13S17104000593772L Z175314VS37O9312VS86O921M%U3200WN000 L036S56,S28S36,S37S45,S53040104000603772L BM03LMX98100M%U3100WN000BM03LBS95O3304 L038S94,S62S69,S77S81,S86S94104000613772L AX78175/332//171B000HT39M%U4H31R L032T26,T02T06,T07T11,T15T19104000623772L BT40BM03LB000BT19H43}BBB L024T50,T31T36,T40T48,T49T50104000633772L BBBBBBB L007T57,T52T53,T54T55,T56T57104000643772L BBBT31136,053053N000000N00001026 L032T89,T59T60,T64T65,T66T67104000653772L ,008015,022026,030037,044,049 L029U18,040040,040040,040040104000663772L 1,001/001117I0? L015U33,040040,040040,040040104000673772L #071029C029056B026/B001/099 L027U60,040040,040040,040040104000683772L L068116,105106,110117B101/I9I15 L031U91,U90040,040040,040040104000693772L ,0570571026 L011V02,040040,040040,040040104000703772L ,008015,019026,030,034041,045,053 L033V35,040040,040040,040040104000713772L B0010270B0261,001/001113I0 L026V61,040040,040040,040040104000723772L L068112,102106,113/101099/I99,027A07002L039W00,040040,040040,040040104000733772L 8)027STI39 L010W10)W01W01,W06W07,W08W09104000743772L 7K112,0010011040,061068,072/061039 L034W44,W12W13,W15W16,W27040104000753772L ,008015,022029,036040,047054BOOTSTRAP L037W81,W73040,040040,040040104000763772L 400PAGE0 L008W89,W85W89,040040,040040104000773772L SFX CT LOCN INSTRUCTION TYPE CARD L036X25,040040,040040,040040104000783772L SEQ PG LIN LABEL OP OPERANDSJOBCTLL039X64,X59X62,040040,040040104000793772L BAD STATEMENTANO CONTROL CARD NBD L033X97,X78X79,X94X95,X96X97104000803772L &} L002X99,X99040,040040,040040104000813772L N000000,040040,040040,040040B00000823772L ,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 00833775L ,068072)063067/061039 ,001001104000843775L MD12293MD12D93B830075CMD21301MD28D99 L036829,801808,816823,040040104000853775L M070297M070D96BL09070#BU18BL54BY54 L034863,837844,852856,860040104000863775L BZ63075CF1MD29200ZC66204C204D33B945/ L036899,872874,881888,895040104000873775L V928D341MS49220BJ24V928C7012V543C691 L036935,908915,919927,928040104000883775L U%U3MB543MD40211C204D44B971/MD30211BJ24L039974,941945,952959,964971104000893775L V984C7012/211B900CC75C78B'20S)G27 L033'07,983984,988992,999'04104000903775L V992G271BP62B'57075C/171MD99146Z175314 L038'45,'16'20,'28'32,'39040104000913775L HQ90S11BQ21ED11171MD51146MD96171Z175314L039'84,'53'57,'64'71,'78040104000923775L HQ90'96BQ21/171BB09U%U4BCH48D54B/28/ L036/20,'92'96,/00/04,/09/16104000933775L MI10180MS88139LS99166M166150B/58C1004 L037/57,/28/35,/42/49,/57040104000943775L B?43/166AD55175MT20121MT31171HQ90S26 L036/93,/62/66,/73/80,/87040104000953775L BS03C1004B?43BQ34/180BS26C1004 L030S23,S02S03,S07S11,S15S23104000963775L K8B?14OBJECT CORE EXCEEDED L026S49,S26S30,040040,040040104000973775L ,015022)024056,029036,040047,0540611001L039S88,040040,040040,040040104000983775L ,001008B001,068072)063067/061039 L032T20,T00040,040040,040040104000993775L ,0010011040} L012T32,T32040,040040,040040104001003775L N000000,040040,040040,040040B00001013775L ,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 01023773L ,068072)063067/061039 ,001001104001033773L L%U1!00RN000B334LL%U6B98RN000B334LU%U6RL039239,209213,218226,230235104001043773L )C72D56)Z94H27,333181,U17L%U6794WN000 L037276,247254,261265,273040104001053773L B334LU%U6R)U17?D57F13B543C711BA24B595 L037313,282287,291298,306310104001063773L L001314,040040,040040,040040104001073773L }H094H406Y538094MIR0397 L023355)333333,334338,342349104001083773L D393373M397506U%U0BB479397WM538540 L034389,363370,375383,040040104001093773L M%U0000RB407LB000D393417U%U0BS539540 L036425,398403,407414,419040104001103773L V390540BD393447.000790M397462M%U0000R L037462,434441,448455,040040104001113773L B370E.000712B403U%U1EB5165415A539542 L036498,468475,479484,492040104001123773L M%U0000WB370LB403S542D393533.000760B499L039537,507512,516520,527534104001133773L IA LC68201LM%U1332R L021558,539540,541543,550551104001143773L )181333L%U1!00RN000B334LM201!01MB!02 L036594,566574,578583,590591104001153773L /332/BB09,D58D075D59BS85075%BS850758 L036630,599600,604608,615623104001163773L BS85075IBS85075HB881080 BJ72H36* L032662,639647,655040,040040104001173773L B805I05RB794I05WB812I05SB812I05ZCH48D54L039701,671679,687695,040040104001183773L B843SC080I14B?83/BT01)D58BV43075 L033734,707714,719723,727040104001193773L D075094A094A094B7N4BW52B'62B969 L031765,742746,750754,758762104001203773L B?94BL43BS78BK12BK85BS78BS78 L028793,770774,778782,786790104001213773L MD63308B812MD68309BT01B828I167BJ85 L034827,801805,812816,824040104001223773L MD76323BL28BJ85MI02C62V862G271BP62 L034861,835839,843850,858040104001233773L MI10180SF13B!00B812B924075Y)068Z070211 L038899,869873,877881,889893104001243773L ,068B944075SB999D591BS78,227M072278M L036935,904912,920924,928935104001253773L MMMMBS85MD81309,227 L019954,937938,939940,944951104001263773L M053240M016223M073295M073D95BS45 L032986,962969,976983,040040104001273773L BL09073#B/56V'41075SVS28001BMD86309 L035'21,995999,'07'15,040040104001283773L B'48075AMD87305B'48MD90307M053257 L033'54,'30'37,'41'48,040040104001293773L M016223BS45AD92007C007D92B'96TY188005 L037'91,'62'66,'73'80,'85040104001303773L B/56B/83227#V/83004BM278E43B/56227@ L035/26,'96/04,/12/19,040040104001313773L V/722272M007089YD332S7Y227DZ2BU18BL54 L037/63,/35/42,/49/56,/60040104001323773L BY54BS85M278E44B/56V/95D581B/56M013219 L038S01,/68/72,/79/83,/91/95104001333773L MD31231M007ME45ME49308B/56BS45BL54 L034S35,S09S13,S17S24,S28S32104001343773L /332/BS85HS77?061E83ME83S007E78 L031S66,S40S41,S45S49,S56S60104001353773L AD55E78B000.000770BA24V604D581B600HT89 L038T04,S74S78,S85S89,S97T01104001363773L ZI14204ZH32207YH32207MH35211MH41219 L035T39,T12T19,T26T33,040040104001373773L MH50225MI02278BT90I05ZBT90I05YBT97I05C L038T77,T47T54,T62T70,040040104001383773L BT97I05SB000ME51309ME54307BJ97I16BBT86 L039U16,T86T90,T97U04,U12U16104001393773L }HV01Z007284MG18280D061290 L026U42)U17U17,U18U22,U29U36104001403773L MVU660602ME55292YD30289BV020570VV13002KL039U81,U44U52,U59U66,U74040104001413773L VV28005KVV28005SB000MD30286BU74ME60320 L038V19,U90U98,V02V09,V13040104001423773L BL28BU82ME73328BL28BU98M074303M073301 L037V56,V24V28,V35V39,V43V50104001433773L M070297M067293M074E00MMMM061E78 L031V87,V64V71,V78V79,V80V81104001443773L M061E83A007E83SD55E83BL09073#BL09070# L037W24,V95W02,W09W17,040040104001453773L BW37067 B/56ME86323BL28B/56BX410750 L035W59,W33W37,W44W48,W52040104001463773L M066E78ME91309VW93075BME94307BK62BU18 L037W96,W67W74,W82W89,W93040104001473773L BL54BY54BA24BX21075'B600M066E78BL54 L035X31,X01X05,X09X17,X21X28104001483773L /332/BX05VY24004BBU18D066297M L029X60,X36X37,X41X49,X53X60104001493773L M061E78BL54BA24C016E97BX96/BX53075' L035X95,X68X72,X76X83,X88040104001503773L BY392930C297C09BK97TBY54B600MF06329BL28L039Y34,Y04Y11,Y16Y20,Y24Y31104001513773L BX49HY53MD30293B000HZ50BY86290 BY86D597L039Y73,Y39Y43,Y50Y54,Y58Y66104001523773L C290F11BJ57UVY95C7012BJ24BZ19D597 L033Z06,Y81Y86,Y94Y95,Y99040104001533773L C290C09BK97T/332/BZ470753AD55F13 L032Z38,Z14Z19,Z23Z24,Z32040104001543773L BZ51F125B000B!00SF13BZ47L%U6794RN000 L036Z74,Z47Z51,Z55Z59,Z63Z71104001553773L B334L)U17U%U6RBS85 } L020Z94,Z80Z84,Z89Z93,Z94040104001563773L N000000,040040,040040,040040B00001573773L ,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 01583774L ,068072)063067/061039 ,001001104001593774L HJ23MF17309AD55C84ZC84314MC62278M180290L039!38,!04!11,!18!25,!32040104001603774L V!52C701F12NKMD29200BJ24/332 L028!66,!47!49,!50!52,!59!63104001613774L /MF53314MF86234V!91C7012MF87200BJ24 L035J01,!68!75,!82!90,!91!98104001623774L /332/VJ16C7012BJ24B000HJ56 L026J27,J06J07,J15J16,J20J24104001633774L VJ53C691M%U3200WN000B334LB000MF92332 L036J63,J36J44,J48J53,J57040104001643774L BL28BY86BT01MI02280MMBY54 L025J88,J68J72,J76J83,J84J85104001653774L BB09B655MG03326BL28BT86M066061M032066 L037K25,J93J97,K04K08,K12K19104001663774L VK700012D066297MBY392930C297C09BK97T L036K61,K34K41,K42K50,K57040104001673774L BU18B/64MG13330BL28BK34BL09070#BK62 L035K96,K66K70,K77K81,K85K93104001683774L HL08)D34B000HL27MG17327BL28B000 L031L27,L01L05,L09L13,L20L24104001693774L HL42AD55C66B000MH51G18B/64H?42)H17G48 L037L64,L32L39,L43L50,L54L58104001703774L V?39005KVP62D561BN39D590B'08D593 L032L96,L73L81,L89040,040040104001713774L VO17075BC007G20BQ91TMC81G23A007G23 L034M30,M05M12,M17M24,040040104001723774L CG23G26BO09TVN98G271MG32G37A007G37 L034M64,M38M43,M51M58,040040104001733774L CE83G37BO09/A007G32H099D92A007099 L033M97,M72M77,M84M91,040040104001743774L A007C81MC81094M0?01!0)G38VO53G271 L033N30,N05N12,N19N23,040040104001753774L V?07075BME78G43BP16AG44C75MC75089 L033N63,N39N46,N50N57,040040104001763774L MG43E76ME760'0C089G47B?07/,D56B?07 L034N97,N71N78,N85N90,N94040104001773774L ME83G32BM84BP62BL81VO29G271BM05CC75C78 L038O35,O05O09,O13O17,O25O29104001783774L BM05S,G48BP62BM05)G27VO69075BB?07 L033O68,O41O45,O49O53,O57O65104001793774L MG49147ME78G43BP16MG43E76ME76C96ME76 L036P04,O76O83,O87O94,P01040104001803774L AG50C75B?07HP61BP25ZAG52G40BP25ZYG39G43L039P43,P12P16,P20P25,P32P37104001813774L DG40P54Y189G41B000HQ90VQ07G481VQ07G381 L038P81,P51P58,P62P66,P74040104001823774L MG32G43BP16MG43C90MC81C87ED11171DF87141L039Q20,P89P93,Q00Q07,Q14040104001833774L BQ30C1004B?43AD55175/171LG84171,G27G38 L038Q58,Q29Q30,Q34Q41,Q45Q52104001843774L )D56G48MG87C81MC78C75MH14D11B000 L032Q90,Q66Q73,Q80Q87,040040104001853774L VR03G271BP62M007H16ME83G32MG20007 L033R23,Q99R03,R10R17,040040104001863774L SG20H16SH16G32Y186H16,H17ME78H22BM84 L036R59,R31R38,R45R49,R56040104001873774L BP62)H17MH16007MH23075ME44E05MH22E78 L036R95,R64R68,R75R82,R89040104001883774L AG20E78BN98Z175314S100SSVR60H171 L032?27,?03?07,?14?18,?19?20104001893774L MD30E44ME44B000H?82V?79C691MH24100 L034?61,?35?39,?43?47,?55040104001903774L M%U3100WN000B334LB000.000777B?83 L032?93,?70?74,?79?83,?90040104001913774L L%U1794RN000B334L)T32U%U1BB794HB08 L034A27,A02A06,A11A15,A20A24104001923774L CC00C04BA68/SC01HB80I31M%U5I18RBB59 L035A62,A35A40,A44A51,A59040104001933774L B334LAH26C00MC00099MIA7080MMM L029A91,A68A75,A82A89,A90A91104001943774L MMMMMMM L007A98,A93A94,A95A96,A97A98104001953774L S100SSB000HB58MD30H51SH50 L025B23,B03B04,B05B09,B13B20104001963774L SSSHB80H43M%U4H31RBB59B334L L027B50,B25B26,B27B34,B42B46104001973774L S095B000H094HB97YD12094BIQ8000}B L032B82,B55B59,B63B67,B74B82104001983774L BBBBBBB L007B89,B84B85,B86B87,B88B89104001993774L BBBBB000000?080 L015C04,B91B92,B93B94,B98C02104002003774L 39990 L006C10,C10040,040040,040040104002013774L L039C49,040040,040040,040040104002023774L 0000 L020C69)C50C50,C63C67,C68C69104002033774L }C90C90000001 L015C84,C71C73,C76C79,C82040104002043774L 001001040040040040040040040B/ 080 L037D21,D12D13,040040,040040104002053774L / 0801 ERRORS 1N000000 L030D51,D29D30,D34D35,D41D45104002063774L JOBA E IOCS L012D63,D55D56,D57D58,D59D60104002073774L MACROOVERCALLADCONRMARKGLIT00 L029D92,D69D77,D82D87,D88D91104002083774L L039E31,040040,040040,040040104002093774L #AREAIOGEN L023E54)E32E32,E45E46,E50E52104002103774L XLABELBAD STATEMENT OPFIELD L037E91,E56E61,E74E79,E84E87104002113774L SBFDA NO B X L 0081 PAGE L026F17,E95E98,F07F12,F14040104002123774L SFX CT LOCN INSTRUCTION TYPE CARD L036F53,040040,040040,040040104002133774L SEQ PG LIN LABEL OP OPERANDS0 ADDRL039F92,F87F88,040040,040040104002143774L MACRO ERROR UNDEF ORG SYM 39 039 L034G26,G04G14,G18G19,G21G24104002153774L CD08 L021G47,G28G33,G38G39,G44G45104002163774L )F9FL0 , , , 1 L037G84,G49G50,G51G53,040040104002173774L 000001001040040040040040040040 AL039H23,G88H15,H17H18,H23040104002183774L &8?} L004H27,H25H27,040040,040040104002193774L N000000,040040,040040,040040B00002203774L ,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 02213774L ,068072)063067/061039 ,001001104002223774L /000080 02233774L