CLEAR STORAGE 1 ,008015,019026,030,034041,045,053,0570571026 1 &,008015,019026,030,034041,045,053,0570571026 00012TAP8 CLEAR STORAGE 2 L068112,102106,113/101099/I9I,027A070028)027B0010270B0261,001/001113I0 2 &L068112,102106,113/101099/I9I,027A070028)027B0010270B0261,001/001113I0 00022TAP8 BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 &,008015,022029,036040,047054,061068,072/061039 ,001001104000032TAP8 0 1401 TWO-TAPE AUTOCODER, PHASE 8 - JULY 20, 1962 RBR 2TAP8 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 000 JOB 1401 TWO-TAPE AUTOCODER, PHASE 8 - JULY 20, 1962 RBR 103 * 104 * PHASE 8 - PRINT OUT LABEL TABLE 105 * 106 * 107 LABTBL EQU 2813+X1 2813 108 REITER EQU 193 0193 109 * 110 * ** SYSTEMS CONTROL ** 111 ORG 82 0082 112 CHECK DCW @ @ 1 0082 4 113 DCW @ }@ 3 0085 4 114 ORG 100 0100 & } L004085,083040,040040,040040104000042TAP8 115 LOAD RWD 1 5 0100 U %U1 R 5 116 RTW 1,CHECK 8 0105 L %U1 082 R 5 117 BER TPERR 5 0113 B 363 L 5 118 BCE *+5,CHECK,D 8 0118 B 130 082 D 5 119 B LOAD+5 4 0126 B 105 5 120 BSP 1 5 0130 U %U1 B 5 &U%U1RL%U1082RB363LB130082DB105U%U1B L035134,105113,118126,130040104000052TAP8 121 RTW 1,333 8 0135 L %U1 333 R 6 122 SW CHECK+3 4 0143 , 085 6 123 RTW 1,CHECK 8 0147 L %U1 082 R 6 124 BCE 334,CHECK,0 8 0155 B 334 082 0 6 125 B *-19 4 0163 B 147 6 126 SEEK EQU LOAD+25 0125 127 * &L%U1333R,085L%U1082RB3340820B147 L032166,143147,155163,040040104000062TAP8 128 SYSTEM WTW 1,333 8 0167 L %U1 333 W 7 129 BER *+5 5 0175 B 184 L 7 130 R 40 4 0180 1 040 7 131 BSP 1 5 0184 U %U1 B 7 132 SKP 1 5 0189 U %U1 E 7 133 B SYSTEM 4 0194 B 167 7 134 H 1 0198 . 7 135 X1 EQU 89 0089 &L%U1333WB184L1040U%U1BU%U1EB167. L032198,175180,184189,194198104000072TAP8 136 0089 DCW @000@ 3 0089 8 137 X2 EQU 94 0094 &000 L003089,040040,040040,040040104000082TAP8 138 0094 DCW @000@ 3 0094 9 139 X3 EQU 99 0099 &000 L003094,040040,040040,040040104000092TAP8 140 0099 DCW @000@ 3 0099 10 141 * 142 * PHASE 8 IDENTIFICATION AT 0333 143 * 144 ORG 333 0333 &000 L003099,040040,040040,040040104000102TAP8 145 DCW @8@ 1 0333 11 1 1401 TWO-TAPE AUTOCODER, PHASE 8 - JULY 20, 1962 RBR 2TAP8 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 146 * 147 B LABELS 4 0334 B 650 11 148 * 149 ENDPH8 RTW 1,333 8 0338 L %U1 333 R 11 150 BER TPERR 5 0346 B 363 L 11 151 BCE PHASE9,333,9 8 0351 B 649 333 9 11 152 H *-3 4 0359 . 359 11 153 * 154 * GENERALIZED RD/WR TAPE ERROR ROUTINE 155 * 156 TPERR SBR X1 4 0363 H 089 11 &8B650L%U1333RB363LB6493339.359H089 L034366,334338,346351,359363104000112TAP8 157 A TX3987,X1 7 0367 A 496 089 12 158 BW TXCOMP,TXGET+1 8 0374 V 414 383 1 12 159 TXGET MLC 17+X1,TXEOF+4 7 0382 M 0/7 492 12 160 MLC TXDUMY+4,17+X1 7 0389 M 487 0/7 12 161 MLC 3+X1,TXBSP+3 7 0396 M 0|3 425 12 &A496089V4143831M0/7492M4870/7M0|3425 L036402,374382,389396,040040104000122TAP8 162 MLC TXBSP+5,TXBSP 7 0403 M 427 422 13 163 SW TXGET+1 4 0410 , 383 13 164 TXCOMP B TXPERM,TXCNTL,9 8 0414 B 443 493 9 13 165 TXBSP BSP 1 5 0422 U %U1 B 13 166 SKP 1 5 0427 U %U1 E 13 167 A *-6,TXCNTL 7 0432 A 432 493 13 &M427422,383B4434939U%U1BU%U1EA432493 L036438,410414,422427,432040104000132TAP8 168 B 0+X1 4 0439 B 0|0 14 169 TXPERM H 888,888 7 0443 . 888 888 14 170 MLC TXPERM-1,TXCNTL 7 0450 M 442 493 14 171 B TXBSP 4 0457 B 422 14 172 TXDONE MLC TXPERM-1,TXCNTL 7 0461 M 442 493 14 173 MLC TXEOF+4,17+X1 7 0468 M 492 0/7 14 &B0|0.888888M442493B422M442493M4920/7 L036474,443450,457461,468040104000142TAP8 174 CW TXGET+1 4 0475 ) 383 15 175 B 13+X1 4 0479 B 0/3 15 176 TXDUMY B TXDONE 4 0483 B 461 15 177 DC @ @ 1 0487 15 178 TXEOF BEF 1 5 0488 B 001 K 15 179 TXCNTL DCW @0@ 1 0493 15 180 TX3987 DCW @I87@ 3 0496 15 181 * ROUTINE TO CONVERT MACHINE ADDRESS TO 182 * REGULAR FIVE POSITION ADDRESS 183 * * MACHINE ADDRESS TAKEN FROM ADDR 184 * * RESULT PLACED IN WORK 185 DECOD SBR DECEXT+3 4 0497 H 632 15 &)383B0/3B461 B001K0I87H632 L026500,479483,488493,494497104000152TAP8 186 ZA ADDR#3,WORK#5 7 0501 ? 635 640 16 187 MZ @ @,WORK 7 0508 Y 641 640 16 188 BWZ ADD12,ADDR,B 8 0515 V 567 635 B 16 189 BM ADD8,ADDR 8 0523 V 578 635 K 16 190 BWZ ADD4,ADDR,S 8 0531 V 589 635 S 16 &?635640Y641640V567635BV578635KV589635S L038538,508515,523531,040040104000162TAP8 191 HIORDR BWZ ADD3,ADDR-2,B 8 0539 V 600 633 B 17 192 BM ADD2,ADDR-2 8 0547 V 611 633 K 17 193 BWZ ADD1,ADDR-2,S 8 0555 V 622 633 S 17 194 B DECEXT 4 0563 B 629 17 195 ADD12 A @12@,WORK-3 7 0567 A 643 637 17 &V600633BV611633KV622633SB629A643637B539L039577,547555,563567,574040104000172TAP8 1 1401 TWO-TAPE AUTOCODER, PHASE 8 - JULY 20, 1962 RBR 2TAP8 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 196 B HIORDR 4 0574 B 539 18 197 ADD8 A @8@,WORK-3 7 0578 A 644 637 18 198 B HIORDR 4 0585 B 539 18 199 ADD4 A @4@,WORK-3 7 0589 A 645 637 18 200 B HIORDR 4 0596 B 539 18 201 ADD3 A @3@,WORK-3 7 0600 A 646 637 18 202 B DECEXT 4 0607 B 629 18 &A644637B539A645637B539A646637B629 L033610,585589,596600,607040104000182TAP8 203 ADD2 A @2@,WORK-3 7 0611 A 647 637 19 204 B DECEXT 4 0618 B 629 19 205 ADD1 A @1@,WORK-3 7 0622 A 648 637 19 206 DECEXT B 0 4 0629 B 000 19 207 LTORG * 0633 ADDR DCW #03 3 0635 AREA 19 WORK DCW #05 5 0640 AREA 19 DCW @ @ 1 0641 LIT 19 &A647637B629A648637B000 L031641,618622,629633,636641104000192TAP8 DCW @12@ 2 0643 LIT 20 DCW @8@ 1 0644 LIT 20 DCW @4@ 1 0645 LIT 20 DCW @3@ 1 0646 LIT 20 DCW @2@ 1 0647 LIT 20 DCW @1@ 1 0648 LIT 20 217 HIGH88 H 1 0649 . 20 218 * 219 * PRINT OUT SYMBOL TABLE 220 * &1284321. L008649,644645,646647,648649104000202TAP8 221 LABELS MLC @|@,333 7 0650 M Z93 333 21 222 CC 1 2 0657 F 1 21 223 MCM 201,AREA 7 0659 P 201 T33 21 MCM 1 0666 P GEN 21 MCM 1 0667 P GEN 21 227 LCA @ @,LABTBL+X3 7 0668 L !02 QA3 21 228 CW LABTBL-8+X3 4 0675 ) Q?5 21 &MZ93333F1P201T33PPL!02QA3)Q?5 L029678,657659,666667,668675104000212TAP8 229 MCM LINE+X0,201 7 0679 P S00 201 22 230 MCM TITLE-12,201 7 0686 P /01 201 22 231 MLC @ @,213 7 0693 M !03 213 22 232 CC T 2 0700 F T 22 233 W 1 0702 2 22 234 * 235 INITL MLC @000@,X1 7 0703 M !06 089 22 236 MLC @000@,X2 7 0710 M !06 094 22 &PS00201P/01201M!03213FT2M!06089M!06094 L038716,686693,700702,703710104000222TAP8 237 CS LINE+131+X0 4 0717 / T31 23 238 CS 1 0721 / 23 239 MLC TABLE,FIRST+7 7 0722 M Z60 743 23 240 MLC TABLE,LABTBL-8+X3 7 0729 M Z60 Q?5 23 241 FIRST BCE HIT,LABTBL-8,D 8 0736 B 755 Q|5 D 23 242 A @9@,X1 7 0744 A !07 089 23 243 B FIRST 4 0751 B 736 23 &/T31/MZ60743MZ60Q?5B755Q|5DA!07089B736 L038754,721722,729736,744751104000232TAP8 244 HIT C X1,X3 7 0755 C 089 099 24 245 BE ENDTAB 5 0762 B |32 S 24 246 BW FIRST+8,LABTBL 8 0767 V 744 Q/3 1 24 247 BW FIRST+8,LABTBL-2 8 0775 V 744 Q/1 1 24 1 1401 TWO-TAPE AUTOCODER, PHASE 8 - JULY 20, 1962 RBR 2TAP8 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 248 BW FIRST+8,LABTBL-5 8 0783 V 744 Q|8 1 24 &C089099B|32SV744Q/31V744Q/11V744Q|81 L036790,762767,775783,040040104000242TAP8 249 BW FIRST+8,LABTBL-8 8 0791 V 744 Q|5 1 25 250 BW FIRST+8,LABTBL-7 8 0799 V 744 Q|6 1 25 251 BCE FIRST+8,LABTBL-8,| 8 0807 B 744 Q|5 | 25 252 BCE FIRST+8,LABTBL-5,| 8 0815 B 744 Q|8 | 25 &V744Q|51V744Q|61B744Q|5|B744Q|8| L032822,799807,815040,040040104000252TAP8 253 BCE FIRST+8,LABTBL-7,| 8 0823 B 744 Q|6 | 26 254 BCE STEP,LABTBL-2,# 8 0831 B 933 Q/1 # 26 255 SW LINE 4 0839 , S!0 26 256 MLC LABTBL-3,LINE+5 7 0843 M Q/0 S!5 26 257 MLC LABTBL,ADDR 7 0850 M Q/3 635 26 &B744Q|6|B933Q/1#,S!0MQ/0S!5MQ/3635 L034856,831839,843850,040040104000262TAP8 258 BCE PERCNT,ADDR-2,% 8 0857 B 944 633 % 27 259 MZ @ @,ADDR-1 7 0865 Y !03 634 27 260 B DECOD 4 0872 B 497 27 261 LCA EDIT1,LINE+11 7 0876 L Z92 SJ1 27 262 MCE WORK,LINE+11 7 0883 E 640 SJ1 27 &B944633%Y!03634B497LZ92SJ1E640SJ1 L033889,865872,876883,040040104000272TAP8 263 BWZ INDEX1,LABTBL-1,S 8 0890 V 999 Q/2 S 28 264 TSTX2 BWZ INDEX2,LABTBL-1,K 8 0898 V |10 Q/2 K 28 265 TSTX3 BWZ INDEX3,LABTBL-1,B 8 0906 V |21 Q/2 B 28 266 TSTLIN BCE RESET2,X2-2,1 8 0914 B 955 092 1 28 &V999Q/2SV|10Q/2KV|21Q/2BB9550921A!09094L039928,898906,914922,040040104000282TAP8 267 A @16@,X2 7 0922 A !09 094 29 268 B FIRST+8 4 0929 B 744 29 269 STEP A @9@,X1 7 0933 A !07 089 29 270 B FIRST+8 4 0940 B 744 29 271 PERCNT MLC ADDR,LINE+11 7 0944 M 635 SJ1 29 272 B TSTLIN 4 0951 B 914 29 273 RESET2 C X2,@000@ 7 0955 C 094 !06 29 274 BE RSTOUT-8 5 0962 B 987 S 29 &B744A!07089B744M635SJ1B914C094!06B987S L038966,933940,944951,955962104000292TAP8 275 MLC @000@,X2 7 0967 M !06 094 30 276 MCM LINE+X0,201 7 0974 P S00 201 30 277 W 1 0981 2 30 278 CS LINE+131+X0 4 0982 / T31 30 279 CS 1 0986 / 30 280 BW ENDPRT,RSTOUT+1 8 0987 V |40 996 1 30 281 RSTOUT B FIRST+8 4 0995 B 744 30 &M!06094PS002012/T31/V|409961B744 L032998,974981,982986,987995104000302TAP8 282 INDEX1 MLC @+X1@,LINE+14 7 0999 M !12 SJ4 31 283 B TSTX2 4 1006 B 898 31 284 INDEX2 MLC @+X2@,LINE+14 7 1010 M !15 SJ4 31 285 B TSTX3 4 1017 B 906 31 286 INDEX3 MLC @+X3@,LINE+14 7 1021 M !18 SJ4 31 287 B TSTLIN 4 1028 B 914 31 288 ENDTAB SW RSTOUT+1 4 1032 , 996 31 &M!12SJ4B898M!15SJ4B906M!18SJ4B914,996 L037|35,|06|10,|17|21,|28|32104000312TAP8 289 B RESET2 4 1036 B 955 32 290 ENDPRT CW RSTOUT+1 4 1040 ) 996 32 291 MCM TABLE+1,TABLE 7 1044 P Z61 Z60 32 292 BCE FINIS,TABLE,| 8 1051 B |63 Z60 | 32 293 B INITL 4 1059 B 703 32 294 FINIS CC 1 2 1063 F 1 32 295 BW *+5,REITER 8 1065 V |77 193 1 32 &B955)996PZ61Z60B|63Z60|B703F1V|771931 L037|72,|40|44,|51|59,|63|65104000322TAP8 1 1401 TWO-TAPE AUTOCODER, PHASE 8 - JULY 20, 1962 RBR 2TAP8 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 296 B PHASE8 4 1073 B V13 33 297 CW HIGH8 4 1077 ) !80 33 298 MCM AREA,201 7 1081 P T33 201 33 MCM 1 1088 P GEN 33 MCM 1 1089 P GEN 33 302 MLC @6@,SEEK 7 1090 M !19 125 33 303 B LOAD 4 1097 B 100 33 &BV13)!80PT33201PPM!19125B100 L028/00,|77|81,|88|89,|90|97104000332TAP8 304 TITLE DCW @SYMBOL TABLE|@ 13 1113 34 305 * 306 ORG *+X00 1200 307 LINE DA 1X132,X2,|,C 1200 1333 &SYMBOL TABLE| L013/13,040040,040040,040040104000342TAP8 & L038S37)S00S00,040040,040040104000352TAP8 & L038S75)S38S38,040040,040040104000362TAP8 & L038T13)S76S76,040040,040040104000372TAP8 & L019T32)T14T14,S00040,040040104000382TAP8 DC @|@ 1 1333 RMARK 39 308 * 309 AREA DA 1X180 1333 1513 310 * &| L001T32)T32T32,T33040,040040104000392TAP8 311 PHASE8 RTW 2,AREA 8 1513 L %U2 T33 R 40 312 BER TPERR 5 1521 B 363 L 40 313 BOOT LCA BOOT1,0180 7 1526 L X99 180 40 314 SW AREA+75 4 1533 , U08 40 315 MLC @0001@,175 7 1537 M !23 175 40 316 MLC AREA+99,180 7 1544 M U32 180 40 &L%U2T33RB363LLX99180,U08M!23175MU32180 L038V50,V21V26,V33V37,V44040104000402TAP8 317 CS 332 4 1551 / 332 41 318 CS 1 1555 / 41 319 MLC 171,290 7 1556 M 171 290 41 320 MLC @CLEAR STORAGE 1@,215 7 1563 M !38 215 41 321 MLC @1@,314 7 1570 M !39 314 41 322 WP 1 1577 6 41 323 LCA BOOT2,180 7 1578 L Y79 180 41 &/332/M171290M!38215M!393146LY79180 L034V84,V55V56,V63V70,V77V78104000412TAP8 324 MLC @0002@,175 7 1585 M !43 175 42 325 MLC AREA+99,180 7 1592 M U32 180 42 326 MLC 171,290 7 1599 M 171 290 42 327 MLC @CLEAR STORAGE 2@,215 7 1606 M !58 215 42 328 MLC @2@,314 7 1613 M !59 314 42 329 WP 1 1620 6 42 &M!43175MU32180M171290M!58215M!593146 L036W20,V92V99,W06W13,W20040104000422TAP8 330 LCA BOOT3,180 7 1621 L Z59 180 43 331 MLC @0003@,175 7 1628 M !63 175 43 332 MLC AREA+99,180 7 1635 M U32 180 43 333 MLC 171,290 7 1642 M 171 290 43 334 MLC @BOOTSTRAP @,215 7 1649 M !78 215 43 &LZ59180M!63175MU32180M171290M!78215 L035W55,W28W35,W42W49,040040104000432TAP8 335 MLC @3@,314 7 1656 M !79 314 44 336 CC T 2 1663 F T 44 337 WP 1 1665 6 44 338 CS 332 4 1666 / 332 44 339 CS 1 1670 / 44 340 RWD 2 5 1671 U %U2 R 44 341 BSP 1 5 1676 U %U1 B 44 1 1401 TWO-TAPE AUTOCODER, PHASE 8 - JULY 20, 1962 RBR 2TAP8 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD &M!79314FT6/332/U%U2RU%U1B L025W80,W63W65,W66W70,W71W76104000442TAP8 342 BSP 1 5 1681 U %U1 B 45 343 BSP 1 5 1686 U %U1 B 45 344 BSP 1 5 1691 U %U1 B 45 345 BSP 1 5 1696 U %U1 B 45 346 BSP 1 5 1701 U %U1 B 45 347 BSP 1 5 1706 U %U1 B 45 348 CW HIGH8 4 1711 ) !80 45 &U%U1BU%U1BU%U1BU%U1BU%U1BU%U1B)!80 L034X14,W86W91,W96X01,X06X11104000452TAP8 349 B ENDPH8 4 1715 B 338 46 350 H 1 1719 . 46 &B338. L005X19,X19040,040040,040040104000462TAP8 &,008015,019026,030,034041,045,053,05705L039X58,040040,040040,040040104000472TAP8 351 DCW @,008015,019026,030,034041,045,053,057057@ 40 1759 48 &7 L001X59)X59X59,040040,040040104000482TAP8 &1026 L039X98)X60X60,040040,040040104000492TAP8 352 BOOT1 DC @1026 @ 40 1799 50 & L001X99)X99X99,040040,040040104000502TAP8 &L068112,102106,113/101099/I99,027A07002L039Y38,040040,040040,040040104000512TAP8 353 DCW @L068112,102106,113/101099/I99,027A070028@ 40 1839 52 &8 L001Y39)Y39Y39,040040,040040104000522TAP8 &)027B0010270B0261,001/001113I0 L039Y78)Y40Y40,040040,040040104000532TAP8 354 BOOT2 DC @)027B0010270B0261,001/001113I0 @ 40 1879 54 & L001Y79)Y79Y79,040040,040040104000542TAP8 &,008015,022029,036040,047054,061068,072L039Z18,040040,040040,040040104000552TAP8 355 DCW @,008015,022029,036040,047054,061068,072/@ 40 1919 56 &/ L001Z19)Z19Z19,040040,040040104000562TAP8 &061039 ,0010011040 L039Z58)Z20Z20,040040,040040104000572TAP8 356 BOOT3 DC @061039 ,0010011040 @ 40 1959 58 357 TABLE DCW @A@ 1 1960 58 358 DC @BCDEFGHIJKLMNOPQRSTUVWXYZ@ 25 1985 58 359 DC @|@ 1 1986 58 360 EDIT1 DCW @ 0 @ 6 1992 58 361 LTORG * 1993 DCW @|@ 1 1993 LIT 58 & ABCDEFGHIJKLMNOPQRSTUVWXYZ| 0 | L035Z93)Z59Z59,Z60Z87,Z93040104000582TAP8 DCW @ @ 9 2002 LIT 59 DCW @ @ 1 2003 LIT 59 DCW @000@ 3 2006 LIT 59 DCW @9@ 1 2007 LIT 59 DCW @16@ 2 2009 LIT 59 DCW @+X1@ 3 2012 LIT 59 DCW @+X2@ 3 2015 LIT 59 & 000916+X1+X2 L022!15,!03!04,!07!08,!10!13104000592TAP8 DCW @+X3@ 3 2018 LIT 60 DCW @6@ 1 2019 LIT 60 DCW @0001@ 4 2023 LIT 60 DCW @CLEAR STORAGE 1@ 15 2038 LIT 60 DCW @1@ 1 2039 LIT 60 DCW @0002@ 4 2043 LIT 60 &+X360001CLEAR STORAGE 110002 L028!43,!19!20,!24!39,!40040104000602TAP8 DCW @CLEAR STORAGE 2@ 15 2058 LIT 61 DCW @2@ 1 2059 LIT 61 DCW @0003@ 4 2063 LIT 61 DCW @BOOTSTRAP @ 15 2078 LIT 61 DCW @3@ 1 2079 LIT 61 381 HIGH8 DCW @}@ 1 2080 61 1 1401 TWO-TAPE AUTOCODER, PHASE 8 - JULY 20, 1962 RBR 2TAP8 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD &CLEAR STORAGE 220003BOOTSTRAP 3} L037!80,!59!60,!64!79,!80040104000612TAP8 & N000000,040040,040040,040040B16700622TAP8 382 EX SYSTEM B 167 &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 00632TAP9 &,068072)063067/061039 ,001001104000642TAP9 1 1401 TWO-TAPE AUTOCODER - PHASE 9 - LIST + CONDS RBR 2TAP9 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 383 JOB 1401 TWO-TAPE AUTOCODER - PHASE 9 - LIST + CONDS RBR 384 * 385 * PHASE 9 - CONDENSING AND LISTING ROUTINE 386 * 387 * PHASE 9 IDENTIFICATION AT 333 388 * 389 ORG 333 0333 390 DCW @9@ 1 0333 65 391 * 392 H *-3 4 0334 . 334 65 393 RTW 1,333 8 0338 L %U1 333 R 65 394 BER TPERR 5 0346 B 363 L 65 395 BCE PHASE9,333,9 8 0351 B 649 333 9 65 396 H *-3 4 0359 . 359 65 397 * 398 ORG HIGH88 0649 &9.334L%U1333RB363LB6493339.359 L030362,334338,346351,359040104000652TAP9 399 PHASE9 B HSKPG 4 0649 B R87 66 400 * 401 ORG PHASE9+4 0653 402 HSKPG1 RTW 2,RECORD 8 0653 L %U2 R86 R 66 403 BER TPERR 5 0661 B 363 L 66 404 * 405 REINIT MLC @0@,COUNT#1 7 0666 M A58 A59 66 406 MLC @000@,X1 7 0673 M A62 089 66 407 MLC @000@,X2 7 0680 M A62 094 66 &BR87L%U2R86RB363LMA58A59MA62089MA62094 L038686,653661,666673,680040104000662TAP9 408 MLC @000@,X3 7 0687 M A62 099 67 409 MLC @0000@,POSCNT#4 7 0694 M A66 A70 67 410 MLC @ @,ASSMBD#8 7 0701 M A78 A86 67 411 SW 101,140 7 0708 , 101 140 67 412 B AGAIN 4 0715 B 756 67 413 * 414 GETOBJ CW AOPND-12 4 0719 ) A41 67 &MA62099MA66A70MA78A86,101140B756)A41 L036722,694701,708715,719040104000672TAP9 415 RTW 2,RECORD 8 0723 L %U2 R86 R 68 416 BER TPERR 5 0731 B 363 L 68 417 BEF EOF4 5 0736 B F33 K 68 418 SW AOPND-2,BOPND-2 7 0741 , A51 A54 68 419 B COMMNT,RECORD+5,* 8 0748 B O46 R91 * 68 420 * &L%U2R86RB363LBF33K,A51A54BO46R91* L033755,731736,741748,040040104000682TAP9 421 AGAIN BW SUBDA,SUBNXT 8 0756 V C57 C23 1 69 422 BW *+5,LITCTL 8 0764 V 776 C25 1 69 423 B *+13 4 0772 B 788 69 424 BW *+5,RECORD+3 8 0776 V 788 R89 1 69 425 B CDFULL 4 0784 B M88 69 &VC57C231V776C251B788V788R891BM88 L032787,764772,776784,040040104000692TAP9 426 BW CDFULL,ISOLAT 8 0788 V M88 C24 1 70 427 C OPER,@EX @ 7 0796 C ?04 A90 70 428 BE EXECUT 5 0803 B D03 S 70 429 C OPER,@XFR @ 7 0808 C ?04 A94 70 430 BE EXECUT 5 0815 B D03 S 70 &VM88C241C?04A90BD03SC?04A94BD03SC?04A98L039826,796803,808815,820040104000702TAP9 431 C OPER,@CTL @ 7 0820 C ?04 A98 71 432 BE PRINT1 5 0827 B Y43 S 71 433 * 1 1401 TWO-TAPE AUTOCODER - PHASE 9 - LIST + CONDS RBR 2TAP9 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 434 C OPER,@JOB @ 7 0832 C ?04 B02 71 435 BU NOTJOB 5 0839 B 892 / 71 436 MLC RECORD+71,HEADNG 7 0844 M ?57 072 71 437 MLC PARAMT+4,SETUP-1 7 0851 M ?85 Q10 71 438 LCA SETUP-1,180 7 0858 L Q10 180 71 &BY43SC?04B02B892/M?57072M?85Q10LQ10180 L038864,832839,844851,858040104000712TAP9 439 NOP JOBACK+4 1ST-TIME-ONLY NOP 4 0865 N 884 72 440 MLC @B@,*-10 7 0869 M B03 865 72 441 B GETOVF 4 0876 B D63 72 442 JOBACK B PRINT1 4 0880 B Y43 72 443 B OVFLO 4 0884 B C27 72 444 B PRINT1 4 0888 B Y43 72 445 * 446 NOTJOB C OPER,@DS @ 7 0892 C ?04 B07 72 &N884MB03865BD63BY43BC27BY43C?04B07 L034898,869876,880884,888892104000722TAP9 447 BE DS 5 0899 B P11 S 73 448 C OPER,@END @ 7 0904 C ?04 B11 73 449 BE END 5 0911 B D15 S 73 450 BW PRINT2,RECORD 8 0916 V L24 R86 1 73 451 BCE INSTRT-8,LABEL-5, 8 0924 B 968 R91 73 &BP11SC?04B11BD15SVL24R861B968R91 L033931,904911,916924,040040104000732TAP9 452 BWZ *+5,LABEL-5,2 8 0932 V 944 R91 2 74 453 B INSTRT-8 4 0940 B 968 74 454 BW *+9,FSTIME 8 0944 V 960 C22 1 74 455 SW FSTIME 4 0952 , C22 74 456 B CDFULL 4 0956 B M88 74 457 CW FSTIME 4 0960 ) C22 74 458 SW ISOLAT 4 0964 , C24 74 &V944R912B968V960C221,C22BM88)C22,C24 L036967,940944,952956,960964104000742TAP9 459 BCE CONST,ICOUNT, 8 0968 B T05 ?73 75 460 * 461 INSTRT MLC POSCNT,SPACE#4 7 0976 M A70 B15 75 462 A ICOUNT,POSCNT 7 0983 A ?73 A70 75 463 C POSCNT,@0039@ 7 0990 C A70 B19 75 464 BL CDFULL 5 0997 B M88 T 75 &BT05?73 MA70B15A?73A70CA70B19BM88T L034|01,976983,990997,040040104000752TAP9 465 BCE CDFULL,COUNT,7 8 1002 B M88 A59 7 76 466 A @1@,COUNT 7 1010 A B20 A59 76 467 MLC POSCNT,SPACE 7 1017 M A70 B15 76 468 LCA LOCATN,SWADDR+X2 7 1024 L ?80 PM8 76 469 A @3@,X2 7 1031 A B21 094 76 &BM88A597AB20A59MA70B15L?80PM8AB21094 L036|37,|10|17,|24|31,040040104000762TAP9 470 LCA SWADDR-3+X2,SWADDR+X2 7 1038 L PM5 PM8 77 471 ZA ICOUNT,HOLD 7 1045 ? ?73 B95 77 472 MLC SWADDR+X2,ADDR 7 1052 M PM8 635 77 473 B MODAD 4 1059 B Q12 77 474 P4SK1 LCA RESULT-1,SWADDR+X2 7 1063 L C02 PM8 77 &LPM5PM8??73B95MPM8635BQ12LC02PM8A?73099L039|76,|45|52,|59|63,|70040104000772TAP9 475 A ICOUNT,X3 7 1070 A ?73 099 78 476 B SETXX 4 1077 B I75 78 477 NOP 1 1081 N 78 478 NOP 1 1082 N 78 479 NOP 1 1083 N 78 480 BCE IDONE,ICOUNT,1 8 1084 B /56 ?73 1 78 481 BCE ADMOD,ICOUNT,2 8 1092 B /67 ?73 2 78 482 MLC AOPND,ASSMBD-4 7 1100 M A53 A82 78 &BI75NNNB/56?731B/67?732MA53A82 L030/06,|81|82,|83|84,|92/00104000782TAP9 1 1401 TWO-TAPE AUTOCODER - PHASE 9 - LIST + CONDS RBR 2TAP9 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 483 BCE BRANCH,ICOUNT,4 8 1107 B /85 ?73 4 79 484 BCE BDMOD,ICOUNT,5 8 1115 B /96 ?73 5 79 485 MLC BOPND,ASSMBD-1 7 1123 M A56 A85 79 486 BCE NODMOD,ICOUNT,7 8 1130 B S14 ?73 7 79 487 MLC PARAMT+60,ASSMBD 7 1138 M A41 A86 79 &B/85?734B/96?735MA56A85BS14?737MA41A86 L038/44,/15/23,/30/38,040040104000792TAP9 488 MLC ASSMBD,100+X3 7 1145 M A86 1?0 80 489 B ASSOUT 4 1152 B S21 80 490 IDONE MLC ASSMBD-7,100+X3 7 1156 M A79 1?0 80 491 B ASSOUT 4 1163 B S21 80 492 ADMOD MLC PARAMT+60,ASSMBD-6 7 1167 M A41 A80 80 493 MLC ASSMBD-6,100+X3 7 1174 M A80 1?0 80 &MA861?0BS21MA791?0BS21MA41A80MA801?0 L036/80,/52/56,/63/67,/74040104000802TAP9 494 B ASSOUT 4 1181 B S21 81 495 BRANCH MLC ASSMBD-4,100+X3 7 1185 M A82 1?0 81 496 B ASSOUT 4 1192 B S21 81 497 BDMOD MLC PARAMT+60,ASSMBD-3 7 1196 M A41 A83 81 498 MLC ASSMBD-3,100+X3 7 1203 M A83 1?0 81 499 B ASSOUT 4 1210 B S21 81 &BS21MA821?0BS21MA41A83MA831?0BS21 L033S13,/85/92,/96S03,S10040104000812TAP9 500 NODMOD MLC ASSMBD-1,100+X3 7 1214 M A85 1?0 82 501 ASSOUT CS 332 4 1221 / 332 82 502 CS 1 1225 / 82 503 MLC ICOUNT,284 7 1226 M ?73 284 82 504 SW 303,299 7 1233 , 303 299 82 505 SW 295,293 7 1240 , 295 293 82 &MA851?0/332/M?73284,303299,295293 L033S46,S21S25,S26S33,S40040104000822TAP9 506 MLC ASSMBD,303 7 1247 M A86 303 83 507 MLC ASSMBD-1,301 7 1254 M A85 301 83 508 MLC ASSMBD-4,297 7 1261 M A82 297 83 509 MLC ASSMBD-7,293 7 1268 M A79 293 83 510 MLC @ @,ASSMBD 7 1275 M B29 A86 83 &MA86303MA85301MA82297MA79293MB29A86 L035S81,S54S61,S68S75,040040104000832TAP9 511 BCE *+5,PARAMT+60,G 8 1282 B S94 A41 G 84 512 B PRINT 4 1290 B X78 84 513 MLC PARAMT+64,309 7 1294 M A45 309 84 514 B PRINT 4 1301 B X78 84 515 * 516 CONST C OPER,@DA @ 7 1305 C ?04 B33 84 517 BE DAOUT 5 1312 B C45 S 84 &BS94A41GBX78MA45309BX78C?04B33BC45S L035T16,S90S94,T01T05,T12040104000842TAP9 518 BCE NUMOUT,PARAMT+60,M 8 1317 B X05 A41 M 85 519 BW *+5,PARAMT+65 8 1325 V T37 A46 1 85 520 B *+21 4 1333 B T57 85 521 BW *+9,FSTIME 8 1337 V T53 C22 1 85 522 SW FSTIME 4 1345 , C22 85 523 B CDFULL 4 1349 B M88 85 &BX05A41MVT37A461BT57VT53C221,C22BM88 L036T52,T25T33,T37T45,T49040104000852TAP9 524 CW FSTIME 4 1353 ) C22 86 525 C OPER+1,@DC @ 7 1357 C ?05 B38 86 526 BU *+5 5 1364 B T73 / 86 527 CW ERRPOS-1 4 1369 ) ?71 86 528 MLC POSCNT,SPACE 7 1373 M A70 B15 86 529 A LITCNT,POSCNT 7 1380 A ?76 A70 86 &)C22C?05B38BT73/)?71MA70B15A?76A70 L034T86,T57T64,T69T73,T80040104000862TAP9 530 C POSCNT,@0039@ 7 1387 C A70 B19 87 531 BL TSTLNG 5 1394 B J58 T 87 1 1401 TWO-TAPE AUTOCODER - PHASE 9 - LIST + CONDS RBR 2TAP9 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 532 BCE CDFULL,COUNT,7 8 1399 B M88 A59 7 87 533 A @1@,COUNT 7 1407 A B20 A59 87 534 MLC POSCNT,SPACE 7 1414 M A70 B15 87 &CA70B19BJ58TBM88A597AB20A59MA70B15 L034U20,T94T99,U07U14,040040104000872TAP9 535 BW NOWM1,SPLIT+5 ON 2ND HALF OF LONG CONSTANT 8 1421 V J11 K38 1 88 536 C OPER,@DC @ 7 1429 C ?04 B42 88 537 BE NOWM 5 1436 B !09 S 88 538 FSTCON BCE *+5,COUNT,1 8 1441 B U53 A59 1 88 539 B CONBCK-14 4 1449 B U85 88 &VJ11K381C?04B42B!09SBU53A591BU85M?80P48L039U59,U29U36,U41U49,U53040104000882TAP9 540 MLC LOCATN,SWADDR 7 1453 M ?80 P48 89 541 ZA @1@,HOLD 7 1460 ? B20 B95 89 542 A @3@,X2 7 1467 A B21 094 89 543 LCA SWADDR-3+X2,SWADDR+X2 7 1474 L PM5 PM8 89 544 B CONBCK+7 4 1481 B V06 89 545 A @3@,X2 7 1485 A B21 094 89 &?B20B95AB21094LPM5PM8BV06AB21094LPM5PM8L039U98,U67U74,U81U85,U92040104000892TAP9 546 LCA SWADDR-3+X2,SWADDR+X2 7 1492 L PM5 PM8 90 547 CONBCK MLC LITCNT,HOLD 7 1499 M ?76 B95 90 548 MLC SWADDR+X2,ADDR 7 1506 M PM8 635 90 549 B MODAD 4 1513 B Q12 90 550 P4SK2 MLC RESULT-1,SWADDR+X2 7 1517 M C02 PM8 90 551 A LITCNT,X3 7 1524 A ?76 099 90 &M?76B95MPM8635BQ12MC02PM8A?76099M?76089L039V37,V06V13,V17V24,V31040104000902TAP9 552 MLC LITCNT,X1 7 1531 M ?76 089 91 553 MLC @M@,P4SK2+14 7 1538 M B43 V31 91 554 BCE DSA,OPER-1,A 8 1545 B W49 ?03 A 91 555 BW SETLIT,RECORD+3 8 1553 V W60 R89 1 91 556 BCE NUMALF,PARAMT,@ 8 1561 B W30 ?81 @ 91 &MB43V31BW49?03AVW60R891BW30?81@VW30?812L039V76,V45V53,V61V69,040040104000912TAP9 557 BWZ NUMALF,PARAMT,2 8 1569 V W30 ?81 2 92 558 BCE *+20,PARAMT,+ 8 1577 B W04 ?81 + 92 559 BCE *+12,PARAMT,- 8 1585 B W04 ?81 - 92 560 MLC AOPND,100+X3 7 1593 M A53 1?0 92 561 B NUMOUT 4 1600 B X05 92 562 BWZ *+12,PARAMT+1,2 8 1604 V W23 ?82 2 92 &BW04?81+BW04?81-MA531?0BX05VW23?822 L035W11,V85V93,W00W04,040040104000922TAP9 563 MLC @ @,PARAMT+19 7 1612 M B45 A00 93 564 B *-29 4 1619 B V93 93 565 MZ PARAMT,PARAMT+X1 7 1623 Y ?81 ?Y1 93 566 NUMALF SW PARAMT+1 4 1630 , ?82 93 567 MLC PARAMT+X1,100+X3 7 1634 M ?Y1 1?0 93 568 CW PARAMT+1 4 1641 ) ?82 93 569 B NUMOUT 4 1645 B X05 93 570 * &MB45A00BV93Y?81?Y1,?82M?Y11?0)?82BX05 L037W48,W19W23,W30W34,W41W45104000932TAP9 571 DSA MLC AOPND,100+X3 7 1649 M A53 1?0 94 572 B NUMOUT 4 1656 B X05 94 573 * 574 SETLIT SW PARAMT+30,LITCTL 7 1660 , A11 C25 94 575 BCE *+8,RECORD+20,# 8 1667 B W82 ?06 # 94 576 MLC PARAMT+29+X1,100+X3 7 1675 M A/0 1?0 94 577 CW PARAMT+30 4 1682 ) A11 94 &MA531?0BX05,A11C25BW82?06#MA/01?0)A11 L037W85,W56W60,W67W75,W82040104000942TAP9 578 BCE *+5,RECORD+20,@ 8 1686 B W98 ?06 @ 95 579 B NUMOUT 4 1694 B X05 95 580 MLC @@@,RECORD+21+X1 7 1698 M B46 ?|7 95 1 1401 TWO-TAPE AUTOCODER - PHASE 9 - LIST + CONDS RBR 2TAP9 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 581 NUMOUT CS 332 4 1705 / 332 95 582 CS 1 1709 / 95 583 BW CONST,TSTLNG+9 SUPPRESS PRINTING ON 1ST HALF 8 1710 V T05 J67 1 95 &BW98?06@BX05MB46?|7/332/VT05J671 L032X17,W94W98,X05X09,X10040104000952TAP9 584 BW *+5,SPLIT+5 RESTORE LONG CONSTANT FOR PRINT 8 1718 V X30 K38 1 96 585 B NOTLNG 4 1726 B X41 96 586 CW SPLIT+5 4 1730 ) K38 96 587 A @0039@,LITCNT 7 1734 A B19 ?76 96 588 NOTLNG MCS LITCNT,284 7 1741 Z ?76 284 96 589 SW AOPND-2 4 1748 , A51 96 &VX30K381BX41)K38AB19?76Z?76284,A51 L034X51,X26X30,X34X41,X48040104000962TAP9 590 MLC AOPND,296 7 1752 M A53 296 97 591 SW PARAMT+60 4 1759 , A41 97 592 MLC PARAMT+64,309 7 1763 M A45 309 97 593 BCE PRINT1,PARAMT+60,M 8 1770 B Y43 A41 M 97 594 * 595 PRINT MCS CARDCT,314 7 1778 Z C17 314 97 &MA53296,A41MA45309BY43A41MZC17314 L033X84,X59X63,X70X78,040040104000972TAP9 596 MLC LOCATN,ADDR 7 1785 M ?80 635 98 597 B DECOD 4 1792 B 497 98 598 MLC @Z@,PRINT 7 1796 M B47 X78 98 599 LCA EDIT,290 7 1803 L P45 290 98 600 MCE WORK,290 7 1810 E 640 290 98 &M?80635B497MB47X78LP45290E640290C640B52L039Y23,X92X96,Y03Y10,Y17040104000982TAP9 601 C WORK,@00080@ 7 1817 C 640 B52 99 602 BL PRINT1 5 1824 B Y43 T 99 603 MLC @ADDR@,319 7 1829 M B56 319 99 604 A @1@,ERRCNT 7 1836 A B20 C21 99 605 * 606 PRINT1 MLC LABEL,219 7 1843 M R96 219 99 607 SW 214,221 7 1850 , 214 221 99 &BY43TMB56319AB20C21MR96219,214221 L033Y56,Y29Y36,Y43Y50,040040104000992TAP9 608 SW 227,201 7 1857 , 227 201 100 609 CW RECORD+3,RECORD+4 7 1864 ) R89 R90 100 610 MLC OPER+1,225 7 1871 M ?05 225 100 611 MLC RECORD+71,278 7 1878 M ?57 278 100 612 SW RECORD,RECORD+2 7 1885 , R86 R88 100 &,227201)R89R90M?05225M?57278,R86R88,?61L039Y95,Y64Y71,Y78Y85,Y92040104001002TAP9 613 SW RECORD+75 4 1892 , ?61 101 614 MCS RECORD+79,204 7 1896 Z ?65 204 101 615 MCS RECORD+1,207 7 1903 Z R87 207 101 616 MLC RECORD+4,211 7 1910 M R90 211 101 617 BW *+5,ERRPOS 8 1917 V Z29 ?72 1 101 618 B *+19 4 1925 B Z47 101 &Z?65204ZR87207MR90211VZ29?721BZ47 L033Z28,Z03Z10,Z17Z25,040040104001012TAP9 619 MLC @INVALID@,322 7 1929 M B63 322 102 620 A @1@,ERRCNT 7 1936 A B20 C21 102 621 B TSTOVF 4 1943 B Z99 102 622 BW *+5,ERRPOS-1 8 1947 V Z59 ?71 1 102 623 B *+15 4 1955 B Z73 102 624 MLC @OPER@,325 7 1959 M B67 325 102 &MB63322AB20C21BZ99VZ59?711BZ73MB67325 L037Z65,Z36Z43,Z47Z55,Z59040104001022TAP9 625 A @1@,ERRCNT 7 1966 A B20 C21 103 626 BW *+5,ERRPOS-2 8 1973 V Z85 ?70 1 103 627 B *+15 4 1981 B Z99 103 628 MLC @SYM@,330 7 1985 M B70 330 103 629 A @1@,ERRCNT 7 1992 A B20 C21 103 1 1401 TWO-TAPE AUTOCODER - PHASE 9 - LIST + CONDS RBR 2TAP9 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 630 TSTOVF W 1 1999 2 103 &AB20C21VZ85?701BZ99MB70330AB20C212BC27@L039!04,Z73Z81,Z85Z92,Z99!00104001032TAP9 631 BCV OVFLO 5 2000 B C27 @ 104 632 B GETOBJ 4 2005 B 719 104 633 * 634 NOWM BCE *+5,COUNT,1 8 2009 B !21 A59 1 104 635 B CONBCK 4 2017 B U99 104 636 MLC LOCATN,ADDR 7 2021 M ?80 635 104 637 ZS LITCNT,HOLD 7 2028 ! ?76 B95 104 638 A @1@,HOLD 7 2035 A B20 B95 104 &B719B!21A591BU99M?80635!?76B95AB20B95 L037!41,!09!17,!21!28,!35040104001042TAP9 639 B MODAD 4 2042 B Q12 105 640 MLC RESULT-1,SWADDR+6 7 2046 M C02 P54 105 641 MLC SWADDR+6,SWADDR+3 7 2053 M P54 P51 105 642 MLC 1 2060 M 105 643 MLC SWADDR+6,ADDR 7 2061 M P54 635 105 644 MLC LITCNT,HOLD 7 2068 M ?76 B95 105 645 B MODAD 4 2075 B Q12 105 &BQ12MC02P54MP54P51MMP54635M?76B95BQ12 L037!78,!46!53,!60!61,!68!75104001052TAP9 646 MLC RESULT-1,SWADDR+9 7 2079 M C02 P57 106 647 MLC @3@,COUNT 7 2086 M B21 A59 106 648 MLC @9@,X2 7 2093 M B71 094 106 649 MLC @)@,147 7 2100 M B72 147 106 650 B P4SK2+7 4 2107 B V24 106 &MC02P57MB21A59MB71094MB72147BV24M?80635L039J17,!86!93,J00J07,J11040104001062TAP9 651 NOWM1 MLC LOCATN,ADDR 7 2111 M ?80 635 107 652 ZA PARAMT+69,HOLD 7 2118 ? A50 B95 107 653 B MODAD 4 2125 B Q12 107 654 MLC RESULT-1,LOCATN 7 2129 M C02 ?80 107 655 SW PARAMT+40 4 2136 , A21 107 656 MLC @0039@,X1 7 2140 M B19 089 107 657 MLC @A@,P4SK2+14 7 2147 M B73 V31 107 &?A50B95BQ12MC02?80,A21MB19089MB73V31 L036J53,J25J29,J36J40,J47040104001072TAP9 658 B NOWM+12 4 2154 B !21 108 659 * TEST FOR CONSTANTS LONGER THAN 39 CHARS 660 TSTLNG BW REST,TSTLNG+9 8 2158 V K98 J67 1 108 661 BW ERRLIT,ERRPOS 8 2166 V K22 ?72 1 108 662 BW SPLIT,REST+5 8 2174 V K33 L03 1 108 663 C LITCNT,@040@ 7 2182 C ?76 B76 108 &B!21VK98J671VK22?721VK33L031C?76B76 L035J88,J58J66,J74J82,040040104001082TAP9 664 BH CDFULL SHORT CONSTANT 5 2189 B M88 U 109 665 C LITCNT,@53@ 7 2194 C ?76 B78 109 666 BH *+9 5 2201 B K14 U 109 667 SW ERRPOS 4 2206 , ?72 109 668 B CDFULL 4 2210 B M88 109 669 SW REST+5 4 2214 , L03 109 670 B CDFULL RELEASE PREVIOUS CARD 4 2218 B M88 109 &BM88UC?76B78BK14U,?72BM88,L03BM88 L033K21,J94K01,K06K10,K14K18104001092TAP9 671 ERRLIT MLC @N@,PRINT 7 2222 M B79 X78 110 672 B NUMOUT 4 2229 B X05 110 673 * SET UP FIRST 39 POSITIONS OF LONG CONSTANT 674 SPLIT CW REST+5 4 2233 ) L03 110 675 LCA LITCNT,PARAMT+69 SAVE ORIGINAL LENGTH 7 2237 L ?76 A50 110 676 MLC @0039@,LITCNT SET LENGTH TO 39 7 2244 M B19 ?76 110 677 MLC @0039@,POSCNT 7 2251 M B19 A70 110 &MB79X78BX05)L03L?76A50MB19?76MB19A70 L036K57,K29K33,K37K44,K51040104001102TAP9 678 S @0039@,PARAMT+69 FIGURE REMAINDER 7 2258 S B19 A50 111 1 1401 TWO-TAPE AUTOCODER - PHASE 9 - LIST + CONDS RBR 2TAP9 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 679 MLC LOCATN,ADDR 7 2265 M ?80 635 111 680 ZS PARAMT+69,HOLD 7 2272 ! A50 B95 111 681 B MODAD 4 2279 B Q12 111 682 MLC RESULT-1,LOCATN 7 2283 M C02 ?80 111 683 SW TSTLNG+9 4 2290 , J67 111 &SB19A50M?80635!A50B95BQ12MC02?80,J67 L036K93,K65K72,K79K83,K90040104001112TAP9 684 B FSTCON-34 4 2294 B U07 112 685 * PUNCH THE FIRST 39 POSITIONS 686 REST CW TSTLNG+9 4 2298 ) J67 112 687 MLC PARAMT+69,LITCNT 7 2302 M A50 ?76 112 688 MZ @ @,LITCNT 7 2309 Y B80 ?76 112 689 SW SPLIT+5 4 2316 , K38 112 690 B CDFULL 4 2320 B M88 112 691 * 692 PRINT2 BCV OVFLO 5 2324 B C27 @ 112 &BU07)J67MA50?76YB80?76,K38BM88BC27@ L035L28,K98L02,L09L16,L20L24104001122TAP9 693 CS 332 4 2329 / 332 113 694 CS 1 2333 / 113 695 C OPER,@EQU @ 7 2334 C ?04 B84 113 696 BE CTL 5 2341 B M25 S 113 697 BW *+9,FSTIME 8 2346 V L62 C22 1 113 698 SW FSTIME 4 2354 , C22 113 699 B CDFULL 4 2358 B M88 113 &/332/C?04B84BM25SVL62C221,C22BM88 L033L61,L33L34,L41L46,L54L58104001132TAP9 700 CW FSTIME 4 2362 ) C22 114 701 SW 305 4 2366 , 305 114 702 BCE *+5,PARAMT+60,G 8 2370 B L82 A41 G 114 703 B *+8 4 2378 B L89 114 704 MLC PARAMT+64,309 7 2382 M A45 309 114 705 MLC LOCATN,ADDR 7 2389 M ?80 635 114 706 B DECOD 4 2396 B 497 114 &)C22,305BL82A41GBL89MA45309M?80635B497 L038L99,L66L70,L78L82,L89L96104001142TAP9 707 LCA EDIT,297 7 2400 L P45 297 115 708 MCE WORK,297 7 2407 E 640 297 115 709 MLC @L@,140 7 2414 M B85 140 115 710 B PRINT1 4 2421 B Y43 115 711 * 712 CTL MLC LOCATN,ADDR 7 2425 M ?80 635 115 &LP45297E640297MB85140BY43M?80635 L032M31,M07M14,M21M25,040040104001152TAP9 713 BCE CDFULL-11,LOCATN-2,% 8 2432 B M77 ?78 % 116 714 B DECOD 4 2440 B 497 116 715 LCA EDIT,290 7 2444 L P45 290 116 716 MCE WORK,290 7 2451 E 640 290 116 717 BWZ PRINT1,LOCATN-1,2 8 2458 V Y43 ?79 2 116 &BM77?78%B497LP45290E640290VY43?792 L034M65,M40M44,M51M58,040040104001162TAP9 718 MLC @X@,292 7 2466 M B86 292 117 719 B PRINT1 4 2473 B Y43 117 720 MLC LOCATN,290 7 2477 M ?80 290 117 721 B PRINT1 4 2484 B Y43 117 722 * 723 CDFULL CW ISOLAT,LITCTL 7 2488 ) C24 C25 117 724 BCE AGAIN,COUNT,0 8 2495 B 756 A59 0 117 &MB86292BY43M?80290BY43)C24C25B756A590 L037N02,M73M77,M84M88,M95040104001172TAP9 725 MLC SWADDR+X2,ADDR 7 2503 M PM8 635 118 726 MLC @040@,SWADDR+X2 7 2510 M B76 PM8 118 727 MLC SWADDR+18,167 7 2517 M P66 167 118 728 MLC 1 2524 M 118 1 1401 TWO-TAPE AUTOCODER - PHASE 9 - LIST + CONDS RBR 2TAP9 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 729 MLC SWADDR+12,160 7 2525 M P60 160 118 730 MLC 1 2532 M 118 731 MLC SWADDR+6,153 7 2533 M P54 153 118 &MPM8635MB76PM8MP66167MMP60160MMP54153 L037N39,N10N17,N24N25,N32N33104001182TAP9 732 MLC 1 2540 M 119 733 ZS @1@,HOLD 7 2541 ! B20 B95 119 734 B MODAD 4 2548 B Q12 119 735 P4SK3 MLC RESULT-1,146 7 2552 M C02 146 119 736 SW 141 4 2559 , 141 119 737 MLC SPACE,143 7 2563 M B15 143 119 738 MLC CARDCT,175 7 2570 M C17 175 119 &M!B20B95BQ12MC02146,141MB15143MC17175 L037N76,N41N48,N52N59,N63N70104001192TAP9 739 A @1@,CARDCT 7 2577 A B20 C17 120 740 P 1 2584 4 120 741 CS 139 4 2585 / 139 120 742 MLC RESULT-1,ADDR 7 2589 M C02 635 120 743 B DECOD 4 2596 B 497 120 744 C WORK,@04000@ 7 2600 C 640 B91 120 745 BH *+5 5 2607 B O16 U 120 &AB20C174/139MC02635B497C640B91BO16U L035O11,N84N85,N89N96,O00O07104001202TAP9 746 SW EXCEED 4 2612 , C26 121 747 LCA @040@,SWADDR+18 7 2616 L B76 P66 121 748 LCA SWADDR+18,SWADDR+15 7 2623 L P66 P63 121 LCA 1 2630 L GEN 121 LCA 1 2631 L GEN 121 LCA 1 2632 L GEN 121 LCA 1 2633 L GEN 121 &,C26LB76P66LP66P63LLLL L022O33,O16O23,O30O31,O32O33104001212TAP9 LCA 1 2634 L GEN 122 755 LCA SETUP-1,180 7 2635 L Q10 180 122 756 B REINIT 4 2642 B 666 122 757 * 758 COMMNT SW RECORD+5 4 2646 , R91 122 759 BCV OVFLO 5 2650 B C27 @ 122 760 CS 0332 4 2655 / 332 122 761 CS 1 2659 / 122 &LLQ10180B666,R91BC27@/332/ L026O59,O35O42,O46O50,O55O59104001222TAP9 762 CW RECORD+15,RECORD+20 7 2660 ) ?01 ?06 123 763 MLC RECORD+71,280 7 2667 M ?57 280 123 764 SW RECORD,RECORD+2 7 2674 , R86 R88 123 765 MCS RECORD+1,207 7 2681 Z R87 207 123 766 MLC RECORD+4,211 7 2688 M R90 211 123 &)?01?06M?57280,R86R88ZR87207MR90211 L035O94,O67O74,O81O88,040040104001232TAP9 767 MCS RECORD+79,204 7 2695 Z ?65 204 124 768 BCV OVFLO 5 2702 B C27 @ 124 769 W GETOBJ 4 2707 2 719 124 770 * 771 DS BW *+9,FSTIME 8 2711 V P27 C22 1 124 772 SW FSTIME 4 2719 , C22 124 773 B CDFULL 4 2723 B M88 124 774 CW FSTIME 4 2727 ) C22 124 &Z?65204BC27@2719VP27C221,C22BM88)C22 L036P30,P02P07,P11P19,P23P27104001242TAP9 775 CS 332 4 2731 / 332 125 776 CS 1 2735 / 125 777 B PRINT+7 4 2736 B X85 125 778 * *** CONSTANTS *** 779 EDIT DCW @ 0 @ 6 2745 125 1 1401 TWO-TAPE AUTOCODER - PHASE 9 - LIST + CONDS RBR 2TAP9 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 780 SWADDR DCW @040@ 3 2748 125 781 DCW @040@ 3 2751 125 782 DCW @040@ 3 2754 125 &/332/BX85 0 040040040 L024P54,P35P36,P40P46,P49P52104001252TAP9 783 DCW @040@ 3 2757 126 784 DCW @040@ 3 2760 126 785 DCW @040@ 3 2763 126 786 DCW @040@ 3 2766 126 787 DCW @040@ 3 2769 126 &040040040040040 L015P69,P58P61,P64P67,040040104001262TAP9 &L ,040040,040040,0400401040 L039Q08,040040,040040,040040104001272TAP9 788 SETUP DCW @L ,040040,040040,0400401040 |@ 42 2811 128 789 * COPY OF ROUTINE TO MODIFY MACHINE ADDRESS 790 * BY A PLUS OR MINUS ADJUSTMENT VALUE 791 * * ADDRESS PLACED AT ADDR 792 * * ADJUSTMENT VALUE TAKEN FROM PARAMT&10 793 * * MODIFIED ADDRESS PLACED AT RESULT-1 794 MODAD SBR MDEXIT+3 4 2812 H R17 128 795 BAV *+1 5 2816 B Q21 Z 128 796 CW NEG1#1 4 2821 ) B92 128 797 BM DECR1,HOLD#3 8 2825 V R52 B95 K 128 & |HR17BQ21Z)B92VR52B95K L024Q32)Q09Q09,Q12Q16,Q21Q25104001282TAP9 798 SETIN NOP @?0@ 4 2833 N B97 129 799 ORG SETIN 2833 &NB97 L004Q36,040040,040040,040040104001292TAP9 800 MLC ADDR,RESULT-1 7 2833 M 635 C02 130 801 MZ @ @,RESULT-1 7 2840 Y B80 C02 130 802 A HOLD,RESULT-1 7 2847 A B95 C02 130 803 MZ ADDR,RESULT-1 7 2854 Y 635 C02 130 804 MZ RESULT-3,YYY 7 2861 Y C00 R51 130 &M635C02YB80C02AB95C02Y635C02YC00R51 L035Q67,Q40Q47,Q54Q61,040040104001302TAP9 805 MZ ADDR-2,XXX 7 2868 Y 633 R50 131 806 BW MDEXIT+4,NEG1 8 2875 V R18 B92 1 131 807 C XXX,YYY 7 2883 C R50 R51 131 808 BH *+5 5 2890 B Q99 U 131 809 B MDEXIT 4 2895 B R14 131 810 SW RESULT-1 4 2899 , C02 131 &Y633R50VR18B921CR50R51BQ99UBR14,C02 L035R02,Q75Q83,Q90Q95,Q99040104001312TAP9 811 A @|0@,RESULT#4 7 2903 A B99 C03 132 812 CW RESULT-1 4 2910 ) C02 132 813 MDEXIT B 000 4 2914 B 000 132 814 BAV MDEXIT 5 2918 B R14 Z 132 815 C XXX,YYY 7 2923 C R50 R51 132 816 BH MDEXIT 5 2930 B R14 U 132 817 SW RESULT-1 4 2935 , C02 132 &AB99C03)C02B000BR14ZCR50R51BR14U,C02 L036R38,R10R14,R18R23,R30R35104001322TAP9 818 A @?0@,RESULT 7 2939 A B97 C03 133 819 B MDEXIT-4 4 2946 B R10 133 820 XXX DCW @2@ 1 2950 133 821 YYY DCW @2@ 1 2951 133 822 DECR1 SW NEG1 4 2952 , B92 133 823 A @999@,HOLD 7 2956 A C06 B95 133 824 A @?01@,HOLD 7 2963 A C09 B95 133 &AB97C03BR1022,B92AC06B95AC09B95 L031R69,R46R50,R51R52,R56R63104001332TAP9 825 B SETIN 4 2970 B Q33 134 826 MODZR MLC HOLD,RESULT-1 7 2974 M B95 C02 134 827 B MDEXIT 4 2981 B R14 134 1 1401 TWO-TAPE AUTOCODER - PHASE 9 - LIST + CONDS RBR 2TAP9 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 828 H 1 2985 . 134 829 * 830 * INPUT RECORD AREA 831 * 832 RECORD DA 1X80,| 2986 3067 &BQ33MB95C02BR14. L016R85,R74R81,R85R86,040040104001342TAP9 DC @|@ 1 3067 RMARK 135 LABEL 11 2996 SBFLD OPER 19 3004 SBFLD 835 PARTBL DA 1X90,| 3067 3158 &| L001?66)?66?66,?67040,040040104001352TAP9 DC @|@ 1 3158 RMARK 136 AADDR 1,1 3067 FIELD BADDR 2,2 3068 FIELD ERRPOS 6 3072 SBFLD ICOUNT 7,7 3073 FIELD LITCNT 8,10 3076 FIELD &| L001A57)A57A57,?67?68,?73?74104001362TAP9 ACTOP 11,11 3077 FIELD LOCATN 12,14 3080 FIELD PARAMT 15,15 3081 FIELD AOPND 85,87 3153 FIELD BOPND 88,90 3156 FIELD 846 * 847 ORG RECORD+1 2987 848 HSKPG MLC @0004@,CARDCT#4 7 2987 M C13 C17 137 849 MLC @0000@,ERRCNT#4 7 2994 M A66 C21 137 &MC13C17MA66C21 L014?00,?77?78,?81A51,A54R94104001372TAP9 850 CW FSTIME#1,SUBNXT#1 7 3001 ) C22 C23 138 851 CW ISOLAT#1,LITCTL#1 7 3008 ) C24 C25 138 852 CW EXCEED#1 4 3015 ) C26 138 853 CS 139 4 3019 / 139 138 854 CS 80 4 3023 / 080 138 855 SW 21 4 3027 , 021 138 856 B HSKPG1 4 3031 B 653 138 &)C22C23)C24C25)C26/139/080,021B653 L034?34,?08?15,?19?23,?27?31104001382TAP9 857 H 1 3035 . 139 858 LTORG PARTBL+91 3158 &. L001?35,040040,040040,040040104001392TAP9 DCW @0@ 1 3158 LIT 140 COUNT DCW #01 1 3159 AREA 140 DCW @000@ 3 3162 LIT 140 DCW @0000@ 4 3166 LIT 140 POSCNT DCW #04 4 3170 AREA 140 DCW @ @ 8 3178 LIT 140 ASSMBD DCW #08 8 3186 AREA 140 &0 0000000 L029A86,A59A60,A63A67,A71A79104001402TAP9 DCW @EX @ 4 3190 LIT 141 DCW @XFR @ 4 3194 LIT 141 DCW @CTL @ 4 3198 LIT 141 DCW @JOB @ 4 3202 LIT 141 DCW @B@ 1 3203 LIT 141 DCW @DS @ 4 3207 LIT 141 DCW @END @ 4 3211 LIT 141 &EX XFR CTL JOB BDS END L025B11,A91A95,A99B03,B04B08104001412TAP9 SPACE DCW #04 4 3215 AREA 142 DCW @0039@ 4 3219 LIT 142 1 1401 TWO-TAPE AUTOCODER - PHASE 9 - LIST + CONDS RBR 2TAP9 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD DCW @1@ 1 3220 LIT 142 DCW @3@ 1 3221 LIT 142 DCW @ @ 8 3229 LIT 142 DCW @DA @ 4 3233 LIT 142 DCW @DC @ 5 3238 LIT 142 & 003913 DA DC L027B38,B16B20,B21B22,B30B34104001422TAP9 DCW @DC @ 4 3242 LIT 143 DCW @M@ 1 3243 LIT 143 DCW @ @ 2 3245 LIT 143 DCW @@@ 1 3246 LIT 143 DCW @Z@ 1 3247 LIT 143 DCW @00080@ 5 3252 LIT 143 DCW @ADDR@ 4 3256 LIT 143 &DC M @Z00080ADDR L018B56,B43B44,B46B47,B48B53104001432TAP9 DCW @INVALID@ 7 3263 LIT 144 DCW @OPER@ 4 3267 LIT 144 DCW @SYM@ 3 3270 LIT 144 DCW @9@ 1 3271 LIT 144 DCW @)@ 1 3272 LIT 144 DCW @A@ 1 3273 LIT 144 DCW @040@ 3 3276 LIT 144 &INVALIDOPERSYM9)A040 L020B76,B64B68,B71B72,B73B74104001442TAP9 DCW @53@ 2 3278 LIT 145 DCW @N@ 1 3279 LIT 145 DCW @ @ 1 3280 LIT 145 DCW @EQU @ 4 3284 LIT 145 DCW @L@ 1 3285 LIT 145 DCW @X@ 1 3286 LIT 145 DCW @04000@ 5 3291 LIT 145 &53N EQU LX04000 L015B91,B79B80,B81B85,B86B87104001452TAP9 NEG1 DCW #01 1 3292 AREA 146 HOLD DCW #03 3 3295 AREA 146 DCW @?0@ 2 3297 LIT 146 DCW @|0@ 2 3299 LIT 146 RESULT DCW #04 4 3303 AREA 146 DCW @999@ 3 3306 LIT 146 DCW @?01@ 3 3309 LIT 146 & ?0|0 999?01 L018C09,B93B96,B98C00,C04C07104001462TAP9 DCW @0004@ 4 3313 LIT 147 CARDCT DCW #04 4 3317 AREA 147 ERRCNT DCW #04 4 3321 AREA 147 FSTIME DCW #01 1 3322 AREA 147 SUBNXT DCW #01 1 3323 AREA 147 ISOLAT DCW #01 1 3324 AREA 147 LITCTL DCW #01 1 3325 AREA 147 &0004 L016C25,C14C18,C22C23,C24C25104001472TAP9 EXCEED DCW #01 1 3326 AREA 148 916 * 917 * CALLING LINKAGE FOR PHASE 9 SUBROUTINES 918 * ON SYSTEMS TAPE 919 * 920 * *** PAGE OVERFLOW CALL *** 921 OVFLO SBR OVFEXT 4 3327 H C40 148 922 CC 1 2 3331 F 1 148 923 B GETOVF 4 3333 B D63 148 924 OVFOUT B JOBACK 4 3337 B 880 148 925 OVFEXT EQU * 3340 1 1401 TWO-TAPE AUTOCODER - PHASE 9 - LIST + CONDS RBR 2TAP9 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 926 NOP PAGENO#3 4 3341 N E16 148 927 * 928 * *** DA HEADER CALL *** 929 DAOUT BW DAHDR,FSTIME 8 3345 V E30 C22 1 148 & HC40F1BD63B880NE16VE30C221 L027C52,C27C31,C33C37,C41C45104001482TAP9 930 B GETDA 4 3353 B D55 149 931 * 932 * *** DA SUBSEQUENT ENTRY CALL *** 933 SUBDA NOP 000,000,0 8 3357 N 000 000 0 149 934 NOP FSTIME 4 3365 N C22 149 935 BCE GETSUB,OPER-3, 8 3369 B D47 ?01 149 936 A @1@,COUNT 7 3377 A E17 A59 149 937 DADONE CW SUBNXT,FSTIME 7 3384 ) C23 C22 149 &BD55N0000000NC22BD47?01 AE17A59)C23C22 L038C90,C57C65,C69C77,C84040104001492TAP9 938 BCE REINIT,COUNT,0 8 3391 B 666 A59 0 150 939 B P4SK3+18 4 3399 B N70 150 940 * 941 * *** EX AND XFR CALL *** 942 EXECUT BW SETEXC,FSTIME 8 3403 V E38 C22 1 150 943 B GETEX 4 3411 B D39 150 944 * 945 * *** END CARD - END OF JOB CALL *** 946 END BW END2,FSTIME 8 3415 V E26 C22 1 150 947 SW FSTIME 4 3423 , C22 150 &B666A590BN70VE38C221BD39VE26C221,C22 L036D26,C99D03,D11D15,D23040104001502TAP9 948 B GETEND 4 3427 B D31 151 949 * 950 * 951 * ROUTINE TO ORDER THE DESIRED SUBROUTINE 952 GETEND RTW 1,OVRLAY 8 3431 L %U1 E18 R 151 953 GETEX RTW 1,OVRLAY 8 3439 L %U1 E18 R 151 954 GETSUB RTW 1,OVRLAY 8 3447 L %U1 E18 R 151 955 GETDA RTW 1,OVRLAY 8 3455 L %U1 E18 R 151 &BD31L%U1E18RL%U1E18RL%U1E18RL%U1E18R L036D62,D31D39,D47D55,040040104001512TAP9 956 GETOVF RTW 1,OVRLAY 8 3463 L %U1 E18 R 152 957 BER TPERR 5 3471 B 363 L 152 958 BEF *+1 5 3476 B D81 K 152 959 B SUBRT 4 3481 B E22 152 960 * 961 * ROUTINE TO REPOSITION SYSTEMS TAPE AFTER 962 * SUBROUTINE IS FINISHED 963 BSP5 BSP 1 5 3485 U %U1 B 152 964 BSP4 BSP 1 5 3490 U %U1 B 152 965 BSP3 BSP 1 5 3495 U %U1 B 152 &L%U1E18RB363LBD81KBE22U%U1BU%U1BU%U1B L037D99,D71D76,D81D85,D90D95104001522TAP9 966 BSP2 BSP 1 5 3500 U %U1 B 153 967 BSP1 BSP 1 5 3505 U %U1 B 153 968 B OVRLAY EXIT FROM SUBRT ITS FIRST INSTR 4 3510 B E18 153 969 * 970 LTORG * 3514 PAGENO DCW #03 3 3516 AREA 153 DCW @1@ 1 3517 LIT 153 973 * 974 * ***** COMMON AREA FOR SUBROUTINES ***** 975 * 976 OVRLAY H 1 3518 . 153 977 * 1 1401 TWO-TAPE AUTOCODER - PHASE 9 - LIST + CONDS RBR 2TAP9 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD &U%U1BU%U1BBE18 1. L019E18,E05E10,E14E17,E18040104001532TAP9 978 3998 DCW @}@ 1 3998 154 979 * 980 ORG 3975 3975 &} L001I98,040040,040040,040040104001542TAP9 981 SETXX SW AOPND-12 4 3975 , A41 155 982 MLC ACTOP,ASSMBD-7 7 3979 M ?77 A79 155 983 B P4SK1+21 4 3986 B |84 155 &,A41M?77A79B|84 L015I89,I79I86,040040,040040104001552TAP9 & N000000,040040,040040,040040B16701562TAP9 984 EX SYSTEM B 167 &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 01572TAP9 &,068072)063067/061039 ,001001104001582TAP9 1 PHASE 9 PAGE OVERFLOW SUBROUTINE - TAPE RECORD 2TAP9 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 985 JOB PHASE 9 PAGE OVERFLOW SUBROUTINE - TAPE RECORD 986 * 987 * OVERLAY SYSTEMS TAPE CONTROL TO WRITE FROM 988 * COMMON OVERLAY AREA FOR SUBROUTINES 989 ORG SYSTEM 0167 990 WTW 1,OVRLAY 8 0167 L %U1 E18 W 159 991 * 992 ORG OVRLAY 3518 &L%U1E18W L008174,040040,040040,040040104001592TAP9 993 B OVFOUT 4 3518 B C37 160 994 SUBRT CS 332 FIRST INSTRUCTION OF SUBRT 4 3522 / 332 160 995 CS 1 3526 / 160 996 SW 21 4 3527 , 021 160 997 MLC HEADNG,278 7 3531 M 072 278 160 998 SW 286 4 3538 , 286 160 999 MLC SETUP-1,290 7 3542 M Q10 290 160 &BC37/332/,021M072278,286MQ10290 L031E48,E22E26,E27E31,E38E42104001602TAP9 1000 MLC @PAGE@,307 7 3549 M F73 307 161 1001 A @1@,PAGENO 7 3556 A F74 E16 161 1002 MCS PAGENO,314 7 3563 Z E16 314 161 1003 CC T 2 3570 F T 161 1004 W 1 3572 2 161 1005 CS 332 4 3573 / 332 161 1006 CS 1 3577 / 161 &MF73307AF74E16ZE16314FT2/332/ L029E77,E56E63,E70E72,E73E77104001612TAP9 1007 LCA LEFT,234 7 3578 L F37 234 162 1008 LCA RIGHT,314 7 3585 L F69 314 162 1009 CC S 2 3592 F S 162 1010 W 1 3594 2 162 1011 CS 332 4 3595 / 332 162 1012 CS 1 3599 / 162 1013 B BSP1 4 3600 B E05 162 1014 HEADNG EQU 72 0072 &LF37234LF69314FS2/332/BE05 L026F03,E85E92,E94E95,E99F00104001622TAP9 1015 LEFT DCW @ SEQ PG LIN LABEL OP OPERANDS@ 34 3637 163 & SEQ PG LIN LABEL OP OPERANDS L034F37,040040,040040,040040104001632TAP9 1016 RIGHT DCW @CT LOCN INSTRUCTION TYPE CARD@ 32 3669 164 1017 LTORG * 3670 DCW @PAGE@ 4 3673 LIT 164 DCW @1@ 1 3674 LIT 164 1020 ORG GM1 3968 1021 * &CT LOCN INSTRUCTION TYPE CARDPAGE1 L037F74,F70F74,040040,040040104001642TAP9 1022 DCW @}@ GROUP MARK - SUBROUTINE HIGH LOC 1 3968 165 1023 * &} L001I68,040040,040040,040040104001652TAP9 & N000000,040040,040040,040040B16701662TAP9 1024 XFR SYSTEM B 167 &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 01672TAP9 &,068072)063067/061039 ,001001104001682TAP9 1 PHASE 9 DA HEADER SUBROUTINE - TAPE RECORD 2TAP9 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1025 JOB PHASE 9 DA HEADER SUBROUTINE - TAPE RECORD 1026 * 1027 ORG OVRLAY 3518 1028 B PRINT1 4 3518 B Y43 169 1029 * 1030 SW FSTIME 4 3522 , C22 169 1031 B CDFULL 4 3526 B M88 169 1032 DAHDR CS 332 4 3530 / 332 169 1033 CS 1 3534 / 169 1034 CW FSTIME 4 3535 ) C22 169 1035 MLC LOCATN,ADDR 7 3539 M ?80 635 169 &BY43,C22BM88/332/)C22M?80635 L028E45,E22E26,E30E34,E35E39104001692TAP9 1036 B DECOD 4 3546 B 497 170 1037 LCA EDIT,290 7 3550 L P45 290 170 1038 MCE WORK,290 7 3557 E 640 290 170 1039 LCA LOADXX,146 7 3564 L G57 146 170 1040 LCA LOCATN,ADDR 7 3571 L ?80 635 170 1041 B SETWM 4 3578 B G73 170 1042 NOP 1 3582 N 170 &B497LP45290E640290LG57146L?80635BG73N L037E82,E50E57,E64E71,E78E82104001702TAP9 1043 NOP 1 3583 N 171 1044 NOP 1 3584 N 171 1045 MLC LITCNT,ADDR 7 3585 M ?76 635 171 1046 B DECOD 4 3592 B 497 171 1047 A 290,WORK 7 3596 A 290 640 171 1048 S PARAMT+67,WORK 7 3603 S A48 640 171 1049 S @1@,WORK 7 3610 S I59 640 171 &NNM?76635B497A290640SA48640SI59640 L034F16,E84E85,E92E96,F03F10104001712TAP9 1050 MZ @ @,WORK 7 3617 Y I60 640 172 1051 LCA EDIT,297 7 3624 L P45 297 172 1052 MCE WORK,297 7 3631 E 640 297 172 1053 MCS CARDCT,314 7 3638 Z C17 314 172 1054 SW SUBNXT 4 3645 , C23 172 &YI60640LP45297E640297ZC17314,C23)?71?70L039F55,F24F31,F38F45,F49040104001722TAP9 1055 CW ERRPOS-1,ERRPOS-2 7 3649 ) ?71 ?70 173 1056 MLC @000@,TEMP 7 3656 M I63 I67 173 1057 MLC PARAMT+9,TEMP 7 3663 M ?90 I67 173 1058 MLC LOCATN,ADDR 7 3670 M ?80 635 173 1059 MLC @000@,HOLD 7 3677 M I63 B95 173 1060 MLC PARAMT+19,HOLD 7 3684 M A00 B95 173 &MI63I67M?90I67M?80635MI63B95MA00B95 L035F90,F63F70,F77F84,040040104001732TAP9 1061 A PARAMT+60,HOLD 7 3691 A A41 B95 174 1062 SUB S @1@,TEMP 7 3698 S I59 I67 174 1063 MZ @ @,TEMP 7 3705 Y I60 I67 174 1064 C @000@,TEMP 7 3712 C I63 I67 174 1065 BE BSP2 5 3719 B E00 S 174 1066 B MODAD 4 3724 B Q12 174 &AA41B95SI59I67YI60I67CI63I67BE00SBQ12 L037G27,F98G05,G12G19,G24040104001742TAP9 1067 MLC RESULT-1,ADDR 7 3728 M C02 635 175 1068 DABACK B SETWM 4 3735 B G73 175 1069 B SUB 4 3739 B F98 175 1070 DS 30 3772 1071 * ROUTINE TO SET UP WORDMARKS FOR DA ENTRIES &MC02635BG73BF98 L015G42,G35G39,040040,040040104001752TAP9 1072 SETWM SBR SWOUT+10 4 3773 H I53 176 1073 NOP SW1,COUNT,0 8 3777 N H44 A59 0 176 1074 BCE SW2,COUNT,0 8 3785 B H55 A59 0 176 1 PHASE 9 DA HEADER SUBROUTINE - TAPE RECORD 2TAP9 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1075 BCE SW3,COUNT,1 8 3793 B H66 A59 1 176 1076 BCE SW4,COUNT,2 8 3801 B H77 A59 2 176 &HI53NH44A590BH55A590BH66A591BH77A592 L036H08,G77G85,G93H01,040040104001762TAP9 1077 BCE SW5,COUNT,3 8 3809 B H88 A59 3 177 1078 BCE SW6,COUNT,4 8 3817 B H99 A59 4 177 1079 BCE SW7,COUNT,5 8 3825 B I10 A59 5 177 1080 H 1,1 7 3833 . 001 001 177 1081 B *-10 4 3840 B H33 177 &BH88A593BH99A594BI10A595.001001BH33 L035H43,H17H25,H33H40,040040104001772TAP9 1082 SW1 H 002,002 7 3844 . 002 002 178 1083 B SWOUT 4 3851 B I43 178 1084 SW2 LCA ADDR,150 7 3855 L 635 150 178 1085 B SWOUT 4 3862 B I43 178 1086 SW3 LCA ADDR,153 7 3866 L 635 153 178 1087 B SWOUT 4 3873 B I43 178 &.002002BI43L635150BI43L635153BI43 L033H76,H51H55,H62H66,H73040104001782TAP9 1088 SW4 LCA ADDR,157 7 3877 L 635 157 179 1089 B SWOUT 4 3884 B I43 179 1090 SW5 LCA ADDR,160 7 3888 L 635 160 179 1091 B SWOUT 4 3895 B I43 179 1092 SW6 LCA ADDR,164 7 3899 L 635 164 179 1093 B SWOUT 4 3906 B I43 179 &L635157BI43L635160BI43L635164BI43 L033I09,H84H88,H95H99,I06040104001792TAP9 1094 SW7 LCA ADDR,167 7 3910 L 635 167 180 1095 MLC CARDCT,175 7 3917 M C17 175 180 1096 P 1 3924 4 180 1097 A @1@,CARDCT 7 3925 A I59 C17 180 1098 MLC @0@,COUNT 7 3932 M I64 A59 180 1099 B SWOUT+7 4 3939 B I50 180 &L635167MC171754AI59C17MI64A59BI50 L033I42,I17I24,I25I32,I39040104001802TAP9 1100 SWOUT A @1@,COUNT 7 3943 A I59 A59 181 1101 B 0 4 3950 B 000 181 1102 H TEMP#3 4 3954 . I67 181 1103 DCW @,@ 1 3958 181 1104 LTORG * 3959 DCW @1@ 1 3959 LIT 181 DCW @ @ 1 3960 LIT 181 DCW @000@ 3 3963 LIT 181 &AI59A59B000.I67,1 000 L021I63,I50I54,I58I59,I60I61104001812TAP9 DCW @0@ 1 3964 LIT 182 TEMP DCW #03 3 3967 AREA 182 1110 GM1 DCW @}@ 1 3968 182 1111 DCW @}@ GROUP MARK - HIGH STORAGE POINT 1 3969 182 1112 * 1113 ORG 3751 3751 &0 }} L006I69,I65I68,I69040,040040104001822TAP9 1114 LCA 1,1 7 3751 L 001 001 183 1115 LOADXX EQU * 3757 &L001001 L007G57,040040,040040,040040104001832TAP9 & N000000,040040,040040,040040B16701842TAP9 1116 EX SYSTEM B 167 &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 01852TAP9 &,068072)063067/061039 ,001001104001862TAP9 1 PHASE 9 DA SUBSEQUENT ENTRY SUBROUTINE - TAPE RECORD 2TAP9 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1117 JOB PHASE 9 DA SUBSEQUENT ENTRY SUBROUTINE - TAPE RECORD 1118 * 1119 ORG OVRLAY 3518 1120 B DADONE 4 3518 B C84 187 1121 * 1122 BCE *+5,OPER-3, 8 3522 B E34 ?01 187 1123 B BSP3 4 3530 B D95 187 1124 CW ERRPOS-1,ERRPOS-2 7 3534 ) ?71 ?70 187 1125 CS 332 4 3541 / 332 187 1126 CS 1 3545 / 187 1127 MLC LOCATN,ADDR 7 3546 M ?80 635 187 &BC84BE34?01 BD95)?71?70/332/M?80635 L035E52,E22E30,E34E41,E45E46104001872TAP9 1128 B DECOD 4 3553 B 497 188 1129 LCA EDIT,290 7 3557 L P45 290 188 1130 MCE WORK,290 7 3564 E 640 290 188 1131 MLC LOCATN,ADDR 7 3571 M ?80 635 188 1132 ZS LITCNT,HOLD 7 3578 ! ?76 B95 188 &B497LP45290E640290M?80635!?76B95AG24B95L039E91,E57E64,E71E78,E85040104001882TAP9 1133 A @1@,HOLD 7 3585 A G24 B95 189 1134 B MODAD 4 3592 B Q12 189 1135 MLC RESULT-1,ADDR 7 3596 M C02 635 189 1136 MLC @000@,TEMP 7 3603 M G27 I67 189 1137 MLC PARAMT+9,TEMP 7 3610 M ?90 I67 189 1138 MLC @000@,HOLD 7 3617 M G27 B95 189 &BQ12MC02635MG27I67M?90I67MG27B95MA00B95L039F30,E96F03,F10F17,F24040104001892TAP9 1139 MLC PARAMT+19,HOLD 7 3624 M A00 B95 190 1140 A PARAMT+60,HOLD 7 3631 A A41 B95 190 1141 C LITCNT,@000@ 7 3638 C ?76 G27 190 1142 BE SUBFLD 5 3645 B G13 S 190 1143 MCS CARDCT,314 7 3650 Z C17 314 190 1144 MLC @FIELD@,309 7 3657 M G32 309 190 1145 B SETWM 4 3664 B G73 190 &AA41B95C?76G27BG13SZC17314MG32309BG73 L037F67,F38F45,F50F57,F64040104001902TAP9 1146 DECRMT S @1@,TEMP 7 3668 S G24 I67 191 1147 MZ @ @,TEMP 7 3675 Y G33 I67 191 1148 C @000@,TEMP 7 3682 C G27 I67 191 1149 BE BSPXX 5 3689 B G51 S 191 1150 B MODAD 4 3694 B Q12 191 1151 SUBACK MLC RESULT-1,ADDR 7 3698 M C02 635 191 &SG24I67YG33I67CG27I67BG51SBQ12MC02635 L037G04,F75F82,F89F94,F98040104001912TAP9 1152 B SETWM 4 3705 B G73 192 1153 B DECRMT 4 3709 B F68 192 1154 SUBFLD MLC @SBFLD@,309 7 3713 M G38 309 192 1155 B BSPXX 4 3720 B G51 192 1156 * 1157 LTORG * 3724 DCW @1@ 1 3724 LIT 192 DCW @000@ 3 3727 LIT 192 DCW @FIELD@ 5 3732 LIT 192 &BG73BF68MG38309BG511000FIELD L028G32,G09G13,G20G24,G25G28104001922TAP9 DCW @ @ 1 3733 LIT 193 DCW @SBFLD@ 5 3738 LIT 193 1163 ORG 3751 3751 & SBFLD L006G38,G34040,040040,040040104001932TAP9 1164 BSPXX BSP 1 5 3751 U %U1 B 194 1165 BSP 1 5 3756 U %U1 B 194 1166 BSP 1 5 3761 U %U1 B 194 1 PHASE 9 DA SUBSEQUENT ENTRY SUBROUTINE - TAPE RECORD 2TAP9 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1167 B PRINT1 4 3766 B Y43 194 &U%U1BU%U1BU%U1BBY43 L019G69,G56G61,G66040,040040104001942TAP9 & N000000,040040,040040,040040B16701952TAP9 1168 EX SYSTEM B 167 &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 01962TAP9 &,068072)063067/061039 ,001001104001972TAP9 1 PHASE 9 EX AND XFR SUBROUTINE - TAPE RECORD 2TAP9 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1169 JOB PHASE 9 EX AND XFR SUBROUTINE - TAPE RECORD 1170 * 1171 ORG OVRLAY 3518 1172 B PRINT1 4 3518 B Y43 198 1173 * 1174 SW FSTIME 4 3522 , C22 198 1175 BCE *+5,COUNT,0 8 3526 B E38 A59 0 198 1176 B CDFULL 4 3534 B M88 198 1177 SETEXC CW FSTIME 4 3538 ) C22 198 1178 MLC @B@,168 7 3542 M H45 168 198 1179 MLC AOPND,171 7 3549 M A53 171 198 &BY43,C22BE38A590BM88)C22MH45168MA53171 L038E55,E22E26,E34E38,E42E49104001982TAP9 1180 CS 332 4 3556 / 332 199 1181 CS 1 3560 / 199 1182 MLC @B@,293 7 3561 M H45 293 199 1183 MLC AOPND,297 7 3568 M A53 297 199 1184 MCS CARDCT,314 7 3575 Z C17 314 199 1185 MLC @N000000@,146 7 3582 M H52 146 199 &/332/MH45293MA53297ZC17314MH52146 L033E88,E60E61,E68E75,E82040104001992TAP9 1186 MLC CARDCT,175 7 3589 M C17 175 200 1187 A @1@,CARDCT 7 3596 A H53 C17 200 1188 P 1 3603 4 200 1189 LCA SETEX1,180 7 3604 L G64 180 200 1190 SW 176 4 3611 , 176 200 1191 MLC SETUP-1,180 7 3615 M Q10 180 200 &MC17175AH53C174LG64180,176MQ10180 L033F21,E96F03,F04F11,F15040104002002TAP9 1192 MLC CARDCT,175 7 3622 M C17 175 201 1193 A @1@,CARDCT 7 3629 A H53 C17 201 1194 P 1 3636 4 201 1195 LCA SETEX2,180 7 3637 L H44 180 201 1196 SW 176 4 3644 , 176 201 1197 MLC SETUP-1,180 7 3648 M Q10 180 201 &MC17175AH53C174LH44180,176MQ10180 L033F54,F29F36,F37F44,F48040104002012TAP9 1198 MLC CARDCT,175 7 3655 M C17 175 202 1199 A @1@,CARDCT 7 3662 A H53 C17 202 1200 P 1 3669 4 202 1201 CS 180 4 3670 / 180 202 1202 LCA SETUP-1,180 7 3674 L Q10 180 202 1203 B BSP4 4 3681 B D90 202 &MC17175AH53C174/180LQ10180BD90 L030F84,F62F69,F70F74,F81040104002022TAP9 &,015022)024056,029036,040047,0540611001L039G23,040040,040040,040040104002032TAP9 1204 DCW @,015022)024056,029036,040047,0540611001,@ 40 3724 204 &, L001G24)G24G24,040040,040040104002042TAP9 &001008B001 ,001008B001 L039G63)G25G25,040040,040040104002052TAP9 1205 SETEX1 DC @001008B001 ,001008B001 @ 40 3764 206 & L001G64)G64G64,040040,040040104002062TAP9 &,068072)063067/061039 L039H03,040040,040040,040040104002072TAP9 1206 DCW @,068072)063067/061039 @ 40 3804 208 & L001H04)H04H04,040040,040040104002082TAP9 & ,0010011040 L039H43)H05H05,040040,040040104002092TAP9 1207 SETEX2 DC @ ,0010011040 @ 40 3844 210 1208 * DCW @B@ 1 3845 LIT 210 DCW @N000000@ 7 3852 LIT 210 DCW @1@ 1 3853 LIT 210 & BN0000001 L010H53)H44H44,H45H46,H53040104002102TAP9 & N000000,040040,040040,040040B16702112TAP9 1 PHASE 9 EX AND XFR SUBROUTINE - TAPE RECORD 2TAP9 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1212 EX SYSTEM B 167 &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 02122TAP0 &,068072)063067/061039 ,001001104002132TAP0 1 PHASE 10 - END CARD AND END OF JOB - IDENT AT 333 #0 2TAP0 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1213 JOB PHASE 10 - END CARD AND END OF JOB - IDENT AT 333 #0 1214 ORG OVRLAY 3518 1215 DCW @0@ 1 3518 214 1216 H 1 3519 . 214 1217 H 1 3520 . 214 1218 H 1 3521 . 214 1219 B CDFULL 4 3522 B M88 214 1220 END2 B MOVXX 4 3526 B G96 214 1221 CS 332 4 3530 / 332 214 &0...BM88BG96/332 L016E33,E19E20,E21E22,E26E30104002142TAP0 1222 CS 1 3534 / 215 1223 MLC @/@,140 7 3535 M G44 140 215 1224 BCE NOEND,AADDR, 8 3542 B F18 ?67 215 1225 SETEND MLC AOPND,143 7 3550 M A53 143 215 1226 MLC @080@,146 7 3557 M G47 146 215 1227 SW 176 4 3564 , 176 215 &/MG44140BF18?67 MA53143MG47146,176 L034E67,E35E42,E50E57,E64040104002152TAP0 1228 MLC SETUP-1,180 7 3568 M Q10 180 216 1229 MLC CARDCT,175 7 3575 M C17 175 216 1230 MLC @/@,293 7 3582 M G44 293 216 1231 MLC AOPND,297 7 3589 M A53 297 216 1232 MLC @080@,301 7 3596 M G47 301 216 &MQ10180MC17175MG44293MA53297MG47301 L035F02,E75E82,E89E96,040040104002162TAP0 1233 MCS CARDCT,314 7 3603 Z C17 314 217 1234 CW FSTIME 4 3610 ) C22 217 1235 P PRINT1 4 3614 4 Y43 217 1236 NOEND MLC @$$$@,AOPND 7 3618 M G50 A53 217 1237 SW ERRPOS-2 4 3625 , ?70 217 1238 B SETEND 4 3629 B E50 217 1239 EOF4 RWD 2 5 3633 U %U2 R 217 &ZC17314)C224Y43MG50A53,?70BE50U%U2R L035F37,F10F14,F18F25,F29F33104002172TAP0 1240 RWD 1 5 3638 U %U1 R 218 1241 CC 1 2 3643 F 1 218 1242 BW *+5,EXCEED 8 3645 V F57 C26 1 218 1243 B TSTERR 4 3653 B F76 218 1244 CW EOJ+1 4 3657 ) G11 218 1245 CS 332 4 3661 / 332 218 1246 CS 1 3665 / 218 &U%U1RF1VF57C261BF76)G11/332/ L028F65,F43F45,F53F57,F61F65104002182TAP0 1247 MLC @OBJECT CORE EXCEEDED@,220 7 3666 M G70 220 219 1248 CC T 2 3673 F T 219 1249 W 1 3675 2 219 1250 TSTERR C ERRCNT,@0000@ 7 3676 C C21 G74 219 1251 BE EOJ 5 3683 B G10 S 219 1252 CS 332 4 3688 / 332 219 1253 CS 1 3692 / 219 &MG70220FT2CC21G74BG10S/332/ L027F92,F73F75,F76F83,F88F92104002192TAP0 1254 MCS ERRCNT,204 7 3693 Z C21 204 220 1255 MLC @ERRORS@,211 7 3700 M G80 211 220 1256 CC T 2 3707 F T 220 1257 W 1 3709 2 220 1258 EOJ CS 332 4 3710 / 332 220 1259 CS 1 3714 / 220 1260 MLC @END OF ASSEMBLY@,215 7 3715 M G95 215 220 &ZC21204MG80211FT2/332/MG95215 L029G21,G00G07,G09G10,G14G15104002202TAP0 1261 CC A 2 3722 F A 221 1262 W 1 3724 2 221 1 PHASE 10 - END CARD AND END OF JOB - IDENT AT 333 #0 2TAP0 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1263 CS 180 4 3725 / 180 221 1264 P 1 3729 4 221 1265 SS 4 2 3730 K 4 221 1266 H 999,999 7 3732 . 999 999 221 1267 B *-10 4 3739 B G32 221 &FA2/1804K4.999999BG32 L021G42,G24G25,G29G30,G32G39104002212TAP0 1268 H 1 3743 . 222 1269 LTORG * 3744 DCW @/@ 1 3744 LIT 222 DCW @080@ 3 3747 LIT 222 DCW @$$$@ 3 3750 LIT 222 DCW @OBJECT CORE EXCEEDED@ 20 3770 LIT 222 DCW @0000@ 4 3774 LIT 222 DCW @ERRORS@ 6 3780 LIT 222 &./080$$$OBJECT CORE EXCEEDED0000ERRORS L038G80,G44G45,G48G51,G71G75104002222TAP0 DCW @END OF ASSEMBLY@ 15 3795 LIT 223 1277 DCW @}@ 1 3796 223 1278 ORG 3796 3796 &END OF ASSEMBLY} L016G96,G96040,040040,040040104002232TAP0 1279 MOVXX MLC NOPXX,TSTOVF+1 7 3796 M H11 !00 224 1280 CS 180 4 3803 / 180 224 1281 B END2+4 4 3807 B E30 224 1282 NOPXX NOP 1 3811 N 224 &MH11!00/180BE30N L016H11,H03H07,H11040,040040104002242TAP0 & N000000,040040,040040,040040B16702252TAP0 1283 EX SYSTEM B 167 &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 02262TAP0 &,068072)063067/061039 ,001001104002272TAP0 1284 * 1285 ORG SYSTEM 0167 1286 WTW 1,CHECK 8 0167 L %U1 082 W 228 1287 ORG CHECK 0082 &L%U1082W L008174,040040,040040,040040104002282TAP0 1288 DCW @%@ 1 0082 229 1289 ORG *+2 0085 &% L001082,040040,040040,040040104002292TAP0 1290 DCW @}@ 1 0085 230 &} L001085,040040,040040,040040104002302TAP0 & N000000,040040,040040,040040B16702312TAP0 1291 EX SYSTEM B 167 &,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 02322TAP0 &,068072)063067/061039 ,001001104002332TAP0 & /167080 02342TAP0 1292 END SYSTEM / 167 080 1 PHASE 10 - END CARD AND END OF JOB - IDENT AT 333 #0 2TAP0 PAGE 1 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS AADDR 3067 ACTOP 3077 ADD1 622 ADD12 567 ADD2 611 ADD3 600 ADD4 589 ADD8 578 ADDR 635 ADMOD 1167 AGAIN 756 AOPND 3153 AREA 1333 ASSMBD 3186 ASSOUT 1221 BADDR 3068 BDMOD 1196 BOOT 1526 BOOT1 1799 BOOT2 1879 BOOT3 1959 BOPND 3156 BRANCH 1185 BSP1 3505 BSP2 3500 BSP3 3495 BSP4 3490 BSP5 3485 BSPXX 3751 CARDCT 3317 CDFULL 2488 CHECK 82 COMMNT 2646 CONBCK 1499 CONST 1305 COUNT 3159 CTL 2425 DABACK 3735 DADONE 3384 DAHDR 3530 DAOUT 3345 DECEXT 629 DECOD 497 DECR1 2952 DECRMT 3668 DS 2711 DSA 1649 EDIT 2745 EDIT1 1992 END 3415 END2 3526 ENDPH8 338 ENDPRT 1040 ENDTAB 1032 EOF4 3633 EOJ 3710 ERRCNT 3321 ERRLIT 2222 ERRPOS 3072 EXCEED 3326 EXECUT 3403 FINIS 1063 FIRST 736 FSTCON 1441 FSTIME 3322 GETDA 3455 GETEND 3431 GETEX 3439 GETOBJ 719 GETOVF 3463 GETSUB 3447 GM1 3968 HEADNG 72 HIGH8 2080 HIGH88 649 HIORDR 539 HIT 755 HOLD 3295 HSKPG 2987 HSKPG1 653 ICOUNT 3073 IDONE 1156 INDEX1 999 INDEX2 1010 INDEX3 1021 INITL 703 INSTRT 976 ISOLAT 3324 JOBACK 880 LABEL 2996 LABELS 650 LABTBL 2813+X1 LEFT 3637 LINE 1200+X2 LITCNT 3076 LITCTL 3325 LOAD 100 LOADXX 3757 LOCATN 3080 MDEXIT 2914 MODAD 2812 MODZR 2974 MOVXX 3796 NEG1 3292 NODMOD 1214 NOEND 3618 NOPXX 3811 NOTJOB 892 NOTLNG 1741 NOWM 2009 NOWM1 2111 NUMALF 1630 NUMOUT 1705 OPER 3004 OVFEXT 3340 OVFLO 3327 OVFOUT 3337 OVRLAY 3518 P4SK1 1063 P4SK2 1517 P4SK3 2552 PAGENO 3516 PARAMT 3081 PARTBL 3067 PERCNT 944 PHASE8 1513 PHASE9 649 POSCNT 3170 PRINT 1778 PRINT1 1843 PRINT2 2324 RECORD 2986 REINIT 666 REITER 193 RESET2 955 REST 2298 RESULT 3303 RIGHT 3669 RSTOUT 995 SEEK 125 SETEND 3550 SETEX1 3764 SETEX2 3844 SETEXC 3538 SETIN 2833 SETLIT 1660 SETUP 2811 SETWM 3773 SETXX 3975 SPACE 3215 SPLIT 2233 STEP 933 SUB 3698 SUBACK 3698 SUBDA 3357 SUBFLD 3713 SUBNXT 3323 SUBRT 3522 SW1 3844 SW2 3855 SW3 3866 SW4 3877 SW5 3888 SW6 3899 SW7 3910 SWADDR 2748 SWOUT 3943 SYSTEM 167 TABLE 1960 TEMP 3967 TITLE 1113 TPERR 363 TSTERR 3676 TSTLIN 914 TSTLNG 2158 TSTOVF 1999 TSTX2 898 TSTX3 906 TX3987 496 TXBSP 422 TXCNTL 493 TXCOMP 414 TXDONE 461 TXDUMY 483 TXEOF 488 TXGET 382 TXPERM 443 WORK 640 X1 89 X2 94 X3 99 XXX 2950 YYY 2951