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