ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:06 2020
Source File: \kforph05.asm
1130 FORTRAN COMPILER PHASE 5
2 | *************************************************** K0500020
3 | *STATUS - VERSION 2 MODIFICATION 11 K0500030
4 | * * K0500040
5 | *FUNCTION/OPERATION- * K0500050
6 | * * ANALYZES DIMENSION STMNTS. PLACES DIMENSION * K0500060
7 | * INFORMATION INTO THE SYMBOL TABLE. * K0500070
8 | * * REMOVES DIMENSION STMNT FROM THE STMNT * K0500080
9 | * STRING * K0500090
10 | * * PLACES VARIABLES AND DIMENSION INFORMATION * K0500100
11 | * FROM REAL, INTEGER, AND EXTERNAL STMNTS INTO* K0500110
12 | * THE SYMBOL TABLE * K0500120
13 | * * INDICATES IN THE SYMBOL TABLE ID WORD THE * K0500130
14 | * MODE (REAL OR INTEGER) * K0500140
15 | * * CHECKS EXTERNAL STMNTS FOR THE NAMES IFIX * K0500150
16 | * AND FLOAT, WHICH ARE NOT ALLOWED. * K0500160
17 | * * THE PROCESSING OF PHASE 5 IS DONE IN TWO * K0500170
18 | * PASSES. THE FIRST PASS ANALYZES DIMENSION K0500180
19 | * STMNTS. THE SECOND PASS EXAMINES REAL, * K0500190
20 | * INTEGER, AND EXTERNAL STMNTS FOUND IN THE * K0500200
21 | * STMNT STRING * K0500210
22 | * * UPON COMPLETION OF THE SECOND PASS A 2-11 K0500220
23 | * BRANCH IS TAKEN TO REPACK THE INPUT 2-11 K0500230
24 | * STRING, REMOVING DUMMY ERROR ENTRIES. 2-11 K0500240
25 | * * K0500250
26 | *ENTRY POINTS- * K0500260
27 | * * PHASE-PHASE 5 IS READ INTO CORE BY PHASE 4 * K0500270
28 | * AND EXECUTION BEGUN AT LOCATION PHASE.* K0500280
29 | * * K0500290
30 | *INPUT- * K0500300
31 | * NONE IN THE USUAL SENSE. HOWEVER, THE STMNT * K0500310
32 | * STRING SCANNED BY THE COMPILER MAY BE * K0500320
33 | * CONSIDERED INPUT. * K0500330
34 | * * K0500340
35 | *OUTPUT- * K0500350
36 | * NONE IN THE USUAL SENSE. HOWEVER, PHASE 5 * K0500360
37 | * REMOVES STMNTS FROM THE STMNT STRING AND ADDS * K0500370
38 | * ENTRIES TO THE SYMBOL TABLE. * K0500380
39 | * * K0500390
40 | *EXTERNAL REFERENCES- * K0500400
41 | * SUBROUTINES- * K0500410
42 | * * ROL * K0500420
43 | * COMMA/DCOM- * K0500430
44 | * * $PHSE * K0500440
45 | * * K0500450
46 | *EXITS- * K0500460
47 | * NORMAL- * K0500470
48 | * PHASE EXITS NORMALLY IF NO STMNTS OF THE * K0500480
49 | * TYPE IT PROCESSES ARE ENCOUNTERED OR IF NO * K0500490
50 | * ERRORS ARE FOUND. PHASE 6 IS LOADED AND * K0500500
51 | * EXECUTED. * K0500510
52 | * ERROR- * K0500520
53 | * THE FLOW OF COMPILER PROCESSING IS NOT * K0500530
54 | * INTERRUPTED WHEN AN ERROR IS ENCOUNTERED * K0500540
55 | * AN ERROR STMNT REPLACES THE FAULTY STMNT * K0500550
56 | * ON THE STRING AND STMNT SCANNING PROCESS * K0500560
57 | * CONTINUES. AN EXCEPTION OCCURS IN THE CASE * K0500570
58 | * OF AN OVERLAP ERROR. COMPILATION IS * K0500580
59 | * ABORTED AND CONTROL IS PASSED FROM PHASE * K0500590
60 | * TO SUCCEEDING PHASE UNTIL AN OUTPUT PHASE * K0500600
61 | * IS REACHED WHICH CAN PRINT AN ERROR MESSAGE* K0500610
62 | * THE ERRORS DETECTED BY PHASE 5 ARE 7, 8, * K0500620
63 | * 16, 17, 18, 19, 20, 21, AND 22. * K0500630
64 | * * K0500640
65 | *TABLES/WORK AREAS- * K0500650
66 | * NON EXCEPT STATEMENT STRING AREA AND SYMBOL * K0500660
67 | * TABLE. * K0500670
68 | * * K0500680
69 | *ATTRIBUTES-N/A * K0500690
70 | * * K0500700
71 | *NOTES- * K0500710
72 | * THE SWITCHES USED IN PHASE 5 FOLLOW. IF NON- * K0500720
73 | * ZERO. THE SWITCH IS TRANSFER=T. IF ZERO, THE * K0500730
74 | * SWITCH IS NORMAL=N. * K0500740
75 | * SW2-OPERATOR SEMICOLON * K0500750
76 | * T=NEXT OPERATOR MUST BE SEMICOLON * K0500760
77 | * SW3-SYMBOL TABLE OPEN * K0500770
78 | * T=SYMBOL TABLE WAS SPREAD THREE WORDS * K0500780
79 | * SW1A-TYPE STATEMENT ENCOUNTERED * K0500790
80 | * T=TYPE STMNT HAS BEEN ENCOUNTERED * K0500800
81 | * N=REAL STATEMENT * K0500810
82 | * T=INTEGER STATEMENT * K0500820
83 | * SW3A-SEMICOLON * K0500830
84 | * T=SEMICOLON MUST BE NEXT * K0500840
85 | * SW4-EXTERNAL STATEMENT * K0500850
86 | * T=EXTERNAL STMNT ENCOUNTERED * K0500860
87 | * SW5-DIMENSIONED NAME * K0500870
88 | * T=NOT DIMENSIONED NAME * K0500880
89 | * SW6-TEMPORARY EXTERNAL SWITCH * K0500890
90 | * T=TEMPORARY EXTERNAL * K0500900
91 | * SW7-FIRST PASS THROUGH PH05 SWITCH 2-11 K0500910
92 | * T=FIRST PASS MODE 2-11 K0500920
93 | *************************************************** K0500930
94 | ABS K0500940
95 | * K0500950
96 | * SYSTEM EQUATES K0500960
97 | * K0500970
8000 98 | MEMRY EQU /8000 CORE SIZE K0500980
7A23 99 | OVERL EQU MEMRY-1501 PHASE OVERLAY AREA SIZE K0500990
7FBC 100 | ROL EQU MEMRY-68 LOC OF RTN TO READ NEXT PH K0501000
0078 101 | $PHSE EQU /78 NO. OF PHASE NOW IN CORE K0501010
0004 102 | PHLEN EQU 4 NO SECTORS THIS PHASE 2-6 K0501020
7A23 103 | ORG OVERL K0501030
0023 104 | PHID EQU 35 ID NUMBER THIS PHASE K0501040
105 | * K0501050
106 | * FORTRAN COMMUNICATION AREA K0501060
107 | * K0501070
7A23 108 | ORG BSS 1 ORIGIN ADDRESS 2-4 K0501080
7A24 109 | SOFS BSS 1 START OF STRING K0501090
7A25 110 | EOFS BSS 1 END OF STRING K0501100
7A26 111 | SOFST BSS 1 START OF SYMBOL TABLE K0501110
7A27 112 | SOFNS BSS 1 START OF NON-SUBSCRIPTED NUMBERS K0501120
7A28 113 | SOFXT BSS 1 START OF SUBSCRIPT TEMPORARIES K0501130
7A29 114 | SOFGT BSS 1 START OF GENERATED TEMPORARIES K0501140
7A2A 115 | EOFST BSS 1 END OF SYMBOL TABLE K0501150
7A2B 116 | COMON BSS 1 NEXT AVAILABLE COMMON K0501160
7A2C 117 | CSIZE BSS 1 SIZE OF COMMON K0501170
7A2D 118 | ERROR BSS 1 OVERLAP ERROR K0501180
7A2E 119 | FNAME BSS 1 PROGRAM NAME K0501190
7A2F 120 | BSS 1 * K0501200
7A30 121 | SORF BSS 1 SUBROUTINE(-) OR FUNCTION(+) K0501210
7A31 122 | CCWD BSS 1 CONTROL CARD WORD K0501220
123 | * BIT 15 TRANSFER TRACE K0501230
124 | * BIT 14 ARITHMETIC TRACE K0501240
125 | * BIT 13 EXTENDED PRECISION K0501250
126 | * BIT 12 LIST SYMBOL TABLE K0501260
127 | * BIT 11 LIST SUBPROGRAM NAMES K0501270
128 | * BIT 10 LIST SOURCE PROGRAM K0501280
129 | * BIT 9 ONE WORD INTEGERS K0501290
130 | * BIT 8 ORIGIN K0501300
7A32 131 | IOCS BSS 1 IOCS CONTROL CARD WORD K0501310
132 | * BIT 15 CARD K0501320
133 | * BIT 14 PAPER TAPE K0501330
134 | * BIT 13 TYPEWRITER K0501340
135 | * BIT 12 1443 PRINTER K0501350
136 | * BIT 11 MAGNETIC TAPE K0501360
137 | * BIT 10 KEYBOARD K0501370
138 | * BIT 8 DISK K0501380
139 | * BIT 1 UNFORMATTED DISK K0501390
7A33 140 | DFCNT BSS 1 FILE TABLE WORD COUNT K0501400
141 | * K0501410
142 | * K0501420
143 | * K0501430
144 | * END OF FORTRAN COMMUNICATION K0501440
145 | * AREA K0501450
146 | * K0501460
7A36 147 | BPHAR EQU *+2 BEGINNING ADDR OF PHASE K0501470
7A34 0000 148 | DC 0 LOADER WORK AREA K0501480
7A35 FFDD 149 | DC -35 -PHASE ID FOR SLET LOOKUP K0501490
7A36 041A 150 | DC NXPID-*+1 TABLE FOR NEXT PHASE 2-11 K0501500
7A37 0001 151 | DC 1 ONE ENTRY TO BE SET BY LDR K0501510
7A36 152 | ORG *-2 K0501520
153 | * K0501530
154 | * INITIALIZE DIMENSION PASS K0501540
155 | * K0501550
7A36 6123 156 | LDX 1 PHID LOAD ID NUMBER 2-11 K0501560
7A37 6D00 0078 157 | STX L1 $PHSE STORE IN SYS PHASE AREA K0501570
7A39 6580 7A24 158 | LDX I1 SOFS START OF STRING ADDRESS K0501580
7A3B C0F1 159 | LD ERROR OVERLAP ERROR INDICATOR K0501590
7A3C 4C20 7BE8 160 | BSC L BEGIN,Z BR TO NEXT PHASE IF OVERLAP K0501600
7A3E 6810 161 | STX SW7 SET ON SW7 2-11 K0501610
7A3F C100 162 | TEST LD 1 0 FIRST WORD OF STMNT K0501620
7A40 1801 163 | SRA 1 POSITION TO TEST STMNT TYPE K0501630
7A41 E01E 164 | AND IDTPE STATEMENT TYPE (BITS 1-5) K0501640
7A42 900D 165 | S ENDC END STATEMENT CONSTANT K0501650
7A43 4C18 7BE8 166 | BSC L BEGIN,+- BR TO BEGIN IF END STMNT K0501660
7A45 900B 167 | S DIMC DIMENSION STMNT CONSTANT K0501670
7A46 4818 168 | BSC +- SKIP NEXT IF NOT DIMENSION K0501680
7A47 701B 169 | MDX MIX BR TO SCAN DIMENSION STMNT K0501690
7A48 C100 170 | LD 1 0 STMNT ID WORD 2-11 K0501700
7A49 1802 171 | SRA 2 K0501710
7A4A E011 172 | AND IDNRM EXTRACT STMNT WORD COUNT K0501720
7A4B D001 173 | STO *+1 STO CNT TO UPDATE PNTR 2-11 K0501730
7A4C 7500 0000 174 | MDX L1 *-* INCRMNT TO NEXT STMNT 2-11 K0501740
7A4E 70F0 175 | MDX TEST BR TO TEST STMNT TYPE K0501750
176 | * K0501760
177 | * CONSTANTS AND WORK AREA K0501770
178 | * K0501780
7A4F 0000 179 | SW7 DC *-* FIRST PASS SWITCH 2-11 K0501790
7A50 0800 180 | ENDC DC /0800 END STATEMENT CONSTANT K0501800
7A51 1800 181 | DIMC DC /2000-/0800 DIMENSION STMNT CONSTANT K0501810
7A52 001E 182 | SEMIC DC /001E SEMI-COLON CONSTANT K0501820
7A53 0012 183 | ERR DC 18 ERROR 18 CONSTANT K0501830
7A54 0007 184 | ERR7 DC 7 ERROR 7 CONSTANT K0501840
7A55 0008 185 | ERR8 DC 8 ERROR 8 CONSTANT K0501850
7A56 0010 186 | ERR16 DC 16 ERROR 16 CONSTANT K0501860
7A57 0011 187 | ERR17 DC 17 ERROR 17 CONSTANT K0501870
7A58 0000 188 | ERRNO DC 0 ERROR NUMBER 2-11 K0501880
7A59 0000 189 | WD1 DC 0 STMNT NAME (FIRST HALF) K0501890
7A5A 0000 190 | WD2 DC 0 STMNT NAME (SECOND HALF) K0501900
7A5B 0000 191 | SAVE DC 0 INDEX REGISTER 3 TEMPORARY K0501910
7A5C 01FF 192 | IDNRM DC /01FF STMNT WORD COUNT MASK K0501920
7A5D 0000 193 | DC 0 RESERVED FOR FUTURE USE K0501930
7A5E 0000 194 | SW2 DC 0 ERROR 16 SWITCH NON-ZERO=ON K0501940
7A5F 0000 195 | IDADR DC *-* START ADRS OF STMNT 2-11 K0501950
7A60 7C00 196 | IDTPE DC /7C00 STATEMENT TYPE MASK K0501960
7A61 A008 197 | ERRID DC /A008 ERROR IDENTIFIER CONSTANT K0501970
7A62 8000 198 | ZERO DC /8000 SWITCH 2 RESET CONSTANT K0501980
199 | * K0501990
200 | * INITIALIZE TO SCAN DIMENSION STMNT K0502000
201 | * K0502010
7A63 69FB 202 | MIX STX 1 IDADR SAVE START ADRS OF STMT2-11 K0502020
7A64 7101 203 | MDX 1 1 INCREMENT STMNT ADDRESS K0502030
7A65 1010 204 | SLA 16 CLEAR ACCUMULATOR K0502040
7A66 D0F7 205 | STO SW2 TURN OFF SWITCH 2 K0502050
7A67 D400 7AD8 206 | STO L SW3 TURN OFF SWITCH 3 K0502060
7A69 C100 207 | SIP LD 1 0 LOAD NEXT STMNT WORD K0502070
7A6A 90E7 208 | S SEMIC SEMI-COLON K0502080
7A6B 4C18 7AAA 209 | BSC L REMOV,+- BRCH IF SEMI-COLON 2-11 K0502090
7A6D C0F0 210 | LD SW2 ERROR 16 INDICATOR K0502100
7A6E 4C20 7AA1 211 | BSC L ER16,Z BR IF POSITIVE K0502110
7A70 7401 7A5E 212 | MDX L SW2,1 SET ERROR 16 INDICATOR ON K0502120
7A72 C100 213 | PADS LD 1 0 STATEMENT NAME (FIRST HALF) K0502130
7A73 4810 214 | BSC - BR TO ER7 IF FIRST CHAR IS K0502140
7A74 702F 215 | MDX ER7 NOT ALPHABETIC. K0502150
7A75 D0E3 216 | STO WD1 SAVE FIRST HALF OF NAME K0502160
7A76 1002 217 | SLA 2 K0502170
7A77 4C2A 7AA4 218 | BSC L ER7,C+Z BR IF 1ST CHAR NOT ALPHA K0502180
7A79 C101 219 | LD 1 1 LAST HALF OF STATEMENT NAME K0502190
7A7A 4C28 7A7F 220 | BSC L MADS,+Z BR IF NAME LONGER THAN 1 WD K0502200
7A7C C0E5 221 | LD ZERO ONE WORD NAME INDICATOR K0502210
7A7D D0DC 222 | STO WD2 LAST HALF OF NAME K0502220
7A7E 7005 223 | MDX ZORRO BR TO SEARCH SYMBOL TABLE K0502230
7A7F D0DA 224 | MADS STO WD2 LAST HALF OF NAME K0502240
7A80 7101 225 | MDX 1 1 INCREMENT STMNT ADDRESS K0502250
7A81 C101 226 | LD 1 1 BR TO ER7 IF NAME IS MORE K0502260
7A82 4C28 7AA4 227 | BSC L ER7,+Z THAN TWO WORDS LONG. K0502270
228 | * K0502280
229 | * LOOK FOR NAME IN SYMBOL TABLE K0502290
230 | * K0502300
7A84 6780 7A27 231 | ZORRO LDX I3 SOFNS START OF NON-STMNT NUMBERS K0502310
7A86 7009 232 | MDX BILL BR TO CHECK END OF SEARCH K0502320
7A87 C301 233 | LOOP LD 3 1 LD NEXT SYMBOL TABLE ENTRY K0502330
7A88 90D0 234 | S WD1 FIRST HALF OF NAME K0502340
7A89 4820 235 | BSC Z SKIP NEXT IF EQUAL NAME K0502350
7A8A 7004 236 | MDX HEAT BR IF NOT EQUAL NAME K0502360
7A8B C302 237 | LD 3 2 LD NEXT SYMBOL TABLE ENTRY K0502370
7A8C 90CD 238 | S WD2 LAST HALF OF NAME K0502380
7A8D 4C18 7A97 239 | BSC L CHK,+- BR IF NAME FOUND K0502390
7A8F 73FD 240 | HEAT MDX 3 -3 DECREMENT SYMBOL TABLE ADDR K0502400
7A90 6BCA 241 | BILL STX 3 SAVE STORE TO TEMPORARY K0502410
7A91 C0C9 242 | LD SAVE LOAD CURRENT SEARCH ADDRESS K0502420
7A92 9400 7A2A 243 | S L EOFST END OF SYMBOL TABLE K0502430
7A94 4820 244 | BSC Z SKIP NEXT IF END SEARCH K0502440
7A95 70F1 245 | MDX LOOP BR TO CONTINUE SEARCH K0502450
7A96 7043 246 | MDX PLACE BR TO PUT NAME IN TABLE K0502460
7A97 C300 247 | CHK LD 3 0 CHECK FOR SUBPROGRAM NAME K0502470
7A98 1008 248 | SLA 8 BR TO SET ERROR 17 IF K0502480
7A99 4C10 7AF8 249 | BSC L PREV,- SUBPROGRAM NAME IN STMNT. K0502490
250 | * K0502500
251 | * SET UP ERRORS K0502510
252 | * K0502520
7A9B C0BB 253 | ER17 LD ERR17 ERROR 17 INDICATOR K0502530
7A9C D0BB 254 | STO ERRNO ERROR NUMBER TEMPORARY 2-11 K0502540
7A9D 700E 255 | MDX CLOSE BR TO CLOSE STRING K0502550
7A9E C0B6 256 | ER8 LD ERR8 ERROR 08 INDICATOR K0502560
7A9F D0B8 257 | STO ERRNO ERROR NUMBER TEMPORARY 2-11 K0502570
7AA0 700B 258 | MDX CLOSE BR TO CLOSE STRING K0502580
7AA1 C0B4 259 | ER16 LD ERR16 ERROR 16 INDICATOR K0502590
7AA2 D0B5 260 | STO ERRNO ERROR NUMBER TEMPORARY 2-11 K0502600
7AA3 7008 261 | MDX CLOSE BR TO CLOSE STRING K0502610
7AA4 C0AF 262 | ER7 LD ERR7 ERROR 07 INDICATOR K0502620
7AA5 D0B2 263 | STO ERRNO ERROR NUMBER TEMPORARY 2-11 K0502630
7AA6 7005 264 | MDX CLOSE BR TO CLOSE STRING K0502640
7AA7 C0AB 265 | ER LD ERR ERROR 18 INDICATOR K0502650
7AA8 D0AF 266 | STO ERRNO ERROR NUMBER TEMPORARY 2-11 K0502660
7AA9 7002 267 | MDX CLOSE BRCH TO CLOSE STRING 2-11 K0502670
268 | * 2-11 K0502680
7AAA 1010 269 | REMOV SLA 16 SET TO ZERO (DUMMY ERR)2-11 K0502690
7AAB D0AC 270 | STO ERRNO ERROR NUMBER TEMPORARY 2-11 K0502700
271 | * K0502710
272 | * REPLACE STMNT WITH ERROR ID/OR DUMMY 2-11 K0502720
273 | * ERROR ID AND CLOSE STRING 2-11 K0502730
274 | * K0502740
7AAC 6580 7A5F 275 | CLOSE LDX I1 IDADR STRING ADRS 2-11 K0502750
7AAE C100 276 | LD 1 0 FIRST WD OF STMNT K0502760
7AAF 1802 277 | SRA 2 K0502770
7AB0 E0AB 278 | AND IDNRM EXTRACT STMNT WORD COUNT K0502780
7AB1 D023 279 | STO NRMSV SAVE IN WD COUNT TEMPORARY K0502790
7AB2 80AC 280 | A IDADR ADRS FIRST WRD OF STMNT2-11 K0502800
7AB3 D001 281 | STO *+1 ADRS OF NEXT STMNT 2-11 K0502810
7AB4 6600 0000 282 | LDX L2 *-* NEXT STMNT ADRS INTO XR2-11 K0502820
7AB6 C0AA 283 | LD ERRID PUT ERROR IDENTIFIER K0502830
7AB7 D100 284 | STO 1 0 ON STRING. K0502840
7AB8 C09F 285 | LD ERRNO ERROR NUMBER 2-11 K0502850
7AB9 D101 286 | STO 1 1 PUT ERROR NUMBER ON STRING K0502860
7ABA 7102 287 | MDX 1 2 INCREMENT STRING PTR 2-11 K0502870
7ABB C400 7A25 288 | LD L EOFS END OF STRING ADDRESS K0502880
7ABD 9400 7A5F 289 | S L IDADR ADRS OF THIS STMNT ID 2-11 K0502890
7ABF 9015 290 | S NRMSV WORD COUNT THIS STATEMENT K0502900
7AC0 D001 291 | STO *+1 COMPUTED RANGE 2-11 K0502910
7AC1 6700 0000 292 | LDX L3 *-* RANGE 2-11 K0502920
7AC3 690A 293 | STX 1 SAVX1+1 SAVE XR1 2-11 K0502930
7AC4 7301 294 | MDX 3 1 K0502940
7AC5 C200 295 | LOOP1 LD 2 0 NEXT WORD OF STRING TO MOVE K0502950
7AC6 D100 296 | STO 1 0 CLOSE STRING 2-11 K0502960
7AC7 7101 297 | MDX 1 1 INCREMENT STRING POINTER K0502970
7AC8 7201 298 | MDX 2 1 INCR ADDR NEXT WD TO MOVE K0502980
7AC9 73FF 299 | MDX 3 -1 DECR RANGE AND SKIP IF ZERO K0502990
7ACA 70FA 300 | MDX LOOP1 BR TO MOVE NEXT WORD K0503000
7ACB 6D00 7A25 301 | STX L1 EOFS NEW END OF STRING ADDRESS K0503010
7ACD 6500 0000 302 | SAVX1 LDX L1 *-* RESTORE XR1 2-11 K0503020
303 | * 2-11 K0503030
7ACF C400 7A4F 304 | LD L SW7 CHECK FOR 1ST PASS MODE2-11 K0503040
7AD1 4C20 7A3F 305 | BSC L TEST,Z BRCH TO CONT DIMEN 2-11 K0503050
7AD3 4C00 7BEE 306 | BSC L DAP BRCH TO 2ND PASS MODE 2-11 K0503060
307 | * K0503070
308 | * CONSTANTS AND WORK AREA K0503080
309 | * K0503090
7AD5 0000 310 | NRMSV DC 0 STMNT WORD COUNT K0503100
7AD6 0002 311 | TWO DC 2 DECIMAL 2 FOR ADDR INCR K0503110
7AD7 0000 312 | TENT DC 0 SYMBOL TABLE ADDRESS K0503120
7AD8 0000 313 | SW3 DC 0 SYMBOL TABLE OVERLAP INDR K0503130
7AD9 0800 314 | ONEDM DC /0800 ONE DIMENSION CONSTANT K0503140
315 | * K0503150
316 | * PLACE NAME IN SYMBOL TABLE K0503160
317 | * K0503170
7ADA C400 7A5A 318 | PLACE LD L WD2 LAST HALF OF NAME K0503180
7ADC D302 319 | STO 3 2 NEXT SYMBOL TABLE ENTRY+1 K0503190
7ADD C400 7A59 320 | LD L WD1 FIRST HALF OF NAME K0503200
7ADF D301 321 | STO 3 1 NEXT SYMBOL TABLE ENTRY K0503210
7AE0 74FD 7A2A 322 | MDX L EOFST,-3 DECR END SYMBOL TABLE ADDR K0503220
7AE2 74FD 7A28 323 | MDX L SOFXT,-3 DECR START OF SUBSC TEMPS K0503230
7AE4 74FD 7A29 324 | MDX L SOFGT,-3 DECR START GENERATED TEMPS K0503240
325 | * K0503250
326 | * SET TYPE INDICATOR (REAL OR INTEGER) K0503260
327 | * K0503270
7AE6 C400 7A59 328 | LD L WD1 FIRST HALF OF NAME K0503280
7AE8 E400 7B71 329 | AND L PIT1 EXTRACT FIRST NAME CHAR K0503290
7AEA 9400 7B72 330 | S L RGTI ALPHA CONSTANT K0503300
7AEC 4828 331 | BSC +Z SKIP IF NOT REAL K0503310
7AED 7007 332 | MDX REEL BR TO REEL IF NEG (REAL) K0503320
7AEE 9400 7B73 333 | S L RGTN ALPHA CONSTANT K0503330
7AF0 4C30 7AF5 334 | BSC L REEL,Z- BR TO REEL IF PLUS K0503340
7AF2 C400 7B74 335 | LD L IDCI INTEGER INDICATOR K0503350
7AF4 7001 336 | MDX VIP BR TO STORE INDICATOR K0503360
7AF5 C07F 337 | REEL LD IDCR REAL INDICATOR K0503370
7AF6 D300 338 | VIP STO 3 0 IDENTIFICATION WORD K0503380
7AF7 7033 339 | MDX LORD BR TO TEST FOR OVERLAP ERR K0503390
340 | * K0503400
341 | * TEST FOR NAME PREVIOUSLY DIMENSIONED K0503410
342 | * K0503420
7AF8 C300 343 | PREV LD 3 0 IDENTIFICATION WORD K0503430
7AF9 1004 344 | SLA 4 SHIFT DIMENSION CHARACTER K0503440
7AFA 4802 345 | BSC C INTO THE CARRY AND SIGN K0503450
7AFB 70AB 346 | MDX ER POSITIONS AND BR TO ER IF K0503460
7AFC 4C28 7AA7 347 | BSC L ER,+Z EITHER BIT IS ON. K0503470
348 | * K0503480
349 | * CHECK IF SUBPROGRAM OR FUNCTION K0503490
350 | * K0503500
7AFE C400 7A30 351 | LD L SORF SUBPROGRAM OR FUNCTION INDR K0503510
7B00 4C18 7B08 352 | BSC L SUBN,+- BR IF EITHER INDICATOR ON K0503520
7B02 C300 353 | LD 3 0 IDENTIFICATION WORD K0503530
7B03 1002 354 | SLA 2 COMMON INDICATOR TO SIGN K0503540
7B04 4C10 7B08 355 | BSC L SUBN,- BR IF ALREADY IN COMMON K0503550
7B06 7401 7A2E 356 | MDX L FNAME,1 ADJUST FNAME POINTER K0503560
357 | * K0503570
358 | * SPREAD SYMBOL TABLE FOR DIMENSION WDS K0503580
359 | * K0503590
7B08 6919 360 | SUBN STX 1 VVV+1 SAVE STATEMENT POINTER K0503600
7B09 6BCD 361 | STX 3 TENT ADDR OF NAME IN COMMON K0503610
7B0A C0CC 362 | LD TENT K0503620
7B0B 9400 7A2A 363 | S L EOFST END OF STRING ADDRESS K0503630
7B0D D0C9 364 | STO TENT NUMBER OF WORDS TO MOVE K0503640
7B0E 6680 7AD7 365 | LDX I2 TENT K0503650
7B10 72FD 366 | MDX 2 -3 DECR WORDS TO MOVE COUNT K0503660
7B11 7001 367 | MDX PASS BR TO SLIDE TABLE 1 ENTRY K0503670
7B12 7007 368 | MDX GLINK BR TO CLEAR ENTRY IF ZERO K0503680
7B13 6580 7A2A 369 | PASS LDX I1 EOFST END OF SYMBOL TABLE ADDRESS K0503690
7B15 C103 370 | LOOP3 LD 1 3 LD WORD TO MOVE K0503700
7B16 D100 371 | STO 1 0 SPREAD TABLE 3 WORDS K0503710
7B17 7101 372 | MDX 1 1 INCREMENT MOVE POINTER K0503720
7B18 72FF 373 | MDX 2 -1 DECR CTR,SKIP NEXT IF DONE K0503730
7B19 70FB 374 | MDX LOOP3 BR TO CONTINUE K0503740
7B1A 1010 375 | GLINK SLA 16 CLEAR ACCUMULATOR K0503750
7B1B D3FF 376 | STO 3 -1 ZERO WD 3 DIMENSION ENTRY K0503760
7B1C D3FE 377 | STO 3 -2 ZERO WD 2 DIMENSION ENTRY K0503770
7B1D D3FD 378 | STO 3 -3 ZERO WD 1 DIMENSION ENTRY K0503780
7B1E C300 379 | LD 3 0 IDENTIFICATION WORD K0503790
7B1F E8B9 380 | OR ONEDM ONE DIMENSION INDICATOR K0503800
7B20 D300 381 | STO 3 0 REPLACE IN TABLE ENTRY K0503810
7B21 6500 0000 382 | VVV LDX L1 0 RESTORE INDEX REGISTER 1 K0503820
7B23 74FD 7A2A 383 | MDX L EOFST,-3 DECR END OF SYMBOL TABLE K0503830
7B25 74FD 7A28 384 | MDX L SOFXT,-3 DECR START OF SUBSC TEMPS K0503840
7B27 74FD 7A29 385 | MDX L SOFGT,-3 DECR START GENERATED TEMPS K0503850
7B29 7401 7AD8 386 | MDX L SW3,1 K0503860
7B2B C400 7A2A 387 | LORD LD L EOFST CHK FOR SYMBOL TBL OVERFLOW K0503870
7B2D 80A8 388 | A TWO K0503880
7B2E 9400 7A25 389 | S L EOFS END OF STRING K0503890
7B30 4C28 7BD4 390 | BSC L JIMY,+Z BR IF SYMBOL TABLE OVERFLOW K0503900
7B32 7101 391 | TARZ MDX 1 1 MOVE STATEMENT POINTER K0503910
7B33 C100 392 | LD 1 0 NEXT CHAR DIMENSION STMNT K0503920
7B34 9041 393 | S PARNL LEFT PARENTHESIS K0503930
7B35 4C20 7A9E 394 | BSC L ER8,Z BR IF NO LEFT PARENTHESIS K0503940
7B37 1010 395 | SON1 SLA 16 CLEAR ACCUMULATOR K0503950
7B38 D046 396 | STO CNT RESET DIMENSION COUNTER K0503960
7B39 7101 397 | MDX 1 1 MOVE STMNT POINTER K0503970
7B3A C100 398 | LD 1 0 NEXT CHAR OF STMNT K0503980
7B3B E034 399 | AND PIT CHECK FOR ALPHA CHARACTER K0503990
7B3C F033 400 | EOR PIT K0504000
7B3D 4C20 7A9E 401 | BSC L ER8,Z BR TO ER8 IF NOT NUMERIC K0504010
402 | * K0504020
403 | * COLLECT CONSTANT TO BINARY K0504030
404 | * K0504040
7B3F 2000 405 | LDS 0 RESET OVERFLOW AND CARRY K0504050
7B40 10A0 406 | SLT 32 CLEAR ACCUMULATOR K0504060
7B41 D03C 407 | STO SUMM CLEAR CONSTANT SUM K0504070
7B42 C100 408 | LD 1 0 WORD 1 OF CONSTANT K0504080
7B43 D834 409 | STD TEM K0504090
7B44 C101 410 | LD 1 1 WORD 2 OF CONSTANT K0504100
7B45 4C10 7B4D 411 | BSC L AOT,- BRANCH ON OPERATOR K0504110
7B47 1001 412 | SLA 1 MAKE BITS CONTIGUOUS K0504120
7B48 D030 413 | STO TEM+1 K0504130
7B49 C102 414 | LD 1 2 NEXT STATEMENT WORD K0504140
7B4A 7101 415 | MDX 1 1 MOVE STATEMENT POINTER K0504150
7B4B 4C08 7A9E 416 | BSC L ER8,+ BR ON NO OPERATOR K0504160
7B4D C02A 417 | AOT LD TEM WORD 1 OF CONSTANT K0504170
7B4E E02B 418 | AOT1 AND COT1 AND OUT ALL BUT 1ST 6 BITS K0504180
7B4F 1002 419 | SLA 2 K0504190
7B50 4C02 7B56 420 | BSC L PILL,C BRANCH IF CARRY ON K0504200
7B52 4C18 7B83 421 | BSC L NEX,+- BR TO CHECK FOR ZERO CON K0504210
7B54 6400 7A9E 422 | LDX L ER8 BR IMBEDDED ALPHA CHARACTER K0504220
7B56 4C10 7A9E 423 | PILL BSC L ER8,- BR NOT MINUS K0504230
7B58 E022 424 | AND COT2 EXTRACT DIGIT K0504240
7B59 9023 425 | S NINT NINE K0504250
7B5A 4C30 7A9E 426 | BSC L ER8,-Z BR GREATER THAN NINE K0504260
7B5C 8020 427 | A NINT RESTORE DIGIT K0504270
7B5D 180B 428 | SRA 11 RIGHT JUSTIFY K0504280
7B5E D01D 429 | STO HELP1 K0504290
7B5F C01E 430 | LD SUMM CUMULATIVE SUM K0504300
7B60 1001 431 | SLA 1 TIMES 2 K0504310
7B61 D01F 432 | STO GORT TEMPORARY STORE K0504320
7B62 4C28 7A9E 433 | BSC L ER8,+Z BR IF TOO LARGE K0504330
7B64 1002 434 | SLA 2 TIMES 8 K0504340
7B65 4C2A 7A9E 435 | BSC L ER8,C+Z BR IF TOO LARGE K0504350
7B67 8019 436 | A GORT TIMES 10 K0504360
7B68 8013 437 | A HELP1 UNITS DIGIT K0504370
7B69 4C01 7A9E 438 | BSC L ER8,O BR TOO LARGE K0504380
7B6B D012 439 | STO SUMM CUMULATIVE SUM K0504390
7B6C C80B 440 | LDD TEM DIGIT TEMPORARY K0504400
7B6D 1086 441 | SLT 6 SHIFT NEXT DIGIT TO HIGH 6 K0504410
7B6E D809 442 | STD TEM K0504420
7B6F 70DE 443 | MDX AOT1 BR TO PROCESS NEXT DIGIT K0504430
444 | * K0504440
445 | * CONSTANTS AND WORK AREA K0504450
446 | * K0504460
7B70 6000 447 | PIT DC /6000 ALPHABETIC MASK K0504470
7B71 7E00 448 | PIT1 DC /7E00 FIRST NAME CHARACTER MASK K0504480
7B72 1200 449 | RGTI DC /1200 CHARACTER LIMIT CHECK CON K0504490
7B73 1800 450 | RGTN DC /1800 CHARACTER LIMIT CHECK CON K0504500
7B74 4000 451 | IDCI DC /4000 INTEGER TYPE CONSTANT INDR K0504510
7B75 0000 452 | IDCR DC 0 REAL TYPE CONSTANT INDR K0504520
7B76 000D 453 | PARNL DC /000D LEFT PARENTHESIS CONSTANT K0504530
7B77 002B 454 | COMAC DC /002B COMMA CONSTANT K0504540
7B78 455 | BSS E 0 MAKE ADDRESS EVEN K0504550
7B78 0000 456 | TEM DC 0 2 WORD TEMPORARY FOR K0504560
7B79 0000 457 | DC 0 CONSTANT TO BE CONVERTED. K0504570
7B7A FE00 458 | COT1 DC /FE00 EXTRACT CHARACTER CONSTANT K0504580
7B7B 7800 459 | COT2 DC /7800 EXTRACT DIGIT CONSTANT K0504590
7B7C 0000 460 | HELP1 DC 0 UNITS DIGIT TEMPORARY K0504600
7B7D 4800 461 | NINT DC /4800 DECIMAL NINE CONSTANT K0504610
7B7E 0000 462 | SUMM DC 0 CUMULATIVE SUM OF CONSTANT K0504620
7B7F 0000 463 | CNT DC 0 NUMBER OF CONSTANTS COUNTER K0504630
7B80 001D 464 | PARNR DC /001D RIGHT PARENTHESIS CONSTANT K0504640
7B81 0000 465 | GORT DC 0 CONSTANT TIMES 2 TEMPORARY K0504650
7B82 0001 466 | O1 DC 1 DECIMAL 1 CONSTANT K0504660
467 | * K0504670
468 | * MAKE DIMENSION ENTRY IN SYMBOL TABLE K0504680
469 | * K0504690
7B83 7401 7B7F 470 | NEX MDX L CNT,1 INCR CONSTANT COUNTER K0504700
7B85 C0F8 471 | LD SUMM CHECK FOR ZERO CONSTANT K0504710
7B86 4C18 7A9E 472 | BSC L ER8,+- BR IF DIMENSION CON IS ZERO K0504720
7B88 C0F6 473 | LD CNT DIMENSION COUNTER K0504730
7B89 90F8 474 | S O1 ONE K0504740
7B8A 4820 475 | BSC Z SKIP NEXT IF FIRST CONSTANT K0504750
7B8B 7005 476 | MDX O2 BR TO COMPUTE 2ND CONSTANT K0504760
7B8C C0F1 477 | LD SUMM DIMENSION CONSTANT K0504770
7B8D D3FF 478 | STO 3 -1 STORE IN ALL 3 DIMENSION K0504780
7B8E D3FE 479 | STO 3 -2 WORDS OF SYMBOL TABLE K0504790
7B8F D3FD 480 | STO 3 -3 ENTRY. K0504800
7B90 7013 481 | MDX NEXP BR TO GET NEXT STMNT CHAR K0504810
7B91 90F0 482 | O2 S O1 ONE K0504820
7B92 4820 483 | BSC Z SKIP NEXT IF SECOND CON K0504830
7B93 7009 484 | MDX O3 BR TO COMPUTE THIRD CON K0504840
7B94 C3FF 485 | LD 3 -1 FIRST DIMENSION CONSTANT K0504850
7B95 A0E8 486 | M SUMM SECOND DIMENSION CONSTANT K0504860
7B96 1081 487 | SLT 1 BRANCH TO SET ERROR 8 2-7 K0504870
7B97 4C20 7A9E 488 | BSC L ER8,Z *IF TOO GREAT 2-7 K0504880
7B99 108F 489 | SLT 15 SHIFT INTO ACCUMULATOR 2-7 K0504890
7B9A D3FE 490 | STO 3 -2 STORE IN SECOND AND THIRD K0504900
7B9B D3FD 491 | STO 3 -3 DIMENSION WORDS. K0504910
7B9C 7007 492 | MDX NEXP BR TO GET NEXT STMNT CHAR K0504920
7B9D C3FD 493 | O3 LD 3 -3 1ST X 2ND DIMENSION CON K0504930
7B9E A0DF 494 | M SUMM THIRD DIMENSION CONSTANT K0504940
7B9F 1081 495 | SLT 1 BRANCH TO SET ERROR 8 2-7 K0504950
7BA0 4C20 7A9E 496 | BSC L ER8,Z *IF TOO GREAT 2-7 K0504960
7BA2 108F 497 | SLT 15 SHIFT INTO ACCUMULATOR 2-7 K0504970
7BA3 D3FD 498 | STO 3 -3 STORE IN THIRD DIMENSION WD K0504980
7BA4 7101 499 | NEXP MDX 1 1 INCREMENT STMNT POINTER K0504990
7BA5 C100 500 | LD 1 0 NEXT CHARACTER K0505000
7BA6 90D0 501 | S COMAC COMMA K0505010
7BA7 4C18 7BD8 502 | BSC L TCNT,+- BR TO CHECK DIMENSION COUNT K0505020
7BA9 80CD 503 | A COMAC RESTORE CHARACTER K0505030
7BAA 90D5 504 | S PARNR RIGHT PARENTHESIS K0505040
7BAB 4C20 7A9E 505 | BSC L ER8,Z BR TO ERR IF NO PARENTHESIS K0505050
7BAD C0D1 506 | LD CNT DIMENSION COUNT K0505060
7BAE 100B 507 | SLA 11 SHIFT TO BITS 3 AND 4 K0505070
7BAF D023 508 | STO TMPDM TEMPORARY K0505080
7BB0 C300 509 | LD 3 0 SYMBOL TABLE ID WORD K0505090
7BB1 E020 510 | AND THRDM SET BITS 3 AND 4 EQUAL TO K0505100
7BB2 E820 511 | OR TMPDM THE NUMBER OF DIMENSIONS. K0505110
7BB3 D300 512 | STO 3 0 SYMBOL TABLE ID WORD K0505120
7BB4 C400 7AD8 513 | LD L SW3 K0505130
7BB6 4C20 7BBE 514 | BSC L YELP1,Z BR TO CHECK FOR OVERLAP K0505140
7BB8 74FD 7A2A 515 | MDX L EOFST,-3 DECR END OF SYMBOL TABLE K0505150
7BBA 74FD 7A28 516 | MDX L SOFXT,-3 DECR START OF SUBSC TEMPS K0505160
7BBC 74FD 7A29 517 | MDX L SOFGT,-3 DECR START GENERATED TEMPS K0505170
7BBE C400 7A2A 518 | YELP1 LD L EOFST CHK FOR SYMBOL TBL OVERLAP K0505180
7BC0 8400 7AD6 519 | A L TWO K0505190
7BC2 9400 7A25 520 | S L EOFS END OF STRING K0505200
7BC4 4C28 7BD4 521 | BSC L JIMY,+Z BR IF SYMBOL TABLE OVERLAP K0505210
7BC6 1010 522 | SLA 16 CLEAR ACCUMULATOR K0505220
7BC7 D400 7AD8 523 | STO L SW3 RESET SWITCH 3 K0505230
7BC9 7101 524 | MDX 1 1 MOVE STMNT POINTER K0505240
7BCA C100 525 | LD 1 0 NEXT STMNT CHARACTER K0505250
7BCB 90AB 526 | S COMAC COMMA K0505260
7BCC 4C20 7A69 527 | BSC L SIP,Z BR NOT COMMA K0505270
7BCE 7101 528 | MDX 1 1 MOVE STMNT POINTER K0505280
7BCF 4C00 7A72 529 | BSC L PADS BR TO CHK FOR LEGAL NAME K0505290
530 | * K0505300
531 | * CONSTANTS AND WORK AREA K0505310
532 | * K0505320
7BD1 0003 533 | THRE DC 3 DECIMAL THREE K0505330
7BD2 E7FF 534 | THRDM DC /E7FF MASK TO REMOVE BITS 3 AND 4 K0505340
7BD3 0000 535 | TMPDM DC *-* DIMENSION COUNT TEMPORARY K0505350
536 | * K0505360
537 | * CHECK FOR OVERLAP ERROR K0505370
538 | * K0505380
7BD4 7401 7A2D 539 | JIMY MDX L ERROR,1 SET OVERLAP ERROR ON K0505390
7BD6 4C00 7BE8 540 | BSC L BEGIN BR TO REAL AND INTEGER K0505400
7BD8 C0A6 541 | TCNT LD CNT CHK FOR COUNT LESS THAN 3 K0505410
7BD9 90F7 542 | S THRE K0505420
7BDA 4C10 7A9E 543 | BSC L ER8,- BR IF COUNT 3 OR MORE K0505430
7BDC 6400 7B39 544 | LDX L SON1+2 BR TO CONVERT NEXT CONSTANT K0505440
545 | * K0505450
546 | * CONSTANTS AND WORK AREA K0505460
547 | * K0505470
7BDE 0001 548 | ONE DC 1 DECIMAL 1 K0505480
7BDF 0000 549 | SW1A DC 0 MOVE SWITCH K0505490
7BE0 0000 550 | SW2A DC 0 REAL/INTEGER SWITCH K0505500
7BE1 0800 551 | H0800 DC /0800 END STMNT CONSTANT K0505510
7BE2 0400 552 | INTGR DC /0400 INTEGER STMNT CONSTANT K0505520
7BE3 1C00 553 | REALC DC /2400-/0800 REAL STMNT CONSTANT K0505530
7BE4 001E 554 | SEMI DC /1E SEMICOLON CONSTANT K0505540
7BE5 0000 555 | SW3A DC 0 SYNTAX ERROR SWITCH K0505550
7BE6 7C00 556 | IDTPQ DC /7C00 STATEMENT TYPE MASK K0505560
7BE7 3C00 557 | EXTER DC /3C00 EXTERNAL STMNT CONSTANT K0505570
558 | * K0505580
559 | * INITIALIZE TYPE STATEMENT PASS K0505590
560 | * K0505600
7BE8 6580 7A24 561 | BEGIN LDX I1 SOFS START OF STRING ADDRESS K0505610
7BEA C400 7A2D 562 | LD L ERROR OVERLAP ERROR INDICATOR K0505620
7BEC 4C20 7E4A 563 | BSC L NXTPH,Z BRCH IF OVERLAP ERROR 2-11 K0505630
7BEE 1010 564 | DAP SLA 16 K0505640
7BEF D400 7C7D 565 | STO L SW4 RESET EXTERNAL STMNT SWITCH K0505650
7BF1 D400 7C86 566 | STO L SW6 RESET SWITCH 6 K0505660
7BF3 D400 7A4F 567 | STO L SW7 RESET 1ST PASS SWITCH 2-11 K0505670
7BF5 C100 568 | LD 1 0 FIRST WORD OF STMNT K0505680
7BF6 1801 569 | SRA 1 POSITION TO TEST STMNT TYPE K0505690
7BF7 E0EE 570 | AND IDTPQ STMNT TYPE (BITS 1-5) K0505700
7BF8 90E8 571 | S H0800 END STATEMENT CONSTANT K0505710
7BF9 4C18 7DE8 572 | BSC L REPAK,+- GO DO REPACK OF STRING 2-11 K0505720
7BFB 90E7 573 | S REALC REAL STMNT CONSTANT K0505730
7BFC 4C18 7C09 574 | BSC L LAP,+- BR IF REAL STMNT K0505740
7BFE 90E3 575 | S INTGR INTEGER CONSTANT K0505750
7BFF 4C18 7C07 576 | BSC L LAP1,+- BR IF INTEGER STMNT K0505760
7C01 90E5 577 | S EXTER EXTERNAL STMNT CONSTANT K0505770
7C02 4C20 7DD0 578 | BSC L PTCH1,Z BRANCH TO PATCH IF NO 2-4 K0505780
7C04 7401 7C7D 579 | MDX L SW4,1 EXTERNAL SWITCH ON K0505790
7C06 7004 580 | MDX LAP4 BR TO SET MOVE SWITCH ON K0505800
7C07 68D8 581 | LAP1 STX 0 SW2A SW2A SET NON-ZERO = INTEGER K0505810
7C08 7002 582 | MDX LAP4 BR TO SET MOVE SWITCH ON K0505820
7C09 1010 583 | LAP SLA 16 SET SW2A TO ZERO TO K0505830
7C0A D0D5 584 | STO SW2A INDICATE REAL STMNT. K0505840
7C0B 68D3 585 | LAP4 STX 0 SW1A SET MOVE SWITCH ON K0505850
586 | * K0505860
587 | * INITIALIZE TO SCAN BODY OF STMNT K0505870
588 | * K0505880
7C0C 6D00 7A5F 589 | LAP3 STX L1 IDADR ADRS 1ST STMNT WORD 2-11 K0505890
7C0E 7101 590 | MDX 1 1 INCR STMNT ADDR K0505900
7C0F 1010 591 | SLA 16 CLEAR ACCUMULATOR K0505910
7C10 D400 7C7C 592 | STO L SW5 SYMBOL TABLE ADDR ADJUST SW K0505920
7C12 D0D2 593 | STO SW3A RESET SYNTAX ERROR INDR K0505930
7C13 C100 594 | JAP LD 1 0 FIRST STMNT WORD K0505940
7C14 90CF 595 | S SEMI SEMI-COLON K0505950
7C15 4C18 7AAA 596 | BSC L REMOV,+- BRCH IF SEMI-COLON 2-11 K0505960
7C17 C0CD 597 | LD SW3A SYNTAX ERROR SW K0505970
7C18 4C20 7C56 598 | BSC L ER19,Z BR TO SET ERROR IF SW3 ON K0505980
7C1A C100 599 | ZAR LD 1 0 STMNT NAME (FIRST HALF) K0505990
7C1B 4C28 7C21 600 | BSC L LAP2,+Z BRANCH IF NAME 2-6 K0506000
7C1D 90C6 601 | S SEMI ERROR 19 2-6 K0506010
7C1E 4C18 7C56 602 | BSC L ER19,+- *IF SEMICOLON 2-6 K0506020
7C20 704E 603 | MDX ER7R ERROR 7 IF NOT 2-6 K0506030
604 | * K0506040
7C21 D02C 605 | LAP2 STO WORD1 SAVE FIRST HALF OF NAME K0506050
7C22 1002 606 | SLA 2 K0506060
7C23 4C2A 7C6F 607 | BSC L ER7R,C+Z BR IF 1ST CHAR NOT ALPHA K0506070
7C25 C101 608 | LD 1 1 LAST HALF OF STMNT NAME K0506080
7C26 4C28 7C2B 609 | BSC L HOCK,+Z BR IF NAME LONGER THAN 1 WD K0506090
7C28 C023 610 | LD ZO ONE WORD NAME INDICATOR K0506100
7C29 D025 611 | STO WORD2 LAST HALF OF NAME K0506110
7C2A 7002 612 | MDX *+2 2-1 K0506120
7C2B D023 613 | HOCK STO WORD2 LAST HALF OF NAME K0506130
7C2C 7101 614 | MDX 1 1 INCR STMNT ADDRESS K0506140
7C2D C400 7C7D 615 | LD L SW4 EXTERNAL INDICATOR 2-1 K0506150
7C2F 4C18 7C36 616 | BSC L GENEL,+- BR IF NOT EXTERNAL 2-1 K0506160
7C31 C101 617 | LD 1 1 BR TO ER19 IF 2-1 K0506170
7C32 9400 7B76 618 | S L PARNL NAME IS 2-1 K0506180
7C34 4C18 7C56 619 | BSC L ER19,+- SUBSCRIPTED 2-1 K0506190
7C36 C101 620 | GENEL LD 1 1 BR TO ER7 IF NAME MORE 2-1 K0506200
7C37 4C28 7C6F 621 | BSC L ER7R,+Z THAN TWO WORDS LONG. K0506210
622 | * K0506220
623 | * LOOK FOR NAME IN SYMBOL TABLE K0506230
624 | * K0506240
7C39 6780 7A27 625 | ZOR LDX I3 SOFNS START OF NON-STMNT NUMBERS K0506250
7C3B 7009 626 | MDX HACK BR TO CHECK END OF SEARCH K0506260
7C3C C301 627 | LOOPQ LD 3 1 LD NEXT SYMBOL TABLE ENTRY K0506270
7C3D 9010 628 | S WORD1 FIRST HALF OF NAME K0506280
7C3E 4820 629 | BSC Z SKIP NEXT IF EQUAL NAME K0506290
7C3F 7004 630 | MDX EAT BR IF NOT EQUAL NAME K0506300
7C40 C302 631 | LD 3 2 LD NEXT SYMBOL TABLE ENTRY K0506310
7C41 900D 632 | S WORD2 LAST HALF OF NAME K0506320
7C42 4C18 7CC9 633 | BSC L FUN,+- BR IF NAME FOUND K0506330
7C44 73FD 634 | EAT MDX 3 -3 DECR SYMBOL TABLE ADDRESS K0506340
7C45 6B07 635 | HACK STX 3 SAVEQ STORE TO TEMPORARY K0506350
7C46 C006 636 | LD SAVEQ LOAD CURRENT SEARCH ADDRESS K0506360
7C47 9400 7A2A 637 | S L EOFST END OF SYMBOL TABLE K0506370
7C49 4820 638 | BSC Z SKIP NEXT IF END SEARCH K0506380
7C4A 70F1 639 | MDX LOOPQ BR TO CONTINUE SEARCH K0506390
7C4B 703B 640 | MDX PLACQ BR TO PUT NAME IN TABLE K0506400
641 | * K0506410
642 | * CONSTANTS AND WORK AREA K0506420
643 | * K0506430
7C4C 8000 644 | ZO DC /8000 SWITCH 2 RESET CONSTANT K0506440
7C4D 0000 645 | SAVEQ DC 0 INDEX REGISTER 3 TEMPORARY K0506450
7C4E 0000 646 | WORD1 DC 0 STMNT NAME (FIRST HALF) K0506460
7C4F 0000 647 | WORD2 DC 0 STMNT NAME (SECOND HALF) K0506470
7C50 0012 648 | ERR18 DC 18 ERROR 18 CONSTANT K0506480
7C51 0013 649 | ERR19 DC 19 ERROR 19 CONSTANT K0506490
7C52 0014 650 | ERR20 DC 20 ERROR 20 CONSTANT K0506500
7C53 0008 651 | ERR8S DC 8 ERROR 08 CONSTANT K0506510
7C54 0007 652 | ERR7S DC 7 ERROR 07 CONSTANT K0506520
7C55 0015 653 | ERR21 DC 21 ERROR 21 CONSTANT K0506530
654 | * K0506540
655 | * SET UP ERRORS K0506550
656 | * K0506560
7C56 C0FA 657 | ER19 LD ERR19 ERROR 19 INDICATOR K0506570
7C57 D400 7A58 658 | STO L ERRNO TEMP ERROR NUMBER 2-11 K0506580
7C59 4C00 7AAC 659 | BSC L CLOSE BRCH TO INSERT ERROR ID2-11 K0506590
7C5B C0F6 660 | ER20 LD ERR20 ERROR 20 INDICATOR K0506600
7C5C D400 7A58 661 | STO L ERRNO TEMP ERROR NUMBER 2-11 K0506610
7C5E 4C00 7AAC 662 | BSC L CLOSE BRCH TO INSERT ERROR ID2-11 K0506620
7C60 C0F2 663 | ER8R LD ERR8S ERROR 08 INDICATOR K0506630
7C61 D400 7A58 664 | STO L ERRNO TEMP ERROR NUMBER 2-11 K0506640
7C63 4C00 7AAC 665 | BSC L CLOSE BRCH TO INSERT ERROR ID2-11 K0506650
7C65 C0EA 666 | ER18 LD ERR18 ERROR 18 INDICATOR K0506660
7C66 D400 7A58 667 | STO L ERRNO TEMP ERROR NUMBER 2-11 K0506670
7C68 4C00 7AAC 668 | BSC L CLOSE BRCH TO INSERT ERROR ID2-11 K0506680
7C6A C0EA 669 | ER21 LD ERR21 ERROR 21 INDICATOR K0506690
7C6B D400 7A58 670 | STO L ERRNO TEMP ERROR NUMBER 2-11 K0506700
7C6D 4C00 7AAC 671 | BSC L CLOSE BRCH TO INSERT ERROR ID2-11 K0506710
7C6F C0E4 672 | ER7R LD ERR7S ERROR 07 INDICATOR K0506720
7C70 D400 7A58 673 | STO L ERRNO TEMP ERROR NUMBER 2-11 K0506730
7C72 4C00 7AAC 674 | BSC L CLOSE BRCH TO INSERT ERROR ID2-11 K0506740
675 | * K0506750
676 | * CONSTANTS AND WORK AREA K0506760
677 | * K0506770
7C74 BFFF 678 | RLIND DC /BFFF REAL INDICATOR K0506780
7C75 4000 679 | ININD DC /4000 INTEGER INDICATOR K0506790
7C76 002B 680 | COMA DC /2B COMMA CONSTANT K0506800
7C77 FFE2 681 | LPAR DC /0D-/2B LEFT PARENTHESIS CONSTANT K0506810
7C78 FFF2 682 | RPAR DC /1D-/2B RIGHT PARENTHESIS CONSTANT K0506820
7C79 3800 683 | MART DC /3800 EXTERNAL STMNT MASK K0506830
7C7A 0000 684 | TENTS DC 0 SYMBOL TABLE ADDRESS K0506840
7C7B 0090 685 | MART1 DC /0090 EXTERNAL INDICATORS K0506850
7C7C 0000 686 | SW5 DC 0 SYMBOL TABLE ADDR ADJUST SW K0506860
7C7D 0000 687 | SW4 DC 0 EXTERNAL STMNT SWITCH K0506870
7C7E 0016 688 | ER22 DC 22 ERROR 22 CONSTANT K0506880
7C7F 9231 689 | IFIXC DC /9231 IFIX EBCDIC CON (FIRST WD) K0506890
7C80 99C0 690 | DC /99C0 IFIX EBCDIC CON (LAST WD) K0506900
7C81 8C9A 691 | FLT DC /8C9A FLT EBCDIC CON (FIRST WD) K0506910
7C82 E063 692 | DC /E063 FLT EBCDIC CON (LAST WD) K0506920
7C83 7E00 693 | H7E00 DC /7E00 FIRST NAME CHAR MASK K0506930
7C84 1200 694 | H1200 DC /1200 NAME ALPHA CONSTANT K0506940
7C85 1800 695 | H1800 DC /1800 NAME ALPHA CONSTANT K0506950
7C86 0000 696 | SW6 DC *-* DIMENSION ERROR SWITCH K0506960
697 | * K0506970
698 | * PLACE NAME IN SYMBOL TABLE K0506980
699 | * K0506990
7C87 C0C7 700 | PLACQ LD WORD2 LAST HALF OF NAME K0507000
7C88 D302 701 | STO 3 2 NEXT SYMBOL TABLE ENTRY+1 K0507010
7C89 C0C4 702 | LD WORD1 FIRST HALF OF NAME K0507020
7C8A D301 703 | STO 3 1 NEXT SYMBOL TABLE ENTRY K0507030
7C8B 1010 704 | SLA 16 K0507040
7C8C D300 705 | STO 3 0 CLEAR SYMBOL TABLE ID WORD K0507050
7C8D 74FD 7A2A 706 | MDX L EOFST,-3 DECR END SYMBOL TABLE ADDR K0507060
7C8F 74FD 7A28 707 | MDX L SOFXT,-3 DECR START OF SUBSC TEMPS K0507070
7C91 74FD 7A29 708 | MDX L SOFGT,-3 DECR START GENERATED TEMPS K0507080
7C93 C400 7A2A 709 | LD L EOFST CHECK FOR 2-1 K0507090
7C95 8400 7D65 710 | A L TWOS SYMBOL TABLE 2-1 K0507100
7C97 9400 7A25 711 | S L EOFS OVERLAP 2-1 K0507110
7C99 4C28 7DCC 712 | BSC L JIMMY,+Z BR IF OVERLAP 2-1 K0507120
7C9B C0E1 713 | LD SW4 EXTERNAL STMNT SWITCH K0507130
7C9C 4C18 7CD9 714 | BSC L TICK,+- BR IF NOT EXTERNAL STMNT K0507140
7C9E C300 715 | MLTN LD 3 0 SYMBOL TABLE ID WORD K0507150
7C9F E0D9 716 | AND MART BR TO ER21 IF EXTERNAL NAME K0507160
7CA0 4C20 7C6A 717 | BSC L ER21,Z IS IN COMMON OR DIMENSION. K0507170
7CA2 C300 718 | LD 3 0 SYMBOL TABLE ID WORD K0507180
7CA3 E8D7 719 | OR MART1 SET EXTERNAL STMNT INDR K0507190
7CA4 D300 720 | STO 3 0 RESTORE ID WD K0507200
7CA5 C301 721 | LD 3 1 FIRST HALF OF NAME K0507210
7CA6 90D8 722 | S IFIXC FIRST HALF OF IFIX NAME CON K0507220
7CA7 4C20 7CB2 723 | BSC L TICKK,Z BR IF NAME NOT EQUAL IFIX K0507230
7CA9 C302 724 | LD 3 2 LAST HALF OF NAME K0507240
7CAA 90D5 725 | S IFIXC+1 LAST HALF OF IFIX NAME CON K0507250
7CAB 4C20 7CB2 726 | BSC L TICKK,Z BR IF NAME NOT EQUAL IFIX K0507260
7CAD C0D0 727 | EROR LD ER22 SET UP ERROR 22 - IFIX K0507270
7CAE D400 7A58 728 | STO L ERRNO TEMP ERROR NUMBER 2-11 K0507280
7CB0 4C00 7AAC 729 | BSC L CLOSE BRCH TO INSERT ERROR ID2-11 K0507290
7CB2 C301 730 | TICKK LD 3 1 FIRST HALF OF NAME K0507300
7CB3 90CD 731 | S FLT FIRST HALF OF FLT NAME CON K0507310
7CB4 4C20 7CBA 732 | BSC L TICKP,Z BR NAME NOT EQUAL FLT K0507320
7CB6 C302 733 | LD 3 2 LAST HALF OF NAME K0507330
7CB7 90CA 734 | S FLT+1 LAST HALF OF FLT NAME CON K0507340
7CB8 4C18 7CAD 735 | BSC L EROR,+- BR IF NAME EQUAL FLT K0507350
7CBA C0CB 736 | TICKP LD SW6 K0507360
7CBB 4C18 7CC0 737 | BSC L TICKQ,+- BR IF SW6 IS OFF K0507370
7CBD 1010 738 | SLA 16 K0507380
7CBE D0C7 739 | STO SW6 CLEAR SW6 K0507390
7CBF 7023 740 | MDX MOTQS BR TO MOVE STMNT POINTER K0507400
7CC0 C301 741 | TICKQ LD 3 1 FIRST NAME WORD K0507410
7CC1 E0C1 742 | AND H7E00 EXTRACT FIRST CHARACTER K0507420
7CC2 90C1 743 | S H1200 K0507430
7CC3 4C28 7CDD 744 | BSC L LAP5,+Z BR IF MINUS TO SET REAL K0507440
7CC5 90BF 745 | S H1800 K0507450
7CC6 4C30 7CDD 746 | BSC L LAP5,-Z BR IF POS TO SET REAL K0507460
7CC8 7017 747 | MDX MA BR TO SET INTEGER INDR K0507470
7CC9 C300 748 | FUN LD 3 0 SYMBOL TBL ID WORD K0507480
7CCA 1008 749 | SLA 8 K0507490
7CCB 4C28 7C5B 750 | BSC L ER20,+Z BR IF SUBPROGRAM NAME K0507500
751 | * K0507510
752 | * CHECK FOR NAME PREVIOUSLY DIMENSIONED K0507520
753 | * K0507530
7CCD C300 754 | LD 3 0 SYMBOL TBL ID WORD K0507540
7CCE 1003 755 | SLA 3 K0507550
7CCF 4C28 7C65 756 | BSC L ER18,+Z BR IF MULTIPLE DIMENSION K0507560
7CD1 1001 757 | SLA 1 K0507570
7CD2 4C28 7C65 758 | BSC L ER18,+Z BR IF MULTIPLE DIMENSION K0507580
7CD4 C0A8 759 | LD SW4 EXTERNAL SWITCH K0507590
7CD5 4C18 7CD9 760 | BSC L TICK,+- BR IF NOT EXTERNAL STMNT K0507600
7CD7 68AE 761 | STX 0 SW6 TURN ON SWITCH 6 K0507610
7CD8 70C5 762 | MDX MLTN BR TO CHK EXTERNAL ERROR K0507620
7CD9 C400 7BE0 763 | TICK LD L SW2A REAL/INTEGER SWITCH K0507630
7CDB 4C20 7CE0 764 | BSC L MA,Z BR TO SET INTEGER INDICATOR K0507640
7CDD C300 765 | LAP5 LD 3 0 SYMBOL TABLE ID WORD K0507650
7CDE E095 766 | AND RLIND SET INDICATOR REAL K0507660
7CDF 7002 767 | MDX ZZ BR TO RESTORE ID WORD K0507670
7CE0 C300 768 | MA LD 3 0 ID WORD K0507680
7CE1 E893 769 | OR ININD SET INDICATOR INTEGER K0507690
7CE2 D300 770 | ZZ STO 3 0 RESTORE ID WORD K0507700
7CE3 7101 771 | MOTQS MDX 1 1 INCR STMNT POINTER K0507710
7CE4 C100 772 | LD 1 0 NEXT STMNT WORD K0507720
7CE5 9090 773 | S COMA COMMA CONSTANT K0507730
7CE6 4C18 7DBF 774 | BSC L BROT,+- BR IF COMMA K0507740
7CE8 908E 775 | S LPAR LEFT PARENTHESIS CONSTANT K0507750
7CE9 4C20 7DC8 776 | BSC L SIS,Z BR NOT LEFT PARENTHESIS K0507760
7CEB 1010 777 | SLA 16 K0507770
7CEC D076 778 | STO CNTQ RESET DIMENSION COUNTER K0507780
779 | * K0507790
780 | * CHECK FOR SUBPROGRAM OR FUNCTION K0507800
781 | * K0507810
7CED C400 7A30 782 | LD L SORF SUBPROGRAM OR FUNCTION INDR K0507820
7CEF 4C18 7CF7 783 | BSC L SUBQ,+- BR IF SUBPROG OR FUNCTION K0507830
7CF1 C300 784 | LD 3 0 SYMBOL TBL ID WORD K0507840
7CF2 1002 785 | SLA 2 K0507850
7CF3 4C10 7CF7 786 | BSC L SUBQ,- BR IF ALREADY IN COMMON K0507860
7CF5 7401 7A2E 787 | MDX L FNAME,1 ADJUST FNAME POINTER K0507870
788 | * K0507880
789 | * SPREAD SYMBOL TABLE FOR DIMENSION WDS K0507890
790 | * K0507900
7CF7 6921 791 | SUBQ STX 1 SAVIT+1 SAVE STMNT POINTER K0507910
7CF8 6B81 792 | STX 3 TENTS ADDR OF NAME IN COMMON K0507920
7CF9 C400 7C7A 793 | LD L TENTS K0507930
7CFB 9400 7A2A 794 | S L EOFST END OF STRING ADDRESS K0507940
7CFD D400 7C7A 795 | STO L TENTS NUMBER OF WORDS TO MOVE K0507950
7CFF 6680 7C7A 796 | LDX I2 TENTS K0507960
7D01 72FD 797 | MDX 2 -3 DECR WDS TO MOVE COUNT K0507970
7D02 7001 798 | MDX PASSS BR TO SLIDE TABLE 1 ENTRY K0507980
7D03 7007 799 | MDX GLINE BR TO CLEAR ENTRY IF ZERO K0507990
7D04 6580 7A2A 800 | PASSS LDX I1 EOFST END OF SYMBOL TABLE ADDRESS K0508000
7D06 C103 801 | LOOP8 LD 1 3 LD WORD TO MOVE K0508010
7D07 D100 802 | STO 1 0 SPREAD TABLE THREE WORDS K0508020
7D08 7101 803 | MDX 1 1 INCR MOVE POINTER K0508030
7D09 72FF 804 | MDX 2 -1 DECR CTR, SKIP NEXT IF DONE K0508040
7D0A 70FB 805 | MDX LOOP8 BR TO CONTINUE K0508050
7D0B 1010 806 | GLINE SLA 16 K0508060
7D0C D3FF 807 | STO 3 -1 ZERO WD 3 DIMENSION ENTRY K0508070
7D0D D3FE 808 | STO 3 -2 ZERO WD 2 DIMENSION ENTRY K0508080
7D0E D3FD 809 | STO 3 -3 ZERO WD 1 DIMENSION ENTRY K0508090
7D0F C300 810 | LD 3 0 ID WORD K0508100
7D10 E856 811 | OR MUM1 ONE DIMENSION INDICATOR K0508110
7D11 D300 812 | STO 3 0 REPLACE IN TABLE ENTRY K0508120
7D12 74FD 7A2A 813 | MDX L EOFST,-3 DECR END OF SYMBOL TABLE K0508130
7D14 74FD 7A28 814 | MDX L SOFXT,-3 DECR START OF SUBSC TEMPS K0508140
7D16 74FD 7A29 815 | MDX L SOFGT,-3 DECR START GENERATED TEMPS K0508150
7D18 6500 0000 816 | SAVIT LDX L1 *-* RESTORE INDEX REGISTER 1 K0508160
7D1A 7401 7C7C 817 | MDX L SW5,1 K0508170
7D1C C400 7A2A 818 | LD L EOFST CHK FOR SYMBOL TBL OVERLAP K0508180
7D1E 8046 819 | A TWOS K0508190
7D1F 9400 7A25 820 | S L EOFS END OF STRING K0508200
7D21 4C28 7DCC 821 | BSC L JIMMY,+Z BR IF SYMBOL TABLE OVERLAP K0508210
7D23 7101 822 | PHIL MDX 1 1 MOVE STATEMENT POINTER K0508220
7D24 C100 823 | LD 1 0 NEXT CHARACTER OF STATEMENT K0508230
7D25 E035 824 | AND H6000 CHECK FOR ALPHA CHARACTER K0508240
7D26 F034 825 | EOR H6000 K0508250
7D27 4C20 7C60 826 | BSC L ER8R,Z BR TO ER8 IF NOT NUMERIC K0508260
827 | * K0508270
828 | * COLLECT CONSTANT TO BINARY K0508280
829 | * K0508290
7D29 2000 830 | LDS 0 RESET OVERFLOW AND CARRY K0508300
7D2A 10A0 831 | SLT 32 K0508310
7D2B D030 832 | STO SUMMS CLEAR CONSTANT SUM K0508320
7D2C C100 833 | LD 1 0 WORD ONE OF CONSTANT K0508330
7D2D D830 834 | STD TEMP K0508340
7D2E C101 835 | LD 1 1 WORD TWO OF CONSTANT K0508350
7D2F 4C10 7D37 836 | BSC L BOT,- BR ON OPERATOR K0508360
7D31 1001 837 | SLA 1 MAKE BITS CONTIGUOUS K0508370
7D32 D02C 838 | STO TEMP+1 K0508380
7D33 C102 839 | LD 1 2 NEXT STATEMENT WORD K0508390
7D34 7101 840 | MDX 1 1 MOVE STMNT POINTER K0508400
7D35 4C08 7C60 841 | BSC L ER8R,+ BR ON NO OPERATOR K0508410
7D37 C026 842 | BOT LD TEMP WD 1 OF CONSTANT K0508420
7D38 E027 843 | BOT1 AND COT10 AND OUT ALL BUT 1ST 6 BITS K0508430
7D39 1002 844 | SLA 2 K0508440
7D3A 4C02 7D40 845 | BSC L PILLS,C BRANCH IF CARRY ON K0508450
7D3C 4C18 7D69 846 | BSC L NEXT,+- BR TO CHK FOR ZERO CONSTANT K0508460
7D3E 4C00 7C60 847 | BSC L ER8R BR IMBEDDED ALPHA CHARACTER K0508470
7D40 4C10 7C60 848 | PILLS BSC L ER8R,- BR NOT MINUS K0508480
7D42 E01E 849 | AND COT20 EXTRACT DIGIT K0508490
7D43 9020 850 | S NINTS NINE K0508500
7D44 4C30 7C60 851 | BSC L ER8R,-Z BR GREATER THAN NINE K0508510
7D46 801D 852 | A NINTS RESTORE DIGIT K0508520
7D47 180B 853 | SRA 11 RIGHT JUSTIFY K0508530
7D48 D019 854 | STO HP1 K0508540
7D49 C012 855 | LD SUMMS CUMULATIVE SUM K0508550
7D4A 1001 856 | SLA 1 TIMES 2 K0508560
7D4B D00E 857 | STO TENZ TEMPORARY STORE K0508570
7D4C 4C28 7C60 858 | BSC L ER8R,+Z BR IF TOO LARGE K0508580
7D4E 1002 859 | SLA 2 TIMES 8 K0508590
7D4F 4C2A 7C60 860 | BSC L ER8R,C+Z BR IF TOO LARGE K0508600
7D51 8008 861 | A TENZ TIMES 10 K0508610
7D52 800F 862 | A HP1 UNITS DIGIT K0508620
7D53 4C01 7C60 863 | BSC L ER8R,O BR TOO LARGE K0508630
7D55 D006 864 | STO SUMMS CUMULATIVE SUM K0508640
7D56 C807 865 | LDD TEMP DIGIT TEMPORARY K0508650
7D57 1086 866 | SLT 6 SHIFT NEXT DIGIT TO HIGH 6 K0508660
7D58 D805 867 | STD TEMP K0508670
7D59 70DE 868 | MDX BOT1 BR TO PROCESS NEXT DIGIT K0508680
869 | * K0508690
870 | * CONSTANTS AND WORK AREA K0508700
871 | * K0508710
7D5A 0000 872 | TENZ DC 0 CONSTANT TIMES 2 TEMPORARY K0508720
7D5B 6000 873 | H6000 DC /6000 ALPHABETIC MASK K0508730
7D5C 0000 874 | SUMMS DC 0 CUMULATIVE SUM OF CONSTANT K0508740
7D5E 875 | BSS E 0 MAKE ADDRESS EVEN K0508750
7D5E 0000 876 | TEMP DC 0 2 WORD TEMPORARY FOR K0508760
7D5F 0000 877 | DC 0 CONSTANT TO BE CONVERTED. K0508770
7D60 7E00 878 | COT10 DC /7E00 FIRST NAME CHAR MASK K0508780
7D61 7800 879 | COT20 DC /7800 EXTRACT DIGIT CONSTANT K0508790
7D62 0000 880 | HP1 DC 0 UNITS DIGIT TEMPORARY K0508800
7D63 0000 881 | CNTQ DC 0 NUMBER OF CONSTANTS COUNTER K0508810
7D64 4800 882 | NINTS DC /4800 DECIMAL NINE CONSTANT K0508820
7D65 0002 883 | TWOS DC 2 DECIMAL TWO CONSTANT K0508830
7D66 0003 884 | THREE DC 3 DECIMAL THREE CONSTANT K0508840
7D67 0800 885 | MUM1 DC /0800 ONE DIMENSION INDICATOR K0508850
7D68 E7FF 886 | DIMCL DC /E7FF MASK TO REMOVE BITS 3 AND 4 K0508860
887 | * K0508870
888 | * COMPUTE AND STORE DIMENSION CONSTANTS K0508880
889 | * K0508890
7D69 7401 7D63 890 | NEXT MDX L CNTQ,1 INCR CONSTANT COUNTER K0508900
7D6B C0F0 891 | LD SUMMS CHECK FOR ZERO CONSTANT K0508910
7D6C 4C18 7C60 892 | BSC L ER8R,+- BR IF DIMENSION CON IS ZERO K0508920
7D6E C0F4 893 | LD CNTQ DIMENSION COUNTER K0508930
7D6F 9400 7BDE 894 | S L ONE K0508940
7D71 4820 895 | BSC Z SKIP NEXT IF FIRST CONSTANT K0508950
7D72 7005 896 | MDX OZ2 BR TO COMPUTE 2ND CONSTANT K0508960
7D73 C0E8 897 | LD SUMMS DIMENSION CONSTANT K0508970
7D74 D3FF 898 | STO 3 -1 STORE FIRST DIMENSION K0508980
7D75 D3FE 899 | STO 3 -2 CONSTANT IN ALL 3 WORDS OF K0508990
7D76 D3FD 900 | STO 3 -3 SYMBOL TABLE ENTRY. K0509000
7D77 7014 901 | MDX NEXTS BR TO GET NEXT STMNT CHAR K0509010
7D78 9400 7BDE 902 | OZ2 S L ONE K0509020
7D7A 4820 903 | BSC Z SKIP NEXT IF 2ND CONSTANT K0509030
7D7B 7009 904 | MDX OZ3 BR TO COMPUTE 3RD CONSTANT K0509040
7D7C C3FF 905 | LD 3 -1 FIRST DIMENSION CONSTANT K0509050
7D7D A0DE 906 | M SUMMS SECOND DIMENSION CONSTANT K0509060
7D7E 1081 907 | SLT 1 BRANCH TO SET ERROR 8 2-7 K0509070
7D7F 4C20 7C60 908 | BSC L ER8R,Z *IF TOO GREAT 2-7 K0509080
7D81 108F 909 | SLT 15 SHIFT INTO ACCUMULATOR 2-7 K0509090
7D82 D3FE 910 | STO 3 -2 STORE IN SECOND AND THIRD K0509100
7D83 D3FD 911 | STO 3 -3 DIMENSION WORDS. K0509110
7D84 7007 912 | MDX NEXTS BR TO GET NEXT STMNT CHAR K0509120
7D85 C3FD 913 | OZ3 LD 3 -3 1ST X 2ND DIMENSION CON K0509130
7D86 A0D5 914 | M SUMMS THIRD DIMENSION CONSTANT K0509140
7D87 1081 915 | SLT 1 BRANCH TO SET ERROR 8 2-7 K0509150
7D88 4C20 7C60 916 | BSC L ER8R,Z *IF TOO GREAT 2-7 K0509160
7D8A 108F 917 | SLT 15 SHIFT INTO ACCUMULATOR 2-7 K0509170
7D8B D3FD 918 | STO 3 -3 STORE IN THIRD DIMENSION WD K0509180
7D8C 7101 919 | NEXTS MDX 1 1 INCR STMNT POINTER K0509190
7D8D C100 920 | LD 1 0 NEXT CHARACTER K0509200
7D8E 9400 7C76 921 | S L COMA COMMA K0509210
7D90 4C20 7D97 922 | BSC L COZ,Z BR CHK RIGHT PARENTHESIS K0509220
7D92 C0D0 923 | LD CNTQ CHK FOR COUNT LESS THAN 3 K0509230
7D93 90D2 924 | S THREE K0509240
7D94 4C10 7C60 925 | BSC L ER8R,- BR IF COUNT THREE OR MORE K0509250
7D96 708C 926 | MDX PHIL BR TO CONVERT NEXT CONSTANT K0509260
7D97 9400 7C78 927 | COZ S L RPAR RIGHT PARENTHESIS K0509270
7D99 4C20 7C60 928 | BSC L ER8R,Z BR TO ERR IF NO PARENTHESIS K0509280
7D9B C0C7 929 | LD CNTQ DIMENSION COUNT K0509290
7D9C 100B 930 | SLA 11 SHIFT TO BITS 3 AND 4 K0509300
7D9D D0C0 931 | STO TEMP TEMPORARY K0509310
7D9E C300 932 | LD 3 0 SYMBOL TABLE ID WORD K0509320
7D9F E0C8 933 | AND DIMCL SET BITS 3 AND 4 EQUAL TO K0509330
7DA0 E8BD 934 | OR TEMP THE NUMBER OF DIMENSIONS. K0509340
7DA1 D300 935 | STO 3 0 SYMBOL TABLE ID WORD K0509350
7DA2 C400 7C7C 936 | LD L SW5 K0509360
7DA4 4C20 7DAC 937 | BSC L YELP,Z BR TO CHECK FOR OVERLAP K0509370
7DA6 74FD 7A2A 938 | MDX L EOFST,-3 DECR END OF SYMBOL TABLE K0509380
7DA8 74FD 7A28 939 | MDX L SOFXT,-3 DECR START OF SUBSC TEMPS K0509390
7DAA 74FD 7A29 940 | MDX L SOFGT,-3 DECR START GENERATED TEMPS K0509400
7DAC C400 7A2A 941 | YELP LD L EOFST CHK FOR SYMBOL TBL OVERLAP K0509410
7DAE 80B6 942 | A TWOS K0509420
7DAF 9400 7A25 943 | S L EOFS END OF STRING K0509430
7DB1 4C28 7DCC 944 | BSC L JIMMY,+Z BR IF SYMBOL TABLE OVERLAP K0509440
7DB3 1010 945 | SLA 16 CLEAR ACCUMULATOR K0509450
7DB4 D400 7C7C 946 | STO L SW5 RESET SWITCH 5 K0509460
7DB6 7101 947 | MDX 1 1 MOVE STMNT POINTER K0509470
7DB7 C100 948 | LD 1 0 NEXT STMNT CHARACTER K0509480
7DB8 9400 7C76 949 | S L COMA COMMA K0509490
7DBA 4C20 7DC8 950 | BSC L SIS,Z BR NOT COMMA K0509500
7DBC 7101 951 | MDX 1 1 MOVE STMNT POINTER K0509510
7DBD 6400 7C1A 952 | LDX L ZAR BR TO CHK FOR LEGAL NAME K0509520
7DBF 7101 953 | BROT MDX 1 1 MOVE STMNT POINTER K0509530
7DC0 6400 7C1A 954 | LDX L ZAR BR TO CHK FOR LEGAL NAME K0509540
955 | * K0509550
956 | * CHECK CONTINUE SCAN OR READ NEXT PH K0509560
957 | * K0509570
7DC2 C400 7BDF 958 | TAP LD L SW1A K0509580
7DC4 4C20 7DE8 959 | BSC L REPAK,Z GO DO REPACK OF STRING 2-11 K0509590
7DC6 4C00 7DD8 960 | BSC L MOVE BR TO SCAN NEXT STMNT K0509600
7DC8 6C00 7BE5 961 | SIS STX L0 SW3A SET SYMBOL TBL OPEN SWITCH K0509610
7DCA 4C00 7C13 962 | BSC L JAP BR TO TEST FOR SEMI-COLON K0509620
7DCC 7401 7A2D 963 | JIMMY MDX L ERROR,1 SET OVERLAP ERROR ON K0509630
7DCE 4C00 7E4A 964 | BSC L NXTPH BR TO READ NEXT PHASE 2-11 K0509640
965 | * K0509650
966 | * PATCH FOR MOD 4 K0509660
967 | * K0509670
7DD0 9005 968 | PTCH1 S H1400 IS IT DEFINE FILE 2-4 K0509680
7DD1 4820 969 | BSC Z SKIP IF YES 2-4 K0509690
7DD2 9004 970 | S H0400 IS IT DATA STATEMENT 2-4 K0509700
7DD3 4C18 7DD8 971 | BSC L MOVE,+- YES - MOVE TO NEXTSTMT 2-4 K0509710
7DD5 70EC 972 | MDX TAP BRANCH TO TEST SW1A 2-4 K0509720
973 | * K0509730
7DD6 1400 974 | H1400 DC /1400 CONST FOR DEF FILE TST 2-4 K0509740
7DD7 0400 975 | H0400 DC /0400 CONST FOR DATA TEST 2-4 K0509750
976 | * K0509760
7DD8 C100 977 | MOVE LD 1 0 STMNT ID 2-11 K0509770
7DD9 1802 978 | SRA 2 2-11 K0509780
7DDA E400 7A5C 979 | AND L IDNRM STMNT WORD COUNT 2-11 K0509790
7DDC D001 980 | STO *+1 STORE TO UPDATE 2-11 K0509800
7DDD 7500 0000 981 | MDX L1 *-* INCR TO NEXT STMNT 2-11 K0509810
7DDF 4C00 7BEE 982 | BSC L DAP BRCH TO TEST STMNT 2-11 K0509820
984 | ***********************************************2-11 K0509840
985 | * 2-11 K0509850
986 | * THIS ROUTINE REPACKS THE INPUT STRING 2-11 K0509860
987 | * REMOVING DUMMY ERROR ENTRIES EXCEPT 2-11 K0509870
988 | * PRIOR TO GROUP/OR SINGLE ENTRIES OF 2-11 K0509880
989 | * EQUIVALENCE-DEFINE FILE-OR DATA 2-11 K0509890
990 | * SPECIFICATION STATEMENTS. PRIOR TO THESE 2-11 K0509900
991 | * STATEMENTS THE DUMMY ERROR REMAINS TO 2-11 K0509910
992 | * ACT AS A LINE COUNT PLACE HOLDER. 2-11 K0509920
993 | * IF THE DUMMY ERROR IS KEPT AND/OR IF 2-11 K0509930
994 | * THERE IS A LEGAL ERROR STMNT ID PRESENT 2-11 K0509940
995 | * THE LINE COUNT FOR THAT STATEMENT IS 2-11 K0509950
996 | * OR'ED INTO THE ERROR NUMBERS LEFT MOST 2-11 K0509960
997 | * BITS (0-8) 2-11 K0509970
998 | * 2-11 K0509980
999 | ***********************************************2-11 K0509990
1001 | * 2-11 K0510010
1002 | *** CONSTANT'S AREA 2-11 K0510020
1003 | * 2-11 K0510030
7DE1 0002 1004 | K0002 DC /0002 CONSTANT-TWO 2-11 K0510040
7DE2 A000 1005 | KA000 DC /A000 ERROR CONST 2-11 K0510050
7DE3 0800 1006 | K0800 DC /0800 EQUIV/DATA CONST 2-11 K0510060
7DE4 7000 1007 | K7000 DC /7000 IOCS CONST 2-11 K0510070
7DE5 2800 1008 | K2800 DC /2800 DEFINE FILE CONST 2-11 K0510080
7DE6 5800 1009 | K5800 DC /5800 DEFINE FILE CONST 2-11 K0510090
7DE7 0000 1010 | LNCNT DC 0 LINE COUNT VALUE 2-11 K0510100
7DE8 1012 | REPAK EQU * 2-11 K0510120
7DE8 1000 1013 | NOP FOR DE-BUGGING 2-11 K0510130
7DE9 10A0 1014 | SLT 32 CLEAR ACCM/EXT 2-11 K0510140
7DEA D0FC 1015 | STO LNCNT ZERO LINE COUNT VALUE 2-11 K0510150
7DEB C400 7A24 1016 | LD L SOFS LOAD START OF STRING 2-11 K0510160
7DED D400 7A5F 1017 | STO L IDADR SAVE STMNT ID ADRS 2-11 K0510170
7DEF 6580 7A5F 1019 | CONT LDX I1 IDADR SET XR1 TO IDADR 2-11 K0510190
7DF1 C100 1020 | LD 1 0 LOAD STMNT ID 2-11 K0510200
7DF2 18CB 1021 | RTE 11 SAVE NORM IN EXT 2-11 K0510210
7DF3 100B 1022 | SLA 11 RESTORE STMNT ID 2-11 K0510220
7DF4 7007 1023 | MDX RPK02 GO CHECK STMNT ID 2-11 K0510230
7DF5 1010 1025 | RPK01 SLA 16 CLEAR ACCM 2-11 K0510250
7DF6 1089 1026 | SLT 9 RESTORE NORM 2-11 K0510260
7DF7 8400 7A5F 1027 | A L IDADR ADD NORM AND STMNT 2-11 K0510270
7DF9 D400 7A5F 1028 | STO L IDADR *ADRS FOR NEXT STMNT 2-11 K0510280
7DFB 70F3 1029 | MDX CONT CONTINUE SCAN 2-11 K0510290
7DFC F0E5 1031 | RPK02 EOR KA000 2-11 K0510310
7DFD 4C18 7E0F 1032 | BSC L RPK04,+- BRCH IF ERROR ID 2-11 K0510320
7DFF F0E3 1033 | EOR K0800 2-11 K0510330
7E00 4C18 7E0C 1034 | BSC L RPK03,+- BRCH IF EQUIV ID 2-11 K0510340
7E02 F0E1 1035 | EOR K7000 2-11 K0510350
7E03 4C18 7DF5 1036 | BSC L RPK01,+- BRCH IF IOCS ID 2-11 K0510360
7E05 F0DF 1037 | EOR K2800 2-11 K0510370
7E06 4C18 7E0C 1038 | BSC L RPK03,+- BRCH IF DEFINE FILE ID 2-11 K0510380
7E08 F0DA 1039 | EOR K0800 2-11 K0510390
7E09 4C18 7E0C 1040 | BSC L RPK03,+- BRCH IF DATA ID 2-11 K0510400
7E0B 703E 1041 | MDX NXTPH READ IN NEXT PHASE 2-11 K0510410
7E0C 7401 7DE7 1043 | RPK03 MDX L LNCNT,+1 INCREMENT LINE COUNT 2-11 K0510430
7E0E 70E6 1044 | MDX RPK01 CONTINUE SCAN 2-11 K0510440
1046 | * 2-11 K0510460
1047 | *** CHECK TYPE OF ERROR STMNT 2-11 K0510470
1048 | * 2-11 K0510480
7E0F 7401 7DE7 1049 | RPK04 MDX L LNCNT,+1 INCREMENT LINE COUNT 2-11 K0510490
7E11 C100 1051 | LD 1 0 LOAD STMNT ID 2-11 K0510510
7E12 4C04 7E4A 1052 | BSC L NXTPH,E BRCH IF NUMBERED 2-11 K0510540
7E14 C101 1054 | LD 1 1 IS IT A DUMMY ERROR 2-11 K0510560
7E15 4C18 7E22 1055 | BSC L RPK06,+- YES-BRCH 2-11 K0510570
1057 | ***** REAL ERROR'S 2-11 K0510590
7E17 6580 7A5F 1059 | RPK05 LDX I1 IDADR RESTORE XR1 2-11 K0510610
7E19 C0CD 1060 | LD LNCNT LOAD LINE COUNT 2-11 K0510620
7E1A 1007 1061 | SLA 7 POSITION LNCNT FIELD 2-11 K0510630
7E1B D400 7D5E 1062 | STO L TEMP STORE AT TEMP 2-11 K0510640
7E1D C101 1063 | LD 1 1 LOAD ERROR NUMBER 2-11 K0510650
7E1E EC00 7D5E 1064 | OR L TEMP OR IN LINE COUNT 2-11 K0510660
7E20 D101 1065 | STO 1 1 STORE BACK ON STRING 2-11 K0510670
7E21 70D3 1066 | MDX RPK01 CONTINUE SCAN 2-11 K0510680
1068 | ***** DUMMY ERROR'S 2-11 K0510700
7E22 C102 1070 | RPK06 LD 1 2 LOAD NEXT STMNT AND 2-11 K0510720
7E23 180B 1071 | SRA 11 REMOVE NORM 2-11 K0510730
7E24 100B 1072 | SLA 11 RESTORE STMNT ID 2-11 K0510740
7E25 F0BC 1073 | EOR KA000 CHECK FOR ERROR ID 2-11 K0510750
7E26 4C18 7E31 1074 | BSC L RPK07,+- YES-BRCH TO REMOVE 2-11 K0510760
7E28 F0BA 1075 | EOR K0800 IF EQUIV STMNT 2-11 K0510770
7E29 4C18 7E17 1076 | BSC L RPK05,+- ADD IN LINE COUNT 2-11 K0510780
7E2B F0BA 1077 | EOR K5800 IF DEFINE FILE 2-11 K0510790
7E2C 4C18 7E17 1078 | BSC L RPK05,+- ADD IN LINE COUNT 2-11 K0510800
7E2E F0B4 1079 | EOR K0800 IF DATA STMNT 2-11 K0510810
7E2F 4C18 7E17 1080 | BSC L RPK05,+- ADD IN LINE COUNT 2-11 K0510820
1082 | * 2-11 K0510840
1083 | * THIS ROUTINE REMOVES DUMMY ERROR 2-11 K0510850
1084 | *** STMNTS FROM THE INPUT STRING AND 2-11 K0510860
1085 | * CLOSES THE STRING UP 2-11 K0510870
1086 | * 2-11 K0510880
7E31 6580 7A5F 1088 | RPK07 LDX I1 IDADR SET XR1 TO STMNT ADRS 2-11 K0510900
7E33 C400 7A5F 1089 | LD L IDADR LOAD STMNT ADRS 2-11 K0510910
7E35 80AB 1090 | A K0002 ADJ FOR ERROR ID 2-11 K0510920
7E36 D001 1091 | STO *+1 AND SET XR2 2-11 K0510930
7E37 6600 0000 1092 | LDX L2 *-* TO NEXT STMNT ADRS 2-11 K0510940
7E39 C400 7A25 1094 | LD L EOFS LOAD END OF STRING ADRS2-11 K0510960
7E3B 9400 0002 1095 | S L /0002 SUB VALUE IN XR2 2-11 K0510970
7E3D D001 1096 | STO *+1 AND STORE AS 2-11 K0510980
7E3E 6700 0000 1097 | LDX L3 *-* RANGE IN XR3 2-11 K0510990
7E40 7301 1098 | MDX 3 +1 ADJ XR3 BY ONE 2-11 K0511000
7E41 C200 1100 | RPK08 LD 2 0 NEXT WORD TO MOVE 2-11 K0511020
7E42 D100 1101 | STO 1 0 TO NEW ADRS 2-11 K0511030
7E43 7101 1102 | MDX 1 1 INCREMENT TO NEXT WORD 2-11 K0511040
7E44 7201 1103 | MDX 2 1 INCREMENT NEW ADRS 2-11 K0511050
7E45 73FF 1104 | MDX 3 -1 DECREMENT RANGE 2-11 K0511060
7E46 70FA 1105 | MDX RPK08 LOOP UNTILL RANGE ZERO 2-11 K0511070
7E47 6D00 7A25 1107 | STX L1 EOFS NEW END OF STRING 2-11 K0511090
7E49 70A5 1108 | MDX CONT CONTINUE SCAN 2-11 K0511100
1109 | * K0511110
1110 | * READ AND GO TO NEXT PHASE K0511120
1111 | * K0511130
7E4A 6580 7E51 1112 | NXTPH LDX I1 NXPID+1 LOAD PARAM FOR READING 2-11 K0511140
7E4C C805 1113 | LDD NXPID+2 NEXT PHASE 2-11 K0511150
7E4D 4C00 7FBC 1114 | BSC L ROL BR TO ROLLER TO READ PHASE K0511160
7E50 1115 | BSS E 0 MAKE ADDRESS EVEN K0511170
7E50 0024 1116 | NXPID DC 36 ID OF NEXT PHASE 2-11 K0511180
7E51 1117 | BSS 3 LOADER TBL FOR NEXT PHASE K0511190
1118 | * K0511200
7E54 1119 | BSS BPHAR+PHLEN*320-1-* PATCH AREA K0511210
7F35 0000 1120 | DC 0 K0511220
7F36 1121 | END BPHAR-2 K0511230
There were no errors in this assembly
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
$PHSE 0078 101 157
AOT 7B4D 417 411
AOT1 7B4E 418 443
BEGIN 7BE8 561 160 166 540
BILL 7A90 241 232
BOT 7D37 842 836
BOT1 7D38 843 868
BPHAR 7A36 147 1119 1121
BROT 7DBF 953 774
CCWD 7A31 122
CHK 7A97 247 239
CLOSE 7AAC 275 255 258 261 264 267 659 662 665 668 671 674 729
CNT 7B7F 463 396 470 473 506 541
CNTQ 7D63 881 778 890 893 923 929
COMA 7C76 680 773 921 949
COMAC 7B77 454 501 503 526
COMON 7A2B 116
CONT 7DEF 1019 1029 1108
COT1 7B7A 458 418
COT10 7D60 878 843
COT2 7B7B 459 424
COT20 7D61 879 849
COZ 7D97 927 922
CSIZE 7A2C 117
DAP 7BEE 564 306 982
DFCNT 7A33 140
DIMC 7A51 181 167
DIMCL 7D68 886 933
EAT 7C44 634 630
ENDC 7A50 180 165
EOFS 7A25 110 288 301 389 520 711 820 943 1094 1107
EOFST 7A2A 115 243 322 363 369 383 387 515 518 637 706 709 794
800 813 818 938 941
ER 7AA7 265 346 347
ER16 7AA1 259 211
ER17 7A9B 253
ER18 7C65 666 756 758
ER19 7C56 657 598 602 619
ER20 7C5B 660 750
ER21 7C6A 669 717
ER22 7C7E 688 727
ER7 7AA4 262 215 218 227
ER7R 7C6F 672 603 607 621
ER8 7A9E 256 394 401 416 422 423 426 433 435 438 472 488 496
505 543
ER8R 7C60 663 826 841 847 848 851 858 860 863 892 908 916 925
928
EROR 7CAD 727 735
ERR 7A53 183 265
ERR16 7A56 186 259
ERR17 7A57 187 253
ERR18 7C50 648 666
ERR19 7C51 649 657
ERR20 7C52 650 660
ERR21 7C55 653 669
ERR7 7A54 184 262
ERR7S 7C54 652 672
ERR8 7A55 185 256
ERR8S 7C53 651 663
ERRID 7A61 197 283
ERRNO 7A58 188 254 257 260 263 266 270 285 658 661 664 667 670
673 728
ERROR 7A2D 118 159 539 562 963
EXTER 7BE7 557 577
FLT 7C81 691 731 734
FNAME 7A2E 119 356 787
FUN 7CC9 748 633
GENEL 7C36 620 616
GLINE 7D0B 806 799
GLINK 7B1A 375 368
GORT 7B81 465 432 436
H0400 7DD7 975 970
H0800 7BE1 551 571
H1200 7C84 694 743
H1400 7DD6 974 968
H1800 7C85 695 745
H6000 7D5B 873 824 825
H7E00 7C83 693 742
HACK 7C45 635 626
HEAT 7A8F 240 236
HELP1 7B7C 460 429 437
HOCK 7C2B 613 609
HP1 7D62 880 854 862
IDADR 7A5F 195 202 275 280 289 589 1017 1019 1027 1028 1059 1088 1089
IDCI 7B74 451 335
IDCR 7B75 452 337
IDNRM 7A5C 192 172 278 979
IDTPE 7A60 196 164
IDTPQ 7BE6 556 570
IFIXC 7C7F 689 722 725
ININD 7C75 679 769
INTGR 7BE2 552 575
IOCS 7A32 131
JAP 7C13 594 962
JIMMY 7DCC 963 712 821 944
JIMY 7BD4 539 390 521
K0002 7DE1 1004 1090
K0800 7DE3 1006 1033 1039 1075 1079
K2800 7DE5 1008 1037
K5800 7DE6 1009 1077
K7000 7DE4 1007 1035
KA000 7DE2 1005 1031 1073
LAP 7C09 583 574
LAP1 7C07 581 576
LAP2 7C21 605 600
LAP3 7C0C 589
LAP4 7C0B 585 580 582
LAP5 7CDD 765 744 746
LNCNT 7DE7 1010 1015 1043 1049 1060
LOOP 7A87 233 245
LOOP1 7AC5 295 300
LOOP3 7B15 370 374
LOOP8 7D06 801 805
LOOPQ 7C3C 627 639
LORD 7B2B 387 339
LPAR 7C77 681 775
MA 7CE0 768 747 764
MADS 7A7F 224 220
MART 7C79 683 716
MART1 7C7B 685 719
MEMRY 8000 98 99 100
MIX 7A63 202 169
MLTN 7C9E 715 762
MOTQS 7CE3 771 740
MOVE 7DD8 977 960 971
MUM1 7D67 885 811
NEX 7B83 470 421
NEXP 7BA4 499 481 492
NEXT 7D69 890 846
NEXTS 7D8C 919 901 912
NINT 7B7D 461 425 427
NINTS 7D64 882 850 852
NRMSV 7AD5 310 279 290
NXPID 7E50 1116 150 1112 1113
NXTPH 7E4A 1112 563 964 1041 1052
O1 7B82 466 474 482
O2 7B91 482 476
O3 7B9D 493 484
ONE 7BDE 548 894 902
ONEDM 7AD9 314 380
ORG 7A23 108
OVERL 7A23 99 103
OZ2 7D78 902 896
OZ3 7D85 913 904
PADS 7A72 213 529
PARNL 7B76 453 393 618
PARNR 7B80 464 504
PASS 7B13 369 367
PASSS 7D04 800 798
PHID 0023 104 156
PHIL 7D23 822 926
PHLEN 0004 102 1119
PILL 7B56 423 420
PILLS 7D40 848 845
PIT 7B70 447 399 400
PIT1 7B71 448 329
PLACE 7ADA 318 246
PLACQ 7C87 700 640
PREV 7AF8 343 249
PTCH1 7DD0 968 578
REALC 7BE3 553 573
REEL 7AF5 337 332 334
REMOV 7AAA 269 209 596
REPAK 7DE8 1012 572 959
RGTI 7B72 449 330
RGTN 7B73 450 333
RLIND 7C74 678 766
ROL 7FBC 100 1114
RPAR 7C78 682 927
RPK01 7DF5 1025 1036 1044 1066
RPK02 7DFC 1031 1023
RPK03 7E0C 1043 1034 1038 1040
RPK04 7E0F 1049 1032
RPK05 7E17 1059 1076 1078 1080
RPK06 7E22 1070 1055
RPK07 7E31 1088 1074
RPK08 7E41 1100 1105
SAVE 7A5B 191 241 242
SAVEQ 7C4D 645 635 636
SAVIT 7D18 816 791
SAVX1 7ACD 302 293
SEMI 7BE4 554 595 601
SEMIC 7A52 182 208
SIP 7A69 207 527
SIS 7DC8 961 776 950
SOFGT 7A29 114 324 385 517 708 815 940
SOFNS 7A27 112 231 625
SOFS 7A24 109 158 561 1016
SOFST 7A26 111
SOFXT 7A28 113 323 384 516 707 814 939
SON1 7B37 395 544
SORF 7A30 121 351 782
SUBN 7B08 360 352 355
SUBQ 7CF7 791 783 786
SUMM 7B7E 462 407 430 439 471 477 486 494
SUMMS 7D5C 874 832 855 864 891 897 906 914
SW1A 7BDF 549 585 958
SW2 7A5E 194 205 210 212
SW2A 7BE0 550 581 584 763
SW3 7AD8 313 206 386 513 523
SW3A 7BE5 555 593 597 961
SW4 7C7D 687 565 579 615 713 759
SW5 7C7C 686 592 817 936 946
SW6 7C86 696 566 736 739 761
SW7 7A4F 179 161 304 567
TAP 7DC2 958 972
TARZ 7B32 391
TCNT 7BD8 541 502
TEM 7B78 456 409 413 417 440 442
TEMP 7D5E 876 834 838 842 865 867 931 934 1062 1064
TENT 7AD7 312 361 362 364 365
TENTS 7C7A 684 792 793 795 796
TENZ 7D5A 872 857 861
TEST 7A3F 162 175 305
THRDM 7BD2 534 510
THRE 7BD1 533 542
THREE 7D66 884 924
TICK 7CD9 763 714 760
TICKK 7CB2 730 723 726
TICKP 7CBA 736 732
TICKQ 7CC0 741 737
TMPDM 7BD3 535 508 511
TWO 7AD6 311 388 519
TWOS 7D65 883 710 819 942
VIP 7AF6 338 336
VVV 7B21 382 360
WD1 7A59 189 216 234 320 328
WD2 7A5A 190 222 224 238 318
WORD1 7C4E 646 605 628 702
WORD2 7C4F 647 611 613 632 700
YELP 7DAC 941 937
YELP1 7BBE 518 514
ZAR 7C1A 599 952 954
ZERO 7A62 198 221
ZO 7C4C 644 610
ZOR 7C39 625
ZORRO 7A84 231 223
ZZ 7CE2 770 767