ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:06 2020 Source File: \kforph15.asm 1130 FORTRAN COMPILER PHASE 15 ******************** 2 | ****************************************************K1500020 3 | *************************************************** K1500030 4 | *STATUS- VERSION 2, MODIFICATION 4 * K1500040 5 | * * K1500050 6 | *FUNCTION/OPERATION * K1500060 7 | * * SCANS READ, WRITE, IF, CALL, AND ARITHMETIC * K1500070 8 | * STATEMENTS FOR SUBSCRIPT EXPRESSIONS. * K1500080 9 | * * OPTIMIZES SUBSCRIPT CALCULATION BY MEANS OF * K1500090 10 | * THE SUBSCRIPT EXPRESSION TABLE. * K1500100 11 | * * GENERATES THE SGT(SUBSCPIPTED GENERATED * K1500110 12 | * TEMPORARY) IF NECESSARY. * K1500120 13 | * * K1500130 14 | *ENTRY POINTS * K1500140 15 | * START- ENTERED VIA CALL TO THE ROL SUBROUTINE * K1500150 16 | * FROM THE PREVIOUS PHASE. * K1500160 17 | * * K1500170 18 | *INPUT- * K1500180 19 | * NONE IN THE USUAL SENSE. HOWEVER THE STMNT * K1500190 20 | * STRING AND SYMBOL TABLE SCANNED BY THE * K1500200 21 | * COMPILER MAY BE CONSIDERED INPUT. * K1500210 22 | * * K1500220 23 | *OUTPUT- * K1500230 24 | * MODIFICATIONS TO THE STMNT STRING AND SYMBOL * K1500240 25 | * TABLE MAY BE CONSIDERED OUTPUT. * K1500250 26 | * * K1500260 27 | *EXTERNAL REFERENCES- * K1500270 28 | ** $PHSE * K1500280 29 | * * K1500290 30 | *EXITS- * K1500300 31 | * EXIT FROM THIS PHASE IS MADE VIA THE ROL SUBR.* K1500310 32 | * * K1500320 33 | *TABLES/WORK AREAS- * K1500330 34 | * STATEMENT STRING * K1500340 35 | * SYMBOL TABLE * K1500350 36 | * BOUND VARIABLE TABLE * K1500360 37 | * FCOM * K1500370 38 | * * K1500380 39 | *ATTRIBUTES- * K1500390 40 | * N/A * K1500400 41 | * * K1500410 42 | *NOTES- * K1500420 43 | * THE SWITCHES USED IN THIS PHASE FOLLOW. IF * K1500430 44 | * NON-ZERO, THE SWITCH IS TRANSFER T. IF ZERO * K1500440 45 | * THE SWITCH IS NORMAL N. * K1500450 46 | * SWITCH SW1- * K1500460 47 | * SWITCH SW1 FLT PT NON-DIMENTIONED INTEGER VAR * K1500470 48 | * T-PURGE FLT PT NON-DIMENTIONED INTEGER VAR* K1500480 49 | * SWITCH SW2 I/O FOUND * K1500490 50 | * T-I/O FOUND * K1500500 51 | * SWITCH SW3 FLT PT NON-DIMENTIONED INTEGER VAR * K1500510 52 | * T-PUT FP NON-DIM INT VAR IN BOUND VAR TABL* K1500520 53 | * SWITCH SW4 IN FUNCTION CALL * K1500530 54 | * T-IN FUNCTION CALL * K1500540 55 | * SWITCH SW5 * K1500550 56 | * T-DO NOT OPTIMIZE * K1500560 57 | * SWITCH SW6 CLOSE STRING * K1500570 58 | * T-CLOSE STRING * K1500580 59 | * * K1500590 60 | * ERRORS DETECTED BY THIS PHASE - 63 * K1500600 61 | *************************************************** K1500610 62 | ABS K1500620 63 | * K1500630 64 | * SYSTEM EQUATES K1500640 8000 65 | MEMRY EQU /8000 K1500650 7A23 66 | OVERL EQU MEMRY-1501 START OF FCOM 2-4 K1500660 7FBC 67 | ROL EQU MEMRY-68 LOCN OF RTN TO READ NXT PH K1500670 0078 68 | $PHSE EQU /78 NO. OF PHASE NOW IN CORE K1500680 7A23 69 | ORG OVERL K1500690 002D 70 | PHID EQU 45 ID NUMBER THIS PHASE K1500700 71 | * K1500710 72 | * FORTRAN COMMUNICATION AREA K1500720 7A23 73 | ORG BSS 1 ORIGIN ADDRESS 2-4 K1500725 7A24 74 | SOFS BSS 1 START OF STRING K1500730 7A25 75 | EOFS BSS 1 END OF STRING K1500740 7A26 76 | SOFST BSS 1 START OF SYMBOL TABLE K1500750 7A27 77 | SOFNS BSS 1 START OF NON-STATEMENT NUMBERS K1500760 7A28 78 | SOFXT BSS 1 START OF SUBSCRIPT TEMPORARIES K1500770 7A29 79 | SOFGT BSS 1 START OF GENERATED TEMPORARIES K1500780 7A2A 80 | EOFST BSS 1 END OF SYMBOL TABLE K1500790 7A2B 81 | COMON BSS 1 NEXT AVAILABLE COMMON K1500800 7A2C 82 | CSIZE BSS 1 SIZE OF COMMON K1500810 7A2D 83 | ERROR BSS 1 OVERLAP ERROR K1500820 7A2E 84 | FNAME BSS 1 PROGRAM NAME K1500830 7A2F 85 | BSS 1 K1500840 7A30 86 | SORF BSS 1 SUBROUTINE(-) OR FUNCTION(+) K1500850 7A31 87 | CCWD BSS 1 CONTROL CARD WORD K1500860 88 | * BIT 15 TRANSFER TRACE K1500870 89 | * BIT 14 ARITHMETIC TRACE K1500880 90 | * BIT 13 EXTENDED PRECISION K1500890 91 | * BIT 12 LIST SYMBOL TABLE K1500900 92 | * BIT 11 LIST SUBPROGRAM NAMES K1500910 93 | * BIT 10 LIST SOURCE PROGRAM K1500920 94 | * BIT 9 ONE WORD INTEGERS K1500930 95 | * BIT 8 ORIGIN 2-4 K1500935 7A32 96 | IOCS BSS 1 IOCS CONTROL CARD WORD K1500940 97 | * BIT 15 CARD K1500950 98 | * BIT 14 PAPER TAPE K1500960 99 | * BIT 13 TYPEWRITER K1500970 100 | * BIT 12 1403 PRINTER K1500980 101 | * BIT 11 2501 READER K1500990 102 | * BIT 10 KEYBOARD K1501000 103 | * BIT 9 1442 PUNCH K1501010 104 | * BIT 8 DISK K1501020 105 | * BIT 7 1132 PRINTER K1501030 106 | * BIT 3 PLOTTER K1501040 7A33 107 | DFCNT BSS 1 K1501050 108 | * K1501060 109 | * K1501070 110 | * END OF FORTRAN COMMUNICATION K1501080 111 | * AREA K1501090 112 | *************************************************** K1501100 113 | * K1501260 114 | * K1501270 7A36 115 | BPHAR EQU *+2 BEGIN PH AREA K1501280 7A34 0000 116 | DC 0 LOADER WORK AREA. K1501290 7A35 FFD3 117 | DC -45 -PHASE ID FOR SLET LOOKUP K1501300 7A36 035A 118 | DC NXTPH-*+1 TABLE FOR NEXT PHASE ENTRY K1501310 7A37 0001 119 | DC 1 ONE ENTRY TO BE SET BY LDR K1501320 7A36 120 | ORG *-2 K1501330 7A36 612D 121 | START LDX 1 PHID GET ID THIS PHASE K1501340 7A37 6D00 0078 122 | STX L1 $PHSE STORE IN SYSTEM PHASE AREA K1501350 123 | * K1501360 124 | * OVERLAP ERROR K1501370 125 | * K1501380 7A39 C0F3 126 | LD ERROR K1501390 7A3A 4C20 7D8A 127 | BSC L OUT,Z K1501400 128 | * K1501410 129 | * INITIALIZE PHASE K1501420 7A3C 6580 7A24 130 | LDX I1 SOFS K1501430 7A3E 6600 7ADB 131 | LDX L2 SETBL K1501440 7A40 630F 132 | LDX 3 15 K1501450 7A41 1010 133 | SLA 16 K1501460 7A42 D400 7AC8 134 | STO L SW1 K1501470 7A44 D400 7AC9 135 | STO L SW2 K1501480 7A46 D400 7ACA 136 | STO L SW3 K1501490 7A48 D207 137 | LOZZ STO 2 7 K1501500 7A49 D700 7C2D 138 | STO L3 GTTAB-1 K1501510 7A4B 7208 139 | MDX 2 8 K1501520 7A4C 73FF 140 | MDX 3 -1 K1501530 7A4D 70FA 141 | MDX LOZZ K1501540 7A4E D400 7E10 142 | STO L BVTAB K1501550 143 | * K1501560 144 | * END STATEMENT K1501570 7A50 C100 145 | TEST LD 1 0 K1501580 7A51 1801 146 | SRA 1 K1501590 7A52 E07A 147 | AND IDTPE K1501600 7A53 907A 148 | S ENDC K1501610 7A54 4C18 7D8A 149 | BSC L OUT,+- K1501620 150 | * K1501630 151 | * FORMAT STATEMENT K1501640 7A56 9078 152 | S FORMM K1501650 7A57 4C18 7AC0 153 | BSC L MOVE,+- K1501660 154 | * K1501670 155 | * DEFINE FILE K1501680 7A59 9076 156 | S DFL K1501690 7A5A 4C18 7AC0 157 | BSC L MOVE,+- K1501700 158 | * K1501710 159 | * CALL LINK OR CALL EXIT K1501720 7A5C 9074 160 | S CLE K1501730 7A5D 4C18 7AC0 161 | BSC L MOVE,+- K1501740 162 | * K1501750 163 | * DATA STATEMENT K1501760 7A5F 9072 164 | S DATAS K1501770 7A60 4C18 7AC0 165 | BSC L MOVE,+- K1501780 166 | * K1501790 167 | * STATEMENT HAVE NUMBER K1501800 7A62 C100 168 | LD 1 0 K1501810 7A63 4C04 7A7F 169 | BSC L TEST1,E K1501820 170 | * K1501830 171 | * SET PRIORITY STATUS K1501840 7A65 6600 7ADB 172 | TEST3 LDX L2 SETBL K1501850 7A67 630F 173 | LDX 3 15 K1501860 7A68 C207 174 | LOOP1 LD 2 7 K1501870 7A69 4C18 7A6E 175 | BSC L SK,+- K1501880 7A6B EC00 7AD3 176 | OR L MASK1 K1501890 7A6D D207 177 | STO 2 7 K1501900 7A6E 7208 178 | SK MDX 2 8 K1501910 7A6F 73FF 179 | MDX 3 -1 K1501920 7A70 70F7 180 | MDX LOOP1 K1501930 181 | * K1501940 182 | * IS BOUND VARIABLE TABLE EMPTY K1501950 7A71 C400 7E10 183 | TEST2 LD L BVTAB K1501960 7A73 4C18 7A9D 184 | BSC L B1,+- K1501970 185 | * K1501980 186 | * PURG ENTRY FROM BOUND VARIABLE K1501990 187 | * TABLE K1502000 188 | * K1502010 7A75 C480 7A25 189 | B4 LD I EOFS K1502020 7A77 4400 7DDE 190 | BSI L PURG K1502030 7A79 74FF 7A25 191 | MDX L EOFS,-1 K1502040 7A7B 74FF 7E10 192 | MDX L BVTAB,-1 K1502050 7A7D 70F7 193 | MDX B4 K1502060 7A7E 70F2 194 | MDX TEST2 K1502070 195 | * K1502080 196 | * REFERENCED STATEMENT K1502090 7A7F C101 197 | TEST1 LD 1 1 K1502100 7A80 4400 7E18 198 | BSI L CHECK K1502110 7A82 E400 7AD4 199 | AND L MASK2 K1502120 7A84 4C20 7A9C 200 | BSC L TLR,Z K1502130 201 | * K1502140 202 | * SPECIAL REFERENCED STATEMENT K1502150 7A86 C100 203 | LD 1 0 K1502160 7A87 1801 204 | SRA 1 K1502170 7A88 4804 205 | BSC E K1502180 7A89 7001 206 | MDX TLR1 K1502190 7A8A 70DA 207 | MDX TEST3 K1502200 7A8B C300 208 | TLR1 LD 3 0 K1502210 7A8C EC00 7AD4 209 | OR L MASK2 K1502220 7A8E D300 210 | STO 3 0 K1502230 7A8F 70D5 211 | MDX TEST3 K1502240 212 | * K1502250 213 | * CLEAR SUBSCRIPT EXPRESSION TABLE K1502260 7A90 0000 214 | CLSET DC 0 (SUBROUTINE) K1502270 7A91 6600 7ADB 215 | LDX L2 SETBL K1502280 7A93 6780 7B53 216 | LDX I3 C15 K1502290 7A95 1010 217 | SLA 16 K1502300 7A96 D207 218 | LOOP STO 2 7 K1502310 7A97 7208 219 | MDX 2 8 K1502320 7A98 73FF 220 | MDX 3 -1 K1502330 7A99 70FC 221 | MDX LOOP K1502340 7A9A 4C80 7A90 222 | BSC I CLSET EXIT K1502350 223 | * K1502360 224 | * NORMALIZE SWITCHES K1502370 7A9C 40F3 225 | TLR BSI CLSET CLEAR SUBSCR EXPR TABLE K1502380 7A9D 1010 226 | B1 SLA 16 K1502390 7A9E D400 7AC8 227 | STO L SW1 K1502400 7AA0 D400 7AC9 228 | STO L SW2 K1502410 7AA2 D400 7ACA 229 | STO L SW3 K1502420 7AA4 D400 7ACB 230 | STO L SW4 K1502430 7AA6 D400 7ACC 231 | STO L SW5 K1502440 232 | * K1502450 233 | * ARITHMETIC STATEMENT K1502460 7AA8 C100 234 | B LD 1 0 K1502470 7AA9 1801 235 | SRA 1 K1502480 7AAA E022 236 | AND IDTPE K1502490 7AAB 4C18 7B59 237 | BSC L TEST4,+- K1502500 238 | * K1502510 239 | * CALL STATEMENT K1502520 7AAD 9027 240 | S CALLC K1502530 7AAE 4C18 7B63 241 | BSC L TEST5,+- K1502540 242 | * K1502550 243 | * READ STATEMENT K1502560 7AB0 9025 244 | S READC K1502570 7AB1 4C18 7B5E 245 | BSC L TEST8,+- K1502580 246 | * K1502590 247 | * WRITE STATEMENT K1502600 7AB3 9023 248 | S WRITC K1502610 7AB4 4C18 7B60 249 | BSC L TEST7,+- K1502620 250 | * K1502630 251 | * K1502640 7AB6 9021 252 | S FINDC IS IT A FIND STMNT K1502650 7AB7 4C18 7B5E 253 | BSC L TEST8,+- BRANCH IF YES K1502660 254 | * K1502670 255 | * IF STATEMENT K1502680 7AB9 901F 256 | S IFC K1502690 7ABA 4C18 7B65 257 | BSC L C,+- K1502700 258 | * K1502710 259 | * DO STATEMENT K1502720 7ABC 901D 260 | S DOC K1502730 7ABD 4C20 7AC0 261 | BSC L MOVE,Z K1502740 262 | * K1502750 263 | * CLEAR SUBSCRIPT K1502760 7ABF 40D0 264 | BSI CLSET EXPRESSION TABLE K1502770 265 | * K1502780 266 | * MOVE TO NEXT STATEMENT K1502790 7AC0 C100 267 | MOVE LD 1 0 K1502800 7AC1 1802 268 | SRA 2 K1502810 7AC2 E400 7B54 269 | AND L IDNRM K1502820 7AC4 D001 270 | STO NXID+1 K1502830 7AC5 7500 0000 271 | NXID MDX L1 0 K1502840 7AC7 7088 272 | MDX TEST K1502850 273 | * K1502860 274 | * CONSTANTS K1502870 7AC8 0000 275 | SW1 DC 0 K1502880 7AC9 0000 276 | SW2 DC 0 K1502890 7ACA 0000 277 | SW3 DC 0 K1502900 7ACB 0000 278 | SW4 DC 0 K1502910 7ACC 0000 279 | SW5 DC 0 K1502920 7ACD 7C00 280 | IDTPE DC /7C00 K1502930 7ACE 0800 281 | ENDC DC /0800 K1502940 7ACF 2800 282 | FORMM DC /3000-/0800 K1502950 7AD0 4800 283 | DFL DC /7800-/3000 K1502960 7AD1 F800 284 | CLE DC /7000-/7800 K1502970 7AD2 0C00 285 | DATAS DC /7C00-/7000 K1502980 7AD3 8000 286 | MASK1 DC /8000 K1502990 7AD4 0020 287 | MASK2 DC /0020 K1503000 7AD5 1800 288 | CALLC DC /1800 K1503010 7AD6 3000 289 | READC DC /4800-/1800 K1503020 7AD7 FC00 290 | WRITC DC /4400-/4800 K1503030 7AD8 3000 291 | FINDC DC /7400-/4400 K1503040 7AD9 C800 292 | IFC DC /3C00-/7400 K1503050 7ADA F000 293 | DOC DC /2C00-/3C00 K1503060 7ADB 294 | SETBL BSS 120 WORK AREA K1503070 7B53 000F 295 | C15 DC 15 CONSTANT K1503080 7B54 01FF 296 | IDNRM DC /01FF K1503090 7B55 0000 297 | IDSAV DC 0 K1503100 7B56 002A 298 | DOAC DC /002A K1503110 7B57 0030 299 | DIOOP DC /0030 CONSTANT K1503120 7B58 7000 300 | DEFIL DC /7800-/0800 DEFINI FILE TEST CNSTNT K1503130 301 | * K1503140 302 | * TAG SW3 K1503150 7B59 7401 7ACA 303 | TEST4 MDX L SW3,1 K1503160 304 | * K1503170 305 | * TAG SW1 K1503180 7B5B 7401 7AC8 306 | MDX L SW1,1 K1503190 7B5D 7007 307 | MDX C K1503200 308 | * K1503210 309 | * TAG SW1 K1503220 7B5E 7401 7AC8 310 | TEST8 MDX L SW1,1 K1503230 311 | * K1503240 312 | * TAG SW2 K1503250 7B60 7401 7AC9 313 | TEST7 MDX L SW2,1 K1503260 7B62 7002 314 | MDX C K1503270 315 | * K1503280 316 | * TAG SW3 K1503290 7B63 7401 7ACA 317 | TEST5 MDX L SW3,1 K1503300 318 | * K1503310 319 | * INITIALIZE TO SCAN BODY K1503320 7B65 69EF 320 | C STX 1 IDSAV K1503330 7B66 C100 321 | LD 1 0 K1503340 7B67 4804 322 | BSC E K1503350 7B68 7101 323 | MDX 1 1 K1503360 7B69 7101 324 | MDX 1 1 K1503370 7B6A 1010 325 | SLA 16 K1503380 7B6B D400 7C2B 326 | STO L TOT K1503390 327 | * K1503400 7B6D C100 328 | LD 1 0 K1503410 7B6E 90E8 329 | S DIOOP IS IT DISK I/O K1503420 7B6F 4C20 7B77 330 | BSC L F,Z BRANCH IF NO 2-4 K1503430 7B71 C400 7A30 331 | LD L SORF IS IT A SUBPROGRAM 2-4 K1503432 7B73 4C18 7B8A 332 | BSC L AVAR,+- BRANCH IF NO 2-4 K1503434 7B75 D400 7D17 333 | STO L FILSW SET FILE SWITCH ON 2-4 K1503436 334 | * K1503440 335 | * SEMI-COLON K1503450 7B77 C100 336 | F LD 1 0 K1503460 7B78 4C18 7D4B 337 | BSC L JAY,+- K1503470 338 | * K1503480 339 | * TEST SW2 K1503490 7B7A C400 7AC9 340 | LD L SW2 K1503500 7B7C 4C18 7CF0 341 | BSC L HEH,+- K1503510 342 | * K1503520 343 | * DOA K1503530 7B7E C100 344 | LD 1 0 K1503540 7B7F 90D6 345 | S DOAC K1503550 7B80 4C20 7BA6 346 | BSC L I,Z K1503560 347 | * K1503570 348 | * PURG INDICY FROM S.E.TABLE K1503580 7B82 C1FF 349 | LD 1 -1 K1503590 7B83 4400 7DDE 350 | BSI L PURG K1503600 351 | * K1503610 352 | * NORMALIZE SW3 K1503620 7B85 1010 353 | EE SLA 16 K1503630 7B86 D400 7ACA 354 | STO L SW3 K1503640 355 | * K1503650 356 | * MOVE POINTER K1503660 7B88 7101 357 | E MDX 1 1 K1503670 7B89 70ED 358 | MDX F K1503680 359 | * PUT ASSOCIATED VARIABLE IN BOUND VAR TABLE K1503690 360 | * K1503700 7B8A 6917 361 | AVAR STX 1 AVARX+1 SAVE XR1 K1503710 7B8B 6580 7A24 362 | LDX I1 SOFS INITIALIZE TO SCAN STRING K1503720 363 | * K1503730 7B8D C100 364 | AVAR2 LD 1 0 LOAD STMNT ID K1503740 7B8E 1801 365 | SRA 1 K1503750 7B8F E400 7ACD 366 | AND L IDTPE MASK FOR TYPE CHECK K1503760 367 | * K1503770 7B91 9400 7ACE 368 | S L ENDC IS IT END K1503780 7B93 4C18 7BA1 369 | BSC L AVARX,+- BRANCH IF YES K1503790 370 | * K1503800 7B95 90C2 371 | S DEFIL IS IT DEFINE FILE K1503810 7B96 4C20 7B9A 372 | BSC L AVAR4,Z BRANCH IF NOT K1503820 373 | * K1503830 7B98 C104 374 | LD 1 4 GET ASSOCIATED VARIABLE K1503840 7B99 4026 375 | BSI PBVTB PUT INTO BOUND VAR TABLE K1503850 376 | * K1503860 377 | * K1503870 7B9A C100 378 | AVAR4 LD 1 0 LOAD STATEMENT ID K1503880 7B9B 1802 379 | SRA 2 K1503890 7B9C E0B7 380 | AND IDNRM GET STATEMENT NORM K1503900 7B9D D001 381 | STO AVAR6+1 K1503910 7B9E 7500 0000 382 | AVAR6 MDX L1 *-* INCR TO NEXT STATEMENT K1503920 7BA0 70EC 383 | MDX AVAR2 CHECK NEXT STATEMENT K1503930 384 | * K1503940 7BA1 6500 0000 385 | AVARX LDX L1 *-* RESTORE XR1 K1503950 7BA3 70D3 386 | MDX F CONTINUE K1503960 387 | * K1503970 388 | * K1503980 389 | * CONSTANTS K1503990 7BA4 DBDE 390 | MASK3 DC /DBDE K1504000 7BA5 4000 391 | MASK4 DC /4000 K1504010 392 | * K1504020 393 | * TEST SW3 K1504030 7BA6 C400 7ACA 394 | I LD L SW3 K1504040 7BA8 4C20 7BAE 395 | BSC L B3,Z K1504050 396 | * K1504060 397 | * TEST SW1 K1504070 7BAA C400 7AC8 398 | LD L SW1 K1504080 7BAC 4C18 7BD5 399 | BSC L D,+- K1504090 400 | * K1504100 401 | * FIXED NON DIMED INTEGER VARIABLE K1504110 7BAE C100 402 | B3 LD 1 0 K1504120 7BAF 4400 7E18 403 | BSI L CHECK K1504130 7BB1 E0F2 404 | AND MASK3 K1504140 7BB2 F0F2 405 | EOR MASK4 K1504150 7BB3 4C20 7BD5 406 | BSC L D,Z K1504160 407 | * K1504170 408 | * TEST SW3 K1504180 7BB5 C400 7ACA 409 | LD L SW3 K1504190 7BB7 4C18 7BBC 410 | BSC L PGSET,+- BRANCH TO PURGE S.E. TABLE K1504200 7BB9 C100 411 | LD 1 0 LOAD NAME 2-4 K1504205 7BBA 4005 412 | BSI PBVTB PUT NAME IN B.V. TABLE K1504210 7BBB 70CC 413 | MDX E GO MOVE POINTER K1504220 414 | * K1504230 415 | * PURG NAME FROM S.E.TABLE K1504240 7BBC C100 416 | PGSET LD 1 0 K1504250 7BBD 4400 7DDE 417 | BSI L PURG K1504260 7BBF 70C8 418 | MDX E K1504270 419 | * K1504280 420 | * PUT NAME IN B.V.TABLE K1504290 7BC0 0000 421 | PBVTB DC *-* LINK K1504300 7BC1 7401 7A25 422 | MDX L EOFS,1 K1504320 7BC3 D480 7A25 423 | STO I EOFS K1504330 7BC5 7401 7E10 424 | MDX L BVTAB,1 K1504340 425 | * K1504350 426 | * CHECK OVERLAP K1504360 7BC7 C400 7A2A 427 | LD L EOFST K1504370 7BC9 8400 7CEC 428 | A L TWO K1504380 7BCB 9400 7A25 429 | S L EOFS K1504390 7BCD 4C28 7CBC 430 | BSC L WAR,+Z K1504400 7BCF 4C80 7BC0 431 | BSC I PBVTB RETURN K1504410 432 | * K1504420 433 | * CONSTANTS K1504430 7BD1 0018 434 | SUBZ DC /0018 K1504440 7BD2 0002 435 | SUB1 DC /0002 K1504450 7BD3 0007 436 | C7 DC 7 K1504460 7BD4 000B 437 | C11 DC 11 K1504470 438 | * K1504480 439 | * SUB-ZERO K1504490 7BD5 C100 440 | D LD 1 0 K1504500 7BD6 90FA 441 | S SUBZ K1504510 7BD7 4C18 7BE3 442 | BSC L TST,+- K1504520 443 | * K1504530 444 | * SUB-ONE K1504540 7BD9 90F8 445 | S SUB1 K1504550 7BDA 4C18 7BE6 446 | BSC L TST1,+- K1504560 447 | * K1504570 448 | * SUB-TWO K1504580 7BDC 90F5 449 | S SUB1 K1504590 7BDD 4C18 7BE8 450 | BSC L TST2,+- K1504600 451 | * K1504610 452 | * SUB-THREE K1504620 7BDF 90F2 453 | S SUB1 K1504630 7BE0 4C18 7BEA 454 | BSC L TST3,+- K1504640 7BE2 70A5 455 | MDX E K1504650 456 | * K1504660 457 | * Y=3 K1504670 7BE3 C400 7E0D 458 | TST LD L C3 K1504680 7BE5 7006 459 | MDX JED K1504690 460 | * K1504700 461 | * Y=7 K1504710 7BE6 C0EC 462 | TST1 LD C7 K1504720 7BE7 7004 463 | MDX JED K1504730 464 | * K1504740 465 | * Y=11 K1504750 7BE8 C0EB 466 | TST2 LD C11 K1504760 7BE9 7002 467 | MDX JED K1504770 468 | * K1504780 469 | * Y=15 K1504790 7BEA C400 7B53 470 | TST3 LD L C15 K1504800 7BEC D03B 471 | JED STO Y K1504810 472 | * K1504820 473 | * GET SUBSCRIPT EXPRESSION K1504830 7BED 6F00 7E0B 474 | TST4 STX L3 SAVE K1504840 7BEF 6939 475 | STX 1 SAVEM K1504850 7BF0 6207 476 | LDX 2 7 K1504860 7BF1 6700 7E11 477 | LDX L3 BUFF K1504870 7BF3 1010 478 | SLA 16 K1504880 7BF4 D600 7E10 479 | STO L2 BUFF-1 K1504890 7BF6 72FF 480 | MDX 2 -1 K1504900 7BF7 70FB 481 | MDX TST4+6 K1504910 7BF8 6680 7C28 482 | LDX I2 Y K1504920 7BFA 72FE 483 | FOX1 MDX 2 -2 K1504930 7BFB 7001 484 | MDX FOX K1504940 7BFC 7005 485 | MDX FOX+5 K1504950 7BFD C101 486 | FOX LD 1 1 K1504960 7BFE D300 487 | STO 3 0 K1504970 7BFF 7102 488 | MDX 1 2 K1504980 7C00 7301 489 | MDX 3 1 K1504990 7C01 70F8 490 | MDX FOX1 K1505000 491 | * K1505010 492 | * TEST SW5 K1505020 7C02 C400 7ACC 493 | LD L SW5 K1505030 7C04 4C20 7C25 494 | BSC L GOG1,Z K1505040 495 | * K1505050 496 | * SUBSCRIPT EXPRESSION IN TABLE K1505060 7C06 630F 497 | LDX 3 15 K1505070 7C07 6B22 498 | STX 3 SAVET K1505080 7C08 6500 7ADB 499 | LDX L1 SETBL K1505090 7C0A C107 500 | LUUP3 LD 1 7 K1505100 7C0B 4C20 7C0F 501 | BSC L LUUP4,Z K1505110 7C0D 7108 502 | MDX 1 8 K1505120 7C0E 7013 503 | MDX GOG+4 K1505130 7C0F 6600 7E11 504 | LUUP4 LDX L2 BUFF K1505140 7C11 6307 505 | LDX 3 7 K1505150 7C12 C200 506 | LUUP LD 2 0 K1505160 7C13 9100 507 | S 1 0 K1505170 7C14 4C20 7C1E 508 | BSC L GOG,Z K1505180 7C16 7201 509 | MDX 2 1 K1505190 7C17 7101 510 | MDX 1 1 K1505200 7C18 73FF 511 | MDX 3 -1 K1505210 7C19 70F8 512 | MDX LUUP K1505220 7C1A C012 513 | LD C16 K1505230 7C1B D100 514 | STO 1 0 K1505240 7C1C 692E 515 | STX 1 TTA+1 K1505250 7C1D 7022 516 | MDX TST5 K1505260 7C1E 6B01 517 | GOG STX 3 GOG+2 K1505270 7C1F 7500 0000 518 | MDX L1 0 K1505280 7C21 7101 519 | MDX 1 1 K1505290 7C22 74FF 7C2A 520 | MDX L SAVET,-1 K1505300 7C24 70E5 521 | MDX LUUP3 K1505310 7C25 6580 7C29 522 | GOG1 LDX I1 SAVEM K1505320 7C27 703C 523 | MDX G K1505330 524 | * K1505340 525 | * CONSTANTS K1505350 7C28 0000 526 | Y DC 0 K1505360 7C29 0000 527 | SAVEM DC 0 K1505370 7C2A 0000 528 | SAVET DC 0 K1505380 7C2B 0000 529 | TOT DC 0 K1505390 7C2C 0000 530 | SAVEB DC 0 K1505400 7C2D 0010 531 | C16 DC 16 K1505410 7C2E 532 | GTTAB BSS 15 K1505420 7C3D 8000 533 | GTEMP DC /8000 K1505430 7C3E 4024 534 | GTPID DC /4024 K1505440 7C3F 0000 535 | SW6 DC 0 K1505450 536 | * K1505460 537 | * TAG NAME K1505470 7C40 6580 7C29 538 | TST5 LDX I1 SAVEM K1505480 7C42 90E7 539 | S SAVET K1505490 7C43 100B 540 | SLA 11 K1505500 7C44 E9FF 541 | OR 1 -1 K1505510 7C45 D1FF 542 | STO 1 -1 K1505520 543 | * K1505530 544 | * LITERAL SUBSCRIPT K1505540 7C46 C100 545 | LD 1 0 K1505550 7C47 9089 546 | S SUBZ K1505560 7C48 4C20 7C4E 547 | BSC L TST5A,Z K1505570 7C4A 6700 0000 548 | TTA LDX L3 0 K1505580 7C4C 73F9 549 | MDX 3 -7 K1505590 7C4D 702B 550 | MDX JAM+1 K1505600 551 | * K1505610 552 | * REMOVE Y SYMBOLS FROM STATEMENT K1505620 7C4E 69DB 553 | TST5A STX 1 SAVET K1505630 7C4F C0DA 554 | LD SAVET K1505640 7C50 80D7 555 | A Y K1505650 7C51 D0DA 556 | STO SAVEB K1505660 7C52 6680 7C2C 557 | LDX I2 SAVEB K1505670 7C54 C200 558 | HOG LD 2 0 K1505680 7C55 D100 559 | STO 1 0 K1505690 7C56 4818 560 | BSC +- K1505700 7C57 7003 561 | MDX HOG+7 K1505710 7C58 7101 562 | MDX 1 1 K1505720 7C59 7201 563 | MDX 2 1 K1505730 7C5A 70F9 564 | MDX HOG K1505740 7C5B 6580 7C2A 565 | LDX I1 SAVET K1505750 566 | * K1505760 567 | * TAG SW6 K1505770 7C5D 7401 7C3F 568 | MDX L SW6,1 K1505780 569 | * K1505790 570 | * TOT=TOT+Y K1505800 7C5F C0CB 571 | LD TOT K1505810 7C60 80C7 572 | A Y K1505820 7C61 D0C9 573 | STO TOT K1505830 7C62 4C00 7B77 574 | BSC L F K1505840 575 | * K1505850 576 | * USABLE SLOT IN TABLE K1505860 7C64 6700 7ADB 577 | G LDX L3 SETBL K1505870 7C66 620F 578 | LDX 2 15 K1505880 7C67 C307 579 | LD 3 7 K1505890 7C68 4818 580 | BSC +- K1505900 7C69 700E 581 | MDX JAM K1505910 7C6A 7308 582 | MDX 3 8 K1505920 7C6B 72FF 583 | MDX 2 -1 K1505930 7C6C 70FA 584 | MDX G+3 K1505940 7C6D 6700 7ADB 585 | LDX L3 SETBL K1505950 7C6F 620F 586 | LDX 2 15 K1505960 7C70 C307 587 | GG LD 3 7 K1505970 7C71 4808 588 | BSC + K1505980 7C72 7005 589 | MDX JAM K1505990 7C73 7308 590 | MDX 3 8 K1506000 7C74 72FF 591 | MDX 2 -1 K1506010 7C75 70FA 592 | MDX GG K1506020 7C76 6400 7D9A 593 | LDX L PIG K1506030 594 | * K1506040 595 | * ADD EXPRESSION TO SE TABLE K1506050 7C78 6AB1 596 | JAM STX 2 SAVET K1506060 7C79 6600 7E11 597 | LDX L2 BUFF K1506070 7C7B 69B0 598 | STX 1 SAVEB K1506080 7C7C 6107 599 | LDX 1 7 K1506090 7C7D C200 600 | LD 2 0 K1506100 7C7E D300 601 | STO 3 0 K1506110 7C7F 7201 602 | MDX 2 1 K1506120 7C80 7301 603 | MDX 3 1 K1506130 7C81 71FF 604 | MDX 1 -1 K1506140 7C82 70FA 605 | MDX JAM+5 K1506150 7C83 C0A9 606 | LD C16 K1506160 7C84 D300 607 | STO 3 0 K1506170 7C85 6780 7E0B 608 | LDX I3 SAVE K1506180 609 | * K1506190 610 | * TAG NAME K1506200 7C87 6580 7C2C 611 | LDX I1 SAVEB K1506210 7C89 C0A3 612 | LD C16 K1506220 7C8A 909F 613 | S SAVET K1506230 7C8B D0A0 614 | STO SAVEB K1506240 7C8C 100B 615 | SLA 11 K1506250 7C8D E9FF 616 | OR 1 -1 K1506260 7C8E D1FF 617 | STO 1 -1 K1506270 618 | * K1506280 619 | * GT GENERATED K1506290 7C8F 6600 7C2D 620 | LDX L2 GTTAB-1 K1506300 7C91 7680 7C2C 621 | MDX I2 SAVEB K1506310 7C93 C200 622 | LD 2 0 K1506320 7C94 4C18 7C98 623 | BSC L OPEN1,+- K1506330 7C96 D052 624 | STO VINE K1506340 7C97 7028 625 | MDX OPEN K1506350 626 | * K1506360 627 | * GENERATE GT K1506370 7C98 6780 7A2A 628 | OPEN1 LDX I3 EOFST K1506380 7C9A 6B4E 629 | STX 3 VINE K1506390 7C9B C400 7A26 630 | LD L SOFST K1506400 7C9D 8400 7E0D 631 | A L C3 K1506410 7C9F 9049 632 | S VINE K1506420 7CA0 1890 633 | SRT 16 K1506430 7CA1 AC00 7E0D 634 | D L C3 K1506440 7CA3 D045 635 | STO VINE K1506450 7CA4 C087 636 | LD SAVEB K1506460 7CA5 100B 637 | SLA 11 K1506470 7CA6 E896 638 | OR GTEMP K1506480 7CA7 E841 639 | OR VINE K1506490 7CA8 D200 640 | STO 2 0 K1506500 7CA9 D03F 641 | STO VINE K1506510 7CAA C093 642 | LD GTPID K1506520 7CAB D300 643 | STO 3 0 K1506530 7CAC C400 7C2C 644 | LD L SAVEB K1506540 7CAE D301 645 | STO 3 1 K1506550 7CAF 1010 646 | SLA 16 K1506560 7CB0 D302 647 | STO 3 2 K1506570 7CB1 74FD 7A2A 648 | MDX L EOFST,-3 K1506580 7CB3 74FD 7A29 649 | MDX L SOFGT,-3 K1506590 650 | * K1506600 651 | * CHECK FOR OVERLAP K1506610 7CB5 C400 7A2A 652 | LD L EOFST K1506620 7CB7 8034 653 | A TWO K1506630 7CB8 9400 7A25 654 | S L EOFS K1506640 7CBA 4C10 7CC0 655 | BSC L OPEN,- K1506650 656 | * K1506660 657 | * SET UP OVERLAP K1506670 7CBC 7401 7A2D 658 | WAR MDX L ERROR,1 K1506680 7CBE 6400 7D8A 659 | LDX L OUT K1506690 660 | * K1506700 661 | * OPEN STRING TWO WORDS K1506710 7CC0 6929 662 | OPEN STX 1 ZEMP K1506720 7CC1 C400 7A25 663 | LD L EOFS K1506730 7CC3 9026 664 | S ZEMP K1506740 7CC4 D001 665 | STO COVER+1 K1506750 7CC5 6500 0000 666 | COVER LDX L1 0 K1506760 7CC7 7101 667 | MDX 1 1 K1506770 7CC8 6680 7A25 668 | LDX I2 EOFS K1506780 7CCA 7402 7A25 669 | MDX L EOFS,2 K1506790 7CCC C200 670 | LD 2 0 K1506800 7CCD D202 671 | STO 2 2 K1506810 7CCE 72FF 672 | MDX 2 -1 K1506820 7CCF 71FF 673 | MDX 1 -1 K1506830 7CD0 70FB 674 | MDX COVER+7 K1506840 7CD1 6580 7CEA 675 | LDX I1 ZEMP K1506850 676 | * K1506860 677 | * RE ADJUST NORM K1506870 7CD3 C480 7B55 678 | LD I IDSAV K1506880 7CD5 8017 679 | A EIGHT K1506890 7CD6 D480 7B55 680 | STO I IDSAV K1506900 681 | * K1506910 682 | * CHECK FOR OVERLAP K1506920 7CD8 C400 7A2A 683 | LD L EOFST K1506930 7CDA 8011 684 | A TWO K1506940 7CDB 9400 7A25 685 | S L EOFS K1506950 7CDD 4C28 7CBC 686 | BSC L WAR,+Z K1506960 687 | * K1506970 688 | * INSERT S.G.T. IN STRING K1506980 7CDF C009 689 | LD VINE K1506990 7CE0 D101 690 | STO 1 1 K1507000 7CE1 C009 691 | LD COMMC K1507010 7CE2 D102 692 | STO 1 2 K1507020 693 | * K1507030 694 | * MOVE POINTER BY Y+2 K1507040 7CE3 7402 7C28 695 | MDX L Y,2 K1507050 7CE5 7580 7C28 696 | MDX I1 Y K1507060 7CE7 6400 7B77 697 | LDX L F K1507070 698 | * K1507080 699 | * CONSTANTS K1507090 7CE9 0000 700 | VINE DC 0 K1507100 7CEA 0000 701 | ZEMP DC 0 K1507110 7CEB 0012 702 | COMMC DC /0012 K1507120 7CEC 0002 703 | TWO DC 2 K1507130 7CED 0008 704 | EIGHT DC 8 K1507140 7CEE 002E 705 | CALOP DC /002E K1507150 7CEF FFE0 706 | EQUAL DC /000E-/002E K1507160 707 | * K1507170 708 | * CALL OPERATOR K1507180 7CF0 C100 709 | HEH LD 1 0 K1507190 7CF1 90FC 710 | S CALOP K1507200 7CF2 4C20 7CFD 711 | BSC L TOR,Z K1507210 712 | * K1507220 713 | * TAG SW4 K1507230 7CF4 7401 7ACB 714 | MDX L SW4,1 K1507240 715 | * K1507250 7CF6 C102 716 | LD 1 2 IS IT A SEMI- COLON K1507260 7CF7 4C18 7D22 717 | BSC L A11,+- BRANCH IF YES K1507270 718 | * K1507280 719 | * TAG SW5 K1507290 7CF9 7401 7ACC 720 | JOH MDX L SW5,1 K1507300 7CFB 6400 7B88 721 | LDX L E K1507310 722 | * K1507320 723 | * EQUAL K1507330 7CFD 90F1 724 | TOR S EQUAL K1507340 7CFE 4C20 7D06 725 | BSC L TOR1,Z K1507350 726 | * K1507360 727 | * NORMALIZE SW1 K1507370 7D00 D400 7AC8 728 | STO L SW1 K1507380 729 | * K1507390 730 | * NORMALIZE SW3 K1507400 7D02 1010 731 | SLA 16 K1507410 7D03 D400 7ACA 732 | STO L SW3 K1507420 7D05 70F5 733 | MDX JOH+2 K1507430 734 | * K1507440 735 | * TEST SW4 K1507450 7D06 C400 7ACB 736 | TOR1 LD L SW4 K1507460 7D08 4C18 7BA6 737 | BSC L I,+- K1507470 738 | * K1507480 739 | * LEFT PAREN K1507490 7D0A C100 740 | LD 1 0 K1507500 7D0B 9005 741 | S LPARN K1507510 7D0C 4C20 7D18 742 | BSC L TOR2,Z K1507520 743 | * K1507530 744 | * COUNT=COUNT+1 K1507540 7D0E 7401 7D13 745 | MDX L COUNT,1 K1507550 7D10 70EA 746 | MDX JOH+2 K1507560 747 | * K1507570 748 | * CONSTANTS K1507580 7D11 0010 749 | LPARN DC /0010 K1507590 7D12 FFF2 750 | RPARN DC /0002-/0010 K1507600 7D13 0000 751 | COUNT DC 0 K1507610 7D14 2000 752 | MASKR DC /2000 K1507620 7D15 0000 753 | SIMP DC 0 K1507630 7D16 0000 754 | SIMP2 DC 0 K1507640 7D17 0000 755 | FILSW DC 0 FILE SWITCH 2-4 K1507645 756 | * K1507650 757 | * K1507660 7D18 90F9 758 | TOR2 S RPARN K1507670 7D19 4C20 7BA6 759 | BSC L I,Z K1507680 760 | * K1507690 761 | * COUNT=COUNT-1 K1507700 7D1B 74FF 7D13 762 | MDX L COUNT,-1 K1507710 763 | * K1507720 764 | * COUNT=0 K1507730 765 | * K1507740 7D1D 70DD 766 | MDX JOH+2 K1507750 767 | * K1507760 768 | * TEST SW3 K1507770 7D1E C400 7ACA 769 | LD L SW3 K1507780 7D20 4C18 7D44 770 | BSC L DIE,+- K1507790 771 | * K1507800 772 | * PURG COMMON VARIABLES FROM S.E. K1507810 773 | * TABLE K1507820 7D22 691E 774 | A11 STX 1 OUTZ+1 K1507830 7D23 6500 7ADB 775 | LDX L1 SETBL K1507840 7D25 C400 7B53 776 | LD L C15 K1507850 7D27 D0EB 777 | STO COUNT K1507860 7D28 6206 778 | A1Z LDX 2 6 K1507870 7D29 C100 779 | LD 1 0 K1507880 7D2A 4C18 7D3A 780 | BSC L A2Z,+- K1507890 7D2C C101 781 | LD 1 1 K1507900 7D2D 4400 7E18 782 | BSI L CHECK K1507910 7D2F E0E4 783 | AND MASKR K1507920 7D30 4C20 7D3A 784 | BSC L A2Z,Z K1507930 7D32 7102 785 | MDX 1 2 K1507940 7D33 72FE 786 | MDX 2 -2 K1507950 7D34 70F4 787 | MDX A1Z+1 K1507960 7D35 7102 788 | A3Z MDX 1 2 K1507970 7D36 74FF 7D13 789 | MDX L COUNT,-1 K1507980 7D38 70EF 790 | MDX A1Z K1507990 7D39 7006 791 | MDX OUTZ K1508000 7D3A 6A01 792 | A2Z STX 2 A2Z+2 K1508010 7D3B 7500 0000 793 | MDX L1 0 K1508020 7D3D 1010 794 | SLA 16 K1508030 7D3E D101 795 | STO 1 1 K1508040 7D3F 70F5 796 | MDX A3Z K1508050 7D40 6500 0000 797 | OUTZ LDX L1 0 K1508060 798 | * K1508070 799 | * PURG B.V. TABLE FROM S.E. TABLE K1508080 7D42 4400 7E28 800 | BSI L ANIML K1508090 801 | * K1508100 802 | * NORMALIZE SW4 K1508110 7D44 1010 803 | DIE SLA 16 K1508120 7D45 D400 7ACB 804 | STO L SW4 K1508130 805 | * K1508140 806 | * NORMALIZE SW5 K1508150 7D47 D400 7ACC 807 | STO L SW5 K1508160 7D49 4C00 7B88 808 | BSC L E K1508170 809 | * K1508180 7D4B C0CB 810 | JAY LD FILSW LOAD FILE SWITCH 2-4 K1508181 7D4C 4C18 7D52 811 | BSC L JAY3,+- BRANCH IF OFF 2-4 K1508182 7D4E 1010 812 | SLA 16 RESTORE THE 2-4 K1508183 7D4F D0C7 813 | STO FILSW FILE SWITCH 2-4 K1508184 7D50 71FF 814 | MDX 1 -1 RESET POINTER 2-4 K1508185 7D51 70D0 815 | MDX A11 GO PURG COMMON VARIABL 2-4 K1508186 816 | * K1508187 817 | * K1508188 818 | * PURG B.V. TABLE FROM S.E. TABLE K1508190 7D52 4400 7E28 819 | JAY3 BSI L ANIML K1508200 820 | * K1508210 821 | * SPECIAL REFERENCED STATEMENT K1508220 7D54 6907 822 | STX 1 HEMP+1 K1508230 7D55 6580 7B55 823 | LDX I1 IDSAV K1508240 7D57 C100 824 | LD 1 0 K1508250 7D58 1801 825 | SRA 1 K1508260 7D59 4804 826 | BSC E K1508270 7D5A 7071 827 | MDX JAY2 K1508280 7D5B 6500 0000 828 | HEMP LDX L1 0 K1508290 829 | * K1508300 830 | * TEST SW6 K1508310 7D5D C400 7C3F 831 | LD L SW6 K1508320 7D5F 4C20 7D63 832 | BSC L JAY1,Z K1508330 7D61 7101 833 | MDX 1 1 K1508340 7D62 7025 834 | MDX XYZ K1508350 835 | * CLOSE STRING BY TOT WORDS K1508360 836 | * K1508370 7D63 7101 837 | JAY1 MDX 1 1 K1508380 7D64 6B1A 838 | STX 3 SIMP1+1 K1508390 7D65 69AF 839 | STX 1 SIMP K1508400 7D66 C0AE 840 | LD SIMP K1508410 7D67 8400 7C2B 841 | A L TOT K1508420 7D69 D0AC 842 | STO SIMP2 K1508430 7D6A 6680 7D16 843 | LDX I2 SIMP2 K1508440 7D6C C400 7A25 844 | LD L EOFS K1508450 7D6E 90A7 845 | S SIMP2 K1508460 7D6F D0A6 846 | STO SIMP2 K1508470 7D70 6780 7D16 847 | LDX I3 SIMP2 K1508480 7D72 7301 848 | MDX 3 1 K1508490 7D73 C200 849 | LAME LD 2 0 K1508500 7D74 D100 850 | STO 1 0 K1508510 7D75 7101 851 | MDX 1 1 K1508520 7D76 7201 852 | MDX 2 1 K1508530 7D77 73FF 853 | MDX 3 -1 K1508540 7D78 70FA 854 | MDX LAME K1508550 7D79 71FF 855 | MDX 1 -1 K1508560 7D7A 6D00 7A25 856 | STX L1 EOFS K1508570 7D7C 6580 7D15 857 | LDX I1 SIMP K1508580 7D7E 6700 0000 858 | SIMP1 LDX L3 0 K1508590 859 | * K1508600 860 | * RE ADJUST NORM K1508610 7D80 C480 7B55 861 | LD I IDSAV K1508620 7D82 1882 862 | SRT 2 K1508630 7D83 9400 7C2B 863 | S L TOT K1508640 7D85 1082 864 | SLT 2 K1508650 7D86 D480 7B55 865 | STO I IDSAV K1508660 7D88 6400 7A50 866 | XYZ LDX L TEST K1508670 867 | * K1508680 868 | * READ AND GO TO NEXT PHASE K1508690 7D8A 6580 7D91 869 | OUT LDX I1 NXTPH+1 LOAD PARAM FOR READING K1508700 7D8C C805 870 | LDD NXTPH+2 NEXT PHASE K1508710 7D8D 4C00 7FBC 871 | BSC L ROL GO TO READ NEXT PHASE K1508720 7D90 872 | BSS E 0 K1508730 7D90 002E 873 | NXTPH DC 46 ID OF NEXT PHASE K1508740 7D91 874 | BSS 3 LOADER TABLE FOR NEXT PHS K1508750 875 | * K1508760 876 | * CONSTANTS K1508770 7D94 003F 877 | ERR63 DC 63 K1508780 7D95 0000 878 | GETZ DC 0 K1508790 7D96 A008 879 | ERRID DC /A008 K1508800 7D97 0000 880 | ERRNO DC 0 K1508810 7D98 0000 881 | NRMSV DC 0 K1508820 7D99 A00D 882 | ERIID DC /A00D K1508830 883 | * K1508840 884 | * SET UP ERROR 63 K1508850 7D9A C0F9 885 | PIG LD ERR63 K1508860 7D9B D0FB 886 | STO ERRNO K1508870 887 | * K1508880 888 | * REPLACE STATEMENT WITH ERROR K1508890 7D9C 6580 7B55 889 | LDX I1 IDSAV K1508900 7D9E C100 890 | LD 1 0 K1508910 7D9F 1802 891 | SRA 2 K1508920 7DA0 E400 7B54 892 | AND L IDNRM K1508930 7DA2 D0F5 893 | STO NRMSV K1508940 7DA3 8400 7B55 894 | A L IDSAV K1508950 7DA5 D0EF 895 | STO GETZ K1508960 7DA6 6680 7D95 896 | LDX I2 GETZ K1508970 7DA8 C100 897 | LD 1 0 K1508980 7DA9 4C04 7DAC 898 | BSC L CALD,E K1508990 7DAB 7004 899 | MDX CALD+4 K1509000 7DAC C0EC 900 | CALD LD ERIID K1509010 7DAD D100 901 | STO 1 0 K1509020 7DAE 7101 902 | MDX 1 1 K1509030 7DAF 7002 903 | MDX CALD+6 K1509040 7DB0 C0E5 904 | LD ERRID K1509050 7DB1 D100 905 | STO 1 0 K1509060 7DB2 C0E4 906 | LD ERRNO K1509070 7DB3 D101 907 | STO 1 1 K1509080 7DB4 7101 908 | MDX 1 1 K1509090 7DB5 C400 7A25 909 | LD L EOFS K1509100 7DB7 9400 7B55 910 | S L IDSAV K1509110 7DB9 90DE 911 | S NRMSV K1509120 7DBA D0DA 912 | STO GETZ K1509130 7DBB 6780 7D95 913 | LDX I3 GETZ K1509140 7DBD 69D7 914 | STX 1 GETZ K1509150 7DBE 7301 915 | MDX 3 1 K1509160 7DBF C200 916 | LIMB LD 2 0 K1509170 7DC0 D101 917 | STO 1 1 K1509180 7DC1 7101 918 | MDX 1 1 K1509190 7DC2 7201 919 | MDX 2 1 K1509200 7DC3 73FF 920 | MDX 3 -1 K1509210 7DC4 70FA 921 | MDX LIMB K1509220 7DC5 6D00 7A25 922 | STX L1 EOFS K1509230 7DC7 6580 7D95 923 | LDX I1 GETZ K1509240 7DC9 7101 924 | MDX 1 1 K1509250 7DCA 4C00 7A50 925 | BSC L TEST K1509260 926 | * K1509270 927 | * CLEAR SUBSCRIPT EXPRESSION TABLE K1509280 7DCC 6600 7ADB 928 | JAY2 LDX L2 SETBL K1509290 7DCE 630F 929 | LDX 3 15 K1509300 7DCF 1010 930 | SLA 16 K1509310 7DD0 D207 931 | LAAP STO 2 7 K1509320 7DD1 7208 932 | MDX 2 8 K1509330 7DD2 73FF 933 | MDX 3 -1 K1509340 7DD3 70FC 934 | MDX LAAP K1509350 935 | * K1509360 936 | * INDICATE REFERENCED STATEMENT NO K1509370 7DD4 C101 937 | LD 1 1 K1509380 7DD5 4042 938 | BSI CHECK K1509390 7DD6 EC00 7AD4 939 | OR L MASK2 K1509400 7DD8 D300 940 | STO 3 0 K1509410 7DD9 C100 941 | LD 1 0 K1509420 7DDA E033 942 | AND MC3 K1509430 7DDB D100 943 | STO 1 0 K1509440 7DDC 4C00 7D5B 944 | BSC L HEMP K1509450 945 | * K1509460 946 | * SUBROUTINE TO PURG INDICIES FROM K1509470 947 | * SUBSCRIPT EXPRESSION TABLE K1509480 948 | * K1509490 7DDE 0000 949 | PURG DC 0 K1509500 7DDF D02F 950 | STO TEMP K1509510 7DE0 C400 7B53 951 | LD L C15 K1509520 7DE2 D029 952 | STO CNT K1509530 7DE3 6600 7ADB 953 | LDX L2 SETBL K1509540 7DE5 6B25 954 | STX 3 SAVE K1509550 7DE6 6A1B 955 | STX 2 TAP+4 K1509560 7DE7 C207 956 | PURR LD 2 7 K1509570 7DE8 4C20 7DEF 957 | BSC L PURR+8,Z K1509580 7DEA 7208 958 | MDX 2 8 K1509590 7DEB 74FF 7E0C 959 | MDX L CNT,-1 K1509600 7DED 70F8 960 | MDX PURR-1 K1509610 7DEE 7018 961 | MDX OUT1 K1509620 7DEF 6780 7E0D 962 | LDX I3 C3 K1509630 7DF1 C201 963 | LOOP4 LD 2 1 K1509640 7DF2 901C 964 | S TEMP K1509650 7DF3 4C18 7DFE 965 | BSC L TAP,+- K1509660 7DF5 7202 966 | MDX 2 2 K1509670 7DF6 73FF 967 | MDX 3 -1 K1509680 7DF7 70F9 968 | MDX LOOP4 K1509690 7DF8 7202 969 | MDX 2 2 K1509700 7DF9 6A08 970 | STX 2 TAP+4 K1509710 7DFA 74FF 7E0C 971 | MDX L CNT,-1 K1509720 7DFC 70EA 972 | MDX PURR K1509730 7DFD 7009 973 | MDX OUT1 K1509740 7DFE 7407 7E02 974 | TAP MDX L TAP+4,7 K1509750 7E00 1010 975 | SLA 16 K1509760 7E01 D400 0000 976 | STO L 0 K1509770 7E03 7202 977 | MDX 2 2 K1509780 7E04 73FF 978 | MDX 3 -1 K1509790 7E05 70FD 979 | MDX TAP+5 K1509800 7E06 70F1 980 | MDX LOOP4+7 K1509810 7E07 6780 7E0B 981 | OUT1 LDX I3 SAVE K1509820 7E09 4C80 7DDE 982 | BSC I PURG K1509830 7E0B 0000 983 | SAVE DC 0 K1509840 7E0C 0000 984 | CNT DC 0 K1509850 7E0D 0003 985 | C3 DC 3 K1509860 7E0E FFFD 986 | MC3 DC /FFFD K1509870 7E0F 0000 987 | TEMP DC 0 K1509880 7E10 0000 988 | BVTAB DC 0 K1509890 7E11 989 | BUFF BSS 7 K1509900 990 | * K1509910 991 | * THIS IS A SUBROUTINE TO COMPUTE THE K1509920 992 | * SYMBOL TABLE ADDRESS AND LOAD ACCUMULATOR K1509930 993 | * WITH SYMBOL TABLE I.D. WORD K1509940 994 | * K1509950 7E18 0000 995 | CHECK DC 0 K1509960 7E19 4C10 7E25 996 | BSC L SIM+3,- K1509970 7E1B E00B 997 | AND MAB K1509980 7E1C A0F1 998 | M MC3 K1509990 7E1D 1090 999 | SLT 16 K1510000 7E1E 80EE 1000 | A C3 K1510010 7E1F 8400 7A26 1001 | A L SOFST K1510020 7E21 D001 1002 | STO SIM+1 K1510030 7E22 6700 0000 1003 | SIM LDX L3 0 K1510040 7E24 C300 1004 | LD 3 0 K1510050 7E25 4C80 7E18 1005 | BSC I CHECK K1510060 7E27 07FF 1006 | MAB DC /07FF K1510070 1007 | * K1510080 1008 | * THIS SUBROUTINE PURGES THE BOUND K1510090 1009 | * VARIABLE TABLE FROM SUBSCRIPT K1510100 1010 | * EXPRESSION TABLE K1510110 1011 | * K1510120 7E28 0000 1012 | ANIML DC 0 K1510130 7E29 C400 7E10 1013 | LD L BVTAB K1510140 7E2B 4C18 7E36 1014 | BSC L DIE1,+- K1510150 7E2D C480 7A25 1015 | LD I EOFS K1510160 7E2F 4400 7DDE 1016 | BSI L PURG K1510170 7E31 74FF 7A25 1017 | MDX L EOFS,-1 K1510180 7E33 74FF 7E10 1018 | MDX L BVTAB,-1 K1510190 7E35 70F7 1019 | MDX ANIML+5 K1510200 7E36 4C80 7E28 1020 | DIE1 BSC I ANIML K1510210 7E38 1021 | BSS /7F36-1-* PATCH AREA K1510220 7F35 0000 1022 | DC 0 K1510230 7F36 1023 | END BPHAR-2 K1510240 There were no errors in this assembly === CROSS REFERENCES ========================================================== Name Val Defd Referenced $PHSE 0078 68 122 A11 7D22 774 717 815 A1Z 7D28 778 787 790 A2Z 7D3A 792 780 784 A3Z 7D35 788 796 ANIML 7E28 1012 800 819 1019 1020 AVAR 7B8A 361 332 AVAR2 7B8D 364 383 AVAR4 7B9A 378 372 AVAR6 7B9E 382 381 AVARX 7BA1 385 361 369 B 7AA8 234 B1 7A9D 226 184 B3 7BAE 402 395 B4 7A75 189 193 BPHAR 7A36 115 1023 BUFF 7E11 989 477 479 504 597 BVTAB 7E10 988 142 183 192 424 1013 1018 C 7B65 320 257 307 314 C11 7BD4 437 466 C15 7B53 295 216 470 776 951 C16 7C2D 531 513 606 612 C3 7E0D 985 458 631 634 962 1000 C7 7BD3 436 462 CALD 7DAC 900 898 899 903 CALLC 7AD5 288 240 CALOP 7CEE 705 710 CCWD 7A31 87 CHECK 7E18 995 198 403 782 938 1005 CLE 7AD1 284 160 CLSET 7A90 214 222 225 264 CNT 7E0C 984 952 959 971 COMMC 7CEB 702 691 COMON 7A2B 81 COUNT 7D13 751 745 762 777 789 COVER 7CC5 666 665 674 CSIZE 7A2C 82 D 7BD5 440 399 406 DATAS 7AD2 285 164 DEFIL 7B58 300 371 DFCNT 7A33 107 DFL 7AD0 283 156 DIE 7D44 803 770 DIE1 7E36 1020 1014 DIOOP 7B57 299 329 DOAC 7B56 298 345 DOC 7ADA 293 260 E 7B88 357 413 418 455 721 808 EE 7B85 353 EIGHT 7CED 704 679 ENDC 7ACE 281 148 368 EOFS 7A25 75 189 191 422 423 429 654 663 668 669 685 844 856 909 922 1015 1017 EOFST 7A2A 80 427 628 648 652 683 EQUAL 7CEF 706 724 ERIID 7D99 882 900 ERR63 7D94 877 885 ERRID 7D96 879 904 ERRNO 7D97 880 886 906 ERROR 7A2D 83 126 658 F 7B77 336 330 358 386 574 697 FILSW 7D17 755 333 810 813 FINDC 7AD8 291 252 FNAME 7A2E 84 FORMM 7ACF 282 152 FOX 7BFD 486 484 485 FOX1 7BFA 483 490 G 7C64 577 523 584 GETZ 7D95 878 895 896 912 913 914 923 GG 7C70 587 592 GOG 7C1E 517 503 508 GOG1 7C25 522 494 GTEMP 7C3D 533 638 GTPID 7C3E 534 642 GTTAB 7C2E 532 138 620 HEH 7CF0 709 341 HEMP 7D5B 828 822 944 HOG 7C54 558 561 564 I 7BA6 394 346 737 759 IDNRM 7B54 296 269 380 892 IDSAV 7B55 297 320 678 680 823 861 865 889 894 910 IDTPE 7ACD 280 147 236 366 IFC 7AD9 292 256 IOCS 7A32 96 JAM 7C78 596 550 581 589 605 JAY 7D4B 810 337 JAY1 7D63 837 832 JAY2 7DCC 928 827 JAY3 7D52 819 811 JED 7BEC 471 459 463 467 JOH 7CF9 720 733 746 766 LAAP 7DD0 931 934 LAME 7D73 849 854 LIMB 7DBF 916 921 LOOP 7A96 218 221 LOOP1 7A68 174 180 LOOP4 7DF1 963 968 980 LOZZ 7A48 137 141 LPARN 7D11 749 741 LUUP 7C12 506 512 LUUP3 7C0A 500 521 LUUP4 7C0F 504 501 MAB 7E27 1006 997 MASK1 7AD3 286 176 MASK2 7AD4 287 199 209 939 MASK3 7BA4 390 404 MASK4 7BA5 391 405 MASKR 7D14 752 783 MC3 7E0E 986 942 998 MEMRY 8000 65 66 67 MOVE 7AC0 267 153 157 161 165 261 NRMSV 7D98 881 893 911 NXID 7AC5 271 270 NXTPH 7D90 873 118 869 870 OPEN 7CC0 662 625 655 OPEN1 7C98 628 623 ORG 7A23 73 OUT 7D8A 869 127 149 659 OUT1 7E07 981 961 973 OUTZ 7D40 797 774 791 OVERL 7A23 66 69 PBVTB 7BC0 421 375 412 431 PGSET 7BBC 416 410 PHID 002D 70 121 PIG 7D9A 885 593 PURG 7DDE 949 190 350 417 982 1016 PURR 7DE7 956 957 960 972 READC 7AD6 289 244 ROL 7FBC 67 871 RPARN 7D12 750 758 SAVE 7E0B 983 474 608 954 981 SAVEB 7C2C 530 556 557 598 611 614 621 636 644 SAVEM 7C29 527 475 522 538 SAVET 7C2A 528 498 520 539 553 554 565 596 613 SETBL 7ADB 294 131 172 215 499 577 585 775 928 953 SIM 7E22 1003 996 1002 SIMP 7D15 753 839 840 857 SIMP1 7D7E 858 838 SIMP2 7D16 754 842 843 845 846 847 SK 7A6E 178 175 SOFGT 7A29 79 649 SOFNS 7A27 77 SOFS 7A24 74 130 362 SOFST 7A26 76 630 1001 SOFXT 7A28 78 SORF 7A30 86 331 START 7A36 121 SUB1 7BD2 435 445 449 453 SUBZ 7BD1 434 441 546 SW1 7AC8 275 134 227 306 310 398 728 SW2 7AC9 276 135 228 313 340 SW3 7ACA 277 136 229 303 317 354 394 409 732 769 SW4 7ACB 278 230 714 736 804 SW5 7ACC 279 231 493 720 807 SW6 7C3F 535 568 831 TAP 7DFE 974 955 965 970 979 TEMP 7E0F 987 950 964 TEST 7A50 145 272 866 925 TEST1 7A7F 197 169 TEST2 7A71 183 194 TEST3 7A65 172 207 211 TEST4 7B59 303 237 TEST5 7B63 317 241 TEST7 7B60 313 249 TEST8 7B5E 310 245 253 TLR 7A9C 225 200 TLR1 7A8B 208 206 TOR 7CFD 724 711 TOR1 7D06 736 725 TOR2 7D18 758 742 TOT 7C2B 529 326 571 573 841 863 TST 7BE3 458 442 TST1 7BE6 462 446 TST2 7BE8 466 450 TST3 7BEA 470 454 TST4 7BED 474 481 TST5 7C40 538 516 TST5A 7C4E 553 547 TTA 7C4A 548 515 TWO 7CEC 703 428 653 684 VINE 7CE9 700 624 629 632 635 639 641 689 WAR 7CBC 658 430 686 WRITC 7AD7 290 248 XYZ 7D88 866 834 Y 7C28 526 471 482 555 572 695 696 ZEMP 7CEA 701 662 664 675