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 2-PROCESS IOCS-MAIN 2 -VERSION 3 3722L PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 1 01 001 JOB 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 2 -VERSION 3 102 1 02 CTL 630 1 103 1 03 SFX I I 104 1 04 OTHER EQU START I 0101 105 1 05 MINUS2 EQU 2 I 0002 106 1 06 MINUS3 EQU 3 I 0003 107 1 07 DIOCSB EQU LABDIO-4 I 0576 108 1 08 ORG 1 I 0001 109 1 09 MAINX DA 1X86 I 0001 0086 ADDR 110 1 10 LMAINX EQU * I 0086 111 1 11 * XINIT INDEX1,INDEX2,INDEX3 112 01 INDEX1 EQU 089 I 0089 113 02 089 DCW 000 I 3 0089 4 114 04 091 DC 00 I 2 0091 4 115 05 INDEX2 EQU 094 I 0094 116 06 094 DCW 000 I 3 0094 4 117 08 096 DC 00 I 2 0096 4 118 09 INDEX3 EQU 099 I 0099 119 10 099 DCW 000 I 3 0099 4 120 12 100 DC 0 I 1 0100 4 121 1 12 * 122 1 13 * START OF MAIN LINE 123 1 14 * 124 1 15 ORG 101 I 0101 125 1 16 START RWD 4 I 5 0101 U %U4 R 4 126 1 17 RWD 5 I 5 0106 U %U5 R 4 127 1 18 RWD 6 I 5 0111 U %U6 R 4 128 1 19 BSS OVLAY2,B I 5 0116 B P32 B 5 129 1 20 B REDREC I 4 0121 B 774 5 130 1 21 C MAINX&17, @JOB@ I 7 0125 C 018 W05 5 131 1 22 BU CMCTL I 5 0132 B 157 / 5 132 1 23 CC 1 I 2 0137 F 1 5 133 1 24 MCW 80,280 I 7 0139 M 080 280 5 134 1 25 W I 1 0146 2 5 135 1 26 N1 CC 1 IN REV 0. I 2 0147 N 1 6 136 1 27 B WRTREC I 4 0149 B 721 6 137 1 28 B REDREC I 4 0153 B 774 6 138 1 29 CMCTL C MAINX&17, @CTL@ I 7 0157 C 018 W08 6 139 1 30 BU FIND I 5 0164 B 642 / 6 140 1 31 BCE ROBIN,MAINX&23,1 I 8 0169 B 623 024 1 6 141 1 32 MN MAINX&21,*&8 I 7 0177 D 022 191 6 142 1 33 BCE ROBIN,@456@, I 8 0184 B 623 W11 7 143 1 34 CHAIN 2 I MACRO 144 BCE I 1 0192 B GEN 7 145 BCE I 1 0193 B GEN 7 146 1 35 B BLUE I 4 0194 B 627 7 147 1 36 ORG 201 I 0201 1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 2 -VERSION 3 3722L PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 1 37 DA 1X132 I 0201 0332 149 1 38 6,6 I 0206 FIELD 150 1 39 DTFTAB EQU LABDTF-1 I 0349 151 1 40 ORG 333 I 0333 152 1 41 EITHER B NEXREC I 4 0333 B 681 8 153 1 42 * 154 1 43 * CONTROL CARD INFORMATION 155 1 44 * 156 1 45 SPECL DCW @*@ I 1 0337 8 157 1 46 SYMNM DCW #3 I 3 0340 8 158 1 47 * 159 1 48 * DTF MAJOR TABLE 160 1 49 * 161 1 50 DCW @,@ I 1 0341 8 162 1 51 DCW @;@ COBOL YES I 1 0342 8 163 1 52 DCW @;@ EXITS YES I 1 0343 8 164 1 53 FILENM DCW #6 I 6 0349 8 165 1 54 LABDTF DCW @;@ 1 INPUT 1 FILETYPE I 1 0350 9 166 1 55 DCW @;@ 2 OUTPUT 2 I 1 0351 9 167 1 56 DCW @;@ 3 TAPE 3 I 1 0352 9 168 1 57 DCW @;@ 4 READER 4 I 1 0353 9 169 1 58 DCW @;@ 5 PUNCH 5 I 1 0354 9 170 1 59 DCW @;@ 6 PRINTER 6 I 1 0355 9 171 1 60 DCW @;@ 7 LOAD 7 MODEPAR I 1 0356 9 172 1 61 DCW @;@ 8 CHECKPOINT 8 FEATURES I 1 0357 10 173 1 62 DCW @;@ 9 NUMBER 9 CHANDRIVE I 1 0358 10 174 1 63 DCW @;@ 10 NUMBER 10 CARDPOC I 1 0359 10 175 1 64 DCW @;@ 11 NUMBER 11 ALTTAPE I 1 0360 10 176 1 65 DCW @;@ 12 BLOCKED 12 RECFORM I 1 0361 10 177 1 66 DCW @;@ 13 UNBLOCKED 13 I 1 0362 10 178 1 67 DCW @;@ 14 MIXED 14 I 1 0363 10 179 1 68 DCW @;@ 15 VARIABLE 15 I 1 0364 11 180 1 69 DCW @ ;@ 16-19 NUMBER 16 SIZEREC I 4 0368 11 181 1 70 DCW @;@ 20 NUMBER 17 PADDING I 1 0369 11 182 1 71 DCW @ ;@ 21-24 NUMBER 18 BLOCKSIZE I 4 0373 11 183 1 72 DCW @ ;@ 25-34 LABELS 19 IOAREAS I 10 0383 11 184 1 73 DCW @ ;@ 35-44 20 I 10 0393 11 185 1 74 DCW @ ;@ 45-54 21 WORKAREA I 10 0403 12 186 1 75 DCW @;@ 55 NUMBER 22 INDEXREG I 1 0404 12 187 1 76 DCW @ ;@ 56-65 LABEL 23 EORADDR I 10 0414 12 188 1 77 DCW @ ;@ 66-75 LABEL 24 WLRADDR I 10 0424 12 189 1 78 DCW @;@ 76 RECORD 25 TOTALS I 1 0425 12 190 1 79 DCW @ ;@ 77-80 HASH 26 I 4 0429 12 191 1 80 DCW @;@ 81 STANDARD 27 I 1 0430 12 192 1 81 DCW @;@ 82 NONSTANDARD 28 I 1 0431 13 193 1 82 DCW @;@ 83 TM 29 I 1 0432 13 194 1 83 DCW @;@ 84 ALL 30 I 1 0433 13 195 1 84 DCW @;@ 85 IDENT 31 I 1 0434 13 196 1 85 DCW @ ;@ I 3 0437 13 197 1 86 DCW @ ;@ I 5 0442 13 1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 2 -VERSION 3 3722L PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 1 87 DCW @ ;@ I 10 0452 13 199 1 88 DCW @ ;@ 104-108 NUMBER 35 SERIALNUM I 5 0457 14 200 1 89 DCW @ ;@ 109-118 39 EX1ADDR I 10 0467 14 201 1 90 DCW @ ;@ 119-128 40 EX2ADDR I 10 0477 14 202 1 91 DCW @ ;@ 129-138 41 EX3ADDR I 10 0487 14 203 1 92 DCW @ ;@ 139-148 42 EX4ADDR I 10 0497 15 204 1 93 DCW @ ;@ 149-158 43 EX5ADDR I 10 0507 15 205 1 94 DCW @ ;@ 159-168 44 EX6ADDR I 10 0517 15 206 1 95 DCW @ ;@ 169-178 45 EX7ADDR I 10 0527 16 207 1 96 DCW @ ;@ 179-188 46 EX8ADDR I 10 0537 16 208 1 97 DCW @ ;@ 189-198 47 VARBUILD I 10 0547 16 209 1 98 DCW @;@ 199 UNLOAD 37 I 1 0548 16 210 1 99 DCW @;@ 100 NOREWD 38 I 1 0549 16 211 2 00 DCW @;@ 9 201 OVERFLOW I 1 0550 16 212 2 01 DCW @;@ 12 202 I 1 0551 16 213 2 02 DCW @ ;@ 203-205 NUMBER REELSEQP I 3 0554 17 214 2 03 DCW @;@ 206 FORMCNTL I 1 0555 17 215 2 04 DCW #9 I 9 0564 17 216 2 05 DCW @;@ 216 ADDRESS OVERFLOW I 1 0565 17 217 2 06 DCW @ @ I 1 0566 17 218 2 07 ENDDTF DCW @ @ I 1 0567 17 219 2 08 * 220 2 09 * DIOCS MAJOR TABLE 221 2 10 * 222 2 11 DCW @,@ I 1 0568 17 223 2 12 DIVIDE EQU * I 0568 224 2 13 DCW @;@ 40 PAR OUT TAPEUSE I 1 0569 18 225 2 14 DCW @;@ 39 PAR INP TAPEUSE I 1 0570 18 226 2 15 DCW @;@ 38 PAR YES EXITS I 1 0571 18 227 2 16 LABDIO DCW #9 DIOCSORG I 9 0580 18 228 2 17 DCW @;@ 5 I 1 0581 18 229 2 18 DCW @;@ 6 OVERLAP FEATURES I 1 0582 18 230 2 19 DCW @;@ 7 TAPE IODEVICES I 1 0583 18 231 2 20 DCW @;@ 8 READER I 1 0584 19 232 2 21 DCW @;@ 9 PUNCH I 1 0585 19 233 2 22 DCW @;@ 10 PRINTER I 1 0586 19 234 2 23 DCW @;@ 11 STANDARD LABELDEF I 1 0587 19 235 2 24 DCW @;@ 12 NONSTANDARD I 1 0588 19 236 2 25 DCW @;@ 13 MIXED I 1 0589 19 237 2 26 DCW @;@ 14 CHECK I 1 0590 19 238 2 27 DCW @;@ 15 IDENT I 1 0591 20 239 2 28 DCW @;@ 16 TM I 1 0592 20 240 2 29 DCW @;@ 17 YES ALTDRIVE I 1 0593 20 241 2 30 DCW @;@ 18 1 EXITS I 1 0594 20 242 2 31 DCW @;@ 19 2 I 1 0595 20 243 2 32 DCW @;@ 20 3 I 1 0596 20 244 2 33 DCW @;@ 21 4 I 1 0597 20 245 2 34 DCW @;@ 22 5 I 1 0598 21 246 2 35 DCW @;@ 23 6 I 1 0599 21 247 2 36 DCW @;@ 24 7 I 1 0600 21 1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 2 -VERSION 3 3722L PAGE 4 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 248 2 37 DCW @;@ 25 8 I 1 0601 21 249 2 38 DCW @;@ RDLIN LABELDEF I 1 0602 21 250 2 39 DCW @;@ 27 729 DRIVETYPE I 1 0603 21 251 2 40 DCW @;@ 28 7330 I 1 0604 21 252 2 41 DCW @;@ 29 NORWD RWDOPTION I 1 0605 22 253 2 42 DCW @;@ 30 UNLOAD I 1 0606 22 254 2 43 DCW @;@ 31 TAPE,# READERROR I 1 0607 22 255 2 44 DCW @;@ 32 SCAN I 1 0608 22 256 2 45 DCW @;@ 33 PROCESS I 1 0609 22 257 2 46 DCW @;@ CLEAN READERROR I 1 0610 22 258 2 47 DCW @;@ 35 YES INPVAR I 1 0611 22 259 2 48 DCW @;@ 36 YES INPFXNO I 1 0612 23 260 2 49 DCW @;@ 37 RECORD COUNTS I 1 0613 23 261 2 50 DCW @;@ 38 HASH I 1 0614 23 262 2 51 DCW #5 I 5 0619 23 263 2 52 DCW @;@ 39-44 CHECKPOINT I 1 0620 23 264 2 53 DCW @;@ 45 RELEASE FEATURES I 1 0621 23 265 2 54 ENDDIO DCW @;@ 46 STORAGE I 1 0622 23 266 2 55 * 267 2 56 * 268 2 57 ROBIN S SPECL I 4 0623 S 337 24 269 2 575 BLUE MCW MAINX&25,NORDRL#1 I 7 0627 M 026 W12 24 270 2 58 THRU B WRTREC I 4 0634 B 721 24 271 2 59 B REDREC I 4 0638 B 774 24 272 2 60 FIND C MAINX&19,KDIOCS I 7 0642 C 020 V71 24 273 2 61 BE GOTIT I 5 0649 B 670 S 24 274 2 62 * 275 2 63 * 276 2 64 * READ IN PHASE 2 277 2 65 * 278 2 66 * 279 2 67 BCE THRU,MAINX&5,* I 8 0654 B 634 006 * 24 280 2 68 PREPS2 B SAVCD I 4 0662 B O98 25 281 2 69 B PASS2 I 4 0666 B V06 25 282 2 70 GOTIT MCW @M@,LENGTH I 7 0670 M W13 743 25 283 2 72 WHOM B WRTREC I 4 0677 B 721 25 284 2 73 NEXREC B REDREC I 4 0681 B 774 25 285 2 74 GAMMA BCE WHOM,MAINX&5,* I 8 0685 B 677 006 * 25 286 2 75 C MAINX&17,@DTF@ I 7 0693 C 018 W16 25 287 2 76 BE DTFND I 5 0700 B 713 S 26 288 2 77 B WRTREC I 4 0705 B 721 26 289 2 78 B UPPER I 4 0709 B 821 26 290 2 79 DTFND B SAVCD I 4 0713 B O98 26 291 2 80 B CRDOUT I 4 0717 B J68 26 292 2 81 * 293 2 82 * WRITE ROUTINE 294 2 83 * 295 2 84 WRTREC SBR WRTEXT&3 I 4 0721 H 761 26 296 2 85 MCW LMAINX,LOPUT-1 I 7 0725 M 086 I97 26 297 2 86 SW LOPUT I 4 0732 , I98 27 1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 2 -VERSION 3 3722L PAGE 5 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 298 2 87 MCW GMWMRK,LOPUT I 7 0736 M 773 I98 27 299 2 88 LENGTH NOP @W@,OUTPT&74 I 7 0743 N W17 I86 27 300 2 89 SHORT B CTAPE I 4 0750 B S22 27 301 2 90 NOP TDF6 I 4 0754 N 764 27 302 2 91 WRTEXT B 0 I 4 0758 B 000 27 303 2 92 TDF6 DCW 000 I 3 0764 27 304 2 93 WT 6,OUTPT I 8 0765 M %U6 I12 W 28 305 2 94 GMWMRK DC @}@ I 1 0773 GMARK 28 306 2 95 * 307 2 96 * READ ROUTINE 308 2 97 * 309 2 98 REDREC SBR REDEXT&3 I 4 0774 H 809 28 310 2 99 CS LMAINX I 4 0778 / 086 28 311 3 00 BSS RTWED,C I 5 0782 B 798 C 28 312 3 01 BLC DTFOUT I 5 0787 B M46 A 28 313 3 02 R I 1 0792 1 28 314 3 03 SSB REDEXT,1 I 5 0793 K 806 1 28 315 3 04 RTWED B CTAPE I 4 0798 B S22 29 316 3 05 NOP TDF4 I 4 0802 N 812 29 317 3 06 REDEXT B 0 I 4 0806 B 000 29 318 3 07 TDF4 DCW &DTFOUT I 3 0812 M46 29 319 3 08 RT 4,MAINX I 8 0813 M %U4 001 R 29 320 3 09 * 321 3 10 * LOOK UP LABEL 322 3 11 * 323 3 12 UPPER CW SCNSW#1 I 4 0821 ) W18 29 324 3 13 BCE NEXREC,MAINX&20, I 8 0825 B 681 021 29 325 3 14 SBR CHAIR&3,LSTPAR I 7 0833 H O66 O75 30 326 3 15 S INDEX2&1 I 4 0840 S 095 30 327 3 16 SBR INDEX3,LBLTBL I 7 0844 H 099 H46 30 328 3 17 COMPR C MAINX&7,0&X3 I 7 0851 C 008 0?0 30 329 3 18 SBR INDEX3 I 4 0858 H 099 30 330 3 19 BE COMEQ I 5 0862 B 984 S 30 331 3 20 BCE NEXREC,0&X3,@ I 8 0867 B 681 0?0 @ 31 332 3 21 A @7@,INDEX2 I 7 0875 A W19 094 31 333 3 22 B COMPR I 4 0882 B 851 31 334 3 23 BRTBL B ACTSCN I 4 0886 B /13 31 335 3 24 DCW &DIOCSB&36 INPFXNO I 3 0892 612 31 336 3 25 B REASB I 4 0893 B /73 31 337 3 26 DCW #3 READERROR I 3 0899 31 338 3 27 B OPDSCN I 4 0900 B O14 32 339 3 28 DCW &RWDTB RWDOPT I 3 0906 F95 32 340 3 29 B OPDSCN I 4 0907 B O14 32 341 3 30 DCW &DRITB DRIVETYPE I 3 0913 F82 32 342 3 31 B OPDSCN I 4 0914 B O14 32 343 3 32 DCW &COUTB COUNTS I 3 0920 G08 32 344 3 33 B ACTSCN I 4 0921 B /13 32 345 3 34 DCW &DIOCSB&35 VARINP I 3 0927 611 33 346 3 35 B EXISB I 4 0928 B 992 33 347 3 36 DCW #3 I 3 0934 33 1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 2 -VERSION 3 3722L PAGE 6 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 348 3 37 B ACTSCN I 4 0935 B /13 33 349 3 38 DCW &DIOCSB&17 ALTDRIVE I 3 0941 593 33 350 3 39 B OPDSCN I 4 0942 B O14 33 351 3 40 DCW &LABTB LABELDEF I 3 0948 F20 33 352 3 41 B OPDSCN I 4 0949 B O14 34 353 3 42 DCW &IODTB IODEVICES I 3 0955 E77 34 354 3 43 B OPDSCN I 4 0956 B O14 34 355 3 44 DCW &FEATB FEATURES I 3 0962 E52 34 356 3 45 B DIOSB DIOCSORG I 4 0963 B /47 34 357 3 46 DCW &DIOCSB&5 I 3 0969 581 34 358 3 47 B DIOSB I 4 0970 B /47 34 359 3 48 DCW &DIOCSB&44 I 3 0976 620 35 360 3 49 B OPDSCN I 4 0977 B O14 35 361 3 50 DCW &TAPTB I 3 0983 E33 35 362 3 51 COMEQ S INDEX3&1 I 4 0984 S 100 35 363 3 52 B BRTBL&X2 I 4 0988 B 8Q6 35 364 3 53 * 365 3 54 EXISB LCA @$@,DIVIDE&3 I 7 0992 L W20 571 35 366 3 55 B OPDSCN I 4 0999 B O14 35 367 3 56 DCW &EXITB EXITS I 3 1005 F69 36 368 3 57 * 369 3 58 NEWSCN SBR NWEXT&3 I 4 1006 H /04 36 370 3 59 MCW @ @,OPDAR#3 I 7 1010 M W23 W26 36 371 3 60 S INDEX2&1 I 4 1017 S 095 36 372 3 61 NWSCNL C MAINX&21&X3,@ @ I 7 1021 C 0B2 W28 36 373 3 62 SW MAINX&20 I 4 1028 , 021 36 374 3 63 BE FDBLK I 5 1032 B '90 S 36 375 3 64 BCE FOUND,MAINX&20&X3,, I 8 1037 B /05 0B1 , 37 376 3 65 C INDEX3,@52@ I 7 1045 C 099 W30 37 377 3 66 BE BLKFD I 5 1052 B '97 S 37 378 3 67 MCW MAINX&20&X3,OPDAR-2&X2 I 7 1057 M 0B1 WK4 37 379 3 68 A @1@,INDEX2 I 7 1064 A W31 094 37 380 3 69 BCE FOUND,INDEX2,3 I 8 1071 B /05 094 3 38 381 3 70 A @1@,INDEX3 I 7 1079 A W31 099 38 382 3 71 B NWSCNL I 4 1086 B '21 38 383 3 72 FDBLK A @1@,INDEX3 I 7 1090 A W31 099 38 384 3 73 BLKFD SW SCNSW I 4 1097 , W18 38 385 3 74 NWEXT B 0 I 4 1101 B 000 38 386 3 75 FOUND B SCANX I 4 1105 B N55 38 387 3 76 B NWEXT I 4 1109 B /01 39 388 3 77 * 389 3 78 * ACTUAL SCAN FOR YES 390 3 79 * 391 3 80 ACTSCN SBR INDEX1 I 4 1113 H 089 39 392 3 81 MCW 2&X1,INDEX1 I 7 1117 M 0'2 089 39 393 3 82 C MAINX&22,@YES@ I 7 1124 C 023 W34 39 394 3 83 BU ACTOUT I 5 1131 B /43 / 39 395 3 84 LCA @$@,0&X1 I 7 1136 L W20 0'0 39 396 3 85 ACTOUT B EITHER I 4 1143 B 333 39 397 3 86 * 1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 2 -VERSION 3 3722L PAGE 7 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 398 3 87 * DIOCSORG 399 3 88 * 400 3 89 DIOSB SBR INDEX1 I 4 1147 H 089 40 401 3 90 MCW 2&X1,INDEX1 I 7 1151 M 0'2 089 40 402 3 91 B SCANX I 4 1158 B N55 40 403 3 92 LCA MAINX&18&X3,0&X1 I 7 1162 L 0A9 0'0 40 404 3 93 B NEXREC I 4 1169 B 681 40 405 3 94 * 406 3 95 * READERROR 407 3 96 * 408 3 97 REASB SBR CHAIR&3,CHTAP I 7 1173 H O66 /87 40 409 3 98 B OPDSCN I 4 1180 B O14 40 410 3 99 DCW &REATB I 3 1186 G27 41 411 4 00 CHTAP C OPDAR,@TAP@ I 7 1187 C W26 W37 41 412 4 01 BU LSTPAR I 5 1194 B O75 / 41 413 4 02 B SCANX I 4 1199 B N55 41 414 4 03 BCE LSTPAR,MAINX&18&X3, I 8 1203 B O75 0A9 41 415 4 04 MCW MAINX&18&X3,DIOCSB&31 I 7 1211 M 0A9 607 41 416 4 05 B LSTPAR I 4 1218 B O75 41 417 4 06 * 418 4 07 * COMBINATION READ/ WRITE ROUTINE 419 4 08 * 420 4 09 CTAPE SBR INDEX2 I 4 1222 H 094 42 421 4 10 SBR ICONPR&3 I 4 1226 H T43 42 422 4 11 MCW 3&X2,INDEX2 I 7 1230 M 0!3 094 42 423 4 12 MCW 8&X2,ITAPEC&7 I 7 1237 M 0!8 T01 42 424 4 13 MCW 0&X2,IEORC&3 I 7 1244 M 0!0 T13 42 425 4 14 SW ICOMPR&4 I 4 1251 , T19 42 426 4 15 MCW 7&X2,ICOMPR&6 I 7 1255 M 0!7 T21 43 427 4 16 A @12@,ICOMPR&6 I 7 1262 A W39 T21 43 428 4 17 CW ICOMPR&4 I 4 1269 ) T19 43 429 4 18 MN ITAPEC&3,IHALT&6 I 7 1273 D S97 U28 43 430 4 19 MN ITAPEC&7,IHALT&6 I 7 1280 D T01 U28 43 431 4 20 MCW @9@,IERRCT#1 I 7 1287 M W40 W41 43 432 4 21 ITAPEC RT 0,0 I 8 1294 M %U0 000 R 44 433 4 22 BCE IOMETS,ITAPEC&7,W I 8 1302 B T35 T01 W 44 434 4 23 IEORC BEF 0 I 5 1310 B 000 K 44 435 4 24 ICOMPR BCE ITAPEC,0,} I 8 1315 B S94 000 } GMARK 44 436 4 25 CHAIN 12 I MACRO 437 BCE I 1 1323 B GEN 44 438 BCE I 1 1324 B GEN 44 439 BCE I 1 1325 B GEN 44 440 BCE I 1 1326 B GEN 45 441 BCE I 1 1327 B GEN 45 442 BCE I 1 1328 B GEN 45 443 BCE I 1 1329 B GEN 45 444 BCE I 1 1330 B GEN 45 445 BCE I 1 1331 B GEN 45 446 BCE I 1 1332 B GEN 45 447 BCE I 1 1333 B GEN 46 1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 2 -VERSION 3 3722L PAGE 8 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 448 BCE I 1 1334 B GEN 46 449 4 26 IOMETS BER IRWRED I 5 1335 B T44 L 46 450 4 27 ICONPR B 0 I 4 1340 B 000 46 451 4 28 IRWRED S @1@,IERRCT I 7 1344 S W31 W41 46 452 4 29 MN ITAPEC&3,*&4 I 7 1351 D S97 T61 46 453 4 30 BSP 0 I 5 1358 U %U0 B 46 454 4 31 BCE ITROW,ITAPEC&7,W I 8 1363 B T83 T01 W 47 455 4 32 BM IHALT,IERRCT I 8 1371 V U22 W41 K 47 456 4 33 B ITAPEC I 4 1379 B S94 47 457 4 34 ITROW A @1@,IERASC#2 I 7 1383 A W31 W43 47 458 4 35 SKP 6 I 5 1390 U %U6 E 47 459 4 36 BCE ICHALT,IERASC-1,5 I 8 1395 B U07 W42 5 48 460 4 37 B ITAPEC-7 I 4 1403 B S87 48 461 4 38 ICHALT S IERASC I 4 1407 S W43 48 462 4 39 H 0,202 I 7 1411 . 000 202 48 463 4 40 B ITAPEC-7 I 4 1418 B S87 48 464 4 41 IHALT H 0,200 I 7 1422 . 000 200 48 465 4 42 BSS ITAPEC-7,E I 5 1429 B S87 E 48 466 4 43 MCW ITAPEC&7,*&8 I 7 1434 M T01 U48 49 467 4 44 RT 0,0 I 8 1441 M %U0 000 R 49 468 4 45 H 0,201 I 7 1449 . 000 201 49 469 4 46 B ICONPR I 4 1456 B T40 49 470 4 47 PASSI LCA ENDDIO,ENDDTF I 7 1460 L 622 567 49 471 4 48 LCA I 1 1467 L 49 472 4 49 SBR EITHER&3,DIFREC I 7 1468 H 336 M06 50 473 4 50 MCW &DTFTAB&X1,OPDFND&6 I 7 1475 M W46 O93 50 474 4 51 LCA 186,LMAINX I 7 1482 L 186 086 50 475 4 52 B WRTREC I 4 1489 B 721 50 476 4 53 B DTFNM I 4 1493 B L91 50 477 4 54 ALTBY B BYPSS I 4 1497 B C49 50 478 4 55 BSP 4 I 5 1501 U %U4 B 50 479 4 56 PASS2 RT 1,3997 I 8 1506 M %U1 I97 R 51 480 4 57 RT 1,3997 I 8 1514 M %U1 I97 R 51 481 4 58 SBR TDF1&7,341 I 7 1522 H P30 341 51 482 4 59 B CTAPE I 4 1529 B S22 51 483 4 60 NOP TDF1 I 4 1533 N P23 51 484 4 61 B OVLY3 I 4 1537 B 341 51 485 4 62 * 486 4 63 NUMERC SBR INDEX1 I 4 1541 H 089 51 487 4 64 MCW 2&X1,INDEX1 I 7 1545 M 0'2 089 52 488 4 65 SW MAINX&20 I 4 1552 , 021 52 489 4 66 MCW MAINX&20,DTFTAB&X1 I 7 1556 M 021 3U9 52 490 4 67 B DIFREC I 4 1563 B M06 52 491 4 68 KDIOCS DCW @DIOCS@ I 5 1571 52 492 4 69 BLORB B SCANX I 4 1572 B N55 52 493 4 70 A MAINX&18&X3,BLOWA-1 I 7 1576 A 0A9 W01 52 494 4 71 LCA BLOWA-1,DTFTAB&24 I 7 1583 L W01 373 53 495 4 72 S BLOWA I 4 1590 S W02 53 496 4 73 B EITHER I 4 1594 B 333 53 497 4 74 BLOWA DCW &00000 I 5 1602 53 1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 2 -VERSION 3 3722L PAGE 9 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 498 4 75 LTORG * I 1603 DCW @JOB@ I 3 1605 LIT 53 DCW @CTL@ I 3 1608 LIT 53 DCW @456@ I 3 1611 LIT 53 NORDRL DCW #01 I 1 1612 AREA 54 DCW @M@ I 1 1613 LIT 54 DCW @DTF@ I 3 1616 LIT 54 DCW @W@ I 1 1617 LIT 54 SCNSWI DCW #01 I 1 1618 AREA 54 DCW @7@ I 1 1619 LIT 54 DCW @$@ I 1 1620 LIT 54 DCW @ @ I 3 1623 LIT 55 OPDARI DCW #03 I 3 1626 AREA 55 DCW @ @ I 2 1628 LIT 55 DCW @52@ I 2 1630 LIT 55 DCW @1@ I 1 1631 LIT 55 DCW @YES@ I 3 1634 LIT 55 DCW @TAP@ I 3 1637 LIT 55 DCW @12@ I 2 1639 LIT 56 DCW @9@ I 1 1640 LIT 56 IERRCT DCW #01 I 1 1641 AREA 56 IERASC DCW #02 I 2 1643 AREA 56 DCW &DTFTAB&X I 3 1646 3U9 ADCON 56 499 4 76 ORG 1649 I 1649 500 4 77 OVER DCW @}@ I 1 1649 GMARK 57 501 4 78 EX I B 000 58 1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 1 -VERSION 3 3721L PAGE 10 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 502 4 79 JOB 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 1 -VERSION 3 I 503 4 80 ORG 1650 I 1650 504 4 81 SFX I I 505 4 82 * 506 4 83 * DTF TABLE OF BRANCHES 507 4 84 * 508 4 85 DTFINT SBR INDEX3,DTFLAB I 7 1650 H 099 H03 61 509 4 86 SBR CHAIR&3,LSTPAR I 7 1657 H O66 O75 61 510 4 87 BCE DIFREC,MAINX&20, I 8 1664 B M06 021 61 511 4 88 CW SCNSW I 4 1672 ) W18 61 512 4 89 C MAINX&6,@EX@ I 7 1676 C 007 H48 61 513 4 90 BE EXIRB I 5 1683 B !31 S 61 514 4 91 S INDEX2&1 I 4 1688 S 095 62 515 4 92 SEEK C MAINX&7,0&X3 I 7 1692 C 008 0?0 62 516 4 93 SBR INDEX3 I 4 1699 H 099 62 517 4 94 BE AGREE I 5 1703 B Z35 S 62 518 4 95 BCE DIFREC,0&X3,@ I 8 1708 B M06 0?0 @ 62 519 4 96 A @7@,INDEX2 I 7 1716 A H49 094 62 520 4 97 B SEEK I 4 1723 B W92 62 521 4 98 DTFBR B OPDSCN I 4 1727 B O14 63 522 4 99 DCW REWXZ REWIND I 3 1733 E00 63 523 5 00 B ACTUAL I 4 1734 B !89 63 524 5 01 DCW &DTFTAB&205 REELSEQ I 3 1740 554 63 525 5 02 B ACTUAL I 4 1741 B !89 63 526 5 03 DCW &DTFTAB&108 SERIALNUM I 3 1747 457 63 527 5 04 B HEARB I 4 1748 B N37 63 528 5 05 DCW &DTFTAB&103 I 3 1754 452 64 529 5 06 B OPDSCN I 4 1755 B O14 64 530 5 07 DCW &CHEXZ CHECKLABEL I 3 1761 D87 64 531 5 08 B OPDSCN I 4 1762 B O14 64 532 5 09 DCW &TYPXZ TYPELABEL I 3 1768 D74 64 533 5 10 B TOTRB I 4 1769 B Z81 64 534 5 11 DCW #3 TOTALS I 3 1775 64 535 5 12 B ACTUAL I 4 1776 B !89 65 536 5 13 DCW &DTFTAB&75 WLRADDR I 3 1782 424 65 537 5 14 B ACTUAL I 4 1783 B !89 65 538 5 15 DCW &DTFTAB&65 EOFADDR I 3 1789 414 65 539 5 16 B INDRB I 4 1790 B !71 65 540 5 17 DCW #3 INDEXREG I 3 1796 65 541 5 18 B ACTUAL I 4 1797 B !89 65 542 5 19 DCW &DTFTAB&54 WORKAREA I 3 1803 403 66 543 5 20 B IOARB I 4 1804 B Z47 66 544 5 21 DCW &DTFTAB&44 IOAREAS I 3 1810 393 66 545 5 22 B BLORB I 4 1811 B V72 66 546 5 23 DCW &DTFTAB&24 BLOCKSIZE I 3 1817 373 66 547 5 24 B NUMERC I 4 1818 B V41 66 548 5 25 DCW @020@ PADDING I 3 1824 66 549 5 26 B ACTUAL I 4 1825 B !89 67 550 5 27 DCW &DTFTAB&19 SIXEREC I 3 1831 368 67 551 5 28 B OPDSCN I 4 1832 B O14 67 1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 1 -VERSION 3 3721L PAGE 11 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 552 5 29 DCW &RECXZ RECFORM I 3 1838 D55 67 553 5 30 B NUMERC I 4 1839 B V41 67 554 5 31 DCW @011@ ALTTAPE I 3 1845 67 555 5 32 B NUMERC I 4 1846 B V41 67 556 5 33 DCW @010@ CARDPROC I 3 1852 68 557 5 34 B OPDSCN I 4 1853 B O14 68 558 5 35 DCW &MODXZ MODEPAR I 3 1859 D30 68 559 5 36 B OPDSCN I 4 1860 B O14 68 560 5 37 DCW &FILXZ FILETYPE I 3 1866 D23 68 561 5 38 B NUMERC I 4 1867 B V41 68 562 5 39 DCW @009@ CHANDRIVE I 3 1873 68 563 5 40 B ACTUAL I 4 1874 B !89 69 564 5 41 DCW DTFTAB&198 VARBUILD I 3 1880 547 69 565 5 42 B ACTSCN I 4 1881 B /13 69 566 5 43 DCW &DTFTAB-7 I 3 1887 342 69 567 5 44 B NUMERC I 4 1888 B V41 69 568 5 45 DCW @206@ I 3 1894 69 569 5 46 B OVERB I 4 1895 B !06 69 570 5 47 DCW #1 I 1 1899 70 571 5 48 ORG 1900 I 1900 572 5 49 RTW 1,1 I 8 1900 L %U1 001 R 70 573 5 50 BER HALT I 5 1908 B Z21 L 70 574 5 51 CW OVER I 4 1913 ) W49 70 575 5 52 B OTHER I 4 1917 B 101 70 576 5 53 HALT BSP 1 I 5 1921 U %U1 B 70 577 5 54 NOP 288 I 4 1926 N 288 70 578 5 55 H I 1 1930 . 71 579 5 56 B 1900 I 4 1931 B Z00 71 580 5 57 * 581 5 58 AGREE S INDEX3&1 I 4 1935 S 100 71 582 5 59 SW MAINX&20 I 4 1939 , 021 71 583 5 60 B DTFBR&X2 I 4 1943 B XK7 71 584 5 61 * IOAREAS 585 5 62 * 586 5 63 IOARB B SCANX I 4 1947 B N55 71 587 5 64 LCA MAINX&18&X3,DTFTAB&44 I 7 1951 L 0A9 393 71 588 5 65 BW EITHER,SCNSW I 8 1958 V 333 W18 1 72 589 5 66 B SCANX I 4 1966 B N55 72 590 5 67 LCA MAINX&18&X3,DTFTAB&34 I 7 1970 L 0A9 383 72 591 5 68 B EITHER I 4 1977 B 333 72 592 5 69 * 593 5 70 * TOTALS 594 5 71 * 595 5 72 TOTRB SBR CHAIR&3,TOTJK I 7 1981 H O66 Z95 72 596 5 73 B OPDSCN I 4 1988 B O14 72 597 5 74 DCW &TOTXZ I 3 1994 E20 72 598 5 75 TOTJK LCA MAINX&18&X3,DTFTAB&80 I 7 1995 L 0A9 429 73 599 5 76 B LSTPAR I 4 2002 B O75 73 600 5 77 OVERB SBR CHAIR&3,OVEJK I 7 2006 H O66 !20 73 601 5 78 B OPDSCN I 4 2013 B O14 73 1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 1 -VERSION 3 3721L PAGE 12 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 602 5 79 DCW &OVEXZ I 3 2019 E13 73 603 5 80 OVEJK LCA MAINX&18&X3,DTFTAB&216 I 7 2020 L 0A9 565 73 604 5 81 B LSTPAR I 4 2027 B O75 73 605 5 82 * 606 5 83 * EXITS ROUTINE 607 5 84 * 608 5 85 EXIRB MCW @1 8@,INDEX2 I 7 2031 M H52 094 74 609 5 86 MN MAINX&7,INDEX2-1 I 7 2038 D 008 093 74 610 5 87 S INDEX3&1 I 4 2045 S 100 74 611 5 88 B SCANX I 4 2049 B N55 74 612 5 89 LCA MAINX&18&X3,DTFTAB&X2 I 7 2053 L 0A9 3M9 74 613 5 90 LCA @$@,DTFTAB-6 I 7 2060 L H53 343 74 614 5 91 B DIFREC I 4 2067 B M06 75 615 5 92 * 616 5 93 * INDEX REGISTER 617 5 94 * 618 5 95 INDRB MN MAINX&21,DTFTAB&55 I 7 2071 D 022 404 75 619 5 96 MZ @ @,DTFTAB&55 I 7 2078 Y H54 404 75 620 5 97 B DIFREC I 4 2085 B M06 75 621 5 98 * 622 5 99 * LOAD PARAMETERS - ACTUAL 623 6 00 * 624 6 01 ACTUAL SBR INDEX1 I 4 2089 H 089 75 625 6 015 BW EITHER,SCNSW I 8 2093 V 333 W18 1 75 626 6 02 MCW 2&X1,INDEX1 I 7 2101 M 0'2 089 76 627 6 03 SEARCH B SCANX I 4 2108 B N55 76 628 6 04 LCA MAINX&18&X3,0&X1 I 7 2112 L 0A9 0'0 76 629 6 05 SBR INDEX1 I 4 2119 H 089 76 630 6 06 BW DIFREC,SCNSW I 8 2123 V M06 W18 1 76 631 6 07 B SEARCH I 4 2131 B J08 76 632 6 08 NEWWRT SBR WRTEXT&3 I 4 2135 H 761 76 633 6 09 MCW LMAINX,LOPUT-1 I 7 2139 M 086 I97 77 634 6 10 SW OUTPT&80 I 4 2146 , I92 77 635 6 11 MCW GMWMRK,OUTPT&80 I 7 2150 M 773 I92 77 636 6 12 LONG MCW @*@,OUTPT&73 I 7 2157 M H55 I85 77 637 6 13 B SHORT I 4 2164 B 750 77 638 6 14 * 639 6 15 * OUTPUT MACRO STATEMENT FOR DIOC 640 6 16 * 641 6 17 CRDOUT MN @5@,TDF6&4 I 7 2168 D H56 768 77 642 6 18 CS LMAINX I 4 2175 / 086 78 643 6 19 MCW @55555@,MAINX&19 I 7 2179 M H61 020 78 644 6 20 SBR INDEX3,ENDDIO I 7 2186 H 099 622 78 645 6 21 B GOOD&4 I 4 2193 B K01 78 646 6 22 GOOD CS LMAINX I 4 2197 / 086 78 647 6 23 SW 1 I 4 2201 , 001 78 648 6 24 SBR INDEX1,MAINX&20 I 7 2205 H 089 021 78 649 6 25 MCW @'@,MAINX&72 I 7 2212 M H62 073 79 650 6 26 LODPAR MCW 0&X3,WKAREA-1 I 7 2219 M 0?0 L89 79 651 6 27 SBR INDEX2 I 4 2226 H 094 79 1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 1 -VERSION 3 3721L PAGE 13 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 652 6 28 MCW INDEX1,SAVXL1#3 I 7 2230 M 089 H65 79 653 6 29 MCM 1&X2,0&X1 I 7 2237 P 0!1 0'0 79 654 6 30 SBR INDEX1 I 4 2244 H 089 79 655 6 31 MCW @, @,0&X1 I 7 2248 M H67 0'0 80 656 6 32 BCE CONTIN,MAINX&72,' I 8 2255 B L01 073 ' 80 657 6 33 MCW SAVXL1,INDEX1 I 7 2263 M H65 089 80 658 6 34 SW 0&X1 I 4 2270 , 0'0 80 659 6 35 MCW @ @,MAINX&79 I 7 2274 M H69 080 80 660 6 36 MCW MAINX&78 I 4 2281 M 079 80 661 6 37 CW 0&X1 I 4 2285 ) 0'0 81 662 6 38 B NEWWRT I 4 2289 B J35 81 663 6 39 CW OUTPT&80 I 4 2293 ) I92 81 664 6 40 B GOOD I 4 2297 B J97 81 665 6 41 CONTIN MCW 0&X3,0&X3 I 7 2301 M 0?0 0?0 81 666 6 42 SBR INDEX3 I 4 2308 H 099 81 667 6 43 COMBLK C 0&X3,@ @ I 7 2312 C 0?0 H54 81 668 6 44 SAR INDEX3 I 4 2319 Q 099 82 669 6 45 BE COMBLK I 5 2323 B L12 S 82 670 6 46 A @1@,INDEX3 I 7 2328 A H70 099 82 671 6 47 B ALLDIO,0&X3,, I 8 2335 B L47 0?0 , 82 672 6 48 B LODPAR I 4 2343 B K19 82 673 6 49 ALLDIO MCW @ @,0&X1 I 7 2347 M H69 0'0 82 674 6 50 MCW @ @,MAINX&72 I 7 2354 M H54 073 83 675 6 51 B NEWWRT I 4 2361 B J35 83 676 6 52 CW OUTPT&80 I 4 2365 ) I92 83 677 6 53 MN @6@,TDF6&4 I 7 2369 D H71 768 83 678 6 54 BETTER B PASSI I 4 2376 B U60 83 679 6 55 WKAREA DCW @ '@ I 11 2390 83 680 6 56 DTFNM S INDEX3&1 I 4 2391 S 100 84 681 6 57 B SCANX I 4 2395 B N55 84 682 6 58 LCA MAINX&18&X3,FILENM I 7 2399 L 0A9 349 84 683 6 59 DIFREC B REDREC I 4 2406 B 774 84 684 6 60 DELTA BCE ALPHA,MAINX&5,* I 8 2410 B M30 006 * 84 685 6 61 C MAINX&19,@ @ I 7 2418 C 020 H76 84 686 6 62 BU DTFOUT I 5 2425 B M46 / 84 687 6 63 ALPHA B WRTREC I 4 2430 B 721 85 688 6 64 BCE DIFREC,MAINX&5,* I 8 2434 B M06 006 * 85 689 6 65 B DTFINT I 4 2442 B W50 85 690 6 66 DTFOUT MN @5@,TDF6&4 I 7 2446 D H56 768 85 691 6 67 SBR INDEX3,ENDDTF I 7 2453 H 099 567 85 692 6 68 B SAVCD I 4 2460 B O98 85 693 6 69 SBR WALK&3,ALTBY I 7 2464 H Q99 U97 86 694 6 70 C MAINX&17,@DTF@ I 7 2471 C 018 H79 86 695 6 71 CS LMAINX I 4 2478 / 086 86 696 6 72 MCW @33333@,MAINX&19 I 7 2482 M H84 020 86 697 6 73 BE SETDSW I 5 2489 B N05 S 86 698 6 74 RIVER SBR BETTER&3,PASS2 I 7 2494 H L79 V06 86 699 6 75 B GOOD&4 I 4 2501 B K01 87 700 6 76 SETDSW SBR BETTER&3,RNDTF I 7 2505 H L79 N16 87 701 6 77 B GOOD&4 I 4 2512 B K01 87 1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 1 -VERSION 3 3721L PAGE 14 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 702 6 78 RNDTF RTW 1,341 I 8 2516 L %U1 341 R 87 703 6 79 BSP 1 I 5 2524 U %U1 B 87 704 6 80 CW DTFGM I 4 2529 ) 568 87 705 6 81 B PASSI I 4 2533 B U60 87 706 6 82 HEARB B SCANX I 4 2537 B N55 88 707 6 83 MCW MAINX&18&X3,DTFTAB&103 I 7 2541 M 0A9 452 88 708 6 84 B ACTUAL I 4 2548 B !89 88 709 6 85 DCW &DTFTAB&93 I 3 2554 442 88 710 6 86 * 711 6 87 * SCAN FOR A COMMA OR TWO BLANKS 712 6 88 * 713 6 89 SCANX SBR CLUBS&3 I 4 2555 H O13 88 714 6 90 SCANL SW MAINX&20 I 4 2559 , 021 88 715 6 91 C MAINX&21&X3,@ @ I 7 2563 C 0B2 H69 88 716 6 92 A @1@,INDEX3 I 7 2570 A H70 099 89 717 6 93 BE SETIT I 5 2577 B O02 S 89 718 6 94 BCE SETWMS,MAINX&19&X3,, I 8 2582 B O06 0B0 , 89 719 6 95 C INDEX3,@52@ I 7 2590 C 099 H86 89 720 6 96 BU SCANL I 5 2597 B N59 / 89 721 6 97 SETIT SW SCNSW I 4 2602 , W18 89 722 6 98 SETWMS SW MAINX&20&X3 I 4 2606 , 0B1 90 723 6 99 CLUBS B 0 I 4 2610 B 000 90 724 7 00 * 725 7 01 * SCAN OPERAND TABLE 726 7 02 * 727 7 03 * 728 7 04 OPDSCN SBR INDEX2 I 4 2614 H 094 90 729 7 05 MCW 2&X2,SAVX2 I 7 2618 M 0!2 H89 90 730 7 06 OPDRTN B NEWSCN I 4 2625 B '06 90 731 7 07 MCW SAVX2#3,INDEX2 I 7 2629 M H89 094 90 732 7 08 SEEKOP C OPDAR,0&X2 I 7 2636 C W26 0!0 90 733 7 09 SBR INDEX2 I 4 2643 H 094 91 734 7 10 MCW 0&X2,INDEX1 I 7 2647 M 0!0 089 91 735 7 11 SAR INDEX2 I 4 2654 Q 094 91 736 7 12 BE OPDFND I 5 2658 B O87 S 91 737 7 13 CHAIR BCE LSTPAR,0&X2,@ I 8 2663 B O75 0!0 @ 91 738 7 14 B SEEKOP I 4 2671 B O36 91 739 7 15 LSTPAR BW EITHER,SCNSW I 8 2675 V 333 W18 1 92 740 7 16 B OPDRTN I 4 2683 B O25 92 741 7 17 OPDFND LCA @$@,DIOCSB&X1 I 7 2687 L H53 5X6 92 742 7 18 B LSTPAR I 4 2694 B O75 92 743 7 19 SAVCD SBR SVCDX&3 I 4 2698 H P20 92 744 7 20 CS 186 I 4 2702 / 186 92 745 7 21 SW 101 I 4 2706 , 101 92 746 7 22 MCW LMAINX,186 I 7 2710 M 086 186 93 747 7 23 SVCDX B 0 I 4 2717 B 000 93 748 7 24 * 749 7 25 * READ IN OVERLAY TWO 750 7 26 * 751 7 27 TDF1 DCW #3 I 3 2723 93 1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 1 -VERSION 3 3721L PAGE 15 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 752 7 28 RTW 1,101 I 8 2724 L %U1 101 R 93 753 7 29 OVLAY2 SW GMOVL2 I 4 2732 , 332 93 754 7 30 MCW GMWMRK,GMOVL2 I 7 2736 M 773 332 93 755 7 31 RT 1,101 I 8 2743 M %U1 101 R 94 756 7 32 B CTAPE I 4 2751 B S22 94 757 7 33 NOP TDF1 I 4 2755 N P23 94 758 7 34 B PUNCH I 4 2759 B 101 94 759 7 35 * 760 7 36 * ALTER PART OF IOCS 761 7 37 * 762 7 38 ALTER B CTAPE I 4 2763 B S22 94 763 7 39 NOP TDF4A I 4 2767 N A35 94 764 7 40 MCW OUTPT&7,SYMNM I 7 2771 M I19 340 94 765 7 41 BSS OUTCL,C I 5 2778 B 119 C 95 766 7 42 BSP 4 I 5 2783 U %U4 B 95 767 7 43 SBR RIVER&6,TUNEL I 7 2788 H N00 Q88 95 768 7 44 SBR PREPS2&3 I 4 2795 H 665 95 769 7 45 R I 1 2799 1 95 770 7 46 C MAINX&17,@ALT@ I 7 2800 C 018 H92 95 771 7 47 BU WALK I 5 2807 B Q96 / 95 772 7 48 HOMAL B SAVXX I 4 2812 B C19 96 773 7 49 B PACKX I 4 2816 B R43 96 774 7 50 NOALTB B CTAPE I 4 2820 B S22 96 775 7 51 NOP TDF4A I 4 2824 N A35 96 776 7 52 C OUTPT&83,HLDA1 I 7 2828 C I95 I02 96 777 7 53 BE CHECK I 5 2835 B ?05 S 96 778 7 54 PROPRE C OUTPT&17,@JOB@ I 7 2840 C I29 H95 96 779 7 55 ALTS1 BU ALTS2E I 5 2847 B Q60 / 97 780 7 56 B NOPJB I 4 2852 B 205 97 781 7 57 B NOTER I 4 2856 B 220 97 782 7 58 ALTS2E C OUTPT&17,@CTL@ I 7 2860 C I29 H98 97 783 7 59 ALTS2 BE OUTCL I 5 2867 B 119 S 97 784 7 60 SOLVED MCW OUTPT&85,LMAINX I 7 2872 M I97 086 97 785 7 61 SW READS I 4 2879 , I10 97 786 7 62 ALTIO BSS REGEN,G I 5 2883 B A44 G 98 787 7 63 TUNEL BW BSPT4,READS I 8 2888 V R04 I10 1 98 788 7 64 WALK B SAVCD I 4 2896 B O98 98 789 7 65 B ALTBY I 4 2900 B U97 98 790 7 66 BSPT4 BW REGL,XCARDS I 8 2904 V R27 I09 1 98 791 7 67 MN @5@,TDF6&4 I 7 2912 D H56 768 98 792 7 68 B NEWWRT I 4 2919 B J35 99 793 7 69 B REGL&5 I 4 2923 B R32 99 794 7 70 REGL BSP 4 I 5 2927 U %U4 B 99 795 7 71 LCA AREASV,186 I 7 2932 L 331 186 99 796 7 72 B ALTBY I 4 2939 B U97 99 797 7 73 PACKX SBR PACKS&3 I 4 2943 H ?04 99 798 7 74 SW BALTR I 4 2947 , I03 99 799 7 75 CW SCNSW I 4 2951 ) W18 100 800 7 76 S INDEX3&1 I 4 2955 S 100 100 801 7 77 B SCANX I 4 2959 B N55 100 1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 1 -VERSION 3 3721L PAGE 16 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 802 7 78 ZA MAINX&18&X3,HLDA1#4 I 7 2963 ? 0A9 I02 100 803 7 79 BW PARKS,SCNSW I 8 2970 V R93 W18 1 100 804 7 80 B SCANX I 4 2978 B N55 100 805 7 81 ZA MAINX&18&X3,HLDB I 7 2982 ? 0A9 I07 100 806 7 82 CW BALTR#1 I 4 2989 ) I03 101 807 7 83 PARKS CS LMAINX I 4 2993 / 086 101 808 7 84 SW 1 I 4 2997 , 001 101 809 7 85 PACKS B 0 I 4 3001 B 000 101 810 7 86 * 811 7 87 * ALTER NUMBER COMPARES EQUAL 812 7 88 * 813 7 89 CHECK BW WRTAL,BALTR I 8 3005 V ?37 I03 1 101 814 7 90 DBLAL C OUTPT&83,HLDB#4 I 7 3013 C I95 I07 101 815 7 91 BE WRTAL I 5 3020 B ?37 S 101 816 7 92 B CTAPE I 4 3025 B S22 102 817 7 93 NOP TDF4A I 4 3029 N A35 102 818 7 94 B DBLAL I 4 3033 B ?13 102 819 7 95 WRTAL BLC TUNEL I 5 3037 B Q88 A 102 820 7 96 R I 1 3042 1 102 821 7 97 C MAINX&17,@ALT@ I 7 3043 C 018 H92 102 822 7 98 BE HOMAL I 5 3050 B Q12 S 102 823 7 99 C MAINX&17,@JOB@ I 7 3055 C 018 H95 103 824 8 00 ALTS3 BU ALTS4E I 5 3062 B ?75 / 103 825 8 01 B NOPJB I 4 3067 B 205 103 826 8 02 B RSOLV I 4 3071 B 175 103 827 8 03 ALTS4E C MAINX&17,@CTL@ I 7 3075 C 018 H98 103 828 8 04 ALTS4 BE CRDCL I 5 3082 B 138 S 103 829 8 05 BW TUFF,BALTR I 8 3087 V A03 I03 1 104 830 8 06 CW READS I 4 3095 ) I10 104 831 8 07 B ALTIO I 4 3099 B Q83 104 832 8 08 TUFF B SAVXX I 4 3103 B C19 104 833 8 09 CW XCARDS I 4 3107 ) I09 104 834 8 101 SBR RSOLV&7,SOLVED I 7 3111 H 182 Q72 104 835 8 102 SBR CHUCK&3 I 4 3118 H 234 104 836 8 10 MCW @N@,NOSOL I 7 3122 M I08 131 105 837 8 11 B PROPRE I 4 3129 B Q40 105 838 8 12 * 839 8 13 * TDF FOR READING 86 CHARACTER RECORDS 840 8 14 * 841 8 15 TDF4A DCW TUNEL I 3 3135 Q88 105 842 8 16 RT 4,OUTPT I 8 3136 M %U4 I12 R 105 843 8 17 * 844 8 18 * REGENERATION OF DIOCS AND DTF 845 8 19 * 846 8 20 REGEN BW ORDN,XCARDS I 8 3144 V A85 I09 1 105 847 8 21 SBR NEXREC&3,SPCAS I 7 3152 H 684 A74 105 848 8 22 SBR ALDIO-1,SOFT I 7 3159 H B02 B68 106 849 8 23 CW READS I 4 3166 ) I10 106 850 8 24 B FIND I 4 3170 B 642 106 851 8 25 SPCAS MCW AREASV,LMAINX I 7 3174 M 331 086 106 1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 1 -VERSION 3 3721L PAGE 17 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 852 8 26 SW XCARDS#1 I 4 3181 , I09 106 853 8 27 ORDN SBR NEXREC&3,ALDIO I 7 3185 H 684 B03 106 854 8 28 SBR DIFREC&3,ALDTF I 7 3192 H M09 C08 107 855 8 29 B FIND I 4 3199 B 642 107 856 8 30 ALDIO CS LMAINX I 4 3203 / 086 107 857 8 31 BW RDT4A,READS I 8 3207 V B41 I10 1 107 858 8 32 BLC LUNET I 5 3215 B C34 A 107 859 8 33 R I 1 3220 1 107 860 8 34 C MAINX&17,@ALT@ I 7 3221 C 018 H92 107 861 8 35 BU SOFT I 5 3228 B B68 / 108 862 8 36 B SAVXX I 4 3233 B C19 108 863 8 37 B PACKX I 4 3237 B R43 108 864 8 38 RDT4A B BYPSS I 4 3241 B C49 108 865 8 39 C OUTPT&83,HLDA1 I 7 3245 C I95 I02 108 866 8 40 FINAL BE DBLCK I 5 3252 B B72 S 108 867 8 41 SW READS I 4 3257 , I10 108 868 8 42 FINAL2 MCW OUTPT&85,LMAINX I 7 3261 M I97 086 109 869 8 43 SOFT B GAMMA I 4 3268 B 685 109 870 8 44 DBLCK CW READS#1 I 4 3272 ) I10 109 871 8 45 BW FINAL2,BALTR I 8 3276 V B61 I03 1 109 872 8 46 TRPCK C OUTPT&83,HLDB I 7 3284 C I95 I07 109 873 8 47 BE ALDIO I 5 3291 B B03 S 109 874 8 48 B CTAPE I 4 3296 B S22 109 875 8 49 NOP TDF4A I 4 3300 N A35 110 876 8 50 B TRPCK I 4 3304 B B84 110 877 8 51 * 878 8 52 * DTF ON ALTER MODE 879 8 53 * 880 8 54 ALDTF SBR SOFT&3,DELTA I 7 3308 H B71 M10 110 881 8 55 B ALDIO I 4 3315 B B03 110 882 8 56 SAVXX SBR SAVXT&3 I 4 3319 H C33 110 883 8 57 MCW LMAINX,AREASV I 7 3323 M 086 331 110 884 8 58 SAVXT B 0 I 4 3330 B 000 110 885 8 59 LUNET SW READS I 4 3334 , I10 111 886 8 60 MCW @N@,FINAL I 7 3338 M I08 B52 111 887 8 61 B RDT4A I 4 3345 B B41 111 888 8 62 BYPSS SBR BYPSX&3 I 4 3349 H C80 111 889 8 63 B CTAPE I 4 3353 B S22 111 890 8 64 NOP TDF4A I 4 3357 N A35 111 891 8 65 BCE BYPSS&4,OUTPT&74,Y I 8 3361 B C53 I86 Y 111 892 8 66 BCE BYPSS&4,OUTPT&74,Z I 8 3369 B C53 I86 Z 112 893 8 67 BYPSX B 0 I 4 3377 B 000 112 894 8 68 * 895 8 69 * DTF TABLE OF OPERANDS 896 8 70 * 897 8 71 DCW @@@ FILETYP I 1 3381 112 898 8 72 DCW @001@ I 3 3384 112 899 8 73 DCW @INP@ INPUT I 3 3387 112 900 8 74 DCW @002@ I 3 3390 112 901 8 75 DCW @OUT@ OUTPUT I 3 3393 112 1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 1 -VERSION 3 3721L PAGE 18 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 902 8 76 DCW @003@ I 3 3396 113 903 8 77 DCW @TAP@ TAPE I 3 3399 113 904 8 78 DCW @004@ I 3 3402 113 905 8 79 DCW @REA@ READER I 3 3405 113 906 8 80 DCW @005@ I 3 3408 113 907 8 81 DCW @PUN@ PUNCH I 3 3411 113 908 8 82 DCW @008@ I 3 3414 113 909 8 83 DCW @CHE@ I 3 3417 114 910 8 84 DCW @006@ I 3 3420 114 911 8 85 FILXZ DCW @PRI@ PRINTER I 3 3423 114 912 8 86 DCW @@@ MODEPAR I 1 3424 114 913 8 87 DCW @007@ I 3 3427 114 914 8 88 MODXZ DCW @LOA@ I 3 3430 114 915 8 89 DCW @@@ RECFORM I 1 3431 114 916 8 90 DCW @012@ I 3 3434 115 917 8 91 DCW @BLO@ BLOCKED I 3 3437 115 918 8 92 DCW @013@ I 3 3440 115 919 8 93 DCW @UNB@ UNBLOCKED I 3 3443 115 920 8 94 DCW @014@ I 3 3446 115 921 8 95 DCW @FIX@ FIXED I 3 3449 115 922 8 96 DCW @015@ I 3 3452 115 923 8 97 RECXZ DCW @VAR@ VARIABLE I 3 3455 116 924 8 98 DCW @@@ TYPELABEL I 1 3456 116 925 8 99 DCW @081@ I 3 3459 116 926 9 00 DCW @STA@ STANDARD I 3 3462 116 927 9 01 DCW @082@ I 3 3465 116 928 9 02 DCW @NON@ NONSTANDARD I 3 3468 116 929 9 03 DCW @083@ I 3 3471 116 930 9 04 TYPXZ DCW @TM @ TM I 3 3474 117 931 9 05 DCW @@@ CHECKLABEL I 1 3475 117 932 9 06 DCW @084@ I 3 3478 117 933 9 07 DCW @ALL@ ALL I 3 3481 117 934 9 08 DCW @085@ I 3 3484 117 935 9 09 CHEXZ DCW @IDE@ IDENT I 3 3487 117 936 9 10 DCW @@@ REWIND I 1 3488 117 937 9 11 DCW @199@ I 3 3491 118 938 9 12 DCW @UNL@ UNLOAD I 3 3494 118 939 9 13 DCW @200@ I 3 3497 118 940 9 14 REWXZ DCW @NOR@ NOREWD I 3 3500 118 941 9 15 DCW @@@ I 1 3501 118 942 9 16 DCW @201@ I 3 3504 118 943 9 17 DCW @9 @ I 3 3507 118 944 9 18 DCW @202@ I 3 3510 119 945 9 19 OVEXZ DCW @12 @ I 3 3513 119 946 9 20 DCW @@@ I 1 3514 119 947 9 21 DCW @076@ I 3 3517 119 948 9 22 TOTXZ DCW @REC@ I 3 3520 119 949 9 23 * 950 9 24 * DIOCS OPERAND TABLE 951 9 25 * 1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 1 -VERSION 3 3721L PAGE 19 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 952 9 26 DCW @@@ I 1 3521 119 953 9 27 DCW -MINUS3&4 I 3 3524 I9C 119 954 9 28 DCW @OUT@ I 3 3527 120 955 9 29 DCW -MINUS2&4 I 3 3530 I9D 120 956 9 30 TAPTB DCW @INP@ I 3 3533 120 957 9 31 DCW @@@ I 1 3534 120 958 9 32 DCW @045@ I 3 3537 120 959 9 33 DCW @REL@ I 3 3540 120 960 9 34 DCW @046@ I 3 3543 120 961 9 35 DCW @STO@ I 3 3546 121 962 9 36 DCW @006@ I 3 3549 121 963 9 37 FEATB DCW @OVE@ OVERLAP I 3 3552 121 964 9 38 DCW @@@ I 1 3553 121 965 9 39 DCW @007@ I 3 3556 121 966 9 40 DCW @TAP@ TAPE I 3 3559 121 967 9 41 DCW @008@ I 3 3562 121 968 9 42 DCW @REA@ READER I 3 3565 122 969 9 43 DCW @009@ I 3 3568 122 970 9 44 DCW @PUN@ PUNCH I 3 3571 122 971 9 45 DCW @010@ I 3 3574 122 972 9 46 IODTB DCW @PRI@ PRINTER I 3 3577 122 973 9 47 DCW @@@ I 1 3578 122 974 9 48 DCW @011@ I 3 3581 122 975 9 49 DCW @STA@ STANDARD I 3 3584 123 976 9 50 DCW @012@ I 3 3587 123 977 9 51 DCW @NON@ NONSTANDARD I 3 3590 123 978 9 52 DCW @013@ I 3 3593 123 979 9 53 DCW @MIX@ MIXED I 3 3596 123 980 9 54 DCW @014@ I 3 3599 123 981 9 55 DCW @CHE@ CHECK I 3 3602 123 982 9 56 DCW @015@ I 3 3605 124 983 9 57 DCW @IDE@ IDENT I 3 3608 124 984 9 58 DCW @026@ I 3 3611 124 985 9 59 DCW @RDL@ I 3 3614 124 986 9 60 DCW @016@ I 3 3617 124 987 9 61 LABTB DCW @TM @ TM I 3 3620 124 988 9 62 DCW @@@ I 1 3621 124 989 9 63 DCW @018@ I 3 3624 125 990 9 64 DCW @1 @ EXIT 1 I 3 3627 125 991 9 65 DCW @019@ I 3 3630 125 992 9 66 DCW @2 @ EXIT 2 I 3 3633 125 993 9 67 DCW @020@ I 3 3636 125 994 9 68 DCW @3 @ EXIT 3 I 3 3639 125 995 9 69 DCW @021@ I 3 3642 125 996 9 70 DCW @4 @ EXIT 4 I 3 3645 126 997 9 71 DCW @022@ I 3 3648 126 998 9 72 DCW @5 @ EXIT 5 I 3 3651 126 999 9 73 DCW @023@ I 3 3654 126 1000 9 74 DCW @6 @ EXIT 6 I 3 3657 126 1001 9 75 DCW @024@ I 3 3660 126 1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 1 -VERSION 3 3721L PAGE 20 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1002 9 76 DCW @7 @ EXIT 7 I 3 3663 126 1003 9 77 DCW @025@ I 3 3666 127 1004 9 78 EXITB DCW @8 @ EXIT 8 I 3 3669 127 1005 9 79 DCW @@@ I 1 3670 127 1006 9 80 DCW @027@ I 3 3673 127 1007 9 81 DCW @729@ 729 I 3 3676 127 1008 9 82 DCW @028@ I 3 3679 127 1009 9 83 DRITB DCW @733@ 7330 I 3 3682 127 1010 9 84 DCW @@@ I 1 3683 128 1011 9 85 DCW @029@ I 3 3686 128 1012 9 86 DCW @NOR@ NO RWED I 3 3689 128 1013 9 87 DCW @030@ I 3 3692 128 1014 9 88 RWDTB DCW @UNL@ UNLOAD I 3 3695 128 1015 9 89 DCW @@@ I 1 3696 128 1016 9 90 DCW @037@ I 3 3699 128 1017 9 91 DCW @REC@ RECORD I 3 3702 129 1018 9 92 DCW @038@ I 3 3705 129 1019 9 93 COUTB DCW @HAS@ HASH I 3 3708 129 1020 9 94 DCW @@@ I 1 3709 129 1021 9 95 DCW @034@ I 3 3712 129 1022 9 96 DCW @CLE@ I 3 3715 129 1023 9 97 DCW @033@ I 3 3718 129 1024 9 98 DCW @PRO@ I 3 3721 130 1025 9 99 DCW @032@ I 3 3724 130 1026 10 00 REATB DCW @SCA@ I 3 3727 130 1027 10 01 * 1028 10 02 * DTF TABLE OF LABELS 1029 10 03 * 1030 10 04 DCW @@@ I 1 3728 130 1031 10 05 DCW @OVE@ OVERFLOW I 3 3731 130 1032 10 06 DCW @FOR@ FORMSCTL I 3 3734 130 1033 10 07 DCW @COB@ COBOL I 3 3737 130 1034 10 08 DCW @VAR@ VARBUILD I 3 3740 131 1035 10 09 DCW @CHA@ CHANDRIVE I 3 3743 131 1036 10 10 DCW @FIL@ FILETYPE I 3 3746 131 1037 10 11 DCW @MOD@ MODEPAR I 3 3749 131 1038 10 12 DCW @CAR@ CARDPROC I 3 3752 131 1039 10 13 DCW @ALT@ ALTTAPE I 3 3755 131 1040 10 14 DCW @REC@ RECFORM I 3 3758 131 1041 10 15 DCW @SIZ@ SIZEREC I 3 3761 132 1042 10 16 DCW @PAD@ PADDING I 3 3764 132 1043 10 17 DCW @BLO@ BLOCKSIZE I 3 3767 132 1044 10 18 DCW @IOA@ IOAREAS I 3 3770 132 1045 10 19 DCW @WOR@ WORKAREA I 3 3773 132 1046 10 20 DCW @IND@ INDEXREC I 3 3776 132 1047 10 21 DCW @EOF@ EOFADDR I 3 3779 132 1048 10 22 DCW @WLR@ WLRADDR I 3 3782 133 1049 10 23 DCW @TOT@ TOTALS I 3 3785 133 1050 10 24 DCW @TYP@ TYPELABEL I 3 3788 133 1051 10 25 DCW @CHE@ CHECKLABEL I 3 3791 133 1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 1 -VERSION 3 3721L PAGE 21 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1052 10 26 DCW @HEA@ HEADER I 3 3794 133 1053 10 27 DCW @SER@ SERIALNUM I 3 3797 133 1054 10 28 DCW @REE@ REELSER I 3 3800 133 1055 10 29 DTFLAB DCW @REW@ REWIND I 3 3803 134 1056 10 30 * 1057 10 31 * 1058 10 32 * LABEL TABLE 1059 10 33 * 1060 10 34 DCW @@@ I 1 3804 134 1061 10 35 DCW @TAP@ TAPEUSE I 3 3807 134 1062 10 36 DCW @CHE@ CHECKPOINT I 3 3810 134 1063 10 37 DCW @DIO@ DIOCSORG I 3 3813 134 1064 10 38 DCW @FEA@ FEATURES I 3 3816 134 1065 10 39 DCW @IOD@ IODEVICES I 3 3819 134 1066 10 40 DCW @LAB@ LABELDEF I 3 3822 135 1067 10 41 DCW @ALT@ ALTTAPE I 3 3825 135 1068 10 42 DCW @EXI@ EXITS I 3 3828 135 1069 10 43 DCW @VAR@ VARBUILD I 3 3831 135 1070 10 44 DCW @COU@ COUNTS I 3 3834 135 1071 10 45 DCW @DRI@ DRIVETYPE I 3 3837 135 1072 10 46 DCW @RWD@ RWDOPTION I 3 3840 135 1073 10 47 DCW @REA@ READERROR I 3 3843 136 1074 10 48 LBLTBL DCW @INP@ INPFXNO I 3 3846 136 1075 10 49 LTORG * I 3847 DCW @EX@ I 2 3848 LIT 136 DCW @7@ I 1 3849 LIT 136 DCW @1 8@ I 3 3852 LIT 136 DCW @$@ I 1 3853 LIT 136 DCW @ @ I 1 3854 LIT 136 DCW @*@ I 1 3855 LIT 137 DCW @5@ I 1 3856 LIT 137 DCW @55555@ I 5 3861 LIT 137 DCW @'@ I 1 3862 LIT 137 SAVXL1 DCW #03 I 3 3865 AREA 137 DCW @, @ I 2 3867 LIT 137 DCW @ @ I 2 3869 LIT 137 DCW @1@ I 1 3870 LIT 138 DCW @6@ I 1 3871 LIT 138 DCW @ @ I 5 3876 LIT 138 DCW @DTF@ I 3 3879 LIT 138 DCW @33333@ I 5 3884 LIT 138 DCW @52@ I 2 3886 LIT 138 SAVX2I DCW #03 I 3 3889 AREA 138 DCW @ALT@ I 3 3892 LIT 139 DCW @JOB@ I 3 3895 LIT 139 DCW @CTL@ I 3 3898 LIT 139 HLDA1I DCW #04 I 4 3902 AREA 139 BALTRI DCW #01 I 1 3903 AREA 139 HLDBI DCW #04 I 4 3907 AREA 139 DCW @N@ I 1 3908 LIT 139 1 1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 1 -VERSION 3 3721L PAGE 22 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD XCARDS DCW #01 I 1 3909 AREA 140 READSI DCW #01 I 1 3910 AREA 140 1076 10 50 * 1077 10 51 * OUTPUT AREA 1078 10 52 * 1079 10 53 ORG 3912 I 3912 1080 10 54 OUTPT DA 1X86,G I 3912 3997 1080 DCW @"@ I 1 3998 GMARK 141 1081 10 55 LOPUT EQU * I 3998 1082 10 56 EX I B 000 142 1 1401 AUTOCODER-PASS 2-COPY DTF TABLE -VERSION 3 3723L PAGE 23 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1083 10 57 JOB 1401 AUTOCODER-PASS 2-COPY DTF TABLE -VERSION 3 I 1084 10 58 SFX I I 1085 10 59 ORG 341 I 0341 1086 10 60 DCW @,@ I 1 0341 145 1087 10 61 DCW @;@ EXITS YES I 1 0342 145 1088 10 62 DCW @;@ COBOL YES I 1 0343 145 1089 10 63 DCW #6 I 6 0349 145 1090 10 64 DCW @;@ 1 INPUT 1 FILETYPE I 1 0350 145 1091 10 65 DCW @;@ 2 OUTPUT 2 I 1 0351 145 1092 10 66 DCW @;@ 3 TAPE 3 I 1 0352 145 1093 10 67 DCW @;@ 4 READER 4 I 1 0353 146 1094 10 68 DCW @;@ 5 PUNCH 5 I 1 0354 146 1095 10 69 DCW @;@ 6 PRINTER 6 I 1 0355 146 1096 10 70 DCW @;@ 7 LOAD 7 MODEPAR I 1 0356 146 1097 10 71 DCW @;@ 8 CHECKPOINT 8 FEATURES I 1 0357 146 1098 10 72 DCW @;@ 9 NUMBER 9 CHANDRIVE I 1 0358 146 1099 10 73 DCW @;@ 10 NUMBER 10 CARDPROC I 1 0359 146 1100 10 74 DCW @;@ 11 NUMBER 11 ALTTAPE I 1 0360 147 1101 10 75 DCW @;@ 12 BLOCKED 12 RECFORM I 1 0361 147 1102 10 76 DCW @;@ 13 UNBLOCKED 13 I 1 0362 147 1103 10 77 DCW @;@ 14 MIXED 14 I 1 0363 147 1104 10 78 DCW @;@ 15 VARIABLE 15 I 1 0364 147 1105 10 79 DCW @ ;@ 16-19 NUMBER 16 SIZEREC I 4 0368 147 1106 10 80 DCW @;@ 29 NUMBER 17 PADDING I 1 0369 147 1107 10 81 DCW @ ;@ 21-24 NUMBER 18 BLOCKSIZE I 4 0373 148 1108 10 82 DCW @ ;@ 25-34 LABELS 19 IOAREAS I 10 0383 148 1109 10 83 DCW @ ;@ 35-44 20 I 10 0393 148 1110 10 84 DCW @ ;@ 45-54 LABEL 21 WORKAREA I 10 0403 148 1111 10 85 DCW @;@ 55 NUMBER 22 INDEXREG I 1 0404 148 1112 10 86 DCW @ ;@ 56-65 LABEL 23 EORADDR I 10 0414 149 1113 10 87 DCW @ ;@ 66-75 LABEL 24 WLRADDR I 10 0424 149 1114 10 88 DCW @;@ 76 RECORD 25 TOTALS I 1 0425 149 1115 10 89 DCW @ ;@ 77-80 HASH 26 I 4 0429 149 1116 10 90 DCW @;@ 81 STANDARD 27 TYPELABEL I 1 0430 149 1117 10 91 DCW @;@ 82 NONSTANDARD 28 I 1 0431 149 1118 10 92 DCW @;@ 83 TM 29 I 1 0432 149 1119 10 93 DCW @;@ 84 ALL 30 CHECKLABEL I 1 0433 150 1120 10 94 DCW @;@ 85 IDENT 31 I 1 0434 150 1121 10 95 DCW @ ;@ I 3 0437 150 1122 10 96 DCW @ ;@ I 5 0442 150 1123 10 97 DCW @ ;@ I 10 0452 150 1124 10 98 DCW @ ;@ 104-108 NUMBER 35 SERIALNUM I 5 0457 150 1125 10 99 DCW @ ;@ 109-118 39 EX1ADDR I 10 0467 150 1126 11 00 DCW @ ;@ 119-128 40 EX2ADDR I 10 0477 151 1127 11 01 DCW @ ;@ 129-138 41 EX3ADDR I 10 0487 151 1128 11 02 DCW @ ;@ 139-148 42 EX4ADDR I 10 0497 151 1129 11 03 DCW @ ;@ 149-158 43 EX5ADDR I 10 0507 152 1130 11 04 DCW @ ;@ 159-168 44 EX6ADDR I 10 0517 152 1131 11 05 DCW @ ;@ 169-178 45 EX7ADDR I 10 0527 152 1132 11 06 DCW @ ;@ 179-188 46 EX8ADDR I 10 0537 153 1 1401 AUTOCODER-PASS 2-COPY DTF TABLE -VERSION 3 3723L PAGE 24 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1133 11 07 DCW @ ;@ 189-198 47 VARBUILD I 10 0547 153 1134 11 08 DCW @;@ 199 UNLOAD 37 REWIND I 1 0548 153 1135 11 09 DCW @;@ 200 NOREWD 38 I 1 0549 153 1136 11 10 DCW @;@ 9 201 OVERFLOW I 1 0550 153 1137 11 11 DCW @;@ 12 202 I 1 0551 153 1138 11 12 DCW @ ;@ 203-205 NUMBER REELSEQ I 3 0554 153 1139 11 13 DCW @;@ 206 FORMCTL I 1 0555 154 1140 11 14 DCW #9 I 9 0564 154 1141 11 15 DCW @;@ 216 ADDRESS OVERFLOW I 1 0565 154 1142 11 16 DCW @ @ I 1 0566 154 1143 11 17 DCW @ @ I 1 0567 154 1144 11 18 DTFGM DCW @}@ I 1 0568 GMARK 154 1145 11 19 EX I B 000 155 1 1401 AUTOCODER-PASS 2-ALTER OVERLAY -VERSION 3 3724L PAGE 25 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1146 11 20 JOB 1401 AUTOCODER-PASS 2-ALTER OVERLAY -VERSION 3 I 1147 11 21 SFX I I 1148 11 22 ORG 101 I 0101 1149 11 23 * 1150 11 24 * 1151 11 25 * CTL CARD ON TAPE 4 1152 11 26 * 1153 11 27 PUNCH CW GMOVL2 I 4 0101 ) 332 158 1154 11 28 BSP 1 I 5 0105 U %U1 B 158 1155 11 29 BSP 1 I 5 0110 U %U1 B 158 1156 11 30 B ALTER I 4 0115 B P63 158 1157 11 31 OUTCL MCW OUTPT&85,LMAINX I 7 0119 M I97 086 158 1158 11 32 BSS PREPS2,C I 5 0126 B 662 C 158 1159 11 33 NOSOL SBR RSOLV&7,NOALTB I 7 0131 H 182 Q20 158 1160 11 34 * 1161 11 35 * CTL CARD FROM CARDS 1162 11 36 * 1163 11 37 CRDCL BCE LEAVE,MAINX&23,1 I 8 0138 B 167 024 1 159 1164 11 38 MN MAINX&21,*&8 I 7 0146 D 022 160 159 1165 11 39 BCE LEAVE,@456@, I 8 0153 B 167 237 159 1166 11 40 CHAIN 2 I MACRO 1167 BCE I 1 0161 B GEN 159 1168 BCE I 1 0162 B GEN 159 1169 11 41 B LETBE I 4 0163 B 171 159 1170 11 42 LEAVE S SPECL I 4 0167 S 337 159 1171 11 43 LETBE B NOPCL I 4 0171 B 183 160 1172 11 44 RSOLV B WRTREC I 4 0175 B 721 160 1173 11 45 B WRTAL I 4 0179 B ?37 160 1174 11 46 * 1175 11 47 NOPCL SBR NPCLX&3 I 4 0183 H 204 160 1176 11 48 MCW @N@,ALTS2 I 7 0187 M 238 Q67 160 1177 11 49 MCW @N@,ALTS4 I 7 0194 M 238 ?82 160 1178 11 50 NPCLX B 0 I 4 0201 B 000 160 1179 11 51 NOPJB SBR NPJBX&3 I 4 0205 H 219 161 1180 11 52 SW ALTS1&4,ALTS3&4 I 7 0209 , Q51 ?66 161 1181 11 53 NPJBX B 0 I 4 0216 B 000 161 1182 11 54 NOTER MCW OUTPT&85,LMAINX I 7 0220 M I97 086 161 1183 11 55 B WRTREC I 4 0227 B 721 161 1184 11 56 CHUCK B NOALTB I 4 0231 B Q20 161 1185 11 57 LTORG * I 0235 DCW @456@ I 3 0237 LIT 161 DCW @N@ I 1 0238 LIT 162 1186 11 58 ORG 246 I 0246 1187 11 59 DA 1X86 I 0246 0331 1188 11 60 AREASV EQU * I 0331 1189 11 61 GMOVL2 DCW @}@ I 1 0332 GMARK 163 1190 11 62 EX I B 000 164 1 1401 AUTOCODER - PASS 2 - END OVERLAY -VERSION 3 3725L PAGE 26 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1191 11 63 JOB 1401 AUTOCODER - PASS 2 - END OVERLAY -VERSION 3 I 1192 11 64 SFX I I 1193 11 65 ORG 341 I 0341 1194 11 66 OVLY3 MN @5@,TDF6&4 I 7 0341 D 432 768 167 1195 11 73 SBR LONG&3,@N@ I 7 0348 H J60 433 167 1196 11 74 LCA 186,LMAINX I 7 0355 L 186 086 167 1197 11 75 B NEWWRT I 4 0362 B J35 167 1198 11 76 CW OUTPT&80 I 4 0366 ) I92 167 1199 11 77 SW GMOVL4 I 4 0370 , 606 167 1200 11 78 MCW GMWMRK,GMOVL4 I 7 0374 M 773 606 168 1201 11 79 B CTAPE I 4 0381 B S22 168 1202 11 80 NOP TDF9 I 4 0385 N 412 168 1203 11 81 CW GMOVL4 I 4 0389 ) 606 168 1204 11 82 RWD 5 I 5 0393 U %U5 R 168 1205 11 83 B CTAPE I 4 0398 B S22 168 1206 11 84 NOP TDFSYS I 4 0402 N 423 168 1207 11 85 B 1900 I 4 0406 B Z00 169 1208 11 86 TDF9 DCW #3 I 3 0412 169 1209 11 87 WTW 5,OVLY4 I 8 0413 L %U5 434 W 169 1210 11 88 TDFSYS DCW #3 I 3 0423 169 1211 11 89 RTW 1,1650 I 8 0424 L %U1 W50 R 169 1212 11 92 * 1213 11 93 LTORG * I 0432 DCW @5@ I 1 0432 LIT 169 DCW @N@ I 1 0433 LIT 169 1214 11 94 OVLY4 EQU *&1 I 0434 1215 11 95 SFX X X 1216 11 96 * END OF JOB 1217 11 97 * 1218 11 98 C CALLTX,BLANKS-2 X 7 0434 C !73 W14 170 1219 11 99 BE STENDX X 5 0441 B 450 S 170 1220 12 00 B SUREXX X 4 0446 B T08 170 1221 12 01 STENDX B SBROTX X 4 0450 B O33 170 1222 12 02 RWD 5 X 5 0454 U %U5 R 170 1223 12 03 BSP 1 X 5 0459 U %U1 B 170 1224 12 04 BSP 1 X 5 0464 U %U1 B 170 1225 12 05 WTM 6 X 5 0469 U %U6 M 171 1226 12 06 RWD 6 X 5 0474 U %U6 R 171 1227 12 07 MCW SYMNMX,MAINX&2 X 7 0479 M W01 003 171 1228 12 08 LCA LOPUT&1,MAINX&35 X 7 0486 L I98 036 171 1229 12 09 WT 5,MAINX X 8 0493 M %U5 001 W 171 1230 12 10 WTM 5 X 5 0501 U %U5 M 171 1231 12 11 RWD 4 X 5 0506 U %U4 R 172 1232 12 12 CW LIPUT&1,MAINX&35 X 7 0511 ) 187 036 172 1233 12 13 CW 100 X 4 0518 ) 100 172 1234 12 14 BYPASX RT 1,3997 X 8 0522 M %U1 I97 R 172 1235 12 15 SW LOPUT&1 X 4 0530 , I98 172 1236 12 16 BEF CBSP2X X 5 0534 B 543 K 172 1237 12 17 B BYPASX X 4 0539 B 522 172 1238 12 18 CBSP2X RT 1,3997 X 8 0543 M %U1 I97 R 173 1 1401 AUTOCODER - PASS 2 - END OVERLAY -VERSION 3 3725L PAGE 27 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1239 12 19 SW LOPUT&1 X 4 0551 , I98 173 1240 12 20 S &1,CBSP1X X 7 0555 S 605 604 173 1241 12 21 BM CBSP3X,CBSP1X X 8 0562 V 574 604 K 173 1242 12 22 B CBSP2X X 4 0570 B 543 173 1243 12 23 * 1244 12 24 * LOAD PASS 3 1245 12 25 * 1246 12 26 CBSP3X CS PARTB X 4 0574 / 466 173 1247 12 27 CS X 1 0578 / 173 1248 12 28 CS X 1 0579 / 174 1249 12 29 B CTAPE X 4 0580 B W50 174 1250 12 30 NOP TDFEOJ X 4 0584 N 594 174 1251 12 31 B 2465 X 4 0588 B M65 174 1252 12 32 TDFEOJ DCW CCHALT X 3 0594 Y34 174 1253 12 33 RTW 1,2210 X 8 0595 L %U1 K10 R 174 1254 12 34 CBSP1X DCW @11@ X 2 0604 174 1255 12 35 * 1256 12 36 LTORG * X 0605 DCW &1 X 1 0605 LIT 175 1257 12 37 GMOVL4 DCW @}@ X 1 0606 GMARK 175 1258 12 38 EX X B 000 176 1 1401 AUTOCODER - PASS 2 - ALTER ASSEMBLY - VERSION 3 3728L PAGE 28 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1259 12 39 JOB 1401 AUTOCODER - PASS 2 - ALTER ASSEMBLY - VERSION 3 X 1260 12 40 * 1261 12 41 * AREA DEFINITIONS 1262 12 42 * 1263 12 43 SFX B B 1264 12 44 ORG 1 B 0001 1265 12 45 DA 1X86 MAIN B 0001 0086 ADDR 1266 12 46 EQU * LMAIN B 0086 1267 12 47 ORG 87 B 0087 1268 12 48 DCW 000 INDEX1 B 3 0089 179 1269 12 49 DC 00 B 2 0091 179 1270 12 50 DCW 000 INDEX2 B 3 0094 179 1271 12 51 DC 00 B 2 0096 179 1272 12 52 DCW 000 INDEX3 B 3 0099 179 1273 12 53 DC 00 B 2 0101 179 1274 12 54 ORG 100 B 0100 1275 12 55 DC @}@ B 1 0100 GMARK 180 1276 12 56 DA 1X86 INPUT B 0101 0186 1277 12 57 DC @}@ LIPUT&1 B 1 0187 GMARK 181 1278 12 58 DC 0 ZEROX B 1 0188 181 1279 12 59 DC 0 CARDSX B 1 0189 181 1280 12 60 DCW @***@ HLDSBX B 3 0192 181 1281 12 61 * 1282 12 62 * INITIALIZATION 1283 12 63 * 1284 12 64 ORG 101 B 0101 1285 12 65 VOICE CS CALLTX B 4 0101 / !73 182 1286 12 66 CS B 1 0105 / 182 1287 12 67 IOCALT CS LMAINX B 4 0106 / 086 182 1288 12 68 B CTAPEX B 4 0110 B W50 182 1289 12 69 NOP TDFIO5 B 4 0114 N 132 182 1290 12 70 BCE IOCEOF,MAINXX&73,N B 8 0118 B 141 074 N 182 1291 12 71 B YOURS B 4 0126 B 541 182 1292 12 72 TDFIO5 DCW &IOCEOF B 3 0132 141 183 1293 12 73 RT 5,MAINXX B 8 0133 M %U5 001 R 183 1294 12 74 IOCEOF MCW @1@,HAPPYX&4 B 7 0141 M 172 N74 183 1295 12 75 MCW @/086@ B 4 0148 M 176 183 1296 12 76 B OKAY B 4 0152 B 467 183 1297 12 77 STRING CS LMAINX B 4 0156 / 086 183 1298 12 78 B CTAPEX B 4 0160 B W50 183 1299 12 79 NOP TDFIO5 B 4 0164 N 132 184 1300 12 80 B HAPPYX&5 B 4 0168 B N75 184 1301 12 81 LTORG * B 0172 DCW @1@ B 1 0172 LIT 184 DCW @/086@ B 4 0176 LIT 184 1302 12 82 * 1303 12 83 * PARAMETER TABLE 1304 12 84 * 1305 12 85 ORG 201 B 0201 1306 12 86 DA 1X266 B 0201 0466 1 1401 AUTOCODER - PASS 2 - ALTER ASSEMBLY - VERSION 3 3728L PAGE 29 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1307 12 87 261,266 PARTBB B 0466 FIELD 1308 12 88 * 1309 12 89 * PROCESS EX 1310 12 90 * 1311 12 91 OKAY SBR SWITCH&3,CMALTB B 7 0467 H L04 510 185 1312 12 92 EXSET C CALLTX,BLANKS-2 Q. ANY CALLS B 7 0474 C !73 W14 185 1313 12 93 BE PREEM B 5 0481 B 506 S 185 1314 12 94 ALTSA B SUREXX B 4 0486 B T08 185 1315 12 95 B PREEM B 4 0490 B 506 185 1316 12 96 LORGS C CALLTX,BLANKS-2 Q. ANY CALLS B 7 0494 C !73 W14 185 1317 12 97 BU HAULIT B 5 0501 B S64 / 185 1318 12 98 PREEM B CARDS B 4 0506 B 525 186 1319 12 99 * 1320 13 00 * INPUT ROUTINE 1321 13 01 * 1322 13 02 CMALT BSS LSTCD,C Q. NO ALTERS B 5 0510 B 686 C 186 1323 13 03 BSS LSTCD,A Q. NO MORE ALTERS B 5 0515 B 686 A 186 1324 13 04 CS LMAINX B 4 0520 / 086 186 1325 13 05 R B 1 0524 1 186 1326 13 06 CARDS SBR PREEM&3,SBROTX B 7 0525 H 509 O33 186 1327 13 07 MCW @SCR@,CHARCR B 7 0532 M '15 U62 186 1328 13 08 MCW B 1 0539 M 187 1329 13 09 MCW B 1 0540 M 187 1330 13 10 YOURS C MAINXX&17,@ALT@ B 7 0541 C 018 '18 187 1331 13 11 BCE TREAD,MAINXX&5,* B 8 0548 B 697 006 * 187 1332 13 12 BU TREAD B 5 0556 B 697 / 187 1333 13 13 S INDEX1&1 B 4 0561 S 090 187 1334 13 14 B SCANXX B 4 0565 B M19 187 1335 13 15 ZA MAINXX&18&X1,HLDA1#4 B 7 0569 ? 0/9 '22 188 1336 13 16 ALTR4 B CTAPEX GET NEXT RECORD B 4 0576 B W50 188 1337 13 17 NOP TDFRAL B 4 0580 N 922 188 1338 13 18 MCW @R@,OUTPTX&84 B 7 0584 M '23 I96 188 1339 13 19 SW LOPUTX&1 B 4 0591 , I98 188 1340 13 20 C OUTPTX&83,HLDA1 B 7 0595 C I95 '22 188 1341 13 21 CALTR BE ALTR3 Q. ALTER NUMBER EQUAL TO B 5 0602 B 631 S 188 1342 13 22 C OUTPTX&17,@END@ NUMBER ON ALTER CARD B 7 0607 C I29 '26 189 1343 13 23 BE ENDST NO. WRITE TAPE B 5 0614 B '02 S 189 1344 13 24 B CTAPEX B 4 0619 B W50 189 1345 13 245 SFX X X 1346 13 25 NOP TDF6 X 4 0623 N O24 189 1347 13 255 SFX B B 1348 13 26 B ALTR4 B 4 0627 B 576 189 1349 13 27 ALTR3 BCE ALTR5,MAINXX&19&X1,, B 8 0631 B 651 0S0 , 189 1350 13 28 B CTAPEX Q. DELETION B 4 0639 B W50 189 1351 13 285 SFX X X 1352 13 29 NOP TDF6 X 4 0643 N O24 190 1353 13 295 SFX B B 1354 13 30 B SWITCH B 4 0647 B L01 190 1355 13 31 ALTR5 B SCANXX B 4 0651 B M19 190 1356 13 32 ZA MAINXX&18&X1,HLDA1 B 7 0655 ? 0/9 '22 190 1 1401 AUTOCODER - PASS 2 - ALTER ASSEMBLY - VERSION 3 3728L PAGE 30 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1357 13 33 ALTR6 C OUTPTX&83,HLDA1 B 7 0662 C I95 '22 190 1358 13 34 BE MACRO DELETE UNTIL SECOND ALTER B 5 0669 B 931 S 190 1359 13 35 B CTAPEX NUMBER IS REACHED B 4 0674 B W50 190 1360 13 36 NOP TDFRAL B 4 0678 N 922 191 1361 13 37 B ALTR6 B 4 0682 B 662 191 1362 13 38 LSTCD MCW @N@,CALTR B 7 0686 M '27 602 191 1363 13 39 B ALTR4 B 4 0693 B 576 191 1364 13 40 * 1365 13 41 * MAJOR PROCESSING 1366 13 42 * 1367 13 43 TREAD SW 1 B 4 0697 , 001 191 1368 13 44 SBR BRNCHX&3,SWITCH B 7 0701 H O99 L01 191 1369 13 45 BCE HOMEXX,MAINXX&5,* B 8 0708 B O48 006 * 191 1370 13 46 C MAINXX&17,@MLC@ B 7 0716 C 018 '30 192 1371 13 47 BE HOMEXX B 5 0723 B O48 S 192 1372 13 48 C MAINXX&17,@CHA@ B 7 0728 C 018 '33 192 1373 13 49 BE CHAINX B 5 0735 B H11 S 192 1374 13 50 C MAINXX&17,@ENT@ Q. ENTER CARD B 7 0740 C 018 '36 192 1375 13 51 BE ENTST B 5 0747 B 879 S 192 1376 13 52 SWMA1 C MAINXX&17,@MA @ Q. MODIFY ADDRESS MACRO B 7 0752 C 018 '39 193 1377 13 53 SWMA2 BE MASETX B 5 0759 B U33 S 193 1378 13 54 C MAINXX&17,@EX @ Q. EX CARD B 7 0764 C 018 '42 193 1379 13 55 BE EXSET B 5 0771 B 474 S 193 1380 13 56 C MAINXX&17,@END@ Q. END CARD B 7 0776 C 018 '26 193 1381 13 57 BE ENDSTX B 5 0783 B U78 S 193 1382 13 58 C MAINXX&18,WHOOPS Q. CALL STATEMENT B 7 0788 C 019 W05 194 1383 13 59 BE CALLNX B 5 0795 B J51 S 194 1384 13 60 C MAINXX&19,INCLDX B 7 0800 C 020 U59 194 1385 13 61 BE CALLNX B 5 0807 B J51 S 194 1386 13 62 C MAINXX&19,LITORG-1 B 7 0812 C 020 T57 194 1387 13 63 BE LORGS B 5 0819 B 494 S 194 1388 13 64 SBR INDEX3,TABLEI Q. GET, PUT, OPEN OR CLOSE B 7 0824 H 099 T74 195 1389 13 65 COMIOC C MAINXX&17,0&X3 B 7 0831 C 018 0?0 195 1390 13 66 SBR INDEX3 B 4 0838 H 099 195 1391 13 67 BE MSUBTX B 5 0842 B P00 S 195 1392 13 68 BCE OUTIOC,0&X3,# B 8 0847 B 859 0?0 # 195 1393 13 69 B COMIOC B 4 0855 B 831 195 1394 13 70 OUTIOC BCE HOMEXX,MAINXX&19, B 8 0859 B O48 020 196 1395 13 71 BCE HOMEXX,MAINXX&15, B 8 0867 B O48 016 196 1396 13 72 B MSUBTX NO, MACRO B 4 0875 B P00 196 1397 13 73 * 1398 13 74 * PROCESS FIXED FORM RECORD 1399 13 75 * 1400 13 76 ENTST B SBROTX B 4 0879 B O33 196 1401 13 77 R B 1 0883 1 196 1402 13 78 BCE ENTST,MAINXX&7,* B 8 0884 B 879 008 * 196 1403 13 79 C MAINXX&15,@END@ Q. END CARD B 7 0892 C 016 '26 197 1404 13 80 BE ENDSTX B 5 0899 B U78 S 197 1405 13 81 C MAINXX&15,@ENT@ Q. NEW MODE B 7 0904 C 016 '36 197 1406 13 82 BU ENTST B 5 0911 B 879 / 197 1 1401 AUTOCODER - PASS 2 - ALTER ASSEMBLY - VERSION 3 3728L PAGE 31 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1407 13 83 B PREEM B 4 0916 B 506 197 1408 13 84 TDFRAL DCW 000 B 3 0922 197 1409 13 85 DCW @M%U4I12R@ B 8 0930 197 1410 13 86 * 1411 13 87 * DELETE ENTIRE MACRO 1412 13 88 * 1413 13 89 MACRO BCE OUTMC,OUTPTX&74,R B 8 0931 B 943 I86 R 198 1414 13 90 B SWITCH B 4 0939 B L01 198 1415 13 91 OUTMC B CTAPEX B 4 0943 B W50 198 1416 13 92 NOP TDFRAL B 4 0947 N 922 198 1417 13 93 C OUTPTX&19,BLANKS B 7 0951 C I31 W16 198 1418 13 94 MCOUT BE OUTMC B 5 0958 B 943 S 198 1419 13 95 MCW @N@,MCOUT B 7 0963 M '27 958 198 1420 13 96 BCE OUTMC,OUTPTX&74,S B 8 0970 B 943 I86 S 199 1421 13 97 BCE OUTMC,OUTPTX&74,C B 8 0978 B 943 I86 C 199 1422 13 98 BSP 4 B 5 0986 U %U4 B 199 1423 13 99 MCW OUTMC,MCOUT B 7 0991 M 943 958 199 1424 14 00 B CMALT B 4 0998 B 510 199 1425 14 01 * 1426 14 02 * PROCESS END CARD 1427 14 03 * 1428 14 04 ENDST MCW LOPUTX,LMAINX B 7 1002 M I97 086 199 1429 14 05 B ENDSTX B 4 1009 B U78 200 1430 14 06 LTORG * B 1013 DCW @SCR@ B 3 1015 LIT 200 DCW @ALT@ B 3 1018 LIT 200 HLDA1B DCW #04 B 4 1022 AREA 200 DCW @R@ B 1 1023 LIT 200 DCW @END@ B 3 1026 LIT 200 DCW @N@ B 1 1027 LIT 200 DCW @MLC@ B 3 1030 LIT 201 DCW @CHA@ B 3 1033 LIT 201 DCW @ENT@ B 3 1036 LIT 201 DCW @MA @ B 3 1039 LIT 201 DCW @EX @ B 3 1042 LIT 201 1431 14 07 GM2XXX DCW @}@ B 1 1043 GMARK 201 1432 14 08 NUORIG EQU *&1 B 1044 1433 14 09 EX B B 000 202 1 1401 AUTOCODER - PASS 2 - INITIAL ASSEMBLY VERSION 3 3727L PAGE 32 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1434 14 10 JOB 1401 AUTOCODER - PASS 2 - INITIAL ASSEMBLY VERSION 3 B 1435 14 11 * 1436 14 12 * AREA DEFINITION 1437 14 13 * 1438 14 14 SFX A A 1439 14 15 ORG 1 A 0001 1440 14 16 MAINXX DA 1X86 A 0001 0086 ADDR 1441 14 17 ORG 87 A 0087 1442 14 18 DCW @000@ A 3 0089 205 1443 14 19 DC 00 A 2 0091 205 1444 14 20 DCW @000@ A 3 0094 205 1445 14 21 DC 00 A 2 0096 205 1446 14 22 DCW @000@ A 3 0099 205 1447 14 23 DC 00 A 2 0101 205 1448 14 24 ORG 101 A 0101 1449 14 25 DA 1X86 INPUTX A 0101 0186 1450 14 26 LIPUTX EQU * A 0186 1451 14 27 DC @}@ A 1 0187 GMARK 206 1452 14 28 ZEROXX DC 0 A 1 0188 206 1453 14 29 CARDSX DC 0 A 1 0189 206 1454 14 30 HLDSBX DCW @***@ A 3 0192 206 1455 14 31 * 1456 14 32 * INITIALIZATION 1457 14 33 * 1458 14 34 ORG 100 A 0100 1459 14 35 DC @}@ A 1 0100 GMARK 207 1460 14 36 START CS CALLTX A 4 0101 / !73 207 1461 14 37 CS A 1 0105 / 207 1462 14 371 BCE *&5,CARDSX,1 A 8 0106 B 118 189 1 207 1463 14 372 B RED A 4 0114 B 132 207 1464 14 373 MCW @N@,RHO&1 A 7 0118 M 959 764 208 1465 14 374 MCW @N@,TSTEN&5 A 7 0125 M 959 780 208 1466 14 38 RED SW NTPER&4 A 4 0132 , 885 208 1467 14 39 SW TSTEN&4 A 4 0136 , 779 208 1468 14 40 SW OUTS2&4 A 4 0140 , 762 208 1469 14 41 BCE READT,IOCSAV-3,* A 8 0144 B 467 H07 * 208 1470 14 42 MCW @N@,SWMA1 A 7 0152 M 959 526 209 1471 14 43 MCW @N@,SWMA2 A 7 0159 M 959 533 209 1472 14 44 B READT A 4 0166 B 467 209 1473 14 45 ORG 201 A 0201 1474 14 46 DA 1X266 A 0201 0466 1475 14 47 PARTBX 261,266 A 0466 FIELD 1476 14 48 * 1477 14 49 * MAJOR PROCESSING 1478 14 50 * 1479 14 51 READT B TWEDB GET NEXT RECORD A 4 0467 B 653 210 1480 14 52 TREAD SW 1 A 4 0471 , 001 210 1481 14 53 SBR BRNCHX&3,READT A 7 0475 H O99 467 210 1482 14 54 BCE OUTS2,MAINXX&5,* Q, COMMENTS CARD A 8 0482 B 758 006 * 210 1483 14 55 C MAINXX&19,@CHAIN@ A 7 0490 C 020 964 210 1 1401 AUTOCODER - PASS 2 - INITIAL ASSEMBLY VERSION 3 3727L PAGE 33 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1484 14 56 BE CHAINX A 5 0497 B H11 S 210 1485 14 57 C MAINXX&19,@MLCWA@ A 7 0502 C 020 969 211 1486 14 58 BE OUTS2 A 5 0509 B 758 S 211 1487 14 59 C MAINXX&17,@ENT@ Q. ENTER CARD A 7 0514 C 018 972 211 1488 14 60 BE ENTST A 5 0521 B 795 S 211 1489 14 61 SWMA1 C MAINXX&19,@MA @ Q. MODIFY ADDRESS MACRO A 7 0526 C 020 977 211 1490 14 62 SWMA2 BE MASETX A 5 0533 B U33 S 211 1491 14 63 C MAINXX&19,@EX @ Q. EX CARD A 7 0538 C 020 982 212 1492 14 64 BE EXSET A 5 0545 B 857 S 212 1493 14 65 C MAINXX&17,@END@ Q. END CARD A 7 0550 C 018 985 212 1494 14 66 BE ENDSTX A 5 0557 B U78 S 212 1495 14 67 C MAINXX&18,WHOOPS A 7 0562 C 019 W05 212 1496 14 68 BE CALLNX Q. CALL STATEMENT A 5 0569 B J51 S 212 1497 14 69 C MAINXX&19,INCLDX A 7 0574 C 020 U59 213 1498 14 70 BE CALLNX A 5 0581 B J51 S 213 1499 14 71 C MAINXX&19,@LTORG@ A 7 0586 C 020 990 213 1500 14 72 BE LORGS Q. LTORG CARD A 5 0593 B 918 S 213 1501 14 73 SBR INDEX3,TABLEI A 7 0598 H 099 T74 213 1502 14 74 FEW C MAINXX&17,0&X3 A 7 0605 C 018 0?0 213 1503 14 75 SBR INDEX3 A 4 0612 H 099 214 1504 14 76 BE MSUBTX A 5 0616 B P00 S 214 1505 14 77 BCE MANY,0&X3,# A 8 0621 B 633 0?0 # 214 1506 14 78 B FEW A 4 0629 B 605 214 1507 14 79 MANY BCE OUTS2,MAINXX&19, A 8 0633 B 758 020 214 1508 14 80 BCE OUTS2,MAINXX&15, A 8 0641 B 758 016 214 1509 14 81 B MSUBTX NO. MACRO A 4 0649 B P00 215 1510 14 82 * 1511 14 83 * INPUT ROUTINE 1512 14 84 * 1513 14 85 TWEDB SBR TWDB1&3 A 4 0653 H 696 215 1514 14 86 CS LMAINX A 4 0657 / 086 215 1515 14 87 B RTWED A 4 0661 B 677 215 1516 14 88 CHART C A 1 0665 C 215 1517 14 89 BSS EOF4,A Q. LAST CARD A 5 0666 B 934 A 215 1518 14 90 R A 1 0671 1 215 1519 14 91 SSB TWDB1,1 A 5 0672 K 693 1 216 1520 14 92 RTWED B CTAPEX A 4 0677 B W50 216 1521 14 93 NOP TDF4 A 4 0681 N 699 216 1522 14 94 BCE CHANGE,MAINXX&73,N A 8 0685 B 708 074 N 216 1523 14 95 TWDB1 B TREAD A 4 0693 B 471 216 1524 14 96 TDF4 DCW &EOF4 A 3 0699 934 216 1525 14 97 DCW @M%U5001R@ A 8 0707 216 1526 14 98 CHANGE CW CHART,TSTEN&4 A 7 0708 ) 665 779 217 1527 14 99 MN @4@,TDF4&4 A 7 0715 D 991 703 217 1528 15 00 CW OUTS2&4,NTPER&4 A 7 0722 ) 762 885 217 1529 15 01 C CALLTX,BLANK A 7 0729 C !73 999 217 1530 15 02 BE HOOHA A 5 0736 B 745 S 217 1531 15 03 B SUREXX A 4 0741 B T08 217 1532 15 04 HOOHA MCW @SCR@,CHARCR A 7 0745 M 994 U62 218 1533 15 05 MCW A 1 0752 M 218 1 1401 AUTOCODER - PASS 2 - INITIAL ASSEMBLY VERSION 3 3727L PAGE 34 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1534 15 06 MCW A 1 0753 M 218 1535 15 07 B TWDB1 A 4 0754 B 693 218 1536 15 08 * 1537 15 09 * READ RELEASE 1538 15 10 * 1539 15 11 OUTS2 BSS OUTSBX,C A 5 0758 B O41 C 218 1540 15 12 RHO NOP A 1 0763 N 218 1541 15 13 MCW @8@,RHO A 7 0764 M 995 763 218 1542 15 14 B OUTSBX A 4 0771 B O41 219 1543 15 15 * 1544 15 16 * FIXED FORM RECORDS 1545 15 17 * 1546 15 18 TSTEN BSS ENTST,C Q. TAPE INPUT A 5 0775 B 795 C 219 1547 15 19 SRF NO. START RAD FEED A 1 0780 8 219 1548 15 20 SBR NOSIR&3,ANTST A 7 0781 H 917 803 219 1549 15 21 MCW @N@,BUT1XX A 7 0788 M 959 O37 219 1550 15 22 ENTST B SBROTX A 4 0795 B O33 219 1551 15 23 B TWEDB A 4 0799 B 653 219 1552 15 24 ANTST MCW @B@,BUT1XX A 7 0803 M 996 O37 220 1553 15 25 SBR NOSIR&3,TREAD A 7 0810 H 917 471 220 1554 15 26 BCE TSTEN,MAINXX&7,* A 8 0817 B 775 008 * 220 1555 15 27 C MAINXX&15,@END@ Q. END CARD A 7 0825 C 016 985 220 1556 15 28 BE ENDSTX A 5 0832 B U78 S 220 1557 15 29 C MAINXX&15,@ENT@ Q. NEW MODE A 7 0837 C 016 972 221 1558 15 30 BU TSTEN A 5 0844 B 775 / 221 1559 15 31 B SBROTX A 4 0849 B O33 221 1560 15 32 B READT A 4 0853 B 467 221 1561 15 33 * 1562 15 34 * PROCESS EX 1563 15 35 * 1564 15 36 EXSET C CALLTX,BLANK#3 Q. ANY CALLS A 7 0857 C !73 999 221 1565 15 37 BE OUTS2 A 5 0864 B 758 S 221 1566 15 38 B SUREXX A 4 0869 B T08 221 1567 15 39 B SBROTX A 4 0873 B O33 222 1568 15 40 B READT A 4 0877 B 467 222 1569 15 41 * 1570 15 42 * READ RELEASE REDUNDANCY ROUTINE 1571 15 43 * 1572 15 44 NTPER BSS YESIR,C Q. TAPE INPUT A 5 0881 B 896 C 222 1573 15 45 R A 1 0886 1 222 1574 15 46 SS 1 A 2 0887 K 1 222 1575 15 47 MCW @N@,RHO A 7 0889 M 959 763 222 1576 15 48 YESIR SBR COMETS&3,CRWRED A 7 0896 H X65 X71 222 1577 15 49 SBR CCONPR&3,NOSIR A 7 0903 H X70 914 223 1578 15 50 B CRWRED A 4 0910 B X71 223 1579 15 51 NOSIR B TREAD A 4 0914 B 471 223 1580 15 52 * 1581 15 53 * PROCESS LTORG 1582 15 54 * 1583 15 55 LORGS C CALLTX,BLANK Q. ANY CALLLS A 7 0918 C !73 999 223 1 1401 AUTOCODER - PASS 2 - INITIAL ASSEMBLY VERSION 3 3727L PAGE 35 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1584 15 56 BU HAULIT A 5 0925 B S64 / 223 1585 15 57 B OUTS2 A 4 0930 B 758 223 1586 15 58 EOF4 CS LMAINX A 4 0934 / 086 223 1587 15 59 SW 1 A 4 0938 , 001 224 1588 15 60 MCW @END$$$@,MAINXX&18 A 7 0942 M '05 019 224 1589 15 61 B ENDSTX A 4 0949 B U78 224 1590 15 62 ANTPER DCW &NTPERA A 3 0955 881 224 1591 15 63 ACRWED DCW &CRWRED A 3 0958 X71 224 1592 15 64 LTORG * A 0959 DCW @N@ A 1 0959 LIT 224 DCW @CHAIN@ A 5 0964 LIT 224 DCW @MLCWA@ A 5 0969 LIT 225 DCW @ENT@ A 3 0972 LIT 225 DCW @MA @ A 5 0977 LIT 225 DCW @EX @ A 5 0982 LIT 225 DCW @END@ A 3 0985 LIT 225 DCW @LTORG@ A 5 0990 LIT 225 DCW @4@ A 1 0991 LIT 225 DCW @SCR@ A 3 0994 LIT 226 DCW @8@ A 1 0995 LIT 226 DCW @B@ A 1 0996 LIT 226 BLANKA DCW #03 A 3 0999 AREA 226 DCW @END$$$@ A 6 1005 LIT 226 1593 15 65 * 1594 15 66 * MAIN LINE PROCESSING ANNEX 1595 15 67 * 1596 15 68 SFX X X 1597 15 69 ORG NUORIG X 1044 1598 15 70 EOF1B RWD 1 X 5 1044 U %U1 R 227 1599 15 71 S PREVS X 4 1049 S H72 227 1600 15 72 B SWITCH X 4 1053 B L01 227 1601 15 73 * 1602 15 74 * PROCESS LOZENGED FIELD 6 - 20 1603 15 75 * 1604 15 76 LOZENG BM MLBLZ,MAINX&2&X1 Q. INTERNAL LEVEL X 8 1057 V D68 0'3 K 227 1605 15 77 B LABEL X 4 1065 B /19 227 1606 15 78 MCW BLANKS,MAINX&4&X1 X 7 1069 M W16 0'5 227 1607 15 79 MCW INDEX1,SAVX1#3 X 7 1076 M 089 W11 227 1608 15 80 MCW INDEX3,INDEX2 X 7 1083 M 099 094 228 1609 15 81 B SBGRD X 4 1090 B G46 228 1610 15 82 A SAVX1,INDEX1 X 7 1094 A W11 089 228 1611 15 83 MCW 0&X3,MAINX&X1 X 7 1101 M 0?0 0'1 228 1612 15 84 MCW SAVX1,INDEX1 X 7 1108 M W11 089 228 1613 15 85 B UPENGL X 4 1115 B A48 228 1614 15 86 * 1615 15 87 * LOCATE PARAMETERS 1616 15 88 * 1617 15 89 LABEL SBR LEXIT&3 X 4 1119 H S63 229 1618 15 90 MCW BLANKS#5,INDEX3 X 7 1123 M W16 099 229 1619 15 91 MCW BLANKS,CNTP X 7 1130 M W16 W19 229 1 1401 AUTOCODER - PASS 2 - INITIAL ASSEMBLY VERSION 3 3727L PAGE 36 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1620 15 92 MN MAINX&1&X1,CNTP X 7 1137 D 0'2 W19 229 1621 15 93 CIRCL S &1,CNTP X 7 1144 S W17 W19 229 1622 15 94 BM TENSR,CNTP X 8 1151 V /70 W19 K 230 1623 15 95 A @3@,INDEX3 X 7 1159 A W18 099 230 1624 15 96 B CIRCL X 4 1166 B /44 230 1625 15 97 TENSR BCE CHZON,DECTB-2&X3,0 X 8 1170 B !74 UI0 0 230 1626 15 98 MCW BLANKS,CNTP#1 X 7 1178 M W16 W19 230 1627 15 99 MCW DECTB&X3,INDEX3 X 7 1185 M UI2 099 231 1628 16 00 MN MAINX&2&X1,CNTP X 7 1192 D 0'3 W19 231 1629 16 01 MOVINP S &1,CNTP X 7 1199 S W17 W19 231 1630 16 02 MCW 0&X3,0&X3 X 7 1206 M 0?0 0?0 231 1631 16 03 SAR WAREA#3 X 4 1213 Q W22 231 1632 16 04 BCE CHZON,0&X3,, Q. MISSING PARAMETER X 8 1217 B !74 0?0 , 232 1633 16 05 BM PUTIN,CNTP Q. PARAMETER LOCATED X 8 1225 V S44 W19 K 232 1634 16 06 MCW WAREA,INDEX3 X 7 1233 M W22 099 232 1635 16 07 B MOVINP X 4 1240 B /99 232 1636 16 08 PUTIN BCE CHZON,0&X3,; X 8 1244 B !74 0?0 ; 232 1637 16 09 BWZ DELET,MAINX&2&X1,S X 8 1252 V D41 0'3 S 233 1638 16 10 LEXIT B 0 X 4 1260 B 000 233 1639 16 11 * 1640 16 12 * PROCESS LTORG 1641 16 13 * 1642 16 14 HAULIT MCW @ORG @,MAINX&19 REPLACE LTORG WITH ORG X 7 1264 M W27 020 233 1643 16 15 MCW @L@,MAINX&74 X 7 1271 M W28 075 233 1644 16 16 B SBROT X 4 1278 B O33 233 1645 16 17 B EXITC X 4 1282 B D79 233 1646 16 18 CS LMAIN X 4 1286 / 086 233 1647 16 19 MCW LITORG,MAINX&20 GENERATE LTORG* X 7 1290 M T58 021 234 1648 16 20 MCW CHARCC,MAINX&74 X 7 1297 M U61 075 234 1649 16 21 B WHYYY X 4 1304 B K97 234 1650 16 22 * 1651 16 23 * PREPARATION FOR LTORG,EX,EX OR IOCS 1652 16 24 * 1653 16 25 SUREX SBR SIMPLE&3 X 4 1308 H T41 234 1654 16 26 SW 1 X 4 1312 , 001 234 1655 16 27 CS LIPUTX X 4 1316 / 186 234 1656 16 28 LCA LMAINX,LIPUTX X 7 1320 L 086 186 234 1657 16 29 B EXITCX X 4 1327 B D79 235 1658 16 30 LCA LIPUTX,LMAINX X 7 1331 L 186 086 235 1659 16 31 SIMPLE B 0 X 4 1338 B 000 235 1660 16 32 TDFEXT DCW &RWDEXT X 3 1344 D83 235 1661 16 33 DCW @M%U1001R@ X 8 1352 235 1662 16 34 LITORG DCW @LTORG*@ X 6 1358 235 1663 16 35 * 1664 16 36 * IOCS TABLE 1665 16 37 * 1666 16 38 DCW @#@ X 1 1359 235 1667 16 39 DCW @RLS@ X 3 1362 236 1668 16 40 DCW @GET@ X 3 1365 236 1669 16 41 DCW @PUT@ X 3 1368 236 1 1401 AUTOCODER - PASS 2 - INITIAL ASSEMBLY VERSION 3 3727L PAGE 37 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1670 16 42 DCW @DTF@ X 3 1371 236 1671 16 43 TABLEI DCW @OPE@ X 3 1374 236 1672 16 44 * 1673 16 45 * GENERATE UNKNOWN MACRO CARD 1674 16 46 * 1675 16 47 NOROT SBR NROTC&3 X 4 1375 H U14 236 1676 16 48 CS LMAINX X 4 1379 / 086 236 1677 16 49 MCW @B@,MAINX&85 X 7 1383 M W29 086 237 1678 16 50 MCW @UNKNOWN@,MAINX&19 X 7 1390 M W36 020 237 1679 16 51 MCW CHARCC,MAINX&74 X 7 1397 M U61 075 237 1680 16 52 MCW @*@,MAINX&5 X 7 1404 M W37 006 237 1681 16 53 NROTC B 0 X 4 1411 B 000 237 1682 16 54 POTS MCW @B@,SWITCH X 7 1415 M W29 L01 237 1683 16 55 MCW @N@,NEXTCD X 7 1422 M W38 N66 238 1684 16 56 B COOKER X 4 1429 B E90 238 1685 16 57 * 1686 16 58 * MODIFY ADDRESS MACRO 1687 16 59 * 1688 16 60 MASET MCW CHARCR,MAINX&74 X 7 1433 M U62 075 238 1689 16 61 B SBROTX X 4 1440 B O33 238 1690 16 62 MCW @D@,MAINX&17 X 7 1444 M W39 018 238 1691 16 63 B SGC X 4 1451 B P18 238 1692 16 64 INCLDX DCW @INCLD@ X 5 1459 238 1693 16 65 CHARCS DCW @Z@ X 1 1460 239 1694 16 66 CHARCC DCW @Y@ X 1 1461 239 1695 16 67 CHARCR DCW @W@ X 1 1462 239 1696 16 68 KINGS B NOROT X 4 1463 B T75 239 1697 16 69 MCW HLDSB,MAINX&10 X 7 1467 M 192 011 239 1698 16 70 B WHYYY X 4 1474 B K97 239 1699 16 71 ENDSTX B CTAPE X 4 1478 B W50 239 1700 16 72 NOP TDF5 X 4 1482 N V89 240 1701 16 73 B OVLY4I X 4 1486 B 434 240 1702 16 74 DECTB DCW &PARTB X 3 1492 466 240 1703 16 75 DA 9X3 X 1493 1519 1704 16 76 ENDDC EQU * X 1519 1705 16 77 MOVEC LCA @;@,0&X3 X 7 1520 L W40 0?0 241 1706 16 78 SBR INDEX3 X 4 1527 H 099 241 1707 16 79 A @3@,INDEX2&1 X 7 1531 A W18 095 242 1708 16 80 BCE MIDLE,INDEX2&1,3 X 8 1538 B H22 095 3 242 1709 16 81 LOWER A @1@,INDEX1 X 7 1546 A W41 089 242 1710 16 82 SW MAINX&20&X1 X 4 1553 , 0S1 242 1711 16 83 BCE MOVEC,MAINX&20&X1,, X 8 1557 B V20 0S1 , 242 1712 16 84 WEEDD MCW INDEX2&1,IOCSAV X 7 1565 M 095 H10 243 1713 16 85 B WEEDBX X 4 1572 B N39 243 1714 16 86 MCW IOCSAV,INDEX2&1 X 7 1576 M H10 095 243 1715 16 87 B COMSN X 4 1583 B P79 243 1716 16 88 TDF5 DCW #3 X 3 1589 243 1717 16 89 RTW 5,OVLY4I X 8 1590 L %U5 434 R 243 1718 16 90 NEWEST DC 0 X 1 1598 243 1719 16 91 SYMNM DCW @000@ X 3 1601 243 1 1401 AUTOCODER - PASS 2 - INITIAL ASSEMBLY VERSION 3 3727L PAGE 38 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1720 16 92 WHOOPS DCW @CALL@ X 4 1605 244 1721 16 93 ADDCAL DCW &CALLTX X 3 1608 !73 244 1722 16 94 LTORG * X 1609 SAVX1X DCW #03 X 3 1611 AREA 244 BLANKS DCW #05 X 5 1616 AREA 244 DCW &1 X 1 1617 LIT 244 DCW @3@ X 1 1618 LIT 244 CNTPX DCW #01 X 1 1619 AREA 244 WAREAX DCW #03 X 3 1622 AREA 245 DCW @ORG @ X 5 1627 LIT 245 DCW @L@ X 1 1628 LIT 245 DCW @B@ X 1 1629 LIT 245 DCW @UNKNOWN@ X 7 1636 LIT 245 DCW @*@ X 1 1637 LIT 245 DCW @N@ X 1 1638 LIT 245 DCW @D@ X 1 1639 LIT 246 DCW @;@ X 1 1640 LIT 246 DCW @1@ X 1 1641 LIT 246 1723 16 95 ORG 1649 X 1649 1724 16 96 GM1 DCW @}@ X 1 1649 GMARK 247 1725 16 97 EX X B 000 248 1 1401 AUTOCODER - PASS 2 - MACRO-GENERATOR- VERSION 3 3726L PAGE 39 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1726 16 98 JOB 1401 AUTOCODER - PASS 2 - MACRO-GENERATOR- VERSION 3 X 1727 16 99 SFX X X 1728 17 00 * 1729 17 01 * GENERALIZED TAPE INPUT/OUTPUT ROUTINE 1730 17 02 * 1731 17 03 ORG 1650 X 1650 1732 17 04 CTAPEX SBR INDEX2 X 4 1650 H 094 251 1733 17 05 SBR CCONPR&3 X 4 1654 H X70 251 1734 17 06 MCW 3&X2,INDEX2 X 7 1658 M 0!3 094 251 1735 17 07 MCW 8&X2,CTAPEC&7 X 7 1665 M 0!8 X29 251 1736 17 08 MCW 0&X2,CEORC&3 X 7 1672 M 0!0 X41 251 1737 17 09 SW CCOMPR&4 X 4 1679 , X47 251 1738 17 10 MCW 7&X2,CCOMPR&6 X 7 1683 M 0!7 X49 252 1739 17 11 A @12@,CCOMPR&6 X 7 1690 A Y93 X49 252 1740 17 12 CW CCOMPR&4 X 4 1697 ) X47 252 1741 17 13 MN CTAPEC&3,CHALT&6 X 7 1701 D X25 Y55 252 1742 17 14 MN CTAPEC&7,CHALT&6 X 7 1708 D X29 Y55 252 1743 17 15 MCW @9@,CERRCT#1 X 7 1715 M Y94 Y95 252 1744 17 16 CTAPEC RT 0,0 X 8 1722 M %U0 000 R 253 1745 17 17 BCE COMETS,CTAPEC&7,W X 8 1730 B X62 X29 W 253 1746 17 18 CEORC BEF 0 X 5 1738 B 000 K 253 1747 17 19 CCOMPR BCE CTAPEC,0,} X 8 1743 B X22 000 } GMARK 253 1748 17 20 B X 1 1751 B 253 1749 17 21 B X 1 1752 B 253 1750 17 22 B X 1 1753 B 253 1751 17 23 B X 1 1754 B 254 1752 17 24 B X 1 1755 B 254 1753 17 25 B X 1 1756 B 254 1754 17 26 B X 1 1757 B 254 1755 17 27 B X 1 1758 B 254 1756 17 28 B X 1 1759 B 254 1757 17 29 B X 1 1760 B 254 1758 17 30 B X 1 1761 B 255 1759 17 31 COMETS BER CRWRED X 5 1762 B X71 L 255 1760 17 32 CCONPR B 0 X 4 1767 B 000 255 1761 17 33 CRWRED S @1@,CERRCT X 7 1771 S Y96 Y95 255 1762 17 34 MN CTAPEC&3,*&4 X 7 1778 D X25 X88 255 1763 17 35 BSP 0 X 5 1785 U %U0 B 255 1764 17 36 BCE CTROW,CTAPEC&7,W X 8 1790 B Y10 X29 W 255 1765 17 37 BM CHALT,CERRCT X 8 1798 V Y49 Y95 K 256 1766 17 38 B CTAPEC X 4 1806 B X22 256 1767 17 39 CTROW A @1@,CERASC#2 X 7 1810 A Y96 Y98 256 1768 17 40 SKP 6 X 5 1817 U %U6 E 256 1769 17 41 BCE CCHALT,CERASC-1,5 X 8 1822 B Y34 Y97 5 256 1770 17 42 B CTAPEC-7 X 4 1830 B X15 256 1771 17 43 CCHALT S CERASC X 4 1834 S Y98 257 1772 17 44 H 0,202 X 7 1838 . 000 202 257 1773 17 45 B CTAPEC-7 X 4 1845 B X15 257 1774 17 46 CHALT H 0,200 X 7 1849 . 000 200 257 1775 17 47 BSS CTAPEC-7,E X 5 1856 B X15 E 257 1 1401 AUTOCODER - PASS 2 - MACRO-GENERATOR- VERSION 3 3726L PAGE 40 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1776 17 48 MCW CTAPEC&7,*&8 X 7 1861 M X29 Y75 257 1777 17 49 RT 0,0 X 8 1868 M %U0 000 R 258 1778 17 50 H 0,201 X 7 1876 . 000 201 258 1779 17 51 B CCONPR X 4 1883 B X67 258 1780 17 52 HEADR DCW @HEADR@ X 5 1891 258 1781 17 53 LTORG * X 1892 DCW @12@ X 2 1893 LIT 258 DCW @9@ X 1 1894 LIT 258 CERRCT DCW #01 X 1 1895 AREA 258 DCW @1@ X 1 1896 LIT 259 CERASC DCW #02 X 2 1898 AREA 259 1782 17 54 * 1783 17 55 * INITIALIZATION 1784 17 56 * 1785 17 57 ORG 1900 X 1900 1786 17 58 STARTX MCW 340,IOCSAV X 7 1900 M 340 H10 260 1787 17 59 MCW X 1 1907 M 260 1788 17 595 MCW NORDRL,HOLE#1 X 7 1908 M W12 !55 260 1789 17 60 B CTAPE X 4 1915 B W50 260 1790 17 61 NOP TDFSS X 4 1919 N Z68 260 1791 17 62 CW GM1 X 4 1923 ) W49 260 1792 17 63 SW 3998 X 4 1927 , I98 260 1793 17 64 MCW LIPUT&1,3998 X 7 1931 M 187 I98 261 1794 17 65 CW 3995,3997 X 7 1938 ) I95 I97 261 1795 17 66 BSS ALTERX,B X 5 1945 B Z77 B 261 1796 17 67 RWD 1 X 5 1950 U %U1 R 261 1797 17 675 MCW HOLE,CARDSX X 7 1955 M !55 189 261 1798 17 68 B STARTA X 4 1962 B 101 261 1799 17 69 TDFSS DCW &CCHALT X 3 1968 Y34 261 1800 17 70 DCW @L%U1001R@ X 8 1976 262 1801 17 71 ALTERX B CTAPEX X 4 1977 B W50 262 1802 17 72 NOP TDFSS X 4 1981 N Z68 262 1803 17 73 CW GM2XXX X 4 1985 ) '43 262 1804 17 74 RWD 1 X 5 1989 U %U1 R 262 1805 17 75 MCW IOCSAV,SYMNM X 7 1994 M H10 W01 262 1806 17 76 MCW &IOCALT,SWITCH&3 X 7 2001 M !58 L04 262 1807 17 77 SBR HAPPY&3,STRING X 7 2008 H N73 156 263 1808 17 78 MCW @N@,OUTSB X 7 2015 M !59 O41 263 1809 17 79 MCW @N@,BUT1X X 7 2022 M !59 O37 263 1810 17 80 MCW @N@,BUT2X X 7 2029 M !59 O89 263 1811 17 81 BCE VOICEB,IOCSAV-3,* X 8 2036 B 101 H07 * 263 1812 17 82 MCW @N@,SWMA2B X 7 2044 M !59 759 264 1813 17 83 B VOICEB X 4 2051 B 101 264 1814 17 84 LTORG * X 2055 HOLEX DCW #01 X 1 2055 AREA 264 DCW &IOCALT X 3 2058 106 ADCON 264 DCW @N@ X 1 2059 LIT 264 1815 17 85 ORG 1900 X 1900 1816 17 86 DA 1X174 X 1900 2073 1817 17 87 CALLT EQU * X 2073 1 1401 AUTOCODER - PASS 2 - MACRO-GENERATOR- VERSION 3 3726L PAGE 41 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1818 17 88 * 1819 17 89 * PROCESS MISSING PARAMETERS WITH REGARD TO ZONE 1820 17 90 * 1821 17 91 CHZON BWZ SLASH,MAINX&2&X1,S X 8 2074 V J08 0'3 S 265 1822 17 92 BWZ DELET,MAINX&2&X1,B X 8 2082 V D41 0'3 B 265 1823 17 93 MCW @B@,MAINX&85 X 7 2090 M H44 086 265 1824 17 94 ZONBR CW MAINX&X1,MAINX&3&X1 X 7 2097 ) 0'1 0'4 265 1825 17 95 ZONCH B DEFND X 4 2104 B ?41 265 1826 17 96 SLASH MCW BLANKS-2,MAINX&2&X1 X 7 2108 M W14 0'3 266 1827 17 97 B ZONBR X 4 2115 B !97 266 1828 17 98 SUBSET MCW @N@,SWITCH X 7 2119 M H45 L01 266 1829 17 99 MCW @B@,NEXTCD X 7 2126 M H44 N66 266 1830 18 00 MCW CHARCS,MAINX&74 X 7 2133 M U60 075 266 1831 18 01 B CALIT X 4 2140 B J58 266 1832 18 02 MASKS MCW @B@,NOCAL X 7 2144 M H44 K20 267 1833 18 03 * 1834 18 04 * PROCESSING CALL STATEMENT 1835 18 05 * 1836 18 06 CALLN MCW CHARCR,MAINX&74 X 7 2151 M U62 075 267 1837 18 07 CALIT MCW ADDCAL,INDEX2 BEGIN SCAN OF CALL TABLE X 7 2158 M W08 094 267 1838 18 08 SW MAINXX&20 X 4 2165 , 021 267 1839 18 09 YSCALX BCE XXXX,INDEX2-2,Y Q. CALL TABLE EXCEEDED X 8 2169 B K90 092 Y 267 1840 18 10 C 0&X2,@ @ X 7 2177 C 0!0 H48 268 1841 18 11 BE SPADEX X 5 2184 B K09 S 268 1842 18 12 C 0&X2,MAINX&22 X 7 2189 C 0!0 023 268 1843 18 13 SAR INDEX2 X 4 2196 Q 094 268 1844 18 14 BE QUEEN X 5 2200 B K16 S 268 1845 18 15 B YSCALX X 4 2205 B J69 268 1846 18 16 SPADEX MCW MAINX&22,0&X2 X 7 2209 M 023 0!0 268 1847 18 17 QUEEN CW MAINXX&20 X 4 2216 ) 021 269 1848 18 18 NOCALX NOP SKELCX X 4 2220 N R17 269 1849 18 19 B SBROT X 4 2224 B O33 269 1850 18 20 BCE SWITCH,MAINX&19,D Q. INCLD STATEMENT X 8 2228 B L01 020 D 269 1851 18 21 * 1852 18 22 * LOAD PARAMETES INTO TABLE 1853 18 23 * 1854 18 24 MCW MAINX&10,PARTB X 7 2236 M 011 466 269 1855 18 25 SBR INDEX3 X 4 2243 H 099 269 1856 18 26 S INDEX1&1 X 4 2247 S 090 269 1857 18 27 DIMNDX B SCANXX X 4 2251 B M19 270 1858 18 28 SW 1 X 4 2255 , 001 270 1859 18 29 LCA MAINX&18&X1,0&X3 X 7 2259 L 0/9 0?0 270 1860 18 30 SBR INDEX3 X 4 2266 H 099 270 1861 18 31 BCE HEARTX,MAINX&19&X1, X 8 2270 B L09 0S0 270 1862 18 32 BCE WEEDBX,MAINX&19&X1,, X 8 2278 B N39 0S0 , 270 1863 18 33 B DIMNDX X 4 2286 B K51 270 1864 18 34 XXXX MCW @7@,MAINX&85 X 7 2290 M H49 086 271 1865 18 35 WHYYY B SBROT X 4 2297 B O33 271 1866 18 36 SWITCH B READTA X 4 2301 B 467 271 1867 18 37 B POTS X 4 2305 B U15 271 1 1401 AUTOCODER - PASS 2 - MACRO-GENERATOR- VERSION 3 3726L PAGE 42 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1868 18 38 * 1869 18 39 * GENERATE BRANCH AND DCW,S 1870 18 40 * 1871 18 41 HEARTX LCA @ @,0&X3 X 7 2309 L H50 0?0 271 1872 18 42 CS LMAINX X 4 2316 / 086 271 1873 18 43 MCW PARTB,MAINX&10 X 7 2320 M 466 011 271 1874 18 44 MCW PARTB-6,MAINX&24 X 7 2327 M 460 025 272 1875 18 45 SAR INDEX3 X 4 2334 Q 099 272 1876 18 46 MCW @B@,MAINX&15 X 7 2338 M H44 016 272 1877 18 47 SLAM MCW CHARCC,MAINX&74 X 7 2345 M U61 075 272 1878 18 48 MCW INDEX3,SAVXL2#3 X 7 2352 M 099 H53 272 1879 18 49 MCW SAVXL2,INDEX3 X 7 2359 M H53 099 272 1880 18 50 CW MAINX&23 X 4 2366 ) 024 273 1881 18 51 B SBROT X 4 2370 B O33 273 1882 18 52 CS LMAINX X 4 2374 / 086 273 1883 18 53 BCE SWITCH,0&X3, X 8 2378 B L01 0?0 273 1884 18 54 MCW @DCW@,MAINX&17 X 7 2386 M H56 018 273 1885 18 55 MCW INDEX3,INDEX2 X 7 2393 M 099 094 273 1886 18 56 B SBGRDX X 4 2400 B G46 273 1887 18 57 MCW 0&X3,MAINX&20&X1 X 7 2404 M 0?0 0S1 274 1888 18 58 SAR INDEX3 X 4 2411 Q 099 274 1889 18 59 B SLAM X 4 2415 B L45 274 1890 18 60 * 1891 18 61 * SCAN FOR COMMA, TWO BLANKS, OR AN @ 1892 18 62 * 1893 18 63 SCANXX SBR CLUBS&3 X 4 2419 H N12 274 1894 18 64 SCANL SW MAINX&20 X 4 2423 , 021 274 1895 18 65 BCE SCNAT,MAINX&20&X1,@ X 8 2427 B N13 0S1 @ 274 1896 18 66 BCE CETWMS,MAINX&20&X1,, X 8 2435 B M98 0S1 , 274 1897 18 67 C MAINX&20&X1,@ @ X 7 2443 C 0S1 H58 275 1898 18 68 BE CLUBS X 5 2450 B N09 S 275 1899 18 69 CXIT1 A @1@,INDEX1 X 7 2455 A H59 089 275 1900 18 70 C INDEX1,@52@ X 7 2462 C 089 H61 275 1901 18 71 BU SCANL X 5 2469 B M23 / 275 1902 18 72 C MAINX&71,@ @ X 7 2474 C 072 H58 275 1903 18 73 BE CLUBS X 5 2481 B N09 S 276 1904 18 74 BCE CLUBS,MAINX&71, X 8 2486 B N09 072 276 1905 18 75 B CXIT X 4 2494 B N02 276 1906 18 76 CETWMS SW MAINX&21&X1 X 4 2498 , 0S2 276 1907 18 77 CXIT A @1@,INDEX1 X 7 2502 A H59 089 276 1908 18 78 CLUBS B 0 X 4 2509 B 000 276 1909 18 79 SCNAT ZA @510@,INDEX1&1 X 7 2513 ? H64 090 276 1910 18 80 ATLOK BCE CXIT1,MAINX&20&X1,@ X 8 2520 B M55 0S1 @ 277 1911 18 81 S &10,INDEX1&1 X 7 2528 S H66 090 277 1912 18 82 B ATLOK X 4 2535 B N20 277 1913 18 83 * 1914 18 84 * OBTAIN MORE PARAMETERS FROM ADDITIONAL RECORDS 1915 18 85 * 1916 18 86 WEEDBX SBR WEDXT&3 X 4 2539 H O21 277 1917 18 87 B NEWEED X 4 2543 B N54 277 1 1401 AUTOCODER - PASS 2 - MACRO-GENERATOR- VERSION 3 3726L PAGE 43 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1918 18 88 WEDDBX A @1@,INDEX1 X 7 2547 A H59 089 277 1919 18 89 NEWEED C INDEX1,@52@ X 7 2554 C 089 H61 278 1920 18 90 BU LOOPW X 5 2561 B O06 / 278 1921 18 91 NEXTCD NOP CALLCD X 4 2566 N G80 278 1922 18 92 HAPPY B TWEDBA READ NEXT RECORD X 4 2570 B 653 278 1923 18 93 NOP X 1 2574 N 278 1924 18 94 MCW CHARCR,MAINX&74 X 7 2575 M U62 075 278 1925 18 95 THRU B SBROTX X 4 2582 B O33 278 1926 18 96 BCE HAPPY,MAINX&5,* X 8 2586 B N70 006 * 279 1927 18 97 S INDEX1&1 X 4 2594 S 090 279 1928 18 98 BCE MOVEC,MAINX&20,, Q. FIRST PARAMETER MISSING X 8 2598 B V20 021 , 279 1929 18 99 LOOPW BCE WEDDBX,MAINX&20&X1, X 8 2606 B N47 0S1 279 1930 19 00 SW MAINX&20&X1 X 4 2614 , 0S1 279 1931 19 01 WEDXT B 0 X 4 2618 B 000 279 1932 19 02 TDF6 DCW &CCHALT X 3 2624 Y34 279 1933 19 03 DCW @M%U6I12W@ X 8 2632 280 1934 19 04 * 1935 19 05 * OUTPUT ROUTINE 1936 19 06 * 1937 19 07 SBROTX SBR BRNCH&3 X 4 2633 H O99 280 1938 19 08 BUT1X B HOMEX X 4 2637 B O48 280 1939 19 09 OUTSB MCW ANTPER,COMETS&3 X 7 2641 M 955 X65 280 1940 19 10 HOMEX MCW LMAIN,LOPUT X 7 2648 M 086 I97 280 1941 19 11 BCE BUT2X,OUTPT&73,* X 8 2655 B O89 I85 * 280 1942 19 12 MCW BLANKS-3,OUTPT&73 X 7 2663 M W13 I85 281 1943 19 13 SW LOPUT&1 X 4 2670 , I98 281 1944 19 14 MCW LIPUT&1,LOPUT&1 X 7 2674 M 187 I98 281 1945 19 15 B CTAPEX X 4 2681 B W50 281 1946 19 16 NOP TDF6 X 4 2685 N O24 281 1947 19 17 BUT2X MCW ACRWED,COMETS&3 X 7 2689 M 958 X65 281 1948 19 18 BRNCH B 0 X 4 2696 B 000 281 1949 19 19 * 1950 19 20 * PROCESS PARAMETERS FOR SUBSTITUTION 1951 19 21 * 1952 19 22 MSUBTX MCW @R@,MAINX&74 X 7 2700 M H67 075 282 1953 19 23 B SBROTX X 4 2707 B O33 282 1954 19 24 A @1@,SYMNM X 7 2711 A H59 W01 282 1955 19 25 SGC MCW MAINX&17,HLDSB X 7 2718 M 018 192 282 1956 19 26 S ENDDC X 4 2725 S V19 282 1957 19 27 CHAIN 8 X MACRO 1958 S X 1 2729 S GEN 282 1959 S X 1 2730 S GEN 282 1960 S X 1 2731 S GEN 283 1961 S X 1 2732 S GEN 283 1962 S X 1 2733 S GEN 283 1963 S X 1 2734 S GEN 283 1964 S X 1 2735 S GEN 283 1965 S X 1 2736 S GEN 283 1966 19 28 S INDEX2&2 X 4 2737 S 096 283 1967 19 29 A @3@,INDEX2&1 X 7 2741 A H68 095 284 1 1401 AUTOCODER - PASS 2 - MACRO-GENERATOR- VERSION 3 3726L PAGE 44 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 1968 19 30 MCW MAINX&10,PARTB X 7 2748 M 011 466 284 1969 19 31 SBR INDEX3 X 4 2755 H 099 284 1970 19 32 S INDEX1&1 X 4 2759 S 090 284 1971 19 33 BCE BTREND,MAINX&20, X 8 2763 B Q25 021 284 1972 19 34 BCE MOVEC,MAINX&20,, X 8 2771 B V20 021 , 284 1973 19 35 COMSN A @3@,INDEX2&1 X 7 2779 A H68 095 285 1974 19 36 BCE ABOVE,INDEX2&1,3 X 8 2786 B H33 095 3 285 1975 19 37 BELOW B SCANXX X 4 2794 B M19 285 1976 19 38 LCA MAINX&18&X1,0&X3 X 7 2798 L 0/9 0?0 285 1977 19 39 SBR INDEX3 X 4 2805 H 099 285 1978 19 40 BCE MOVEC,MAINX&20&X1,, X 8 2809 B V20 0S1 , 285 1979 19 41 BCE WEEDD,MAINX&19&X1,, X 8 2817 B V65 0S0 , 286 1980 19 42 BTREND LCA @,@,0&X3 X 7 2825 L H69 0?0 286 1981 19 43 CS LMAINX X 4 2832 / 086 286 1982 19 44 C PREVS#3,HLDSB X 7 2836 C H72 192 286 1983 19 45 MCW @999@,PREVS X 7 2843 M H75 H72 286 1984 19 46 BE HARMN X 5 2850 B R65 S 286 1985 19 47 BH RDTP1 X 5 2855 B Q65 U 287 1986 19 48 EOF1 RWD 1 X 5 2860 U %U1 R 287 1987 19 49 * 1988 19 50 * SUBSTITUTIONS 1989 19 51 * 1990 19 52 RDTP1 SW 100 X 4 2865 , 100 287 1991 19 53 B CTAPE X 4 2869 B W50 287 1992 19 54 NOP TDFLIB X 4 2873 N B18 287 1993 19 55 C MAINX&19,HEADR X 7 2877 C 020 Y91 287 1994 19 56 BU RDTP1 X 5 2884 B Q65 / 287 1995 19 57 C MAINX&7,@999@ X 7 2889 C 008 H75 288 1996 19 58 BE KINGS X 5 2896 B U63 S 288 1997 19 59 C MAINX&7,HLDSB X 7 2901 C 008 192 288 1998 19 60 BU RDTP1 X 5 2908 B Q65 / 288 1999 19 61 B HARMN X 4 2913 B R65 288 2000 19 62 SKELC MCW @N@,NOCAL X 7 2917 M H45 K20 288 2001 19 63 MCW CHARCS,MAINX&74 X 7 2924 M U60 075 289 2002 19 64 B SBROT X 4 2931 B O33 289 2003 19 65 BCE HARMN,MAINX&19,D X 8 2935 B R65 020 D 289 2004 19 66 MCW @B @,MAINX&19 X 7 2943 M H80 020 289 2005 19 67 BOUTS CW ZEROX X 4 2950 ) 188 289 2006 19 68 MCW CHARCC,MAINX&74 X 7 2954 M U61 075 289 2007 19 69 B SBROTX X 4 2961 B O33 290 2008 19 70 HARMN CS LMAINX X 4 2965 / 086 290 2009 19 71 SW 1,100 X 7 2969 , 001 100 290 2010 19 72 MCW LIPUT&1,100 X 7 2976 M 187 100 290 2011 19 73 B CTAPEX X 4 2983 B W50 290 2012 19 74 NOP TDFLB2 X 4 2987 N B29 290 2013 19 75 C MAINX&19,HEADR X 7 2991 C 020 Y91 290 2014 19 76 MCW MAINX&7,PREVS X 7 2998 M 008 H72 291 2015 19 77 BE SWITCH X 5 3005 B L01 S 291 2016 19 78 C MAINX&7,@)00@ X 7 3010 C 008 H83 291 2017 19 79 BU LZFND X 5 3017 B ?26 / 291 1 1401 AUTOCODER - PASS 2 - MACRO-GENERATOR- VERSION 3 3726L PAGE 45 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 2018 19 80 SW ZEROX X 4 3022 , 188 291 2019 19 81 * 2020 19 82 * RIGHT TO LEFT SCAN FOR LOZENGES 2021 19 83 * 2022 19 84 LZFND ZA @690@,INDEX1&1 X 7 3026 ? H86 090 291 2023 19 85 LOZSC BCE LZCNT,MAINX&X1,) X 8 3033 B B38 0'1 ) 292 2024 19 86 DEFND S &10,INDEX1&1 X 7 3041 S H66 090 292 2025 19 87 C INDEX1,@15@ X 7 3048 C 089 H88 292 2026 19 88 BU LOZSC X 5 3055 B ?33 / 292 2027 19 89 S INDEX1&1 X 4 3060 S 090 292 2028 19 90 CLEANC B SCANXX X 4 3064 B M19 292 2029 19 91 CW MAINX&20,MAINX&20&X1 X 7 3068 ) 021 0S1 293 2030 19 92 C INDEX1,@51@ X 7 3075 C 089 H90 293 2031 19 93 BL ENDCLN X 5 3082 B A26 T 293 2032 19 94 C MAINX&20&X1,@ @ X 7 3087 C 0S1 H58 293 2033 19 95 BU CLEANC X 5 3094 B ?64 / 293 2034 19 96 BCE ENDCLN,MAINX&5,* X 8 3099 B A26 006 * 293 2035 19 97 SW MAINX&20&X1 X 4 3107 , 0S1 294 2036 19 98 MCW BLANKS-4,MAINXX&71 X 7 3111 M W12 072 294 2037 19 99 MCW MAINXX&71 X 4 3118 M 072 294 2038 20 00 CW MAINXX&20&X1 X 4 3122 ) 0S1 294 2039 20 01 * 2040 20 02 * RIGHT TO LEFT SCAN FOR LOZENGES 6 - 20 2041 20 03 * 2042 20 04 ENDCLN MCW @015@,INDEX1 X 7 3126 M H93 089 294 2043 20 05 SBR ZONCH&3,UPENGL X 7 3133 H J07 A48 294 2044 20 06 ENGLOZ BCE LOZENG,MAINX&X1,) X 8 3140 B '57 0'1 ) 295 2045 20 07 UPENGL S &10,INDEX1&1 X 7 3148 S H66 090 295 2046 20 08 C INDEX1,@04@ X 7 3155 C 089 H95 295 2047 20 09 BU ENGLOZ X 5 3162 B A40 / 295 2048 20 10 OUTSD SBR ZONCH&3,DEFND X 7 3167 H J07 ?41 295 2049 20 11 SHIFTL NOP PARTB,MAINX&10 X 7 3174 N 466 011 296 2050 20 12 MCW @N@,SHIFTL X 7 3181 M H45 A74 296 2051 20 13 C MAINX&18,WHOOPS X 7 3188 C 019 W05 296 2052 20 14 BE MASKS X 5 3195 B J44 S 296 2053 20 15 C MAINX&19,INCLD X 7 3200 C 020 U59 296 2054 20 16 BE MASKS X 5 3207 B J44 S 296 2055 20 17 B BOUTS X 4 3212 B R50 297 2056 20 18 TDFLIB DCW &KINGS X 3 3218 U63 297 2057 20 19 DCW @M%U1001R@ X 8 3226 297 2058 20 20 TDFLB2 DCW &EOF1B X 3 3229 '44 297 2059 20 21 DCW @M%U1001R@ X 8 3237 297 2060 20 22 * 2061 20 23 * PROCESS LOZENGED FIELDS 21 - 72 2062 20 24 * 2063 20 25 LZCNT BCE DEFND,MAINX&1&X1, X 8 3238 B ?41 0'2 297 2064 20 26 SW MAINX&X1,MAINX&3&X1 X 7 3246 , 0'1 0'4 298 2065 20 27 BM SYSTM,MAINX&2&X1 X 8 3253 V C56 0'3 K 298 2066 20 28 B LABEL X 4 3261 B /19 298 2067 20 29 MCW INDEX3,SAVX3#3 X 7 3265 M 099 H98 298 1 1401 AUTOCODER - PASS 2 - MACRO-GENERATOR- VERSION 3 3726L PAGE 46 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 2068 20 30 S INDEX3,WAREA X 7 3272 S 099 W22 298 2069 20 31 MZ BLANKS,WAREA X 7 3279 Y W16 W22 299 2070 20 32 MCW @I99@,INDEX3 X 7 3286 M I01 099 299 2071 20 33 S WAREA,INDEX3 X 7 3293 S W22 099 299 2072 20 34 MCW @I@,INDEX3-2 X 7 3300 M I02 097 299 2073 20 35 C INDEX3,@I9F@ X 7 3307 C 099 I05 299 2074 20 36 BL SPTYP X 5 3314 B C78 T 300 2075 20 37 MCW MAINX&76&X3,MAINX&72 X 7 3319 M 0G7 073 300 2076 20 38 SBR MOVE3&6 X 4 3326 H C47 300 2077 20 39 LMN CW MAINX&3&X1 X 4 3330 ) 0'4 300 2078 20 40 MCW SAVX3,INDEX3 X 7 3334 M H98 099 300 2079 20 41 MOVE3 MCW 0&X3,0 X 7 3341 M 0?0 000 300 2080 20 42 CW MAINX&X1 X 4 3348 ) 0'1 300 2081 20 43 B DEFND X 4 3352 B ?41 301 2082 20 44 SYSTM MCW MAINX&68,MAINX&71 X 7 3356 M 069 072 301 2083 20 45 MCW SYMNM X 4 3363 M W01 301 2084 20 46 CW MAINX&X1,MAINX&3&X1 X 7 3367 ) 0'1 0'4 301 2085 20 47 B DEFND X 4 3374 B ?41 301 2086 20 48 * 2087 20 49 * SPECIALIZED PROCESSING OF ONE AND TWO CHARACTER OPERANDS 2088 20 50 * 2089 20 51 SPTYP LCA MAINX&72,OUTPT&72 X 7 3378 L 073 I84 301 2090 20 52 CW MAINX&X1,MAINX&3&X1 X 7 3385 ) 0'1 0'4 302 2091 20 53 MCW BLANKS-2,MAINX&71 X 7 3392 M W14 072 302 2092 20 54 BCE HOUSE,INDEX3,H X 8 3399 B D22 099 H 302 2093 20 55 MCW OUTPT&72,MAINX&71 X 7 3407 M I84 072 302 2094 20 56 SBR MOVE3&6 X 4 3414 H C47 302 2095 20 57 B SPOUT X 4 3418 B D33 302 2096 20 58 HOUSE MCW OUTPT&72,MAINX&70 X 7 3422 M I84 071 303 2097 20 59 SBR MOVE3&6 X 4 3429 H C47 303 2098 20 60 SPOUT CW OUTPT&3&X1 X 4 3433 ) I/5 303 2099 20 61 B LMN X 4 3437 B C30 303 2100 20 62 DELET BW LBLMV,ZEROX X 8 3441 V D53 188 1 303 2101 20 63 B HARMN X 4 3449 B R65 303 2102 20 64 LBLMV MCW @M@,SHIFTL X 7 3453 M I06 A74 303 2103 20 65 CW ZEROX X 4 3460 ) 188 304 2104 20 66 B HARMN X 4 3464 B R65 304 2105 20 67 MLBLZ MCW SYMNM,MAINX&10 X 7 3468 M W01 011 304 2106 20 68 B OUTSD X 4 3475 B A67 304 2107 20 69 * 2108 20 70 * PULL IN CALLED ROUTINES AT LTORG, END OR EXECUTE CARDS 2109 20 71 * 2110 20 72 EXITC SBR CEXIT1&3 X 4 3479 H G45 304 2111 20 73 RWDEXT RWD 1 X 5 3483 U %U1 R 304 2112 20 74 CWPRC CW NEWEST X 4 3488 ) V98 304 2113 20 75 TPRD1 SW 100 X 4 3492 , 100 305 2114 20 76 MCW LIPUT&1,100 X 7 3496 M 187 100 305 2115 20 77 B CTAPEX X 4 3503 B W50 305 2116 20 78 NOP TDFEXT X 4 3507 N T44 305 2117 20 79 C MAINX&19,HEADR X 7 3511 C 020 Y91 305 1 1401 AUTOCODER - PASS 2 - MACRO-GENERATOR- VERSION 3 3726L PAGE 47 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 2118 20 80 BU TPRD1 X 5 3518 B D92 / 305 2119 20 81 SOLUT C MAINX&7,@999@ X 7 3523 C 008 H75 305 2120 20 82 BE EOF1A X 5 3530 B F56 S 306 2121 20 83 OPPENT MCW ADDCAL,INDEX1 X 7 3535 M W08 089 306 2122 20 84 PRTNER BCE TPRD1,INDEX1-2,Y X 8 3542 B D92 087 Y 306 2123 20 85 SW MAINX&5 X 4 3550 , 006 306 2124 20 86 C 0&X1,MAINX&7 X 7 3554 C 0'0 008 306 2125 20 87 SAR INDEX1 X 4 3561 Q 089 306 2126 20 88 BU PRTNER X 5 3565 B E42 / 307 2127 20 89 BW TPRD1,1&X1 X 8 3570 V D92 0'1 1 307 2128 20 90 CW MAINX&5 X 4 3578 ) 006 307 2129 20 91 SW 1&X1 X 4 3582 , 0'1 307 2130 20 92 SW NEWEST X 4 3586 , V98 307 2131 20 93 COOKER B CTAPEX X 4 3590 B W50 307 2132 20 94 NOP TDFEXT X 4 3594 N T44 307 2133 20 95 C MAINX&18,WHOOPS X 7 3598 C 019 W05 308 2134 20 96 BE SUBSET X 5 3605 B J19 S 308 2135 20 97 C MAINX&19,INCLD X 7 3610 C 020 U59 308 2136 20 98 BE SUBSET X 5 3617 B J19 S 308 2137 20 99 C MAINX&19,HEADR X 7 3622 C 020 Y91 308 2138 21 00 BE SOLUT X 5 3629 B E23 S 308 2139 21 01 MCW CHARCC,MAINX&74 X 7 3634 M U61 075 309 2140 21 02 LCA LOPUT&1,100 X 7 3641 L I98 100 309 2141 21 03 B SBROT X 4 3648 B O33 309 2142 21 04 B COOKER X 4 3652 B E90 309 2143 21 05 EOF1A MCW ADDCAL,INDEX1 X 7 3656 M W08 089 309 2144 21 06 COMBL BCE CEXIT,INDEX1-2,Y X 8 3663 B G26 087 Y 309 2145 21 07 C 0&X1,@ @ X 7 3671 C 0'0 H48 310 2146 21 08 SAR INDEX1 X 4 3678 Q 089 310 2147 21 09 BE CEXIT X 5 3682 B G26 S 310 2148 21 10 BW COMBL,1&X1 X 8 3687 V F63 0'1 1 310 2149 21 11 BW RWDEXT,NEWEST X 8 3695 V D83 V98 1 310 2150 21 12 * 2151 21 13 * CREATE COMMENTS CARD FOR UNKNOWN SUBROUTINES 2152 21 14 * 2153 21 15 UNKNWN B NOROT X 4 3703 B T75 310 2154 21 16 SW 1&X1 X 4 3707 , 0'1 311 2155 21 17 MCW 3&X1,MAINX&10 X 7 3711 M 0'3 011 311 2156 21 18 B SBROT X 4 3718 B O33 311 2157 21 19 B COMBL X 4 3722 B F63 311 2158 21 20 CEXIT CS CALLT X 4 3726 / !73 311 2159 21 21 CS X 1 3730 / 311 2160 21 22 CW 100 X 4 3731 ) 100 311 2161 21 23 MCW @999@,PREVS X 7 3735 M H75 H72 312 2162 21 24 CEXIT1 B 0 X 4 3742 B 000 312 2163 21 25 SBGRD SBR GRAND&3 X 4 3746 H G57 312 2164 21 26 S INDEX1&1 X 4 3750 S 090 312 2165 21 27 GRAND BW 0,0&X2 X 8 3754 V 000 0!0 1 312 2166 21 28 S @10@,INDEX2&1 X 7 3762 S I08 095 312 2167 21 29 A @1@,INDEX1 X 7 3769 A H59 089 313 1 1401 AUTOCODER - PASS 2 - MACRO-GENERATOR- VERSION 3 3726L PAGE 48 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 2168 21 30 B GRAND X 4 3776 B G54 313 2169 21 31 CALLCD CS LMAINX X 4 3780 / 086 313 2170 21 32 B CTAPE X 4 3784 B W50 313 2171 21 33 NOP TDFEXT X 4 3788 N T44 313 2172 21 34 MCW CHARCS,MAINX&74 X 7 3792 M U60 075 313 2173 21 35 SW 1 X 4 3799 , 001 313 2174 21 36 B THRU X 4 3803 B N82 314 2175 21 37 IOCSAV DCW #4 X 4 3810 314 2176 21 38 CHAINX MCW @R@,MAINX&74 X 7 3811 M H67 075 314 2177 21 39 B WHYYY X 4 3818 B K97 314 2178 21 40 MIDLE MCW INDEX3,DECTB&X2 X 7 3822 M 099 UR2 314 2179 21 41 B LOWER X 4 3829 B V46 314 2180 21 42 ABOVE MCW INDEX3,DECTB&X2 X 7 3833 M 099 UR2 314 2181 21 43 B BELOW X 4 3840 B P94 315 2182 21 44 LTORG * X 3844 DCW @B@ X 1 3844 LIT 315 DCW @N@ X 1 3845 LIT 315 DCW @ @ X 3 3848 LIT 315 DCW @7@ X 1 3849 LIT 315 DCW @ @ X 1 3850 LIT 315 SAVXL2 DCW #03 X 3 3853 AREA 315 DCW @DCW@ X 3 3856 LIT 316 DCW @ @ X 2 3858 LIT 316 DCW @1@ X 1 3859 LIT 316 DCW @52@ X 2 3861 LIT 316 DCW @510@ X 3 3864 LIT 316 DCW &10 X 2 3866 LIT 316 DCW @R@ X 1 3867 LIT 316 DCW @3@ X 1 3868 LIT 317 DCW @,@ X 1 3869 LIT 317 PREVSX DCW #03 X 3 3872 AREA 317 DCW @999@ X 3 3875 LIT 317 DCW @B @ X 5 3880 LIT 317 DCW @)00@ X 3 3883 LIT 317 DCW @690@ X 3 3886 LIT 317 DCW @15@ X 2 3888 LIT 318 DCW @51@ X 2 3890 LIT 318 DCW @015@ X 3 3893 LIT 318 DCW @04@ X 2 3895 LIT 318 SAVX3X DCW #03 X 3 3898 AREA 318 DCW @I99@ X 3 3901 LIT 318 DCW @I@ X 1 3902 LIT 318 DCW @I9F@ X 3 3905 LIT 319 DCW @M@ X 1 3906 LIT 319 DCW @10@ X 2 3908 LIT 319 2183 21 45 * 2184 21 46 * OUTPUT AREA 2185 21 47 * 2186 21 48 ORG 3912 X 3912 2187 21 49 OUTPT DA 1X86,G X 3912 3997 1 1401 AUTOCODER - PASS 2 - MACRO-GENERATOR- VERSION 3 3726L PAGE 49 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 2187 DCW @"@ X 1 3998 GMARK 320 2188 21 50 LOPUT EQU *-1 X 3997 2189 21 51 EX X B 000 321 2190 21 52 END START X / Z00 080 1 1401 AUTOCODER - PASS 2 - MACRO-GENERATOR- VERSION 3 3726L PAGE 50 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS ABOVEX 3833 ACRWED 958 ACTOUT 1143 ACTSCN 1113 ACTUAL 2089 ADDCAL 1608 AGREEI 1935 ALDIOI 3203 ALDTFI 3308 ALLDIO 2347 ALPHAI 2430 ALTBYI 1497 ALTERI 2763 ALTERX 1977 ALTIOI 2883 ALTR3B 631 ALTR4B 576 ALTR5B 651 ALTR6B 662 ALTS1I 2847 ALTS2E 2860 ALTS2I 2867 ALTS3I 3062 ALTS4E 3075 ALTS4I 3082 ALTSAB 486 ANTPER 955 ANTSTA 803 AREASV 331 ATLOKX 2520 B 86 BALTRI 3903 BELOWX 2794 BETTER 2376 BLANKA 999 BLANKS 1616 BLKFDI 1097 BLORBI 1572 BLOWAI 1602 BLUEI 627 BOUTSX 2950 BRNCHX 2696 BRTBLI 886 BSPT4I 2904 BTREND 2825 BUT1XX 2637 BUT2XX 2689 BYPASX 522 BYPSSI 3349 BYPSXI 3377 CALITX 2158 CALLCD 3780 CALLNX 2151 CALLTX 2073 CALTRB 602 CARDSB 525 CARDSX 189 CBSP1X 604 CBSP2X 543 CBSP3X 574 CCHALT 1834 CCOMPR 1743 CCONPR 1767 CEORCX 1738 CERASC 1898 CERRCT 1895 CETWMS 2498 CEXIT1 3742 CEXITX 3726 CHAINX 3811 CHAIRI 2663 CHALTX 1849 CHANGE 708 CHARCC 1461 CHARCR 1462 CHARCS 1460 CHARTA 665 CHECKI 3005 CHEXZI 3487 CHTAPI 1187 CHUCKI 231 CHZONX 2074 CIRCLX 1144 CLEANC 3064 CLUBSI 2610 CLUBSX 2509 CMALTB 510 CMCTLI 157 CNTPX 1619 COMBLK 2312 COMBLX 3663 COMEQI 984 COMETS 1762 COMIOC 831 COMPRI 851 COMSNX 2779 CONTIN 2301 COOKER 3590 COUTBI 3708 CRDCLI 138 CRDOUT 2168 CRWRED 1771 CTAPEC 1722 CTAPEI 1222 CTAPEX 1650 CTROWX 1810 CWPRCX 3488 CXIT1X 2455 CXITX 2502 DBLALI 3013 DBLCKI 3272 DECTBX 1492 DEFNDX 3041 DELETX 3441 DELTAI 2410 DIFREC 2406 DIMNDX 2251 DIOCSB 576 DIOSBI 1147 DIVIDE 568 DRITBI 3682 DTFBRI 1727 DTFGMI 568 DTFINT 1650 DTFLAB 3803 DTFNDI 713 DTFNMI 2391 DTFOUT 2446 DTFTAB 349 EITHER 333 ENDCLN 3126 ENDDCX 1519 ENDDIO 622 ENDDTF 567 ENDSTB 1002 ENDSTX 1478 ENGLOZ 3140 ENTSTA 795 ENTSTB 879 EOF1AX 3656 EOF1BX 1044 EOF1X 2860 EOF4A 934 EXIRBI 2031 EXISBI 992 EXITBI 3669 EXITCX 3479 EXSETA 857 EXSETB 474 FDBLKI 1090 FEATBI 3552 FEWA 605 FILENM 349 FILXZI 3423 FINAL2 3261 FINALI 3252 FINDI 642 FOUNDI 1105 GAMMAI 685 GM1X 1649 GM2XXX 1043 GMOVL2 332 GMOVL4 606 GMWMRK 773 GOODI 2197 GOTITI 670 GRANDX 3754 HALTI 1921 HAPPYX 2570 HARMNX 2965 HAULIT 1264 HEADRX 1891 HEARBI 2537 HEARTX 2309 HLDA1B 1022 HLDA1I 3902 HLDBI 3907 HLDSBX 192 HOLEX 2055 HOMALI 2812 HOMEXX 2648 HOOHAA 745 HOUSEX 3422 ICHALT 1407 ICOMPR 1315 ICONPR 1340 IEORCI 1310 IERASC 1643 IERRCT 1641 IHALTI 1422 INCLDX 1459 INDEX1 89 INDEX2 94 INDEX3 99 INDRBI 2071 IOARBI 1947 IOCALT 106 IOCEOF 141 IOCSAV 3810 IODTBI 3577 IOMETS 1335 IRWRED 1344 ITAPEC 1294 ITROWI 1383 KDIOCS 1571 KINGSX 1463 LABDIO 580 LABDTF 350 LABELX 1119 LABTBI 3620 LBLMVX 3453 LBLTBL 3846 LEAVEI 167 LENGTH 743 LETBEI 171 LEXITX 1260 LIPUTX 186 LITORG 1358 LMAINX 86 LMNX 3330 LODPAR 2219 LONGI 2157 LOOPWX 2606 LOPUTI 3998 LOPUTX 3997 LORGSA 918 LORGSB 494 LOWERX 1546 LOZENG 1057 LOZSCX 3033 LSTCDB 686 LSTPAR 2675 LUNETI 3334 LZCNTX 3238 LZFNDX 3026 MACROB 931 MAINXI 1 MAINXX 1 MANYA 633 MASETX 1433 MASKSX 2144 MCOUTB 958 MIDLEX 3822 MINUS2 2 MINUS3 3 MLBLZX 3468 MODXZI 3430 MOVE3X 3341 MOVECX 1520 MOVINP 1199 MSUBTX 2700 NEWEED 2554 NEWEST 1598 NEWSCN 1006 NEWWRT 2135 NEXREC 681 NEXTCD 2566 NOALTB 2820 NOCALX 2220 NOPCLI 183 NOPJBI 205 NORDRL 1612 NOROTX 1375 NOSIRA 914 NOSOLI 131 NOTERI 220 NPCLXI 201 NPJBXI 216 NROTCX 1411 NTPERA 881 NUMERC 1541 NUORIG 1044 NWEXTI 1101 NWSCNL 1021 OKAYB 467 OPDARI 1626 OPDFND 2687 OPDRTN 2625 OPDSCN 2614 OPPENT 3535 ORDNI 3185 OTHERI 101 OUTCLI 119 OUTIOC 859 OUTMCB 943 OUTPTI 3912 OUTPTX 3912 OUTS2A 758 OUTSBX 2641 OUTSDX 3167 OVEJKI 2020 OVERBI 2006 OVERI 1649 OVEXZI 3513 OVLAY2 2732 OVLY3I 341 OVLY4I 434 PACKSI 3001 PACKXI 2943 PARKSI 2993 PARTBX 466 PASS2I 1506 PASSII 1460 POTSX 1415 PREEMB 506 PREPS2 662 PREVSX 3872 PROPRE 2840 PRTNER 3542 PUNCHI 101 PUTINX 1244 QUEENX 2216 RDT4AI 3241 RDTP1X 2865 READSI 3910 READTA 467 REASBI 1173 REATBI 3727 RECXZI 3455 REDA 132 REDEXT 806 REDREC 774 REGENI 3144 REGLI 2927 REWXZI 3500 RHOA 763 RIVERI 2494 RNDTFI 2516 ROBINI 623 RSOLVI 175 RTWEDA 677 RTWEDI 798 RWDEXT 3483 RWDTBI 3695 SAVCDI 2698 SAVX1X 1611 SAVX2I 3889 SAVX3X 3898 SAVXL1 3865 SAVXL2 3853 SAVXTI 3330 SAVXXI 3319 SBGRDX 3746 SBROTX 2633 SCANLI 2559 SCANLX 2423 SCANXI 2555 SCANXX 2419 SCNATX 2513 SCNSWI 1618 SEARCH 2108 SEEKI 1692 SEEKOP 2636 SETDSW 2505 SETITI 2602 SETWMS 2606 SGCX 2718 SHIFTL 3174 SHORTI 750 SIMPLE 1338 SKELCX 2917 SLAMX 2345 SLASHX 2108 SOFTI 3268 SOLUTX 3523 SOLVED 2872 SPADEX 2209 SPCASI 3174 SPECLI 337 SPOUTX 3433 SPTYPX 3378 STARTA 101 STARTI 101 STARTX 1900 STENDX 450 STRING 156 SUBSET 2119 SUREXX 1308 SVCDXI 2717 SWITCH 2301 SWMA1A 526 SWMA1B 752 SWMA2A 533 SWMA2B 759 SYMNMI 340 SYMNMX 1601 SYSTMX 3356 TABLEI 1374 TAPTBI 3533 TDF1I 2723 TDF4A 699 TDF4AI 3135 TDF4I 812 TDF5X 1589 TDF6I 764 TDF6X 2624 TDF9I 412 TDFEOJ 594 TDFEXT 1344 TDFIO5 132 TDFLB2 3229 TDFLIB 3218 TDFRAL 922 TDFSSX 1968 TDFSYS 423 TENSRX 1170 THRUI 634 THRUX 2582 TOTJKI 1995 TOTRBI 1981 TOTXZI 3520 TPRD1X 3492 TREADA 471 TREADB 697 TRPCKI 3284 TSTENA 775 TUFFI 3103 TUNELI 2888 TWDB1A 693 TWEDBA 653 TYPXZI 3474 UNKNWN 3703 UPENGL 3148 UPPERI 821 VOICEB 101 WALKI 2896 WAREAX 1622 WEDDBX 2547 WEDXTX 2618 WEEDBX 2539 WEEDDX 1565 WHOMI 677 WHOOPS 1605 WHYYYX 2297 WKAREA 2390 WRTALI 3037 WRTEXT 758 WRTREC 721 XCARDS 3909 XXXXX 2290 YESIRA 896 YOURSB 541 YSCALX 2169 ZEROXX 188 ZONBRX 2097 ZONCHX 2104 ***** ** 3 Errors ERROR ----------------------------- source code ------------------------------- 101 001 job 1401 autocoder-pass 2-process iocs-main 2 -version 3 3722l 102 ctl 630 1 103 sfx i 104 other equ start 105 minus2 equ 2 106 minus3 equ 3 107 diocsb equ labdio-4 108 org 1 109 mainx da 1x86 110 lmainx equ * 111 * xinit index1,index2,index3 01 index1 equ 089 02 089 dcw 000 04 091 dc 00 05 index2 equ 094 06 094 dcw 000 08 096 dc 00 09 index3 equ 099 10 099 dcw 000 12 100 dc 0 112 * 113 * start of main line 114 * 115 org 101 116 start rwd 4 117 rwd 5 118 rwd 6 119 bss ovlay2,b 120 b redrec 121 c mainx&17, @job@ 122 bu cmctl 123 cc 1 124 mcw 80,280 125 w 126 n1 cc 1 in rev 0. 127 b wrtrec 128 b redrec 129 cmctl c mainx&17, @ctl@ 130 bu find 131 bce robin,mainx&23,1 132 mn mainx&21,*&8 133 bce robin,@456@, 134 chain2 135 b blue 136 org 201 137 da 1x132 138 6,6 139 dtftab equ labdtf-1 140 org 333 141 either b nexrec 142 * 143 * control card information 144 * 145 specl dcw @*@ 146 symnm dcw #3 147 * 148 * dtf major table 149 * 150 dcw @,@ 151 dcw @;@ cobol yes 152 dcw @;@ exits yes 153 filenm dcw #6 154 labdtf dcw @;@ 1 input 1 filetype 155 dcw @;@ 2 output 2 156 dcw @;@ 3 tape 3 157 dcw @;@ 4 reader 4 158 dcw @;@ 5 punch 5 159 dcw @;@ 6 printer 6 160 dcw @;@ 7 load 7 modepar 161 dcw @;@ 8 checkpoint 8 features 162 dcw @;@ 9 number 9 chandrive 163 dcw @;@ 10 number 10 cardpoc 164 dcw @;@ 11 number 11 alttape 165 dcw @;@ 12 blocked 12 recform 166 dcw @;@ 13 unblocked 13 167 dcw @;@ 14 mixed 14 168 dcw @;@ 15 variable 15 169 dcw @ ;@ 16-19 number 16 sizerec 170 dcw @;@ 20 number 17 padding 171 dcw @ ;@ 21-24 number 18 blocksize 172 dcw @ ;@ 25-34 labels 19 ioareas 173 dcw @ ;@ 35-44 20 174 dcw @ ;@ 45-54 21 workarea 175 dcw @;@ 55 number 22 indexreg 176 dcw @ ;@ 56-65 label 23 eoraddr 177 dcw @ ;@ 66-75 label 24 wlraddr 178 dcw @;@ 76 record 25 totals 179 dcw @ ;@ 77-80 hash 26 180 dcw @;@ 81 standard 27 181 dcw @;@ 82 nonstandard 28 182 dcw @;@ 83 tm 29 183 dcw @;@ 84 all 30 184 dcw @;@ 85 ident 31 185 dcw @ ;@ 186 dcw @ ;@ 187 dcw @ ;@ 188 dcw @ ;@ 104-108 number 35 serialnum 189 dcw @ ;@ 109-118 39 ex1addr 190 dcw @ ;@ 119-128 40 ex2addr 191 dcw @ ;@ 129-138 41 ex3addr 192 dcw @ ;@ 139-148 42 ex4addr 193 dcw @ ;@ 149-158 43 ex5addr 194 dcw @ ;@ 159-168 44 ex6addr 195 dcw @ ;@ 169-178 45 ex7addr 196 dcw @ ;@ 179-188 46 ex8addr 197 dcw @ ;@ 189-198 47 varbuild 198 dcw @;@ 199 unload 37 199 dcw @;@ 100 norewd 38 200 dcw @;@ 9 201 overflow 201 dcw @;@ 12 202 202 dcw @ ;@ 203-205 number reelseqp 203 dcw @;@ 206 formcntl 204 dcw #9 205 dcw @;@ 216 address overflow 206 dcw @ @ 207 enddtf dcw @ @ 208 * 209 * diocs major table 210 * 211 dcw @,@ 212 divide equ * 213 dcw @;@ 40 par out tapeuse 214 dcw @;@ 39 par inp tapeuse 215 dcw @;@ 38 par yes exits 216 labdio dcw #9 diocsorg 217 dcw @;@ 5 218 dcw @;@ 6 overlap features 219 dcw @;@ 7 tape iodevices 220 dcw @;@ 8 reader 221 dcw @;@ 9 punch 222 dcw @;@ 10 printer 223 dcw @;@ 11 standard labeldef 224 dcw @;@ 12 nonstandard 225 dcw @;@ 13 mixed 226 dcw @;@ 14 check 227 dcw @;@ 15 ident 228 dcw @;@ 16 tm 229 dcw @;@ 17 yes altdrive 230 dcw @;@ 18 1 exits 231 dcw @;@ 19 2 232 dcw @;@ 20 3 233 dcw @;@ 21 4 234 dcw @;@ 22 5 235 dcw @;@ 23 6 236 dcw @;@ 24 7 237 dcw @;@ 25 8 238 dcw @;@ rdlin labeldef 239 dcw @;@ 27 729 drivetype 240 dcw @;@ 28 7330 241 dcw @;@ 29 norwd rwdoption 242 dcw @;@ 30 unload 243 dcw @;@ 31 tape,# readerror 244 dcw @;@ 32 scan 245 dcw @;@ 33 process 246 dcw @;@ clean readerror 247 dcw @;@ 35 yes inpvar 248 dcw @;@ 36 yes inpfxno 249 dcw @;@ 37 record counts 250 dcw @;@ 38 hash 251 dcw #5 252 dcw @;@ 39-44 checkpoint 253 dcw @;@ 45 release features 254 enddio dcw @;@ 46 storage 255 * 256 * 257 robin s specl 2575blue mcw mainx&25,nordrl#1 258 thru b wrtrec 259 b redrec 260 find c mainx&19,kdiocs 261 be gotit 262 * 263 * 264 * read in phase 2 265 * 266 * 267 bce thru,mainx&5,* 268 preps2 b savcd 269 b pass2 270 gotit mcw @m@,length 272 whom b wrtrec 273 nexrec b redrec 274 gamma bce whom,mainx&5,* 275 c mainx&17,@dtf@ 276 be dtfnd 277 b wrtrec 278 b upper 279 dtfnd b savcd 280 b crdout 281 * 282 * write routine 283 * 284 wrtrec sbr wrtext&3 285 mcw lmainx,loput-1 286 sw loput 287 mcw gmwmrk,loput 288 length nop @w@,outpt&74 289 short b ctape 290 nop tdf6 291 wrtext b 0 292 tdf6 dcw 000 293 wt 6,outpt 294 gmwmrk dc @}@ 295 * 296 * read routine 297 * 298 redrec sbr redext&3 299 cs lmainx 300 bss rtwed,c 301 blc dtfout 302 r 303 ssb redext,1 304 rtwed b ctape 305 nop tdf4 306 redext b 0 307 tdf4 dcw &dtfout 308 rt 4,mainx 309 * 310 * look up label 311 * 312 upper cw scnsw#1 313 bce nexrec,mainx&20, 314 sbr chair&3,lstpar 315 s index2&1 316 sbr index3,lbltbl 317 compr c mainx&7,0&x3 318 sbr index3 319 be comeq 320 bce nexrec,0&x3,@ 321 a @7@,index2 322 b compr 323 brtbl b actscn 324 dcw &diocsb&36 inpfxno 325 b reasb 326 dcw #3 readerror 327 b opdscn 328 dcw &rwdtb rwdopt 329 b opdscn 330 dcw &dritb drivetype 331 b opdscn 332 dcw &coutb counts 333 b actscn 334 dcw &diocsb&35 varinp 335 b exisb 336 dcw #3 337 b actscn 338 dcw &diocsb&17 altdrive 339 b opdscn 340 dcw &labtb labeldef 341 b opdscn 342 dcw &iodtb iodevices 343 b opdscn 344 dcw &featb features 345 b diosb diocsorg 346 dcw &diocsb&5 347 b diosb 348 dcw &diocsb&44 349 b opdscn 350 dcw &taptb 351 comeq s index3&1 352 b brtbl&x2 353 * 354 exisb lca @$@,divide&3 355 b opdscn 356 dcw &exitb exits 357 * 358 newscn sbr nwext&3 359 mcw @ @,opdar#3 360 s index2&1 361 nwscnl c mainx&21&x3,@ @ 362 sw mainx&20 363 be fdblk 364 bce found,mainx&20&x3,, 365 c index3,@52@ 366 be blkfd 367 mcw mainx&20&x3,opdar-2&x2 368 a @1@,index2 369 bce found,index2,3 370 a @1@,index3 371 b nwscnl 372 fdblk a @1@,index3 373 blkfd sw scnsw 374 nwext b 0 375 found b scanx 376 b nwext 377 * 378 * actual scan for yes 379 * 380 actscn sbr index1 381 mcw 2&x1,index1 382 c mainx&22,@yes@ 383 bu actout 384 lca @$@,0&x1 385 actout b either 386 * 387 * diocsorg 388 * 389 diosb sbr index1 390 mcw 2&x1,index1 391 b scanx 392 lca mainx&18&x3,0&x1 393 b nexrec 394 * 395 * readerror 396 * 397 reasb sbr chair&3,chtap 398 b opdscn 399 dcw &reatb 400 chtap c opdar,@tap@ 401 bu lstpar 402 b scanx 403 bce lstpar,mainx&18&x3, 404 mcw mainx&18&x3,diocsb&31 405 b lstpar 406 * 407 * combination read/ write routine 408 * 409 ctape sbr index2 410 sbr iconpr&3 411 mcw 3&x2,index2 412 mcw 8&x2,itapec&7 413 mcw 0&x2,ieorc&3 414 sw icompr&4 415 mcw 7&x2,icompr&6 416 a @12@,icompr&6 417 cw icompr&4 418 mn itapec&3,ihalt&6 419 mn itapec&7,ihalt&6 420 mcw @9@,ierrct#1 421 itapec rt 0,0 422 bce iomets,itapec&7,w 423 ieorc bef 0 424 icompr bce itapec,0,} 425 chain12 426 iomets ber irwred 427 iconpr b 0 428 irwred s @1@,ierrct 429 mn itapec&3,*&4 430 bsp 0 431 bce itrow,itapec&7,w 432 bm ihalt,ierrct 433 b itapec 434 itrow a @1@,ierasc#2 435 skp 6 436 bce ichalt,ierasc-1,5 437 b itapec-7 438 ichalt s ierasc 439 h 0,202 440 b itapec-7 441 ihalt h 0,200 442 bss itapec-7,e 443 mcw itapec&7,*&8 444 rt 0,0 445 h 0,201 446 b iconpr 447 passi lca enddio,enddtf 448 lca 449 sbr either&3,difrec 450 mcw &dtftab&x1,opdfnd&6 451 lca 186,lmainx 452 b wrtrec 453 b dtfnm 454 altby b bypss 455 bsp 4 456 pass2 rt 1,3997 457 rt 1,3997 458 sbr tdf1&7,341 459 b ctape 460 nop tdf1 461 b ovly3 462 * 463 numerc sbr index1 464 mcw 2&x1,index1 465 sw mainx&20 466 mcw mainx&20,dtftab&x1 467 b difrec 468 kdiocs dcw @diocs@ 469 blorb b scanx 470 a mainx&18&x3,blowa-1 471 lca blowa-1,dtftab&24 472 s blowa 473 b either 474 blowa dcw &00000 475 ltorg* 476 org 1649 477 over dcw @}@ 478 ex 479 job 1401 autocoder-pass 2-process iocs-main 1 -version 3 3721l 480 org 1650 481 sfx I 482 * 483 * dtf table of branches 484 * 485 dtfint sbr index3,dtflab 486 sbr chair&3,lstpar 487 bce difrec,mainx&20, 488 cw scnsw 489 c mainx&6,@ex@ 490 be exirb 491 s index2&1 492 seek c mainx&7,0&x3 493 sbr index3 494 be agree 495 bce difrec,0&x3,@ 496 a @7@,index2 497 b seek 498 dtfbr b opdscn 499 dcw rewxz rewind 500 b actual 501 dcw &dtftab&205 reelseq 502 b actual 503 dcw &dtftab&108 serialnum 504 b hearb 505 dcw &dtftab&103 506 b opdscn 507 dcw &chexz checklabel 508 b opdscn 509 dcw &typxz typelabel 510 b totrb 511 dcw #3 totals 512 b actual 513 dcw &dtftab&75 wlraddr 514 b actual 515 dcw &dtftab&65 eofaddr 516 b indrb 517 dcw #3 indexreg 518 b actual 519 dcw &dtftab&54 workarea 520 b ioarb 521 dcw &dtftab&44 ioareas 522 b blorb 523 dcw &dtftab&24 blocksize 524 b numerc 525 dcw @020@ padding 526 b actual 527 dcw &dtftab&19 sixerec 528 b opdscn 529 dcw &recxz recform 530 b numerc 531 dcw @011@ alttape 532 b numerc 533 dcw @010@ cardproc 534 b opdscn 535 dcw &modxz modepar 536 b opdscn 537 dcw &filxz filetype 538 b numerc 539 dcw @009@ chandrive 540 b actual 541 dcw dtftab&198 varbuild 542 b actscn 543 dcw &dtftab-7 544 b numerc 545 dcw @206@ 546 b overb 547 dcw #1 548 org 1900 549 rtw 1,1 550 ber halt 551 cw over 552 b other 553 halt bsp 1 554 nop 288 555 h 556 b 1900 557 * 558 agree s index3&1 559 sw mainx&20 560 b dtfbr&x2 561 * ioareas 562 * 563 ioarb b scanx 564 lca mainx&18&x3,dtftab&44 565 bw either,scnsw 566 b scanx 567 lca mainx&18&x3,dtftab&34 568 b either 569 * 570 * totals 571 * 572 totrb sbr chair&3,totjk 573 b opdscn 574 dcw &totxz 575 totjk lca mainx&18&x3,dtftab&80 576 b lstpar 577 overb sbr chair&3,ovejk 578 b opdscn 579 dcw &ovexz 580 ovejk lca mainx&18&x3,dtftab&216 581 b lstpar 582 * 583 * exits routine 584 * 585 exirb mcw @1 8@,index2 586 mn mainx&7,index2-1 587 s index3&1 588 b scanx 589 lca mainx&18&x3,dtftab&x2 590 lca @$@,dtftab-6 591 b difrec 592 * 593 * index register 594 * 595 indrb mn mainx&21,dtftab&55 596 mz @ @,dtftab&55 597 b difrec 598 * 599 * load parameters - actual 600 * 601 actual sbr index1 6015 bw either,scnsw 602 mcw 2&x1,index1 603 search b scanx 604 lca mainx&18&x3,0&x1 605 sbr index1 606 bw difrec,scnsw 607 b search 608 newwrt sbr wrtext&3 609 mcw lmainx,loput-1 610 sw outpt&80 611 mcw gmwmrk,outpt&80 612 long mcw @*@,outpt&73 613 b short 614 * 615 * output macro statement for dioc 616 * 617 crdout mn @5@,tdf6&4 618 cs lmainx 619 mcw @55555@,mainx&19 620 sbr index3,enddio 621 b good&4 622 good cs lmainx 623 sw 1 624 sbr index1,mainx&20 625 mcw @'@,mainx&72 626 lodpar mcw 0&x3,wkarea-1 627 sbr index2 628 mcw index1,savxl1#3 629 mcm 1&x2,0&x1 630 sbr index1 631 mcw @, @,0&x1 632 bce contin,mainx&72,' 633 mcw savxl1,index1 634 sw 0&x1 635 mcw @ @,mainx&79 636 mcw mainx&78 637 cw 0&x1 638 b newwrt 639 cw outpt&80 640 b good 641 contin mcw 0&x3,0&x3 642 sbr index3 643 comblk c 0&x3,@ @ 644 sar index3 645 be comblk 646 a @1@,index3 647 b alldio,0&x3,, 648 b lodpar 649 alldio mcw @ @,0&x1 650 mcw @ @,mainx&72 651 b newwrt 652 cw outpt&80 653 mn @6@,tdf6&4 654 better b passi 655 wkarea dcw @ '@ 656 dtfnm s index3&1 657 b scanx 658 lca mainx&18&x3,filenm 659 difrec b redrec 660 delta bce alpha,mainx&5,* 661 c mainx&19,@ @ 662 bu dtfout 663 alpha b wrtrec 664 bce difrec,mainx&5,* 665 b dtfint 666 dtfout mn @5@,tdf6&4 667 sbr index3,enddtf 668 b savcd 669 sbr walk&3,altby 670 c mainx&17,@dtf@ 671 cs lmainx 672 mcw @33333@,mainx&19 673 be setdsw 674 river sbr better&3,pass2 675 b good&4 676 setdsw sbr better&3,rndtf 677 b good&4 678 rndtf rtw 1,341 679 bsp 1 680 cw dtfgm 681 b passi 682 hearb b scanx 683 mcw mainx&18&x3,dtftab&103 684 b actual 685 dcw &dtftab&93 686 * 687 * scan for a comma or two blanks 688 * 689 scanx sbr clubs&3 690 scanl sw mainx&20 691 c mainx&21&x3,@ @ 692 a @1@,index3 693 be setit 694 bce setwms,mainx&19&x3,, 695 c index3,@52@ 696 bu scanl 697 setit sw scnsw 698 setwms sw mainx&20&x3 699 clubs b 0 700 * 701 * scan operand table 702 * 703 * 704 opdscn sbr index2 705 mcw 2&x2,savx2 706 opdrtn b newscn 707 mcw savx2#3,index2 708 seekop c opdar,0&x2 709 sbr index2 710 mcw 0&x2,index1 711 sar index2 712 be opdfnd 713 chair bce lstpar,0&x2,@ 714 b seekop 715 lstpar bw either,scnsw 716 b opdrtn 717 opdfnd lca @$@,diocsb&x1 718 b lstpar 719 savcd sbr svcdx&3 720 cs 186 721 sw 101 722 mcw lmainx,186 723 svcdx b 0 724 * 725 * read in overlay two 726 * 727 tdf1 dcw #3 728 rtw 1,101 729 ovlay2 sw gmovl2 730 mcw gmwmrk,gmovl2 731 rt 1,101 732 b ctape 733 nop tdf1 734 b punch 735 * 736 * alter part of iocs 737 * 738 alter b ctape 739 nop tdf4a 740 mcw outpt&7,symnm 741 bss outcl,c 742 bsp 4 743 sbr river&6,tunel 744 sbr preps2&3 745 r 746 c mainx&17,@alt@ 747 bu walk 748 homal b savxx 749 b packx 750 noaltb b ctape 751 nop tdf4a 752 c outpt&83,hlda1 753 be check 754 propre c outpt&17,@job@ 755 alts1 bu alts2e 756 b nopjb 757 b noter 758 alts2e c outpt&17,@ctl@ 759 alts2 be outcl 760 solved mcw outpt&85,lmainx 761 sw reads 762 altio bss regen,g 763 tunel bw bspt4,reads 764 walk b savcd 765 b altby 766 bspt4 bw regl,xcards 767 mn @5@,tdf6&4 768 b newwrt 769 b regl&5 770 regl bsp 4 771 lca areasv,186 772 b altby 773 packx sbr packs&3 774 sw baltr 775 cw scnsw 776 s index3&1 777 b scanx 778 za mainx&18&x3,hlda1#4 779 bw parks,scnsw 780 b scanx 781 za mainx&18&x3,hldb 782 cw baltr#1 783 parks cs lmainx 784 sw 1 785 packs b 0 786 * 787 * alter number compares equal 788 * 789 check bw wrtal,baltr 790 dblal c outpt&83,hldb#4 791 be wrtal 792 b ctape 793 nop tdf4a 794 b dblal 795 wrtal blc tunel 796 r 797 c mainx&17,@alt@ 798 be homal 799 c mainx&17,@job@ 800 alts3 bu alts4e 801 b nopjb 802 b rsolv 803 alts4e c mainx&17,@ctl@ 804 alts4 be crdcl 805 bw tuff,baltr 806 cw reads 807 b altio 808 tuff b savxx 809 cw xcards 8101 sbr rsolv&7,solved 8102 sbr chuck&3 810 mcw @n@,nosol 811 b propre 812 * 813 * tdf for reading 86 character records 814 * 815 tdf4a dcw tunel 816 rt 4,outpt 817 * 818 * regeneration of diocs and dtf 819 * 820 regen bw ordn,xcards 821 sbr nexrec&3,spcas 822 sbr aldio-1,soft 823 cw reads 824 b find 825 spcas mcw areasv,lmainx 826 sw xcards#1 827 ordn sbr nexrec&3,aldio 828 sbr difrec&3,aldtf 829 b find 830 aldio cs lmainx 831 bw rdt4a,reads 832 blc lunet 833 r 834 c mainx&17,@alt@ 835 bu soft 836 b savxx 837 b packx 838 rdt4a b bypss 839 c outpt&83,hlda1 840 final be dblck 841 sw reads 842 final2 mcw outpt&85,lmainx 843 soft b gamma 844 dblck cw reads#1 845 bw final2,baltr 846 trpck c outpt&83,hldb 847 be aldio 848 b ctape 849 nop tdf4a 850 b trpck 851 * 852 * dtf on alter mode 853 * 854 aldtf sbr soft&3,delta 855 b aldio 856 savxx sbr savxt&3 857 mcw lmainx,areasv 858 savxt b 0 859 lunet sw reads 860 mcw @n@,final 861 b rdt4a 862 bypss sbr bypsx&3 863 b ctape 864 nop tdf4a 865 bce bypss&4,outpt&74,y 866 bce bypss&4,outpt&74,z 867 bypsx b 0 868 * 869 * dtf table of operands 870 * 871 dcw @@@ filetyp 872 dcw @001@ 873 dcw @inp@ input 874 dcw @002@ 875 dcw @out@ output 876 dcw @003@ 877 dcw @tap@ tape 878 dcw @004@ 879 dcw @rea@ reader 880 dcw @005@ 881 dcw @pun@ punch 882 dcw @008@ 883 dcw @che@ 884 dcw @006@ 885 filxz dcw @pri@ printer 886 dcw @@@ modepar 887 dcw @007@ 888 modxz dcw @loa@ 889 dcw @@@ recform 890 dcw @012@ 891 dcw @blo@ blocked 892 dcw @013@ 893 dcw @unb@ unblocked 894 dcw @014@ 895 dcw @fix@ fixed 896 dcw @015@ 897 recxz dcw @var@ variable 898 dcw @@@ typelabel 899 dcw @081@ 900 dcw @sta@ standard 901 dcw @082@ 902 dcw @non@ nonstandard 903 dcw @083@ 904 typxz dcw @tm @ tm 905 dcw @@@ checklabel 906 dcw @084@ 907 dcw @all@ all 908 dcw @085@ 909 chexz dcw @ide@ ident 910 dcw @@@ rewind 911 dcw @199@ 912 dcw @unl@ unload 913 dcw @200@ 914 rewxz dcw @nor@ norewd 915 dcw @@@ 916 dcw @201@ 917 dcw @9 @ 918 dcw @202@ 919 ovexz dcw @12 @ 920 dcw @@@ 921 dcw @076@ 922 totxz dcw @rec@ 923 * 924 * diocs operand table 925 * 926 dcw @@@ 927 dcw -minus3&4 928 dcw @out@ 929 dcw -minus2&4 930 taptb dcw @inp@ 931 dcw @@@ 932 dcw @045@ 933 dcw @rel@ 934 dcw @046@ 935 dcw @sto@ 936 dcw @006@ 937 featb dcw @ove@ overlap 938 dcw @@@ 939 dcw @007@ 940 dcw @tap@ tape 941 dcw @008@ 942 dcw @rea@ reader 943 dcw @009@ 944 dcw @pun@ punch 945 dcw @010@ 946 iodtb dcw @pri@ printer 947 dcw @@@ 948 dcw @011@ 949 dcw @sta@ standard 950 dcw @012@ 951 dcw @non@ nonstandard 952 dcw @013@ 953 dcw @mix@ mixed 954 dcw @014@ 955 dcw @che@ check 956 dcw @015@ 957 dcw @ide@ ident 958 dcw @026@ 959 dcw @rdl@ 960 dcw @016@ 961 labtb dcw @tm @ tm 962 dcw @@@ 963 dcw @018@ 964 dcw @1 @ exit 1 965 dcw @019@ 966 dcw @2 @ exit 2 967 dcw @020@ 968 dcw @3 @ exit 3 969 dcw @021@ 970 dcw @4 @ exit 4 971 dcw @022@ 972 dcw @5 @ exit 5 973 dcw @023@ 974 dcw @6 @ exit 6 975 dcw @024@ 976 dcw @7 @ exit 7 977 dcw @025@ 978 exitb dcw @8 @ exit 8 979 dcw @@@ 980 dcw @027@ 981 dcw @729@ 729 982 dcw @028@ 983 dritb dcw @733@ 7330 984 dcw @@@ 985 dcw @029@ 986 dcw @nor@ no rwed 987 dcw @030@ 988 rwdtb dcw @unl@ unload 989 dcw @@@ 990 dcw @037@ 991 dcw @rec@ record 992 dcw @038@ 993 coutb dcw @has@ hash 994 dcw @@@ 995 dcw @034@ 996 dcw @cle@ 997 dcw @033@ 998 dcw @pro@ 999 dcw @032@ 1000 reatb dcw @sca@ 1001 * 1002 * dtf table of labels 1003 * 1004 dcw @@@ 1005 dcw @ove@ overflow 1006 dcw @for@ formsctl 1007 dcw @cob@ cobol 1008 dcw @var@ varbuild 1009 dcw @cha@ chandrive 1010 dcw @fil@ filetype 1011 dcw @mod@ modepar 1012 dcw @car@ cardproc 1013 dcw @alt@ alttape 1014 dcw @rec@ recform 1015 dcw @siz@ sizerec 1016 dcw @pad@ padding 1017 dcw @blo@ blocksize 1018 dcw @ioa@ ioareas 1019 dcw @wor@ workarea 1020 dcw @ind@ indexrec 1021 dcw @eof@ eofaddr 1022 dcw @wlr@ wlraddr 1023 dcw @tot@ totals 1024 dcw @typ@ typelabel 1025 dcw @che@ checklabel 1026 dcw @hea@ header 1027 dcw @ser@ serialnum 1028 dcw @ree@ reelser 1029 dtflab dcw @rew@ rewind 1030 * 1031 * 1032 * label table 1033 * 1034 dcw @@@ 1035 dcw @tap@ tapeuse 1036 dcw @che@ checkpoint 1037 dcw @dio@ diocsorg 1038 dcw @fea@ features 1039 dcw @iod@ iodevices 1040 dcw @lab@ labeldef 1041 dcw @alt@ alttape 1042 dcw @exi@ exits 1043 dcw @var@ varbuild 1044 dcw @cou@ counts 1045 dcw @dri@ drivetype 1046 dcw @rwd@ rwdoption 1047 dcw @rea@ readerror 1048 lbltbl dcw @inp@ inpfxno 1049 ltorg* 1050 * 1051 * output area 1052 * 1053 org 3912 1054 outpt da 1x86,g 1055 loput equ * 1056 ex 1057 job 1401 autocoder-pass 2-copy dtf table -version 3 3723l 1058 sfx i 1059 org 341 1060 dcw @,@ 1061 dcw @;@ exits yes 1062 dcw @;@ cobol yes 1063 dcw #6 1064 dcw @;@ 1 input 1 filetype 1065 dcw @;@ 2 output 2 1066 dcw @;@ 3 tape 3 1067 dcw @;@ 4 reader 4 1068 dcw @;@ 5 punch 5 1069 dcw @;@ 6 printer 6 1070 dcw @;@ 7 load 7 modepar 1071 dcw @;@ 8 checkpoint 8 features 1072 dcw @;@ 9 number 9 chandrive 1073 dcw @;@ 10 number 10 cardproc 1074 dcw @;@ 11 number 11 alttape 1075 dcw @;@ 12 blocked 12 recform 1076 dcw @;@ 13 unblocked 13 1077 dcw @;@ 14 mixed 14 1078 dcw @;@ 15 variable 15 1079 dcw @ ;@ 16-19 number 16 sizerec 1080 dcw @;@ 29 number 17 padding 1081 dcw @ ;@ 21-24 number 18 blocksize 1082 dcw @ ;@ 25-34 labels 19 ioareas 1083 dcw @ ;@ 35-44 20 1084 dcw @ ;@ 45-54 label 21 workarea 1085 dcw @;@ 55 number 22 indexreg 1086 dcw @ ;@ 56-65 label 23 eoraddr 1087 dcw @ ;@ 66-75 label 24 wlraddr 1088 dcw @;@ 76 record 25 totals 1089 dcw @ ;@ 77-80 hash 26 1090 dcw @;@ 81 standard 27 typelabel 1091 dcw @;@ 82 nonstandard 28 1092 dcw @;@ 83 tm 29 1093 dcw @;@ 84 all 30 checklabel 1094 dcw @;@ 85 ident 31 1095 dcw @ ;@ 1096 dcw @ ;@ 1097 dcw @ ;@ 1098 dcw @ ;@ 104-108 number 35 serialnum 1099 dcw @ ;@ 109-118 39 ex1addr 1100 dcw @ ;@ 119-128 40 ex2addr 1101 dcw @ ;@ 129-138 41 ex3addr 1102 dcw @ ;@ 139-148 42 ex4addr 1103 dcw @ ;@ 149-158 43 ex5addr 1104 dcw @ ;@ 159-168 44 ex6addr 1105 dcw @ ;@ 169-178 45 ex7addr 1106 dcw @ ;@ 179-188 46 ex8addr 1107 dcw @ ;@ 189-198 47 varbuild 1108 dcw @;@ 199 unload 37 rewind 1109 dcw @;@ 200 norewd 38 1110 dcw @;@ 9 201 overflow 1111 dcw @;@ 12 202 1112 dcw @ ;@ 203-205 number reelseq 1113 dcw @;@ 206 formctl 1114 dcw #9 1115 dcw @;@ 216 address overflow 1116 dcw @ @ 1117 dcw @ @ 1118 dtfgm dcw @}@ 1119 ex 1120 job 1401 autocoder-pass 2-alter overlay -version 3 3724l 1121 sfx i 1122 org 101 1123 * 1124 * 1125 * ctl card on tape 4 1126 * 1127 punch cw gmovl2 1128 bsp 1 1129 bsp 1 1130 b alter 1131 outcl mcw outpt&85,lmainx 1132 bss preps2,c 1133 nosol sbr rsolv&7,noaltb 1134 * 1135 * ctl card from cards 1136 * 1137 crdcl bce leave,mainx&23,1 1138 mn mainx&21,*&8 1139 bce leave,@456@, 1140 chain2 1141 b letbe 1142 leave s specl 1143 letbe b nopcl 1144 rsolv b wrtrec 1145 b wrtal 1146 * 1147 nopcl sbr npclx&3 1148 mcw @n@,alts2 1149 mcw @n@,alts4 1150 npclx b 0 1151 nopjb sbr npjbx&3 1152 sw alts1&4,alts3&4 1153 npjbx b 0 1154 noter mcw outpt&85,lmainx 1155 b wrtrec 1156 chuck b noaltb 1157 ltorg* 1158 org 246 1159 da 1x86 1160 areasv equ * 1161 gmovl2 dcw @}@ 1162 ex 1163 job 1401 autocoder - pass 2 - end overlay -version 3 3725l 1164 sfx i 1165 org 341 1166 ovly3 mn @5@,tdf6&4 1173 sbr long&3,@n@ 1174 lca 186,lmainx 1175 b newwrt 1176 cw outpt&80 1177 sw gmovl4 1178 mcw gmwmrk,gmovl4 1179 b ctape 1180 nop tdf9 1181 cw gmovl4 1182 rwd 5 1183 b ctape 1184 nop tdfsys 1185 b 1900 1186 tdf9 dcw #3 1187 wtw 5,ovly4 1188 tdfsys dcw #3 1189 rtw 1,1650 1192 * 1193 ltorg* 1194 ovly4 equ *&1 1195 sfx x 1196 * end of job 1197 * 1198 c calltx,blanks-2 1199 be stendx 1200 b surexx 1201 stendx b sbrotx 1202 rwd 5 1203 bsp 1 1204 bsp 1 1205 wtm 6 1206 rwd 6 1207 mcw symnmx,mainx&2 1208 lca loput&1,mainx&35 1209 wt 5,mainx 1210 wtm 5 1211 rwd 4 1212 cw liput&1,mainx&35 1213 cw 100 1214 bypasx rt 1,3997 1215 sw loput&1 1216 bef cbsp2x 1217 b bypasx 1218 cbsp2x rt 1,3997 1219 sw loput&1 1220 s &1,cbsp1x 1221 bm cbsp3x,cbsp1x 1222 b cbsp2x 1223 * 1224 * load pass 3 1225 * 1226 cbsp3x cs partb 1227 cs 1228 cs 1229 b ctape 1230 nop tdfeoj 1231 b 2465 1232 tdfeoj dcw cchalt 1233 rtw 1,2210 1234 cbsp1x dcw @11@ 1235 * 1236 ltorg* 1237 gmovl4 dcw @}@ 1238 ex 1239 job 1401 autocoder - pass 2 - alter assembly - version 3 3728l 1240 * 1241 * area definitions 1242 * 1243 sfx b 1244 org 1 1245 da 1x86 main 1246 equ * lmain 1247 org 87 1248 dcw 000 index1 1249 dc 00 1250 dcw 000 index2 1251 dc 00 1252 dcw 000 index3 1253 dc 00 1254 org 100 1255 dc @}@ 1256 da 1x86 input 1257 dc @}@ liput&1 1258 dc 0 zerox 1259 dc 0 cardsx 1260 dcw @***@ hldsbx 1261 * 1262 * initialization 1263 * 1264 org 101 1265 voice cs calltx 1266 cs 1267 iocalt cs lmainx 1268 b ctapex 1269 nop tdfio5 1270 bce ioceof,mainxx&73,n 1271 b yours 1272 tdfio5 dcw &ioceof 1273 rt 5,mainxx 1274 ioceof mcw @1@,happyx&4 1275 mcw @/086@ 1276 b okay 1277 string cs lmainx 1278 b ctapex 1279 nop tdfio5 1280 b happyx&5 1281 ltorg* 1282 * 1283 * parameter table 1284 * 1285 org 201 1286 da 1x266 1287 261,266 partbb 1288 * 1289 * process ex 1290 * 1291 okay sbr switch&3,cmaltb 1292 exset c calltx,blanks-2 Q. any calls 1293 be preem 1294 altsa b surexx 1295 b preem 1296 lorgs c calltx,blanks-2 q. any calls 1297 bu haulit 1298 preem b cards 1299 * 1300 * input routine 1301 * 1302 cmalt bss lstcd,c q. no alters 1303 bss lstcd,a q. no more alters 1304 cs lmainx 1305 r 1306 cards sbr preem&3,sbrotx 1307 mcw @scr@,charcr 1308 mcw 1309 mcw 1310 yours c mainxx&17,@alt@ 1311 bce tread,mainxx&5,* 1312 bu tread 1313 s index1&1 1314 b scanxx 1315 za mainxx&18&x1,hlda1#4 1316 altr4 b ctapex get next record 1317 nop tdfral 1318 mcw @r@,outptx&84 1319 sw loputx&1 1320 c outptx&83,hlda1 1321 caltr be altr3 q. alter number equal to 1322 c outptx&17,@end@ number on alter card 1323 be endst no. write tape 1324 b ctapex 13245 sfx x 1325 nop tdf6 13255 sfx b 1326 b altr4 1327 altr3 bce altr5,mainxx&19&x1,, 1328 b ctapex q. deletion 13285 sfx x 1329 nop tdf6 13295 sfx b 1330 b switch 1331 altr5 b scanxx 1332 za mainxx&18&x1,hlda1 1333 altr6 c outptx&83,hlda1 1334 be macro delete until second alter 1335 b ctapex number is reached 1336 nop tdfral 1337 b altr6 1338 lstcd mcw @n@,caltr 1339 b altr4 1340 * 1341 * major processing 1342 * 1343 tread sw 1 1344 sbr brnchx&3,switch 1345 bce homexx,mainxx&5,* 1346 c mainxx&17,@mlc@ 1347 be homexx 1348 c mainxx&17,@cha@ 1349 be chainx 1350 c mainxx&17,@ent@ q. enter card 1351 be entst 1352 swma1 c mainxx&17,@ma @ q. modify address macro 1353 swma2 be masetx 1354 c mainxx&17,@ex @ q. ex card 1355 be exset 1356 c mainxx&17,@end@ q. end card 1357 be endstx 1358 c mainxx&18,whoops q. call statement 1359 be callnx 1360 c mainxx&19,incldx 1361 be callnx 1362 c mainxx&19,litorg-1 1363 be lorgs 1364 sbr index3,tablei q. get, put, open or close 1365 comioc c mainxx&17,0&x3 1366 sbr index3 1367 be msubtx 1368 bce outioc,0&x3,# 1369 b comioc 1370 outioc bce homexx,mainxx&19, 1371 bce homexx,mainxx&15, 1372 b msubtx no, macro 1373 * 1374 * process fixed form record 1375 * 1376 entst b sbrotx 1377 r 1378 bce entst,mainxx&7,* 1379 c mainxx&15,@end@ q. end card 1380 be endstx 1381 c mainxx&15,@ent@ q. new mode 1382 bu entst 1383 b preem 1384 tdfral dcw 000 1385 dcw @m%u4i12r@ 1386 * 1387 * delete entire macro 1388 * 1389 macro bce outmc,outptx&74,r 1390 b switch 1391 outmc b ctapex 1392 nop tdfral 1393 c outptx&19,blanks 1394 mcout be outmc 1395 mcw @n@,mcout 1396 bce outmc,outptx&74,s 1397 bce outmc,outptx&74,c 1398 bsp 4 1399 mcw outmc,mcout 1400 b cmalt 1401 * 1402 * process end card 1403 * 1404 endst mcw loputx,lmainx 1405 b endstx 1406 ltorg* 1407 gm2xxx dcw @}@ 1408 nuorig equ *&1 1409 ex 1410 job 1401 autocoder - pass 2 - initial assembly version 3 3727l 1411 * 1412 * area definition 1413 * 1414 sfx a 1415 org 1 1416 mainxx da 1x86 1417 org 87 1418 dcw @000@ 1419 dc 00 1420 dcw @000@ 1421 dc 00 1422 dcw @000@ 1423 dc 00 1424 org 101 1425 da 1x86 inputx 1426 liputx equ * 1427 dc @}@ 1428 zeroxx dc 0 1429 cardsx dc 0 1430 hldsbx dcw @***@ 1431 * 1432 * initialization 1433 * 1434 org 100 1435 dc @}@ 1436 start cs calltx 1437 cs 14371 bce *&5,cardsx,1 14372 b red 14373 mcw @n@,rho&1 14374 mcw @n@,tsten&5 1438 red sw ntper&4 1439 sw tsten&4 1440 sw outs2&4 1441 bce readt,iocsav-3,* 1442 mcw @n@,swma1 1443 mcw @n@,swma2 1444 b readt 1445 org 201 1446 da 1x266 1447 partbx 261,266 1448 * 1449 * major processing 1450 * 1451 readt b twedb get next record 1452 tread sw 1 1453 sbr brnchx&3,readt 1454 bce outs2,mainxx&5,* q, comments card 1455 c mainxx&19,@chain@ 1456 be chainx 1457 c mainxx&19,@mlcwa@ 1458 be outs2 1459 c mainxx&17,@ent@ q. enter card 1460 be entst 1461 swma1 c mainxx&19,@ma @ q. modify address macro 1462 swma2 be masetx 1463 c mainxx&19,@ex @ q. ex card 1464 be exset 1465 c mainxx&17,@end@ q. end card 1466 be endstx 1467 c mainxx&18,whoops 1468 be callnx q. call statement 1469 c mainxx&19,incldx 1470 be callnx 1471 c mainxx&19,@ltorg@ 1472 be lorgs q. ltorg card 1473 sbr index3,tablei 1474 few c mainxx&17,0&x3 1475 sbr index3 1476 be msubtx 1477 bce many,0&x3,# 1478 b few 1479 many bce outs2,mainxx&19, 1480 bce outs2,mainxx&15, 1481 b msubtx no. macro 1482 * 1483 * input routine 1484 * 1485 twedb sbr twdb1&3 1486 cs lmainx 1487 b rtwed 1488 chart c 1489 bss eof4,a q. last card 1490 r 1491 ssb twdb1,1 1492 rtwed b ctapex 1493 nop tdf4 1494 bce change,mainxx&73,n 1495 twdb1 b tread 1496 tdf4 dcw &eof4 1497 dcw @m%u5001r@ 1498 change cw chart,tsten&4 1499 mn @4@,tdf4&4 1500 cw outs2&4,ntper&4 1501 c calltx,blank 1502 be hooha 1503 b surexx 1504 hooha mcw @scr@,charcr 1505 mcw 1506 mcw 1507 b twdb1 1508 * 1509 * read release 1510 * 1511 outs2 bss outsbx,c 1512 rho nop 1513 mcw @8@,rho 1514 b outsbx 1515 * 1516 * fixed form records 1517 * 1518 tsten bss entst,c q. tape input 1519 srf no. start rad feed 1520 sbr nosir&3,antst 1521 mcw @n@,but1xx 1522 entst b sbrotx 1523 b twedb 1524 antst mcw @b@,but1xx 1525 sbr nosir&3,tread 1526 bce tsten,mainxx&7,* 1527 c mainxx&15,@end@ q. end card 1528 be endstx 1529 c mainxx&15,@ent@ q. new mode 1530 bu tsten 1531 b sbrotx 1532 b readt 1533 * 1534 * process ex 1535 * 1536 exset c calltx,blank#3 q. any calls 1537 be outs2 1538 b surexx 1539 b sbrotx 1540 b readt 1541 * 1542 * read release redundancy routine 1543 * 1544 ntper bss yesir,c q. tape input 1545 r 1546 ss 1 1547 mcw @n@,rho 1548 yesir sbr comets&3,crwred 1549 sbr cconpr&3,nosir 1550 b crwred 1551 nosir b tread 1552 * 1553 * process ltorg 1554 * 1555 lorgs c calltx,blank q. any callls 1556 bu haulit 1557 b outs2 1558 eof4 cs lmainx 1559 sw 1 1560 mcw @end$$$@,mainxx&18 1561 b endstx 1562 antper dcw &ntpera 1563 acrwed dcw &crwred 1564 ltorg* 1565 * 1566 * main line processing annex 1567 * 1568 sfx x 1569 org nuorig 1570 eof1b rwd 1 1571 s prevs 1572 b switch 1573 * 1574 * process lozenged field 6 - 20 1575 * 1576 lozeng bm mlblz,mainx&2&x1 q. internal level 1577 b label 1578 mcw blanks,mainx&4&x1 1579 mcw index1,savx1#3 1580 mcw index3,index2 1581 b sbgrd 1582 a savx1,index1 1583 mcw 0&x3,mainx&x1 1584 mcw savx1,index1 1585 b upengl 1586 * 1587 * locate parameters 1588 * 1589 label sbr lexit&3 1590 mcw blanks#5,index3 1591 mcw blanks,cntp 1592 mn mainx&1&x1,cntp 1593 circl s &1,cntp 1594 bm tensr,cntp 1595 a @3@,index3 1596 b circl 1597 tensr bce chzon,dectb-2&x3,0 1598 mcw blanks,cntp#1 1599 mcw dectb&x3,index3 1600 mn mainx&2&x1,cntp 1601 movinp s &1,cntp 1602 mcw 0&x3,0&x3 1603 sar warea#3 1604 bce chzon,0&x3,, q. missing parameter 1605 bm putin,cntp q. parameter located 1606 mcw warea,index3 1607 b movinp 1608 putin bce chzon,0&x3,; 1609 bwz delet,mainx&2&x1,s 1610 lexit b 0 1611 * 1612 * process ltorg 1613 * 1614 haulit mcw @org @,mainx&19 replace ltorg with org 1615 mcw @l@,mainx&74 1616 b sbrot 1617 b exitc 1618 cs lmain 1619 mcw litorg,mainx&20 generate ltorg* 1620 mcw charcc,mainx&74 1621 b whyyy 1622 * 1623 * preparation for ltorg,ex,ex or iocs 1624 * 1625 surex sbr simple&3 1626 sw 1 1627 cs liputx 1628 lca lmainx,liputx 1629 b exitcx 1630 lca liputx,lmainx 1631 simple b 0 1632 tdfext dcw &rwdext 1633 dcw @m%u1001r@ 1634 litorg dcw @ltorg*@ 1635 * 1636 * iocs table 1637 * 1638 dcw @#@ 1639 dcw @rls@ 1640 dcw @get@ 1641 dcw @put@ 1642 dcw @dtf@ 1643 tablei dcw @ope@ 1644 * 1645 * generate unknown macro card 1646 * 1647 norot sbr nrotc&3 1648 cs lmainx 1649 mcw @b@,mainx&85 1650 mcw @unknown@,mainx&19 1651 mcw charcc,mainx&74 1652 mcw @*@,mainx&5 1653 nrotc b 0 1654 pots mcw @b@,switch 1655 mcw @n@,nextcd 1656 b cooker 1657 * 1658 * modify address macro 1659 * 1660 maset mcw charcr,mainx&74 1661 b sbrotx 1662 mcw @d@,mainx&17 1663 b sgc 1664 incldx dcw @incld@ 1665 charcs dcw @z@ 1666 charcc dcw @y@ 1667 charcr dcw @w@ 1668 kings b norot 1669 mcw hldsb,mainx&10 1670 b whyyy 1671 endstx b ctape 1672 nop tdf5 1673 b ovly4i 1674 dectb dcw &partb 1675 da 9x3 1676 enddc equ * 1677 movec lca @;@,0&x3 1678 sbr index3 1679 a @3@,index2&1 1680 bce midle,index2&1,3 1681 lower a @1@,index1 1682 sw mainx&20&X1 1683 bce movec,mainx&20&x1,, 1684 weedd mcw index2&1,iocsav 1685 b weedbx 1686 mcw iocsav,index2&1 1687 b comsn 1688 tdf5 dcw #3 1689 rtw 5,ovly4i 1690 newest dc 0 1691 symnm dcw @000@ 1692 whoops dcw @call@ 1693 addcal dcw &calltx 1694 ltorg* 1695 org 1649 1696 gm1 dcw @}@ 1697 ex 1698 job 1401 autocoder - pass 2 - macro-generator- version 3 3726l 1699 sfx x 1700 * 1701 * generalized tape input/output routine 1702 * 1703 org 1650 1704 ctapex sbr index2 1705 sbr cconpr&3 1706 mcw 3&x2,index2 1707 mcw 8&x2,ctapec&7 1708 mcw 0&x2,ceorc&3 1709 sw ccompr&4 1710 mcw 7&x2,ccompr&6 1711 a @12@,ccompr&6 1712 cw ccompr&4 1713 mn ctapec&3,chalt&6 1714 mn ctapec&7,chalt&6 1715 mcw @9@,cerrct#1 1716 ctapec rt 0,0 1717 bce comets,ctapec&7,w 1718 ceorc bef 0 1719 ccompr bce ctapec,0,} 1720 b 1721 b 1722 b 1723 b 1724 b 1725 b 1726 b 1727 b 1728 b 1729 b 1730 b 1731 comets ber crwred 1732 cconpr b 0 1733 crwred s @1@,cerrct 1734 mn ctapec&3,*&4 1735 bsp 0 1736 bce ctrow,ctapec&7,w 1737 bm chalt,cerrct 1738 b ctapec 1739 ctrow a @1@,cerasc#2 1740 skp 6 1741 bce cchalt,cerasc-1,5 1742 b ctapec-7 1743 cchalt s cerasc 1744 h 0,202 1745 b ctapec-7 1746 chalt h 0,200 1747 bss ctapec-7,e 1748 mcw ctapec&7,*&8 1749 rt 0,0 1750 h 0,201 1751 b cconpr 1752 headr dcw @headr@ 1753 ltorg* 1754 * 1755 * initialization 1756 * 1757 org 1900 1758 startx mcw 340,iocsav 1759 mcw 17595 mcw nordrl,hole#1 1760 b ctape 1761 nop tdfss 1762 cw gm1 1763 sw 3998 1764 mcw liput&1,3998 1765 cw 3995,3997 1766 bss alterx,b 1767 rwd 1 17675 mcw hole,cardsx 1768 b starta 1769 tdfss dcw &cchalt 1770 dcw @l%u1001r@ 1771 alterx b ctapex 1772 nop tdfss 1773 cw gm2xxx 1774 rwd 1 1775 mcw iocsav,symnm 1776 mcw &iocalt,switch&3 1777 sbr happy&3,string 1778 mcw @n@,outsb 1779 mcw @n@,but1x 1780 mcw @n@,but2x 1781 bce voiceb,iocsav-3,* 1782 mcw @n@,swma2b 1783 b voiceb 1784 ltorg* 1785 org 1900 1786 da 1x174 1787 callt equ * 1788 * 1789 * process missing parameters with regard to zone 1790 * 1791 chzon bwz slash,mainx&2&x1,s 1792 bwz delet,mainx&2&x1,b 1793 mcw @b@,mainx&85 1794 zonbr cw mainx&x1,mainx&3&x1 1795 zonch b defnd 1796 slash mcw blanks-2,mainx&2&x1 1797 b zonbr 1798 subset mcw @n@,switch 1799 mcw @b@,nextcd 1800 mcw charcs,mainx&74 1801 b calit 1802 masks mcw @b@,nocal 1803 * 1804 * processing call statement 1805 * 1806 calln mcw charcr,mainx&74 1807 calit mcw addcal,index2 begin scan of call table 1808 sw mainxx&20 1809 yscalx bce xxxx,index2-2,y q. call table exceeded 1810 c 0&x2,@ @ 1811 be spadex 1812 c 0&x2,mainx&22 1813 sar index2 1814 be queen 1815 b yscalx 1816 spadex mcw mainx&22,0&x2 1817 queen cw mainxx&20 1818 nocalx nop skelcx 1819 b sbrot 1820 bce switch,mainx&19,d q. incld statement 1821 * 1822 * load parametes into table 1823 * 1824 mcw mainx&10,partb 1825 sbr index3 1826 s index1&1 1827 dimndx b scanxx 1828 sw 1 1829 lca mainx&18&x1,0&x3 1830 sbr index3 1831 bce heartx,mainx&19&x1, 1832 bce weedbx,mainx&19&x1,, 1833 b dimndx 1834 xxxx mcw @7@,mainx&85 1835 whyyy b sbrot 1836 switch b readta 1837 b pots 1838 * 1839 * generate branch and dcw,s 1840 * 1841 heartx lca @ @,0&x3 1842 cs lmainx 1843 mcw partb,mainx&10 1844 mcw partb-6,mainx&24 1845 sar index3 1846 mcw @b@,mainx&15 1847 slam mcw charcc,mainx&74 1848 mcw index3,savxl2#3 1849 mcw savxl2,index3 1850 cw mainx&23 1851 b sbrot 1852 cs lmainx 1853 bce switch,0&x3, 1854 mcw @dcw@,mainx&17 1855 mcw index3,index2 1856 b sbgrdx 1857 mcw 0&x3,mainx&20&x1 1858 sar index3 1859 b slam 1860 * 1861 * scan for comma, two blanks, or an @ 1862 * 1863 scanxx sbr clubs&3 1864 scanl sw mainx&20 1865 bce scnat,mainx&20&x1,@ 1866 bce cetwms,mainx&20&x1,, 1867 c mainx&20&x1,@ @ 1868 be clubs 1869 cxit1 a @1@,index1 1870 c index1,@52@ 1871 bu scanl 1872 c mainx&71,@ @ 1873 be clubs 1874 bce clubs,mainx&71, 1875 b cxit 1876 cetwms sw mainx&21&x1 1877 cxit a @1@,index1 1878 clubs b 0 1879 scnat za @510@,index1&1 1880 atlok bce cxit1,mainx&20&x1,@ 1881 s &10,index1&1 1882 b atlok 1883 * 1884 * obtain more parameters from additional records 1885 * 1886 weedbx sbr wedxt&3 1887 b neweed 1888 weddbx a @1@,index1 1889 neweed c index1,@52@ 1890 bu loopw 1891 nextcd nop callcd 1892 happy b twedba read next record 1893 nop 1894 mcw charcr,mainx&74 1895 thru b sbrotx 1896 bce happy,mainx&5,* 1897 s index1&1 1898 bce movec,mainx&20,, q. first parameter missing 1899 loopw bce weddbx,mainx&20&x1, 1900 sw mainx&20&x1 1901 wedxt b 0 1902 tdf6 dcw &cchalt 1903 dcw @m%u6I12w@ 1904 * 1905 * output routine 1906 * 1907 sbrotx sbr brnch&3 1908 but1x b homex 1909 outsb mcw antper,comets&3 1910 homex mcw lmain,loput 1911 bce but2x,outpt&73,* 1912 mcw blanks-3,outpt&73 1913 sw loput&1 1914 mcw liput&1,loput&1 1915 b ctapex 1916 nop tdf6 1917 but2x mcw acrwed,comets&3 1918 brnch b 0 1919 * 1920 * process parameters for substitution 1921 * 1922 msubtx mcw @r@,mainx&74 1923 b sbrotx 1924 a @1@,symnm 1925 sgc mcw mainx&17,hldsb 1926 s enddc 1927 chain8 1928 s index2&2 1929 a @3@,index2&1 1930 mcw mainx&10,partb 1931 sbr index3 1932 s index1&1 1933 bce btrend,mainx&20, 1934 bce movec,mainx&20,, 1935 comsn a @3@,index2&1 1936 bce above,index2&1,3 1937 below b scanxx 1938 lca mainx&18&x1,0&x3 1939 sbr index3 1940 bce movec,mainx&20&x1,, 1941 bce weedd,mainx&19&x1,, 1942 btrend lca @,@,0&x3 1943 cs lmainx 1944 c prevs#3,hldsb 1945 mcw @999@,prevs 1946 be harmn 1947 bh rdtp1 1948 eof1 rwd 1 1949 * 1950 * substitutions 1951 * 1952 rdtp1 sw 100 1953 b ctape 1954 nop tdflib 1955 c mainx&19,headr 1956 bu rdtp1 1957 c mainx&7,@999@ 1958 be kings 1959 c mainx&7,hldsb 1960 bu rdtp1 1961 b harmn 1962 skelc mcw @n@,nocal 1963 mcw charcs,mainx&74 1964 b sbrot 1965 bce harmn,mainx&19,d 1966 mcw @b @,mainx&19 1967 bouts cw zerox 1968 mcw charcc,mainx&74 1969 b sbrotx 1970 harmn cs lmainx 1971 sw 1,100 1972 mcw liput&1,100 1973 b ctapex 1974 nop tdflb2 1975 c mainx&19,headr 1976 mcw mainx&7,prevs 1977 be switch 1978 c mainx&7,@)00@ 1979 bu lzfnd 1980 sw zerox 1981 * 1982 * right to left scan for lozenges 1983 * 1984 lzfnd za @690@,index1&1 1985 lozsc bce lzcnt,mainx&x1,) 1986 defnd s &10,index1&1 1987 c index1,@15@ 1988 bu lozsc 1989 s index1&1 1990 cleanc b scanxx 1991 cw mainx&20,mainx&20&x1 1992 c index1,@51@ 1993 bl endcln 1994 c mainx&20&x1,@ @ 1995 bu cleanc 1996 bce endcln,mainx&5,* 1997 sw mainx&20&x1 1998 mcw blanks-4,mainxx&71 1999 mcw mainxx&71 2000 cw mainxx&20&x1 2001 * 2002 * right to left scan for lozenges 6 - 20 2003 * 2004 endcln mcw @015@,index1 2005 sbr zonch&3,upengl 2006 engloz bce lozeng,mainx&x1,) 2007 upengl s &10,index1&1 2008 c index1,@04@ 2009 bu engloz 2010 outsd sbr zonch&3,defnd 2011 shiftl nop partb,mainx&10 2012 mcw @n@,shiftl 2013 c mainx&18,whoops 2014 be masks 2015 c mainx&19,incld 2016 be masks 2017 b bouts 2018 tdflib dcw &kings 2019 dcw @m%u1001r@ 2020 tdflb2 dcw &eof1b 2021 dcw @m%u1001r@ 2022 * 2023 * process lozenged fields 21 - 72 2024 * 2025 lzcnt bce defnd,mainx&1&x1, 2026 sw mainx&x1,mainx&3&x1 2027 bm systm,mainx&2&x1 2028 b label 2029 mcw index3,savx3#3 2030 s index3,warea 2031 mz blanks,warea 2032 mcw @i99@,index3 2033 s warea,index3 2034 mcw @i@,index3-2 2035 c index3,@i9f@ 2036 bl sptyp 2037 mcw mainx&76&x3,mainx&72 2038 sbr move3&6 2039 lmn cw mainx&3&x1 2040 mcw savx3,index3 2041 move3 mcw 0&x3,0 2042 cw mainx&x1 2043 b defnd 2044 systm mcw mainx&68,mainx&71 2045 mcw symnm 2046 cw mainx&x1,mainx&3&x1 2047 b defnd 2048 * 2049 * specialized processing of one and two character operands 2050 * 2051 sptyp lca mainx&72,outpt&72 2052 cw mainx&x1,mainx&3&x1 2053 mcw blanks-2,mainx&71 2054 bce house,index3,h 2055 mcw outpt&72,mainx&71 2056 sbr move3&6 2057 b spout 2058 house mcw outpt&72,mainx&70 2059 sbr move3&6 2060 spout cw outpt&3&x1 2061 b lmn 2062 delet bw lblmv,zerox 2063 b harmn 2064 lblmv mcw @m@,shiftl 2065 cw zerox 2066 b harmn 2067 mlblz mcw symnm,mainx&10 2068 b outsd 2069 * 2070 * pull in called routines at ltorg, end or execute cards 2071 * 2072 exitc sbr cexit1&3 2073 rwdext rwd 1 2074 cwprc cw newest 2075 tprd1 sw 100 2076 mcw liput&1,100 2077 b ctapex 2078 nop tdfext 2079 c mainx&19,headr 2080 bu tprd1 2081 solut c mainx&7,@999@ 2082 be eof1a 2083 oppent mcw addcal,index1 2084 prtner bce tprd1,index1-2,y 2085 sw mainx&5 2086 c 0&x1,mainx&7 2087 sar index1 2088 bu prtner 2089 bw tprd1,1&x1 2090 cw mainx&5 2091 sw 1&x1 2092 sw newest 2093 cooker b ctapex 2094 nop tdfext 2095 c mainx&18,whoops 2096 be subset 2097 c mainx&19,incld 2098 be subset 2099 c mainx&19,headr 2100 be solut 2101 mcw charcc,mainx&74 2102 lca loput&1,100 2103 b sbrot 2104 b cooker 2105 eof1a mcw addcal,index1 2106 combl bce cexit,index1-2,y 2107 c 0&x1,@ @ 2108 sar index1 2109 be cexit 2110 bw combl,1&x1 2111 bw rwdext,newest 2112 * 2113 * create comments card for unknown subroutines 2114 * 2115 unknwn b norot 2116 sw 1&x1 2117 mcw 3&x1,mainx&10 2118 b sbrot 2119 b combl 2120 cexit cs callt 2121 cs 2122 cw 100 2123 mcw @999@,prevs 2124 cexit1 b 0 2125 sbgrd sbr grand&3 2126 s index1&1 2127 grand bw 0,0&x2 2128 s @10@,index2&1 2129 a @1@,index1 2130 b grand 2131 callcd cs lmainx 2132 b ctape 2133 nop tdfext 2134 mcw charcs,mainx&74 2135 sw 1 2136 b thru 2137 iocsav dcw #4 2138 chainx mcw @r@,mainx&74 2139 b whyyy 2140 midle mcw index3,dectb&x2 2141 b lower 2142 above mcw index3,dectb&x2 2143 b below 2144 ltorg* 2145 * 2146 * output area 2147 * 2148 org 3912 2149 outpt da 1x86,g 2150 loput equ *-1 2151 ex 2152 end start ----------------- object code -------------------- ,008015,022026,030037,044,049,053053N000000N00001026 00013722L L068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0?00023722L ,008015,022029,036040,047054,061068,072/061039 ,001001104000033722L 00000000000000U%U4RU%U5RU%U6R L029115,001092,097101,106111104000043722L BP32BB774C018W05B157/F1M0802802 L031146,121125,132137,139146104000053722L N1B721B774C018W08B642/B6230241D022191 L037183,149153,157164,169177104000063722L B623W11 BBB627 L014197,192193,194201,206040104000073722L B681* ,;; L017349,337338,341342,343344104000083722L ;;;;;;; L007356,351352,353354,355356104000093722L ;;;;;;; L007363,358359,360361,362363104000103722L ; ;; ; ; ; L030393,365369,370374,384040104000113722L ;; ; ;; ;; L037430,404405,415425,426430104000123722L ;;;; ; ; ; L022452,432433,434435,438443104000133722L ; ; ; ; L035487,458468,478040,040040104000143722L ; ; ; L030517,498508,040040,040040104000153722L ; ; ;;;;; L034551,528538,548549,550551104000163722L ;; ; , L017568,555556,565566,567568104000173722L ;;; ;;; L015583,570571,572581,582583104000183722L ;;;;;;; L007590,585586,587588,589590104000193722L ;;;;;;; L007597,592593,594595,596597104000203722L ;;;;;;; L007604,599600,601602,603604104000213722L ;;;;;;; L007611,606607,608609,610611104000223722L ;;; ;;; L011622,613614,615620,621622104000233722L S337M026W12B721B774C020V71B670SB634006*L039661,627634,638642,649654104000243722L BO98BV06MW13743B721B774B677006*C018W16 L038699,666670,677681,685693104000253722L B713SB721B821BO98BJ68H761M086I97 L032731,705709,713717,721725104000263722L ,I98M773I98NW17I86BS22N764B000000 L033764,736743,750754,758762104000273722L M%U6I12W}H809/086B798CBM46A1K8061 L033797,774778,782787,792793104000283722L BS22N812B000M46M%U4001R)W18B681021 L035832,802806,810813,821825104000293722L HO66O75S095H099H46C0080?0H099B984S L034866,840844,851858,862040104000303722L B6810?0@AW19094B851B/13612B/73 L033899,875882,886890,893897104000313722L BO14F95BO14F82BO14G08B/13 L025924,904907,911914,918921104000323722L 611B992 B/13593BO14F20 L024948,928932,935939,942946104000333722L BO14E77BO14E52B/47581B/47 L025973,953956,960963,967970104000343722L 620BO14E33S100B8Q6LW20571BO14 L029'02,977981,984988,992999104000353722L F69H/04MW23W26S095C0B2W28,021B'90S L034'36,'06'10,'17'21,'28'32104000363722L B/050B1,C099W30B'97SM0B1WK4AW31094 L034'70,'45'52,'57'64,040040104000373722L B/050943AW31099B'21AW31099,W18B000BN55 L038/08,'79'86,'90'97,/01/05104000383722L B/01H089M0'2089C023W34B/43/LW200'0B333 L038/46,/13/17,/24/31,/36/43104000393722L H089M0'2089BN55L0A90'0B681HO66/87BO14 L037/83,/51/58,/62/69,/73/80104000403722L G27CW26W37BO75/BN55BO750A9 M0A9607BO75 L038S21,/87/94,/99S03,S11S18104000413722L H094HT43M0!3094M0!8T01M0!0T13,T19 L033S54,S26S30,S37S44,S51040104000423722L M0!7T21AW39T21)T19DS97U28DT01U28MW40W41L039S93,S62S69,S73S80,S87040104000433722L M%U0000RBT35T01WB000KBS94000}BBB L032T25,T02T10,T15T23,T24T25104000443722L BBBBBBB L007T32,T27T28,T29T30,T31T32104000453722L BBBT44LB000SW31W41DS97T61U%U0B L030T62,T34T35,T40T44,T51T58104000463722L BT83T01WVU22W41KBS94AW31W43U%U6E L032T94,T71T79,T83T90,040040104000473722L BU07W425BS87SW43.000202BS87.000200BS87EL039U33,U03U07,U11U18,U22U29104000483722L MT01U48M%U0000R.000201BT40L622567L L034U67,U41U49,U56U60,U67040104000493722L H336M06MW46O93L186086B721BL91BC49U%U4B L038V05,U75U82,U89U93,U97V01104000503722L M%U1I97RM%U1I97RHP30341BS22NP23B341H089L039V44,V14V22,V29V33,V37V41104000513722L M0'2089,021M0213U9BM06DIOCSBN55A0A9W01 L038V82,V52V56,V63V67,V72V76104000523722L LW01373SW02B3330000?JOBCTL456 L029W11,V90V94,V98W03,W06W09104000533722L MDTFW 7$ L009W20,W13W14,W17W18,W19W20104000543722L 521YESTAP L017W37,W24W27,W29W31,W32W35104000553722L 129 3U9 L009W46,W40W41,W42W44,040040104000563722L } L001W49,040040,040040,040040104000573722L N000000,040040,040040,040040B00000583722L ,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 00593721L ,068072)063067/061039 ,001001104000603721L H099H03HO66O75BM06021 )W18C007H48B!31S L038W87,W57W64,W72W76,W83040104000613721L S095C0080?0H099BZ35SBM060?0@AH49094BW92L039X26,W92W99,X03X08,X16X23104000623721L BO14E00B!89554B!89457BN37 L025X51,X31X34,X38X41,X45X48104000633721L 452BO14D87BO14D74BZ81 L024X75,X55X59,X62X66,X69X73104000643721L B!89424B!89414B!71 B!89 L025Y00,X80X83,X87X90,X94X97104000653721L 403BZ47393BV72373BV41020 L024Y24,Y04Y08,Y11Y15,Y18Y22104000663721L B!89368BO14D55BV41011BV41 L025Y49,Y29Y32,Y36Y39,Y43Y46104000673721L 010BO14D30BO14D23BV41009 L024Y73,Y53Y57,Y60Y64,Y67Y71104000683721L B!89547B/13342BV41206B!06 L025Y98,Y78Y81,Y85Y88,Y92Y95104000693721L L%U1001RBZ21L)W49B101U%U1BN288 L031Z29,Z00Z08,Z13Z17,Z21Z26104000703721L .BZ00S100,021BXK7BN55L0A9393 L028Z57,Z31Z35,Z39Z43,Z47Z51104000713721L V333W181BN55L0A9383B333HO66Z95BO14E20 L037Z94,Z66Z70,Z77Z81,Z88Z92104000723721L L0A9429BO75HO66!20BO14E13L0A9565BO75 L036!30,!02!06,!13!17,!20!27104000733721L MH52094D008093S100BN55L0A93M9LH53343 L036!66,!38!45,!49!53,!60040104000743721L BM06D022404YH54404BM06H089V333W181 L034J00,!71!78,!85!89,!93040104000753721L M0'2089BN55L0A90'0H089VM06W181BJ08H761 L038J38,J08J12,J19J23,J31J35104000763721L M086I97,I92M773I92MH55I85B750DH56768 L036J74,J46J50,J57J64,J68040104000773721L /086MH61020H099622BK01/086,001H089021 L037K11,J79J86,J93J97,K01K05104000783721L MH62073M0?0L89H094M089H65P0!10'0H089 L036K47,K19K26,K30K37,K44040104000793721L MH670'0BL01073'MH65089,0'0MH69080M079 L037K84,K55K63,K70K74,K81040104000803721L )0'0BJ35)I92BJ97M0?00?0H099C0?0H54 L034L18,K89K93,K97L01,L08L12104000813721L Q099BL12SAH70099BL470?0,BK19MH690'0 L035L53,L23L28,L35L43,L47040104000823721L MH54073BJ35)I92DH71768BU60 ' L037L90,L61L65,L69L76,L80040104000833721L S100BN55L0A9349B774BM30006*C020H76BM46/L039M29,L95L99,M06M10,M18M25104000843721L B721BM06006*BW50DH56768H099567BO98 L034M63,M34M42,M46M53,M60040104000853721L HQ99U97C018H79/086MH84020BN05SHL79V06 L037N00,M71M78,M82M89,M94040104000863721L BK01HL79N16BK01L%U1341RU%U1B)568BU60 L036N36,N05N12,N16N24,N29N33104000873721L BN55M0A9452B!89442HO13,021C0B2H69 L033N69,N41N48,N52N55,N59N63104000883721L AH70099BO02SBO060B0,C099H86BN59/,W18 L036O05,N77N82,N90N97,O02040104000893721L ,0B1B000H094M0!2H89B'06MH89094CW260!0 L037O42,O10O14,O18O25,O29O36104000903721L H094M0!0089Q094BO87SBO750!0@BO36 L032O74,O47O54,O58O63,O71040104000913721L V333W181BO25LH535X6BO75HP20/186,101 L035P09,O83O87,O94O98,P02P06104000923721L M086186B000 L%U1101R,332M773332 L033P42,P17P21,P24P32,P36040104000933721L M%U1101RBS22NP23B101BS22NA35MI19340 L035P77,P51P55,P59P63,P67P71104000943721L B119CU%U4BHN00Q88H6651C018H92BQ96/ L034Q11,P83P88,P95P99,Q00Q07104000953721L BC19BR43BS22NA35CI95I02B?05SCI29H95 L035Q46,Q16Q20,Q24Q28,Q35Q40104000963721L BQ60/B205B220CI29H98B119SMI97086,I10 L036Q82,Q52Q56,Q60Q67,Q72Q79104000973721L BA44GVR04I101BO98BU97VR27I091DH56768 L036R18,Q88Q96,R00R04,R12040104000983721L BJ35BR32U%U4BL331186BU97H?04,I03 L032R50,R23R27,R32R39,R43R47104000993721L )W18S100BN55?0A9I02VR93W181BN55?0A9I07 L038R88,R55R59,R63R70,R78R82104001003721L )I03/086,001B000V?37I031CI95I07B?37S L036?24,R93R97,?01?05,?13?20104001013721L BS22NA35B?13BQ88A1C018H92BQ12S L030?54,?29?33,?37?42,?43?50104001023721L C018H95B?75/B205B175C018H98B138S L032?86,?62?67,?71?75,?82040104001033721L VA03I031)I10BQ83BC19)I09H182Q72H234 L035A21,?95?99,A03A07,A11A18104001043721L MI08131BQ40Q88M%U4I12RVA85I091H684A74 L037A58,A29A33,A36A44,A52040104001053721L HB02B68)I10B642M331086,I09H684B03 L033A91,A66A70,A74A81,A85040104001063721L HM09C08B642/086VB41I101BC34A1C018H92 L036B27,A99B03,B07B15,B20B21104001073721L BB68/BC19BR43BC49CI95I02BB72S,I10 L033B60,B33B37,B41B45,B52B57104001083721L MI97086B685)I10VB61I031CI95I07BB03SBS22L039B99,B68B72,B76B84,B91B96104001093721L NA35BB84HB71M10BB03HC33M086331B000 L034C33,C04C08,C15C19,C23C30104001103721L ,I10MI08B52BB41HC80BS22NA35BC53I86Y L035C68,C38C45,C49C53,C57C61104001113721L BC53I86ZB000@001INP002OUT L025C93,C77C81,C82C85,C88C91104001123721L 003TAP004REA005PUN008 L021D14,C97D00,D03D06,D09D12104001133721L CHE006PRI@007LOA@ L017D31,D18D21,D24D25,D28D31104001143721L 012BLO013UNB014FIX015 L021D52,D35D38,D41D44,D47D50104001153721L VAR@081STA082NON083 L019D71,D56D57,D60D63,D66D69104001163721L TM @084ALL085IDE@ L017D88,D75D76,D79D82,D85D88104001173721L 199UNL200NOR@2019 L019E07,D92D95,D98E01,E02E05104001183721L 20212 @076REC@I9C L017E24,E11E14,E15E18,E21E22104001193721L OUTI9DINP@045REL046 L019E43,E28E31,E34E35,E38E41104001203721L STO006OVE@007TAP008 L019E62,E47E50,E53E54,E57E60104001213721L REA009PUN010PRI@011 L019E81,E66E69,E72E75,E78E79104001223721L STA012NON013MIX014CHE L021F02,E85E88,E91E94,E97F00104001233721L 015IDE026RDL016TM @ L019F21,F06F09,F12F15,F18F21104001243721L 0181 0192 0203 021 L021F42,F25F28,F31F34,F37F40104001253721L 4 0225 0236 0247 L021F63,F46F49,F52F55,F58F61104001263721L 0258 @027729028733 L019F82,F67F70,F71F74,F77F80104001273721L @029NOR030UNL@037 L017F99,F84F87,F90F93,F96F97104001283721L REC038HAS@034CLE033 L019G18,G03G06,G09G10,G13G16104001293721L PRO032SCA@OVEFORCOB L019G37,G22G25,G28G29,G32G35104001303721L VARCHAFILMODCARALTREC L021G58,G41G44,G47G50,G53G56104001313721L SIZPADBLOIOAWORINDEOF L021G79,G62G65,G68G71,G74G77104001323721L WLRTOTTYPCHEHEASERREE L021H00,G83G86,G89G92,G95G98104001333721L REW@TAPCHEDIOFEAIOD L019H19,H04H05,H08H11,H14H17104001343721L LABALTEXIVARCOUDRIRWD L021H40,H23H26,H29H32,H35H38104001353721L REAINPEX71 8$ L014H54,H44H47,H49H50,H53H54104001363721L *555555' , L015H69,H56H57,H62H63,H66H68104001373721L 16 DTF3333352 L020H89,H71H72,H77H80,H85H87104001383721L ALTJOBCTL N L019I08,H93H96,H99I03,I04I08104001393721L L002I10,I10I12,040040,040040104001403721L " L001I98,040040,040040,040040104001413721L N000000,040040,040040,040040B00001423721L ,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 01433723L ,068072)063067/061039 ,001001104001443723L ,;; ;;; L012352,342343,344350,351352104001453723L ;;;;;;; L007359,354355,356357,358359104001463723L ;;;;; ;; L010369,361362,363364,365369104001473723L ; ; ; ;; L035404,374384,394404,040040104001483723L ; ;; ;;;; L028432,415425,426430,431432104001493723L ;; ; ; ; ; ; L035467,434435,438443,453458104001503723L ; ; ; L030497,478488,040040,040040104001513723L ; ; ; L030527,508518,040040,040040104001523723L ; ;;;;; ; L027554,538548,549550,551552104001533723L ; ; } L014568,556565,566567,568040104001543723L N000000,040040,040040,040040B00001553723L ,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 01563724L ,068072)063067/061039 ,001001104001573724L )332U%U1BU%U1BBP63MI97086B662CH182Q20 L037137,105110,115119,126131104001583724L B1670241D022160B167237 BBB171S337 L033170,146153,161162,163167104001593724L B183B721B?37H204M238Q67M238?82B000 L034204,175179,183187,194201104001603724L H219,Q51?66B000MI97086B721BQ20456 L033237,209216,220227,231235104001613724L N L001238,246040,040040,040040104001623724L } L001332,040040,040040,040040104001633724L N000000,040040,040040,040040B00001643724L ,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 01653725L ,068072)063067/061039 ,001001104001663725L D432768HJ60433L186086BJ35)I92,606 L033373,348355,362366,370040104001673725L M773606BS22N412)606U%U5RBS22N423 L032405,381385,389393,398402104001683725L BZ00 L%U5434W L%U1W50R5N L028433,410413,421424,432433104001693725L C!73W14B450SBT08BO33U%U5RU%U1BU%U1B L035468,441446,450454,459464104001703725L U%U6MU%U6RMW01003LI98036M%U5001WU%U5M L037505,474479,486493,501040104001713725L U%U4R)187036)100M%U1I97R,I98B543KB522 L037542,511518,522530,534539104001723725L M%U1I97R,I98S605604V574604KB543/466/ L036578,551555,562570,574578104001733725L /BW50N594BM65Y34L%U1K10R11 L026604,580584,588592,595603104001743725L A} L002606,606040,040040,040040104001753725L N000000,040040,040040,040040B00001763725L ,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 01773728L ,068072)063067/061039 ,001001104001783728L 000000000000000 L015101,001092,097040,040040104001793728L } L001100)100100,101040,040040104001803728L }00*** L006192)187187,190040,040040104001813728L /!73//086BW50N132B141074NB541 L029129,105106,110114,118126104001823728L 141M%U5001RM172N74M176B467/086BW50 L034163,133141,148152,156160104001833728L N132BN751/086 L013176,168172,173201,461040104001843728L HL04510C!73W14B506SBT08B506C!73W14BS64/L039505,474481,486490,494501104001853728L B525B686CB686A/0861H509O33M'15U62 L033538,510515,520524,525532104001863728L MMC018'18B697006*B697/S090BM19 L030568,540541,548556,561565104001873728L ?0/9'22BW50N922M'23I96,I98CI95'22B631S L038606,576580,584591,595602104001883728L CI29'26B'02SBW50NO24B576B6510S0,BW50 L036642,614619,623627,631639104001893728L NO24BL01BM19?0/9'22CI95'22B931SBW50 L035677,647651,655662,669674104001903728L N922B662M'27602B576,001HO99L01BO48006* L038715,682686,693697,701708104001913728L C018'30BO48SC018'33BH11SC018'36B879S L036751,723728,735740,747040104001923728L C018'39BU33SC018'42B474SC018'26BU78S L036787,759764,771776,783040104001933728L C019W05BJ51SC020U59BJ51SC020T57B494S L036823,795800,807812,819040104001943728L H099T74C0180?0H099BP00SB8590?0#B831 L035858,831838,842847,855040104001953728L BO48020 BO48016 BP00BO331B879008* L033891,867875,879883,884040104001963728L C016'26BU78SC016'36B879/B506000M%U4I12RL039930,899904,911916,920923104001973728L B943I86RBL01BW50N922CI31W16B943SM'27958L039969,939943,947951,958963104001983728L B943I86SB943I86CU%U4BM943958B510MI97086L039'08,978986,991998,'02040104001993728L BU78SCRALT RENDN L019'27,'13'16,'19'23,'24'27104002003728L MLCCHAENTMA EX } L016'43,'31'34,'37'40,'43040104002013728L N000000,040040,040040,040040B00002023728L ,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 02033727L ,068072)063067/061039 ,001001104002043727L 000000000000000 L015101,001092,097101,040040104002053727L }00*** L006192)187187,190040,040040104002063727L }/!73/B1181891B132 L018117)100100,101105,106114104002073727L M959764M959780,885,779,762B467H07* L034151,125132,136140,144040104002083727L M959526M959533B467 L018169,159166,201461,040040104002093727L B653,001HO99467B758006*C020964BH11S L035501,471475,482490,497040104002103727L C020969B758SC018972B795SC020977BU33S L036537,509514,521526,533040104002113727L C020982B857SC018985BU78SC019W05BJ51S L036573,545550,557562,569040104002123727L C020U59BJ51SC020990B918SH099T74C0180?0 L038611,581586,593598,605040104002133727L H099BP00SB6330?0#B605B758020 B758016 L037648,616621,629633,641040104002143727L BP00H696/086B677CB934A1 L023671,653657,661665,666671104002153727L K6931BW50N699B708074NB471934M%U5001R L036707,677681,685693,697700104002163727L )665779D991703)762885C!73999B745SBT08 L037744,715722,729736,741040104002173727L M994U62MMB693BO41CNM995763 L026770,752753,754758,763764104002183727L BO41B795C8H917803M959O37BO33B653 L032802,775780,781788,795799104002193727L M996O37H917471B775008*C016985BU78S L034836,810817,825832,040040104002203727L C016972B775/BO33B467C!73999B758SBT08 L036872,844849,853857,864869104002213727L BO33B467B896C1K1M959763HX65X71 L030902,877881,886887,889896104002223727L HX70914BX71B471C!73999BS64/B758/086 L035937,910914,918925,930934104002233727L ,001M'05019BU78881X71NCHAIN L027964,942949,953956,959960104002243727L MLCWAENTMA EX ENDLTORG4 L027991,970973,978983,986991104002253727L SCR8B END$$$ L014'05,995996,997'00,040040104002263727L U%U1RSH72BL01VD680'3KB/19MW160'5M089W11L039'82,'49'53,'57'65,'69'76104002273727L M099094BG46AW11089M0?00'1MW11089BA48 L036/18,'90'94,/01/08,/15040104002283727L HS63MW16099MW16W19D0'2W19SW17W19 L032/50,/23/30,/37/44,040040104002293727L V/70W19KAW18099B/44B!74UI00MW16W19 L034/84,/59/66,/70/78,040040104002303727L MUI2099D0'3W19SW17W19M0?00?0QW22 L032S16,/92/99,S06S13,040040104002313727L B!740?0,VS44W19KMW22099B/99B!740?0; L035S51,S25S33,S40S44,040040104002323727L VD410'3SB000MW27020MW28075BO33BD79/086 L038S89,S60S64,S71S78,S82S86104002333727L MT58021MU61075BK97HT41,001/186L086186 L037T26,S97T04,T08T12,T16T20104002343727L BD79L186086B000D83M%U1001RLTORG*# L033T59,T31T38,T42T45,T53T59104002353727L RLSGETPUTDTFOPEHU14/086 L023T82,T63T66,T69T72,T75T79104002363727L MW29086MW36020MU61075MW37006B000MW29L01L039U21,T90T97,U04U11,U15040104002373727L MW38N66BE90MU62075BO33MW39018BP18INCLD L038U59,U29U33,U40U44,U51U55104002383727L ZYWBT75M192011BK97BW50 L022U81,U61U62,U63U67,U74U78104002393727L NV89B434466 L011U92,U86U90,U93U96,U99V02104002403727L LW400?0H099 L011V30,V05V08,V11V14,V17V27104002413727L AW18095BH220953AW41089,0S1BV200S1, L034V64,V38V46,V53V57,040040104002423727L M095H10BN39MH10095BP79 L%U5434R0000 L037W01,V72V76,V83V87,V90V99104002433727L CALL!73 A3 L018W19,W06W09,W12W17,W18W19104002443727L ORG LBUNKNOWN*N L019W38,W23W28,W29W30,W37W38104002453727L D;1 L003W41,W40W41,040040,040040104002463727L } L001W49,040040,040040,040040104002473727L N000000,040040,040040,040040B00002483727L ,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 02493726L ,068072)063067/061039 ,001001104002503726L H094HX70M0!3094M0!8X29M0!0X41,X47 L033W82,W54W58,W65W72,W79040104002513726L M0!7X49AY93X49)X47DX25Y55DX29Y55MY94Y95L039X21,W90W97,X01X08,X15040104002523726L M%U0000RBX62X29WB000KBX22000}BBB L032X53,X30X38,X43X51,X52X53104002533726L BBBBBBB L007X60,X55X56,X57X58,X59X60104002543726L BBX71LB000SY96Y95DX25X88U%U0BBY10X29W L037X97,X62X67,X71X78,X85X90104002553726L VY49Y95KBX22AY96Y98U%U6EBY34Y975BX15 L036Y33,Y06Y10,Y17Y22,Y30040104002563726L SY98.000202BX15.000200BX15EMX29Y75 L034Y67,Y38Y45,Y49Y56,Y61040104002573726L M%U0000R.000201BX67HEADR129 L028Y95,Y76Y83,Y87Y92,Y94Y95104002583726L 1 L003Y98,Y97040,040040,040040104002593726L M340H10MMW12!55BW50NZ68)W49,I98 L031Z30,Z07Z08,Z15Z19,Z23Z27104002603726L M187I98)I95I97BZ77BU%U1RM!55189B101Y34 L038Z68,Z38Z45,Z50Z55,Z62Z66104002613726L L%U1001RBW50NZ68)'43U%U1RMH10W01M!58L04L039!07,Z77Z81,Z85Z89,Z94!01104002623726L HN73156M!59O41M!59O37M!59O89B101H07* L036!43,!15!22,!29!36,040040104002633726L M!59759B101 106N L016!59,!51!55,!56!59,Z00040104002643726L VJ080'3SVD410'3BMH44086)0'10'4B?41 L034J07,!82!90,!97J04,040040104002653726L MW140'3B!97MH45L01MH44N66MU60075BJ58 L036J43,J15J19,J26J33,J40040104002663726L MH44K20MU62075MW08094,021BK90092Y L033J76,J51J58,J65J69,040040104002673726L C0!0H48BK09SC0!0023Q094BK16SBJ69M0230!0L039K15,J84J89,J96K00,K05K09104002683726L )021NR17BO33BL01020DM011466H099S090 L035K50,K20K24,K28K36,K43K47104002693726L BM19,001L0/90?0H099BL090S0 BN390S0,BK51L039K89,K55K59,K66K70,K78K86104002703726L MH49086BO33B467BU15LH500?0/086M466011 L037L26,K97L01,L05L09,L16L20104002713726L M460025Q099MH44016MU61075M099H53MH53099L039L65,L34L38,L45L52,L59040104002723726L )024BO33/086BL010?0 MH56018M099094BG46 L038M03,L70L74,L78L86,L93M00104002733726L M0?00S1Q099BL45HN12,021BN130S1@BM980S1,L039M42,M11M15,M19M23,M27M35104002743726L C0S1H58BN09SAH59089C089H61BM23/C072H58 L038M80,M50M55,M62M69,M74040104002753726L BN09SBN09072 BN02,0S2AH59089B000?H64090L039N19,M86M94,M98N02,N09N13104002763726L BM550S1@SH66090BN20HO21BN54AH59089 L034N53,N28N35,N39N43,N47040104002773726L C089H61BO06/NG80B653NMU62075BO33 L032N85,N61N66,N70N74,N75N82104002783726L BN70006*S090BV20021,BN470S1 ,0S1B000Y34L039O24,N94N98,O06O14,O18O22104002793726L M%U6I12WHO99BO48M955X65M086I97BO89I85* L038O62,O33O37,O41O48,O55040104002803726L MW13I85,I98M187I98BW50NO24M958X65B000 L037O99,O70O74,O81O85,O89O96104002813726L MH67075BO33AH59W01M018192SV19SS L031P30,P07P11,P18P25,P29P30104002823726L SSSSSSS096 L010P40,P32P33,P34P35,P36P37104002833726L AH68095M011466H099S090BQ25021 BV20021, L038P78,P48P55,P59P63,P71040104002843726L AH68095BH330953BM19L0/90?0H099BV200S1, L038Q16,P86P94,P98Q05,Q09040104002853726L BV650S0,LH690?0/086CH72192MH75H72BR65S L038Q54,Q25Q32,Q36Q43,Q50040104002863726L BQ65UU%U1R,100BW50NB18C020Y91BQ65/ L034Q88,Q60Q65,Q69Q73,Q77Q84104002873726L C008H75BU63SC008192BQ65/BR65MH45K20 L035R23,Q96R01,R08R13,R17040104002883726L MU60075BO33BR65020DMH80020)188MU61075 L037R60,R31R35,R43R50,R54040104002893726L BO33/086,001100M187100BW50NB29C020Y91 L037R97,R65R69,R76R83,R87R91104002903726L M008H72BL01SC008H83B?26/,188?H86090 L035?32,?05?10,?17?22,?26040104002913726L BB380'1)SH66090C089H88B?33/S090BM19 L035?67,?41?48,?55?60,?64040104002923726L )0210S1C089H90BA26TC0S1H58B?64/BA26006*L039A06,?75?82,?87?94,?99040104002933726L ,0S1MW12072M072)0S1MH93089HJ07A48 L033A39,A11A18,A22A26,A33040104002943726L B'570'1)SH66090C089H95BA40/HJ07?41 L034A73,A48A55,A62A67,040040104002953726L N466011MH45A74C019W05BJ44SC020U59BJ44S L038B11,A81A88,A95B00,B07040104002963726L BR50U63M%U1001R'44M%U1001RB?410'2 L034B45,B16B19,B27B30,B38040104002973726L ,0'10'4VC560'3KB/19M099H98S099W22 L033B78,B53B61,B65B72,040040104002983726L YW16W22MI01099SW22099MI02097C099I05 L035C13,B86B93,C00C07,040040104002993726L BC78TM0G7073HC47)0'4MH98099M0?0000)0'1 L038C51,C19C26,C30C34,C41C48104003003726L B?41M069072MW01)0'10'4B?41L073I84 L033C84,C56C63,C67C74,C78040104003013726L )0'10'4MW14072BD22099HMI84072HC47BD33 L037D21,C92C99,D07D14,D18040104003023726L MI84071HC47)I/5BC30VD531881BR65MI06A74 L038D59,D29D33,D37D41,D49D53104003033726L )188BR65MW01011BA67HG45U%U1R)V98 L032D91,D64D68,D75D79,D83D88104003043726L ,100M187100BW50NT44C020Y91BD92/C008H75 L038E29,D96E03,E07E11,E18E23104003053726L BF56SMW08089BD92087Y,006C0'0008Q089 L035E64,E35E42,E50E54,E61040104003063726L BE42/VD920'11)006,0'1,V98BW50NT44 L033E97,E70E78,E82E86,E90E94104003073726L C019W05BJ19SC020U59BJ19SC020Y91BE23S L036F33,F05F10,F17F22,F29040104003083726L MU61075LI98100BO33BE90MW08089BG26087Y L037F70,F41F48,F52F56,F63040104003093726L C0'0H48Q089BG26SVF630'11VD83V981BT75 L036G06,F78F82,F87F95,G03040104003103726L ,0'1M0'3011BO33BF63/!73/)100 L028G34,G11G18,G22G26,G30G31104003113726L MH75H72B000HG57S090V0000!01SI08095 L034G68,G42G46,G50G54,G62040104003123726L AH59089BG54/086BW50NT44MU60075,001 L034H02,G76G80,G84G88,G92G99104003133726L BN82 MH67075BK97M099UR2BV46M099UR2 L037H39,H07H11,H18H22,H29H33104003143726L BP94BN 7 L014H53,H44H45,H46H49,H50H51104003153726L DCW 1525101?R L014H67,H57H59,H60H62,H65H67104003163726L 3, 999B )00690 L019H86,H69H70,H73H76,H81H84104003173726L 155101504 I99I L016I02,H89H91,H94H96,H99I02104003183726L I9FM10 L006I08,I06I07,I12040,040040104003193726L " L001I98,040040,040040,040040104003203726L N000000,040040,040040,040040B00003213726L ,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 03223726L ,068072)063067/061039 ,001001104003233726L /Z00080 03243726L