ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:06 2020
Source File: \kforph04.asm
1130 FORTRAN COMPILER PHASE 4
2 | *************************************************** K0400020
3 | *STATUS - VERSION 2 MODIFICATION 12 * K0400030
4 | * * K0400040
5 | *FUNCTION/OPERATION- * K0400050
6 | * * PLACES COMMON STMNT VARIABLE INTO THE SYMBOL* K0400060
7 | * TABLE. INCLUDES DIMENSION INFORMATION, IF * K0400070
8 | * PRESENT. * K0400080
9 | * * REMOVES COMMON STMNTS FROM THE STRING * K0400090
10 | * AND INSERTS A DUMMY ERROR STMT(ERROR NUM 2-11 K0400100
11 | * BER EQUAL TO ZERO) TO ACT AS A LINE COUNT2-11 K0400110
12 | * PLACE HOLDER. 2-11 K0400120
13 | * * CHECKS FOR A SUBROUTINE OR FUNCTION STMNT. * K0400130
14 | * * PLACES THE NAME AND DUMMY ARGUMENTS OF THE * K0400140
15 | * SUBROUTINE OR FUNCTION STATEMENT INTO THE * K0400150
16 | * SYMBOL TABLE. DELETES THE STMNT FROM THE * K0400160
17 | * STMNT STRING AND INSERTS A DUMMY ERROR 2-11 K0400170
18 | * STMNT(ERROR NUMBER EQUAL TO ZERO) TO 2-11 K0400180
19 | * ACT AS A LINE COUNT PLACE HOLDER 2-11 K0400190
20 | * * CHECKS REAL AND INTEGER STATEMENTS FOR THE * K0400200
21 | * WORD FUNCTION * K0400210
22 | * * PHASE 4 IS A TWO PASS PHASE. THE FIRST PASS * K0400220
23 | * PROCESSES COMMON STATEMENTS. THE SECOND * K0400230
24 | * PASS PROCESSES A SUBROUTINE OR FUNCTION * K0400240
25 | * STATEMENTS, INCLUDING A FUNCTION DESIGNATED * K0400250
26 | * IN A REAL OR INTEGER STATEMENT. * K0400260
27 | * * K0400270
28 | *ENTRY POINTS- * K0400280
29 | * PH-PHASE 4 IS READ INTO CORE BY PHASE 3 AND * K0400290
30 | * EXECUTION BEGUN AT LOCATION PH. * K0400300
31 | * * K0400310
32 | *INPUT- * K0400320
33 | * NONE IN THE USUAL SENSE. HOWEVER, THE STMNT * K0400330
34 | * STRING SCANNED BY THE COMPILER MAY BE * K0400340
35 | * CONSIDERED INPUT. * K0400350
36 | * * K0400360
37 | *OUTPUT- * K0400370
38 | * NONE IN THE USUAL SENSE. HOWEVER, PHASE 4 * K0400380
39 | * REMOVES STMNTS FROM THE STMNT STRING AND ADDS * K0400390
40 | * ENTRIES TO THE SYMBOL TABLE. * K0400400
41 | * * K0400410
42 | *EXTERNAL ROUTINES-N/A * K0400420
43 | * * K0400430
44 | *EXITS- * K0400440
45 | * NORMAL- * K0400450
46 | * PHASE EXITS NORMALLY IF NO STMNTS OF THE * K0400460
47 | * TYPE IT PROCESSES ARE ENCOUNTERED OR IF NO * K0400470
48 | * ERRORS ARE FOUND. PHASE 5 IS LOADED AND * K0400480
49 | * EXECUTED. * K0400490
50 | * ERROR- * K0400500
51 | * THE FLOW OF COMPILER PROCESSING IS NOT * K0400510
52 | * INTERRUPTED WHEN AN ERROR IS ENCOUNTERED * K0400520
53 | * AN ERROR STMNT REPLACES THE FAULTY STMNT * K0400530
54 | * ON THE STRING AND STMNT SCANNING PROCESS * K0400540
55 | * CONTINUES. AN EXCEPTION OCCURS IN THE CASE * K0400550
56 | * OF AN OVERLAP ERROR. COMPILATION IS * K0400560
57 | * ABORTED AND CONTROL IS PASSED FROM PHASE * K0400570
58 | * TO SUCCEEDING PHASE UNTIL AN OUTPUT PHASE * K0400580
59 | * IS REACHED WHICH CAN PRINT AN ERROR MESSAGE* K0400590
60 | * THE ERRORS DETECTED BY PHASE 4 ARE 7, 8, * K0400600
61 | * 10, 11, 12, 13, 14 AND 15. * K0400610
62 | * * K0400620
63 | *TABLES/WORK AREAS- * K0400630
64 | * NON EXCEPT STATEMENT STRING AREA, SYMBOL * K0400640
65 | * TABLE, AND FORTRAN COMMUNICATION AREA * K0400650
66 | * * K0400660
67 | *ATTRIBUTES-N/A * K0400670
68 | * * K0400680
69 | *NOTES- * K0400690
70 | * THE SWITCHES USED IN PHASE 4 FOLLOW. IF NON- * K0400700
71 | * ZERO, THE SWITCH IS TRANSFER=T. IF ZERO, THE * K0400710
72 | * SWITCH IS NORMAL=N. * K0400720
73 | * * NORM2-SYNTAX ERROR IN COMMON STMNT * K0400730
74 | * T=SYNTAX ERROR PRESENT * K0400740
75 | * * ASW1-RIGHT PARENTHESIS ENCOUNTERED * K0400750
76 | * N=NOT ENCOUNTERED * K0400760
77 | * * ASW2-REAL STATEMENT ENCOUNTERED * K0400770
78 | * N=NOT ENCOUNTERED * K0400780
79 | * * ASW3-INTEGER STATEMENT ENCOUNTERED * K0400790
80 | * N=NOT ENCOUNTERED * K0400800
81 | * * SW5 -SECOND PASS SWITCH 2-11 K0400810
82 | * T=SECOND PASS MODE 2-11 K0400820
83 | * * SW5A-FIO STATEMENT PRESENT * K0400830
84 | * N=NOT PRESENT * K0400840
85 | *************************************************** K0400850
86 | ABS K0400860
87 | * K0400870
88 | * SYSTEM EQUATES K0400880
8000 89 | MEMRY EQU /8000 K0400890
7A23 90 | OVERL EQU MEMRY-1501 START OF FCOM K0400900
7FBC 91 | ROL EQU MEMRY-68 LOCN OF RTN TO READ NXT PH K0400910
0078 92 | $PHSE EQU /78 NO. OF PHASE NOW IN CORE K0400920
0003 93 | PHLEN EQU 3 NO. OF SECTORS THIS PHASE K0400930
7A23 94 | ORG OVERL K0400940
0022 95 | PHID EQU 34 ID NUMBER THIS PHASE K0400950
96 | * K0400960
97 | * FORTRAN COMMUNICATION AREA K0400970
7A23 98 | ORG BSS 1 ORIGIN ADDRESS 2-4 K0400980
7A24 99 | SOFS BSS 1 START OF STRING K0400990
7A25 100 | EOFS BSS 1 END OF STRING K0401000
7A26 101 | SOFST BSS 1 START OF SYMBOL TABLE K0401010
7A27 102 | SOFNS BSS 1 START OF NON-STATEMENT NUMBERS K0401020
7A28 103 | SOFXT BSS 1 START OF SUBSCRIPT TEMPORARIES K0401030
7A29 104 | SOFGT BSS 1 START OF GENERATED TEMPORARIES K0401040
7A2A 105 | EOFST BSS 1 END OF SYMBOL TABLE K0401050
7A2B 106 | COMON BSS 1 NEXT AVAILABLE COMMON K0401060
7A2C 107 | CSIZE BSS 1 SIZE OF COMMON K0401070
7A2D 108 | ERROR BSS 1 OVERLAP ERROR K0401080
7A2E 109 | FNAME BSS 1 PROGRAM NAME K0401090
7A2F 110 | BSS 1 K0401100
7A30 111 | SORF BSS 1 SUBROUTINE(-) OR FUNCTION(+) K0401110
7A31 112 | CCWD BSS 1 CONTROL CARD WORD K0401120
113 | * BIT 15 TRANSFER TRACE K0401130
114 | * BIT 14 ARITHMETIC TRACE K0401140
115 | * BIT 13 EXTENDED PRECISION K0401150
116 | * BIT 12 LIST SYMBOL TABLE K0401160
117 | * BIT 11 LIST SUBPROGRAM NAMES K0401170
118 | * BIT 10 LIST SOURCE PROGRAM K0401180
119 | * BIT 9 ONE WORD INTEGERS K0401190
120 | * BIT 8 ORIGIN 2-4 K0401200
7A32 121 | IOCS BSS 1 IOCS CONTROL CARD WORD K0401210
122 | * BIT 15 CARD K0401220
123 | * BIT 14 PAPER TAPE K0401230
124 | * BIT 13 TYPEWRITER K0401240
125 | * BIT 12 1403 PRINTER K0401250
126 | * BIT 11 2501 READER K0401260
127 | * BIT 10 KEYBOARD K0401270
128 | * BIT 9 1442 PUNCH K0401280
129 | * BIT 8 DISK K0401290
130 | * BIT 7 1132 PRINTER K0401300
131 | * BIT 3 PLOTTER K0401310
7A33 132 | DFCNT BSS 1 K0401320
133 | * K0401330
134 | * K0401340
135 | * END OF FORTRAN COMMUNICATION K0401350
136 | * AREA K0401360
137 | * K0401370
138 | * K0401380
7A36 139 | BPHAR EQU *+2 BEGIN PHASE AREA K0401390
7A34 0000 140 | DC 0 LOADER WORK AREA K0401400
7A35 FFDE 141 | DC -34 -PHASE ID FOR SLET LOOKUP K0401410
7A36 01F2 142 | DC NXTPH-*+1 TABLE FOR NEXT PHASE ENTRY K0401420
7A37 0001 143 | DC 1 ONE ENTRY TO BE SET BY LDR K0401430
7A36 144 | ORG *-2 K0401440
7A36 4C00 7A3B 145 | OKJOE BSC L PH BEGIN PROCESSING PHASE K0401450
146 | * K0401460
147 | * K0401470
7A38 1400 148 | COMMC DC /1400 COMMON K0401480
7A39 0800 149 | ENDC DC /0800 END K0401490
7A3A 7C00 150 | IDTPE DC /7C00 STMNT ID TYPE MASK K0401500
151 | * K0401510
152 | * INITIALIZES THE PHASE K0401520
153 | * CHECK FOR A PREVIOUS OVERLAP K0401530
154 | * ERROR K0401540
7A3B 6122 155 | PH LDX 1 PHID INITIALIZE INPUT POINTER K0401550
7A3C 6D00 0078 156 | STX L1 $PHSE STORE IN SYS PHASE AREA K0401560
7A3E 6580 7A24 157 | LDX I1 SOFS INITIALIZE STRING I/P PT K0401570
158 | * K0401580
159 | * OVERLAP ERROR ON K0401590
7A40 C0EC 160 | LD ERROR TEST FOR OVERLAP ERROR K0401600
7A41 4C20 7B87 161 | BSC L NXTPQ,Z BRANCH IF ERROR K0401610
162 | * K0401620
163 | * K0401630
164 | * CHECKS FOR END AND COMMON STMNTS K0401640
165 | * UPDATES THE I/P STRING PT (XR1) K0401650
166 | * TO MOVE TO THE NEXT STMNT K0401660
7A43 C100 167 | TST LD 1 0 LOAD STMNT ID WORD K0401670
7A44 1801 168 | SRA 1 K0401680
7A45 E0F4 169 | AND IDTPE GET ID TYPE K0401690
7A46 90F2 170 | S ENDC IS IT END K0401700
7A47 4C18 7B87 171 | BSC L NXTPQ,+- BRANCH IF YES K0401710
172 | * K0401720
173 | * K0401730
7A49 90EE 174 | S COMMC IS IT COMMON K0401740
7A4A 4818 175 | BSC +- SKIP IF NOT K0401750
7A4B 7007 176 | MDX FIX CHECK FOR TYPE OF COMMON K0401760
177 | * K0401770
178 | * MOVE TO NEXT STMNT K0401780
7A4C C100 179 | MV LD 1 LOAD STMNT ID WORD K0401790
7A4D 1802 180 | SRA 2 SHIFT NORM TO RIGHT K0401800
7A4E E034 181 | AND IDNRM ISOLATE NORM K0401810
7A4F D001 182 | STO NXID+1 K0401820
7A50 7500 0000 183 | NXID MDX L1 MOVE POINTER TO NEXT STMNT K0401830
7A52 70F0 184 | MDX TST GO TEST STMNT TYPE K0401840
185 | * K0401850
186 | * UNUSED CODE REMOVED 2-9 K0401860
187 | * K0401870
188 | * INITIALIZE TO SCAN COMMON STMNTS K0401880
7A53 6933 189 | FIX STX 1 IDADR SAVE INPUT POINTER 2-11 K0401890
7A54 7101 190 | MDX 1 1 MOVE POINTER K0401900
7A55 1010 191 | SLA 16 K0401910
7A56 D02E 192 | STO NORM2 CLEAR NORM2 K0401920
7A57 7007 193 | MDX DD2 BRANCH TO SCAN COM ST 2-9 K0401930
194 | * K0401940
195 | * K0401950
196 | * CHECKS FOR STMNT TERMINATOR K0401960
7A58 C100 197 | PTB LD 1 0 IS CHARACTER K0401970
7A59 902A 198 | S SEMIC SEMICOLON K0401980
7A5A 4C18 7A9F 199 | BSC L REMOV,+- BRANCH IF YES 2-11 K0401990
200 | * K0402000
201 | * K0402010
7A5C C028 202 | LD NORM2 IS THERE SYNTAX ERROR IN K0402020
7A5D 4C04 7A96 203 | BSC L SETUP,E COMMON STMNT - BRANCH YES K0402030
204 | * K0402040
205 | * UNUSED CODE REMOVED 2-9 K0402050
206 | * K0402060
207 | * CHECKS THE NAME FOR VADIDTY K0402070
7A5F C100 208 | DD2 LD 1 0 LOAD WORD K0402080
7A60 4810 209 | BSC - SKIP IF NOT SPECIAL CHAR K0402090
7A61 703A 210 | MDX ERAH GO TO ERROR 7 K0402100
7A62 D026 211 | STO WD1 SAVE WORD K0402110
7A63 1002 212 | SLA 2 K0402120
7A64 4C2A 7A9C 213 | BSC L ERAH,C+Z BRANCH IF NUMERIC K0402130
7A66 C101 214 | LD 1 1 LOAD 2ND WORD K0402140
7A67 4C28 7A6C 215 | BSC L MAD,+Z BRANCH IF PART OF NAME K0402150
7A69 C028 216 | LD ZERO LOAD ZEROES K0402160
7A6A D01F 217 | STO WD2 STORE AS 2ND WORD IN NAME K0402170
7A6B 7005 218 | MDX ZORRO CHECK FOR DUPLICATES K0402180
7A6C D01D 219 | MAD STO WD2 STORE 2ND WORD K0402190
7A6D 7101 220 | MDX 1 1 MOVE POINTER K0402200
7A6E C101 221 | LD 1 1 LOAD NEXT WORD K0402210
7A6F 4C28 7A9C 222 | BSC L ERAH,+Z BRANCH NOT SPECIAL CHAR K0402220
223 | * K0402230
224 | * SCANS THE SYM TBL FOR K0402240
225 | * DUPLICATION OF THE VAR NAME K0402250
7A71 6780 7A27 226 | ZORRO LDX I3 SOFNS INITIALIZE SYMBOL TABLE PT K0402260
7A73 7009 227 | MDX JACK START LOOP K0402270
228 | * K0402280
7A74 C301 229 | LOOP LD 3 1 DOES FIRST WORD IN NAME K0402290
7A75 9013 230 | S WD1 MATCH TABLE WORD K0402300
7A76 4820 231 | BSC Z SKIP IF YES K0402310
232 | * K0402320
7A77 7004 233 | MDX EAT GET NEXT TABLE ENTRY K0402330
7A78 C302 234 | LD 3 2 DOES SECOND WORD IN NAME K0402340
7A79 9010 235 | S WD2 EQUAL TABLE 2ND WORD K0402350
7A7A 4C18 7A93 236 | BSC L HELP,+- BRANCH IF YES K0402360
237 | * K0402370
7A7C 73FD 238 | EAT MDX 3 -3 GET NEXT TABLE ENTRY K0402380
7A7D 6B0D 239 | JACK STX 3 SAVEQ SAVE TABLE POINTER K0402390
7A7E C00C 240 | LD SAVEQ HAS ENTIRE TABLE BEEN K0402400
7A7F 90AA 241 | S EOFST CHECKED FOR DUPLICATES K0402410
7A80 4820 242 | BSC Z SKIP IF YES K0402420
7A81 70F2 243 | MDX LOOP CONTINUE LOOP K0402430
7A82 7045 244 | MDX PLACE PUT IN SYMBOL TABLE K0402440
245 | * K0402450
246 | * CONSTANTS K0402460
7A83 01FF 247 | IDNRM DC /01FF NORM MASK K0402470
7A84 001E 248 | SEMIC DC /001E SEMICOLON K0402480
7A85 0000 249 | NORM2 DC 0 SWITCH TWO K0402490
7A86 0001 250 | SW2 DC 1 SWITCH 2 K0402500
7A87 0000 251 | IDADR DC 0 STMNT ID ADRS 2-11 K0402510
7A88 0000 252 | SW5 DC 0 SECOND PASS MODE SW 2-11 K0402520
7A89 0000 253 | WD1 DC 0 WORD 1 OF COMMON NAME K0402530
7A8A 0000 254 | WD2 DC 0 WORD 2 OF COMMON NAME K0402540
7A8B 0000 255 | SAVEQ DC 0 SYMBOL TABLE POINTER K0402550
7A8C 0000 256 | ERRNO DC 0 ERROR NUMBER K0402560
7A8D 000A 257 | ERR10 DC 10 ERROR NO. 10 K0402570
7A8E 000B 258 | ERR11 DC 11 ERROR NO. 11 K0402580
7A8F 0007 259 | ERR7 DC 7 ERROR NO. 7 K0402590
7A90 0008 260 | ERR8 DC 8 ERROR NO. 8 K0402600
7A91 A008 261 | ERRID DC /A008 ERROR STMNT ID WORD K0402610
7A92 8000 262 | ZERO DC /8000 USEFUL CONSTANT K0402620
263 | * UNUSED WORDS REMOVED 2-9 K0402630
264 | * K0402640
265 | * SETUP ERRORS K0402650
7A93 C0FA 266 | HELP LD ERR11 SET ERROR NO. 11 K0402660
7A94 D0F7 267 | STO ERRNO GO TO CLOSE K0402670
7A95 700B 268 | MDX EROR UP STRING 2-11 K0402680
7A96 C0F6 269 | SETUP LD ERR10 SET ERROR NO. 10 K0402690
7A97 D0F4 270 | STO ERRNO GO TO CLOSE K0402700
7A98 7008 271 | MDX EROR UP STRING 2-11 K0402710
7A99 C0F6 272 | GEEP LD ERR8 SET ERROR NO. 8 K0402720
7A9A D0F1 273 | STO ERRNO GO TO CLOSE K0402730
7A9B 7005 274 | MDX EROR UP STRING 2-11 K0402740
7A9C C0F2 275 | ERAH LD ERR7 SET ERROR NO. 7 K0402750
7A9D D0EE 276 | STO ERRNO K0402760
7A9E 7002 277 | MDX EROR CLOSE UP STRING 2-11 K0402770
278 | * K0402780
7A9F 1010 279 | REMOV SLA 16 CLEAR ACCM - SET TO 2-11 K0402790
7AA0 D0EB 280 | STO ERRNO DUMMY ERROR NUMBR 2-11 K0402800
281 | * K0402810
282 | * REPLACE STMNT WITH ERROR ID/OR DUMMY 2-11 K0402820
283 | * ERROR ID(ERROR NO. = ZERO) AND 2-11 K0402830
284 | * CLOSE THE STRING 2-11 K0402840
285 | * K0402850
7AA1 6580 7A87 286 | EROR LDX I1 IDADR RESET STMNT ID POINTER 2-11 K0402860
7AA3 C100 287 | LD 1 0 LOAD STMNT ID WORD K0402870
7AA4 1802 288 | SRA 2 RIGHT-JUSTIFY NORM K0402880
7AA5 E0DD 289 | AND IDNRM CLEAR ALL BUT NORM K0402890
290 | * K0402900
7AA6 D04E 291 | STO NRMSV ADD NORM TO STRING POINTER K0402910
7AA7 80DF 292 | A IDADR TO GET ADDRESS OF NEXT2-11 K0402920
7AA8 D001 293 | STO *+1 STATEMENT 2-11 K0402930
7AA9 6600 0000 294 | LDX L2 *-* INITIALIZE LOOP PTR 2-11 K0402940
295 | * K0402950
7AAB C0E5 296 | LD ERRID LOAD ERROR STMNT ID WORD K0402960
7AAC D100 297 | STO 1 0 PUT ON STRING K0402970
7AAD C0DE 298 | LD ERRNO LOAD ERROR NUMBER K0402980
7AAE D101 299 | STO 1 1 PUT ON STRING K0402990
7AAF 7102 300 | MDX 1 +2 MOVE POINTER 2-11 K0403000
301 | * K0403010
7AB0 C400 7A25 302 | LD L EOFS COMPUTE RANGE OF LOOP K0403020
7AB2 90D4 303 | S IDADR SUBTRACT POINTER THEN 2-11 K0403030
7AB3 9041 304 | S NRMSV SUBTRACT NORM TO GET K0403040
7AB4 D001 305 | STO *+1 RANGE OF LOOP 2-11 K0403050
7AB5 6700 0000 306 | LDX L3 *-* INITL RANGE COUNTER 2-11 K0403060
307 | * K0403070
7AB7 690A 308 | STX 1 SAVX1+1 SAVE STRING POINTER 2-11 K0403080
7AB8 7301 309 | MDX 3 1 K0403090
7AB9 C200 310 | LOOP1 LD 2 0 MOVE WORD DOWN K0403100
7ABA D100 311 | STO 1 0 IN STRING 2-11 K0403110
7ABB 7101 312 | MDX 1 1 MOVE POINTERS K0403120
7ABC 7201 313 | MDX 2 1 K0403130
7ABD 73FF 314 | MDX 3 -1 DECREMENT RANGE COUNTER K0403140
7ABE 70FA 315 | MDX LOOP1 CONTINUE LOOP K0403150
316 | * K0403160
7ABF 6D00 7A25 317 | STX L1 EOFS NEW END OF STRING K0403170
7AC1 6500 0000 318 | SAVX1 LDX L1 *-* RESTORE INPUT POINTER 2-11 K0403180
319 | * K0403190
7AC3 C0C4 320 | LD SW5 CHECK PASS MODE 2-11 K0403200
7AC4 4C20 7C22 321 | BSC L SOS,Z BRCH IF SECOND 2-11 K0403210
7AC6 4C00 7A43 322 | BSC L TST BRCH IF FIRST 2-11 K0403220
323 | * K0403230
324 | * PLACES A VARIABLE NAME IN THE K0403240
325 | * SYM TBL - SETS THE COMMON AND K0403250
326 | * TYPE INDICATORS IN THE SYM TBL K0403260
327 | * ID WORD - CHECKS FOR A SYM TBL K0403270
328 | * OVERLAP K0403280
7AC8 C0C1 329 | PLACE LD WD2 PUT 2ND WORD INTO K0403290
7AC9 D302 330 | STO 3 2 SYMBOL TABLE K0403300
7ACA C0BE 331 | LD WD1 PUT 1ST WORD INTO K0403310
7ACB D301 332 | STO 3 1 SYMBOL TABLE K0403320
333 | * K0403330
334 | * SET TYPE AND COMMON INDICATORS K0403340
7ACC C0BC 335 | LD WD1 GET FIRST LETTER K0403350
7ACD E02A 336 | AND PIT1 OF NAME K0403360
7ACE 902A 337 | S RGTI IS IT I OR GREATER K0403370
7ACF 4828 338 | BSC +Z SKIP IF YES K0403380
7AD0 7005 339 | MDX REEL GO SET REAL ID WORD K0403390
7AD1 9028 340 | S RGTN IS IT N OR LESS K0403400
7AD2 4C30 7AD6 341 | BSC L REEL,Z- BRANCH IF NOT K0403410
7AD4 C026 342 | LD IDCI LOAD INTEGER INDICATOR K0403420
7AD5 7001 343 | MDX VIP GO PUT IN SYMBOL TABLE ID K0403430
7AD6 C025 344 | REEL LD IDCR LOAD REAL SYM TBL ID K0403440
7AD7 D300 345 | VIP STO 3 0 PUT IN SYMBOL TABLE 2-9 K0403450
7AD8 74FD 7A2A 346 | MDX L EOFST,-3 MODIFY SYMBOL K0403460
7ADA 74FD 7A28 347 | MDX L SOFXT,-3 TABLE ADDRESSES K0403470
7ADC 74FD 7A29 348 | MDX L SOFGT,-3 K0403480
349 | * K0403490
350 | * SYMBOL TABLE OVERLAP K0403500
7ADE C400 7A2A 351 | LD L EOFST LOAD END OF SYMBOL TABLE K0403510
7AE0 8015 352 | A CONST ADD TWO K0403520
7AE1 9400 7A25 353 | S L EOFS SUBTRACT END OF STRING K0403530
7AE3 4C28 7B85 354 | BSC L JIMY,+Z BRANCH IF NEGATIVE-OVERLAP K0403540
355 | * K0403550
356 | * K0403560
7AE5 7101 357 | MDX 1 1 MOVE POINTER K0403570
358 | * K0403580
359 | * K0403590
7AE6 C100 360 | LD 1 0 LOAD NEXT WORD K0403600
7AE7 9015 361 | S PARNL IS CHAR LEFT PARENTHESIS K0403610
7AE8 4C18 7B09 362 | BSC L PRTE,+- BRANCH IF YES K0403620
363 | * K0403630
364 | * CHECKS FOR A COMMA OPTR K0403640
7AEA C100 365 | DD3 LD 1 0 LOAD WORD K0403650
7AEB 9012 366 | S COMAC IS CHARACTER COMMA K0403660
7AEC 4818 367 | BSC +- SKIP IF NO K0403670
7AED 7004 368 | MDX DD1 GO GET NEXT WORD K0403680
369 | * K0403690
370 | * UNUSED CODE REMOVED 2-9 K0403700
371 | * K0403710
372 | * K0403720
7AEE C097 373 | LD SW2 SET SYNTAX ERROR IN K0403730
7AEF D095 374 | STO NORM2 COMMON STMNT SWITCH K0403740
7AF0 6400 7A58 375 | LDX L PTB GO CHECK CHARACTER K0403750
376 | * K0403760
377 | * K0403770
378 | * UPDATES THE I/P STRING PT (XR1) K0403780
379 | * TO MOVE TO THE NEXT STRING WORD K0403790
7AF2 7101 380 | DD1 MDX 1 1 MOVE POINTER K0403800
7AF3 6400 7A5F 381 | LDX L DD2 GET NEXT WORD K0403810
382 | * K0403820
383 | * CONSTANTS K0403830
7AF5 0000 384 | NRMSV DC 0 NORM K0403840
7AF6 0002 385 | CONST DC 2 TWO K0403850
7AF7 6000 386 | PIT DC /6000 NUMERIC ZONE BIT MASK K0403860
7AF8 7E00 387 | PIT1 DC /7E00 ONE CHAR EBC MASK K0403870
7AF9 1200 388 | RGTI DC /1200 I K0403880
7AFA 1800 389 | RGTN DC /1800 N K0403890
7AFB 6020 390 | IDCI DC /6020 INTEGER SYMBOL TABLE ID K0403900
7AFC 2020 391 | IDCR DC /2020 REAL SYMBOL TABLE ID K0403910
7AFD 000D 392 | PARNL DC /000D LEFT PARENTHESIS K0403920
7AFE 002B 393 | COMAC DC /002B COMMA K0403930
7B00 394 | BSS E 0 K0403940
7B00 0000 395 | TEM DC 0 EBC NUMBER TO K0403950
7B01 0000 396 | DC 0 BE CONVERTED K0403960
7B02 7E00 397 | COT1 DC /7E00 EBC NUMERIC MASK K0403970
7B03 7800 398 | COT2 DC /7800 EBC NUMERIC BITS MASK K0403980
7B04 0000 399 | HELP1 DC 0 TEMPORARY STORAGE K0403990
7B05 4800 400 | NINT DC /4800 NINE K0404000
7B06 0000 401 | SUMM DC 0 TEMPORARY TOTAL K0404010
7B07 0000 402 | CNT DC 0 DIMENSION COUNTER K0404020
7B08 001D 403 | PARNR DC /001D RIGHT PARENTHESIS K0404030
404 | * K0404040
405 | * K0404050
406 | * CONVERTS THE DIMENSION CONSTANT K0404060
407 | * TO BINARY K0404070
7B09 1010 408 | PRTE SLA 16 K0404080
7B0A D0FC 409 | STO CNT CLEAR COUNTER K0404090
410 | * K0404100
411 | * K0404110
7B0B 7101 412 | MDX 1 1 MOVE POINTER K0404120
413 | * K0404130
414 | * K0404140
7B0C C100 415 | LD 1 0 LOAD WORD K0404150
7B0D E0E9 416 | AND PIT IS IT NUMERIC K0404160
7B0E F0E8 417 | EOR PIT K0404170
7B0F 4C20 7A99 418 | BSC L GEEP,Z BRANCH IF NOT K0404180
419 | * K0404190
420 | * CHANGE CONSTANT TO BINARY NO. K0404200
7B11 2000 421 | LDS 0 CLEAR STATUS INDICATORS K0404210
7B12 10A0 422 | SLT 32 CLEAR ACC AND EXTENSION K0404220
7B13 D0F2 423 | STO SUMM ZERO TOTAL K0404230
424 | * K0404240
7B14 C100 425 | LD 1 LOAD FIRST WORD K0404250
7B15 D8EA 426 | STD TEM STORE IN WORK AREA K0404260
7B16 C101 427 | LD 1 1 LOAD 2ND WORD K0404270
7B17 4C10 7B1F 428 | BSC L AOT,- BRANCH ON OPERATOR K0404280
7B19 1001 429 | SLA 1 GET RID OF INDICATOR BIT K0404290
7B1A D0E6 430 | STO TEM+1 STORE 2ND WORD K0404300
7B1B C102 431 | LD 1 2 LOAD 3RD WORD K0404310
7B1C 7101 432 | MDX 1 1 MOVE POINTER K0404320
7B1D 4C08 7A99 433 | BSC L GEEP,+ BRANCH ON NO OPERATOR K0404330
7B1F C0E0 434 | AOT LD TEM LOAD FIRST WORD K0404340
7B20 E0E1 435 | AOT1 AND COT1 GET FIRST CHAR FROM WORD K0404350
7B21 1002 436 | SLA 2 SHIFT TO TEST IF NUMERIC K0404360
437 | * K0404370
7B22 4C02 7B28 438 | BSC L PILL,C BRANCH CARRY ON K0404380
7B24 4C18 7B44 439 | BSC L NEX,+- BRANCH END OF CONVERSION K0404390
7B26 6400 7A99 440 | LDX L GEEP BRANCH ERROR K0404400
7B28 4C10 7A99 441 | PILL BSC L GEEP,- BRANCH NOT NUMERIC K0404410
7B2A E0D8 442 | AND COT2 GET NUMBER BITS K0404420
7B2B 90D9 443 | S NINT IS NO. GREATER THAN NINE K0404430
7B2C 4C30 7A99 444 | BSC L GEEP,-Z BRANCH IF YES K0404440
7B2E 80D6 445 | A NINT RESTORE ORIGINAL VALUE K0404450
446 | * K0404460
7B2F 180B 447 | SRA 11 RIGHT JUSTIFY NUMBER K0404470
7B30 D0D3 448 | STO HELP1 SAVE NUMBER K0404480
7B31 C0D4 449 | LD SUMM LOAD PREVIOUS TOTAL K0404490
7B32 1001 450 | SLA 1 MULTIPLY BY TWO K0404500
7B33 D00E 451 | STO TEMPT SAVE K0404510
7B34 4C28 7A99 452 | BSC L GEEP,+Z BRANCH IF OVERFLOW K0404520
7B36 1002 453 | SLA 2 MULTIPLY TOTAL BY 8 K0404530
7B37 4C2A 7A99 454 | BSC L GEEP,C+Z BRANCH IF ERROR IN NUMBER K0404540
7B39 8008 455 | A TEMPT GET PREVIOUS TOTAL X 10 K0404550
7B3A 80C9 456 | A HELP1 ADD UNITS VALUE K0404560
7B3B 4C01 7A99 457 | BSC L GEEP,O BRANCH IF OVERFLOW K0404570
7B3D D0C8 458 | STO SUMM STORE NEW TOTAL K0404580
459 | * K0404590
7B3E C8C1 460 | LDD TEM SHIFT NUMBER TO K0404600
7B3F 1086 461 | SLT 6 GET EBC NUMBER K0404610
7B40 D8BF 462 | STD TEM IN POSITION K0404620
7B41 70DE 463 | MDX AOT1 GO PROCESS NUMBER K0404630
464 | * K0404640
465 | * CONSTANTS K0404650
7B42 0000 466 | TEMPT DC 0 TEMPORARY STORAGE K0404660
7B43 0003 467 | THRE DC 3 THREE K0404670
468 | * K0404680
469 | * PLACES A DIMENSION CONSTANT INTO K0404690
470 | * THE SYMBOL TABLE K0404700
7B44 7401 7B07 471 | NEX MDX L CNT,1 INCREMENT DIMENSION COUNT K0404710
472 | * K0404720
473 | * K0404730
7B46 C0BF 474 | LD SUMM LOAD DIMENSION VALUE K0404740
7B47 4C18 7A99 475 | BSC L GEEP,+- BRANCH IF ZERO K0404750
476 | * K0404760
477 | * PUT CONSTANT IN SYMBOL TABLE K0404770
7B49 C0BD 478 | LD CNT LOAD DIMENSION COUNT K0404780
7B4A 9400 7A86 479 | S L SW2 WAS COUNT ONE K0404790
7B4C 4820 480 | BSC Z SKIP IF YES K0404800
7B4D 7005 481 | MDX O2 CHECK FOR COUNT OF TWO K0404810
7B4E C0B7 482 | LD SUMM LOAD DIMENSION VALUE K0404820
7B4F D3FF 483 | STO 3 -1 PUT IN ALL K0404830
7B50 D3FE 484 | STO 3 -2 THREE DIMENSION K0404840
7B51 D3FD 485 | STO 3 -3 WORDS K0404850
7B52 7014 486 | MDX NEXP GO GET NEXT NUMBER K0404860
487 | * K0404870
7B53 9400 7A86 488 | O2 S L SW2 WAS COUNT TWO K0404880
7B55 4820 489 | BSC Z SKIP IF YES K0404890
7B56 7009 490 | MDX O3 CHECK FOR COUNT OF THREE K0404900
7B57 C3FF 491 | LD 3 -1 GET VALUE FOR 2ND AND 3RD K0404910
7B58 A0AD 492 | M SUMM DIMENSION BY MULTIPLYING K0404920
7B59 1081 493 | SLT 1 BRANCH TO SET ERROR 8 2-7 K0404930
7B5A 4C20 7A99 494 | BSC L GEEP,Z *IF TOO GREAT 2-7 K0404940
7B5C 108F 495 | SLT 15 SHIFT INTO ACCUMULATOR 2-7 K0404950
7B5D D3FE 496 | STO 3 -2 VALUE K0404960
7B5E D3FD 497 | STO 3 -3 STORE IN TABLE K0404970
7B5F 7007 498 | MDX NEXP GO GET NEXT NUMBER K0404980
499 | * K0404990
7B60 C3FD 500 | O3 LD 3 -3 GET VALUE FOR 3RD DIM K0405000
7B61 A0A4 501 | M SUMM BY MULTIPLYING 2ND VALUE K0405010
7B62 1081 502 | SLT 1 BRANCH TO SET ERROR 8 2-7 K0405020
7B63 4C20 7A99 503 | BSC L GEEP,Z *IF TOO GREAT 2-7 K0405030
7B65 108F 504 | SLT 15 SHIFT INTO ACCUMULATOR 2-7 K0405040
7B66 D3FD 505 | STO 3 -3 STORE IN TABLE K0405050
506 | * K0405060
507 | * K0405070
508 | * CHECKS FOR A COMMA, A RIGHT K0405080
509 | * PARENTHESIS, AND AN OVERLAP K0405090
510 | * ERROR - INDICATES THE K0405100
511 | * DIMENSIONING LEVEL IN THE SYM K0405110
512 | * TBL ID WORD K0405120
7B67 7101 513 | NEXP MDX 1 1 MOVE STRING POINTER K0405130
514 | * K0405140
515 | * K0405150
7B68 C100 516 | LD 1 0 LOAD WORD K0405160
7B69 9094 517 | S COMAC IS CHARACTER COMMA K0405170
7B6A 4C18 7B88 518 | BSC L TCNT,+- BRANCH IF YES K0405180
519 | * K0405190
520 | * K0405200
7B6C 8091 521 | A COMAC RESTORE ORIGINAL VALUE K0405210
7B6D 909A 522 | S PARNR IS IT RIGHT PARENTHESIS K0405220
7B6E 4C20 7A99 523 | BSC L GEEP,Z BRANCH IF NOT K0405230
524 | * K0405240
525 | * PUT DIMENSION COUNT IN SYM TBL K0405250
7B70 C096 526 | LD CNT LOAD DIMENSION COUNT K0405260
7B71 100B 527 | SLA 11 POSITION FOR SYMBOL TABLE K0405270
7B72 EB00 528 | OR 3 0 COMBINE WITH ID WORD K0405280
7B73 D300 529 | STO 3 0 NEW SYMBOL TABLE ID WORD K0405290
7B74 74FD 7A2A 530 | MDX L EOFST,-3 MODIFY SYMBOL K0405300
7B76 74FD 7A28 531 | MDX L SOFXT,-3 TABLE ADDRESSES K0405310
7B78 74FD 7A29 532 | MDX L SOFGT,-3 K0405320
533 | * K0405330
534 | * K0405340
7B7A C400 7A2A 535 | LD L EOFST TEST FOR TABLE OVERLAP K0405350
7B7C 8007 536 | A TWO ADD TWO K0405360
7B7D 9400 7A25 537 | S L EOFS SUBTRACT END OF STRING K0405370
7B7F 4C28 7B85 538 | BSC L JIMY,+Z BRANCH IF OVERLAP K0405380
539 | * K0405390
540 | * K0405400
7B81 7101 541 | MDX 1 1 MOVE POINTER K0405410
7B82 6400 7AEA 542 | LDX L DD3 GO CHECK NEXT WORD K0405420
543 | * K0405430
544 | * CONSTANT K0405440
7B84 0002 545 | TWO DC 2 TWO K0405450
546 | * K0405460
547 | * K0405470
7B85 7401 7A2D 548 | JIMY MDX L ERROR,1 SET OVERLAP ERROR K0405480
549 | * K0405490
550 | * K0405500
7B87 7007 551 | NXTPQ MDX START GO TO NEXT PART OF PHASE K0405510
552 | * K0405520
553 | * K0405530
554 | * CHECKS THAT DIMENTIONING K0405540
555 | * DOES NOT EXCEED THREE LEVELS K0405550
7B88 C400 7B07 556 | TCNT LD L CNT LOAD DIMENSION COUNT K0405560
7B8A 90B8 557 | S THRE IS IT THREE OR GREATER K0405570
7B8B 4C28 7B0B 558 | BSC L PRTE+2,+Z BRANCH IF NOT K0405580
7B8D 6400 7A99 559 | LDX L GEEP ERROR - BRANCH K0405590
SUBROUTINE OR FUNCTION
561 | * UNUSED CODE REMOVED 2-9 K0405610
562 | * K0405620
7B8F C400 7A2D 563 | START LD L ERROR IS THERE OVERLAP ERROR K0405630
7B91 4C20 7C22 564 | BSC L SOS,Z BRANCH IF YES K0405640
565 | * K0405650
566 | * INITIALIZE PHASE K0405660
7B93 6580 7A24 567 | LDX I1 SOFS INITIALIZE STRING POINTER K0405670
7B95 6C00 7A88 568 | STX L SW5 SET SW5 ON 2-11 K0405680
569 | * K0405690
570 | * K0405700
7B97 C100 571 | STARF LD 1 0 LD STMNT ID K0405710
7B98 180B 572 | SRA 11 K0405720
7B99 9062 573 | S FIOC TEST IF FIO CALL K0405730
7B9A 4C20 7BA4 574 | BSC L STAR1,Z BRANCH IF NOT K0405740
575 | * K0405750
7B9C 685E 576 | STX SW5A SET FIO STMNT PRESENT SW K0405760
577 | * K0405770
7B9D C100 578 | LD 1 0 GET STMNT NORM K0405780
7B9E 1802 579 | SRA 2 K0405790
7B9F E065 580 | AND IDNVQ K0405800
7BA0 D001 581 | STO *+1 K0405810
7BA1 7500 0000 582 | MDX L1 *-* MOVE TO NEXT STMNT K0405820
583 | * K0405830
7BA3 70F3 584 | MDX STARF CHECK NEXT STMNT K0405840
585 | * K0405850
586 | * K0405860
587 | * CHECKS THE FORTRAN COMMUNICATION K0405870
588 | * AREA (SORF) FOR A SUBP INDN - K0405880
589 | * IF NONE, CHECKS THE FIRST STMNT K0405890
590 | * TO SEE IF IT IS REAL OR INTEGER K0405900
7BA4 C400 7A30 591 | STAR1 LD L SORF HAVE SUBROUTINE OR FUNC K0405910
7BA6 4C20 7BCC 592 | BSC L DO3,Z BRANCH IF YES K0405920
593 | * K0405930
594 | * K0405940
7BA8 C100 595 | LD 1 0 LOAD STMNT ID WORD K0405950
7BA9 1801 596 | SRA 1 K0405960
7BAA E05B 597 | AND IDTPQ GET STMNT ID TYPE K0405970
7BAB 9051 598 | S REALC IS STMNT REAL K0405980
7BAC 4C18 7BB4 599 | BSC L TRY,+- BRANCH IF YES K0405990
7BAE 904F 600 | S INTC IS STMNT INTEGER K0406000
7BAF 4C20 7C22 601 | BSC L SOS,Z BRANCH IF NOT K0406010
602 | * K0406020
603 | * K0406030
7BB1 6C00 7C36 604 | STX L0 ASW3 SET INTEGER STMNT SW K0406040
7BB3 7002 605 | MDX TRY+2 CHECK FOR FUNCTION K0406050
606 | * K0406060
607 | * K0406070
608 | * CHECKS FOR THE WORD 'FUNCTION' K0406080
609 | * IN A REAL OR INTEGER STMNT - K0406090
610 | * IF FOUND, INDICATES A FUNCTION K0406100
611 | * IN THE FORTRAN COMMUNICATION K0406110
612 | * AREA (SORF) K0406120
7BB4 6C00 7C35 613 | TRY STX L0 ASW2 SET REAL STMNT SW K0406130
614 | * K0406140
615 | * ARE NEXT FOUR WORDS 'FUNCTION' K0406150
7BB6 C101 616 | LD 1 1 LOAD WORD K0406160
7BB7 9047 617 | S FUNC1 ARE CHARACTERS 'FU' K0406170
7BB8 4C20 7C22 618 | BSC L SOS,Z BRANCH IF NOT K0406180
7BBA C102 619 | LD 1 2 LOAD 2ND WORD K0406190
7BBB 9044 620 | S FUNC2 ARE CHARACTERS 'NC' K0406200
7BBC 4C20 7C22 621 | BSC L SOS,Z BRANCH IF NOT K0406210
7BBE C103 622 | LD 1 3 LOAD 3RD WORD K0406220
7BBF 9041 623 | S FUNC3 ARE CHARACTERS 'IO' K0406230
7BC0 4C20 7C22 624 | BSC L SOS,Z BRANCH IF NOT K0406240
7BC2 C104 625 | LD 1 4 LOAD 4TH WORD K0406250
7BC3 903E 626 | S FUNC4 IS CHARACTER 'N' K0406260
7BC4 4C20 7C22 627 | BSC L SOS,Z BRANCH IF NOT K0406270
7BC6 6D00 7A87 628 | STX L1 IDADR SAVE STMNT ID POINTER 2-11 K0406280
7BC8 7105 629 | MDX 1 5 MOVE POINTER K0406290
630 | * K0406300
631 | * INDICATE FUNCTION IN K0406310
632 | * COMMUNICATION AREA K0406320
7BC9 7401 7A30 633 | MDX L SORF,1 SET FUNCTION IN SORF K0406330
7BCB 700A 634 | MDX DO2+2 CHECK FOR LEGAL NAME 2-12 K0406340
635 | * K0406350
636 | * K0406360
637 | * CHECKS FOR A SUBP OR FUNC STMNT K0406370
7BCC C100 638 | DO3 LD 1 0 LOAD STMNT ID WORD K0406380
7BCD 180B 639 | SRA 11 GET STMNT ID TYPE K0406390
7BCE 902A 640 | S SF1 IS IT FUNCTION K0406400
7BCF 4C18 7BD4 641 | BSC L DO2,+- BRANCH IF YES K0406410
7BD1 9028 642 | S SF2 IS IT SUBROUTINE K0406420
7BD2 4C20 7C22 643 | BSC L SOS,Z BRANCH IF NO K0406430
644 | * K0406440
645 | * CHECKS FOR A VALID SUBP NAME K0406450
7BD4 6D00 7A87 646 | DO2 STX L1 IDADR SAVE STMNT ID POINTER 2-11 K0406460
7BD6 7101 647 | MDX 1 1 MOVE POINTER K0406470
7BD7 C100 648 | LD 1 0 LOAD WORD K0406480
7BD8 4810 649 | BSC - SKIP IF NUMBER OR LETTER K0406490
7BD9 703B 650 | MDX ER7 ERROR K0406500
7BDA D028 651 | STO WRD1 SAVE WORD K0406510
7BDB C101 652 | LD 1 1 LOAD 2ND WORD K0406520
7BDC 4C28 7BE1 653 | BSC L MADS,+Z BRANCH IF NAME TWO WORDS K0406530
7BDE C02D 654 | LD ZO SET ZEROS FOR K0406540
7BDF D024 655 | STO WRD2 SECOND WORD OF NAME K0406550
7BE0 7005 656 | MDX ZOR PUT NAME IN SYMBOL TABLE K0406560
7BE1 D022 657 | MADS STO WRD2 STORE 2ND WORD K0406570
7BE2 7101 658 | MDX 1 1 MOVE POINTER K0406580
7BE3 C101 659 | LD 1 1 LOAD NEXT WORD K0406590
7BE4 4C28 7C15 660 | BSC L ER7,+Z ERROR IF NOT SPECIAL OPER K0406600
661 | * K0406610
662 | * SCANS THE SYM TBL FOR K0406620
663 | * DUPLICATION OF THE SUBP NAME K0406630
7BE6 6780 7A27 664 | ZOR LDX I3 SOFNS INITIALIZE SYMBOL TABLE PT K0406640
7BE8 7009 665 | MDX HACK START CHECK K0406650
7BE9 C301 666 | LOP LD 3 1 DOES FIRST WORD OF SYMBOL K0406660
7BEA 9018 667 | S WRD1 TABLE MATCH 1ST PART K0406670
7BEB 4820 668 | BSC Z SKIP IF YES K0406680
7BEC 7004 669 | MDX EATQ GET NEXT TABLE ENTRY K0406690
7BED C302 670 | LD 3 2 DOES 2ND WORD OF SYMBOL K0406700
7BEE 9015 671 | S WRD2 TABLE MATCH 2ND PART K0406710
7BEF 4C18 7C0D 672 | BSC L CHK,+- BRANCH IF YES K0406720
7BF1 73FD 673 | EATQ MDX 3 -3 GO TO NEXT TABLE ENTRY K0406730
7BF2 6B14 674 | HACK STX 3 SAVE STORE POINTER K0406740
7BF3 C013 675 | LD SAVE HAS ENTIRE SYMBOL TABLE K0406750
7BF4 9400 7A2A 676 | S L EOFST BEEN CHECKED FOR DUPLICATE K0406760
7BF6 4820 677 | BSC Z SKIP IF YES K0406770
7BF7 70F1 678 | MDX LOP CONTINUE LOOP K0406780
7BF8 7040 679 | MDX PLACQ PLACE NAME IN TABLE K0406790
680 | * K0406800
681 | * CONSTANTS K0406810
7BF9 000D 682 | SF1 DC /0D FUNCTION K0406820
7BFA FFF7 683 | SF2 DC /04-/0D SUBROUTINE K0406830
7BFB 0000 684 | SW5A DC 0 SWITCH 5A K0406840
7BFC 001B 685 | FIOC DC /1B FIO K0406850
7BFD 2400 686 | REALC DC /2400 REAL K0406860
7BFE 0400 687 | INTC DC /0400 INTEGER K0406870
7BFF 8D22 688 | FUNC1 DC /8D22 FU K0406880
7C00 D0E3 689 | FUNC2 DC /D0E3 NC K0406890
7C01 92B2 690 | FUNC3 DC /92B2 TI K0406900
7C02 D000 691 | FUNC4 DC /D000 ON K0406910
7C03 0000 692 | WRD1 DC *-* TEMPORARY STORAGE FOR K0406920
7C04 0000 693 | WRD2 DC *-* SYMBOL TABLE ENTRY K0406930
7C05 01FF 694 | IDNVQ DC /01FF NORM MASK K0406940
7C06 7C00 695 | IDTPQ DC /7C00 STMNT ID TYPE MASK K0406950
7C07 0000 696 | SAVE DC 0 TEMPORARY STORAGE K0406960
7C08 0007 697 | ER7R DC 7 ERROR NO. 7 K0406970
7C09 000C 698 | ERR12 DC 12 ERROR NO. 12 K0406980
7C0A 000D 699 | ERR13 DC 13 ERROR NO. 13 K0406990
7C0B 000E 700 | ERR14 DC 14 ERROR NO. 14 K0407000
7C0C 8000 701 | ZO DC /8000 SECOND WORD OF 1 WORD NAME K0407010
702 | * K0407020
703 | * CHECKS THAT A PARAMETER NAME K0407030
704 | * HAS NOT BEEN ENTERED INTO COMMON K0407040
7C0D C300 705 | CHK LD 3 0 LOAD SYMBOL TABLE ID WORD K0407050
7C0E 1002 706 | SLA 2 IS IT IN COMMON K0407060
7C0F 4828 707 | BSC +Z BRANCH IF NOT K0407070
7C10 700C 708 | MDX ER13 GO SET UP ERROR 13 K0407080
709 | * K0407090
710 | * SET UP ERRORS K0407100
7C11 C0F9 711 | ER14 LD ERR14 SET UP K0407110
7C12 D400 7A8C 712 | STO L ERRNO ERROR NO. 14 2-11 K0407120
7C14 700B 713 | MDX CLOSE CLOSE UP STRING K0407130
7C15 C0F2 714 | ER7 LD ER7R SET UP K0407140
7C16 D400 7A8C 715 | STO L ERRNO ERROR NO. 7 2-11 K0407150
7C18 7007 716 | MDX CLOSE CLOSE UP STRING K0407160
7C19 C0EF 717 | ER12 LD ERR12 SET UP K0407170
7C1A D400 7A8C 718 | STO L ERRNO ERROR NO. 12 2-11 K0407180
7C1C 7003 719 | MDX CLOSE CLOSE UP STRING K0407190
7C1D C0EC 720 | ER13 LD ERR13 SET UP K0407200
7C1E D400 7A8C 721 | STO L ERRNO ERROR NO. 13 2-11 K0407210
722 | * K0407220
7C20 4C00 7AA1 723 | CLOSE BSC L EROR BRCH TO INSERT ERROR 2-11 K0407230
724 | * K0407240
725 | * BRANCHES TO THE ROL ROUTINE TO K0407250
726 | * LOAD THE NEXT PHASE K0407260
727 | * K0407270
7C22 6580 7C29 728 | SOS LDX I1 NXTPH+1 LOAD PARAM FOR READING K0407280
7C24 C805 729 | LDD NXTPH+2 NEXT PHASE K0407290
7C25 4C00 7FBC 730 | BSC L ROL GO TO READ NEXT PHASE K0407300
7C28 731 | BSS E 0 K0407310
7C28 0023 732 | NXTPH DC 35 ID OF NEXT PHASE K0407320
7C29 733 | BSS 3 LOADER TABLE FOR NEXT PHS K0407330
734 | * K0407340
735 | * CONSTANTS K0407350
7C2C 7E00 736 | H7E00 DC /7E00 STMNT ID TYPE MASK K0407360
7C2D 1200 737 | H1200 DC /1200 I K0407370
7C2E 1800 738 | H1800 DC /1800 N K0407380
7C2F 4080 739 | H4080 DC /4080 INTEGER SUBPROGRAM K0407390
7C30 0080 740 | H0080 DC /0080 REAL SUBPROGRAM K0407400
7C31 001E 741 | SEMI DC /001E SEMICOLON K0407410
7C32 FFF2 742 | RPAR DC /1D-/2B RIGHT PARENTHESIS K0407420
7C33 000D 743 | LPAR DC /0D LEFT PARENTHESIS K0407430
7C34 0002 744 | TWOS DC 2 TWO K0407440
7C35 0000 745 | ASW2 DC *-* SWITCH 2A K0407450
7C36 0000 746 | ASW3 DC *-* SWITCH 3A K0407460
7C37 0003 747 | THREE DC 3 THREE K0407470
7C38 8001 748 | SIGN1 DC /8001 SIGN K0407480
749 | * K0407490
750 | * PLACES THE SUBP NAME INTO THE K0407500
751 | * SYM TBL - PLACES THE ADDR OF THE K0407510
752 | * SYM TBL ENTRY INTO THE FORTRAN K0407520
753 | * COMMUNICATIONS AREA (FNAME) K0407530
7C39 C0CA 754 | PLACQ LD WRD2 LOAD SECOND WORD K0407540
7C3A D302 755 | STO 3 2 PUT IN SYMBOL TABLE K0407550
7C3B C0C7 756 | LD WRD1 LOAD FIRST WORD K0407560
7C3C D301 757 | STO 3 1 PUT IN SYMBOL TABLE K0407570
758 | * K0407580
759 | * PUT SYMBOL TABLE ADDRESS IN K0407590
760 | * COMMUNICATION AREA K0407600
7C3D C400 7A26 761 | LD L SOFST FIND LOCATION OF PRESENT K0407610
7C3F 90C7 762 | S SAVE ENTRY RELATIVE TO START K0407620
7C40 1890 763 | SRT 16 OF SYMBOL TABLE K0407630
7C41 A8F5 764 | D THREE GET ENTRY POSITION K0407640
7C42 80F5 765 | A SIGN1 GIVE SIGN K0407650
7C43 D400 7A2E 766 | STO L FNAME SAVE K0407660
767 | * K0407670
768 | * K0407680
7C45 C0EF 769 | LD ASW2 IS IT REAL K0407690
7C46 4C18 7C4B 770 | BSC L IGER,+- BRANCH IF NOT K0407700
771 | * K0407710
772 | * K0407720
7C48 1010 773 | SLA 16 K0407730
7C49 D0EB 774 | STO ASW2 CLEAR REAL STMNT SW K0407740
7C4A 7010 775 | MDX REELQ GO SET REAL SUBPROGRAM BIT K0407750
776 | * K0407760
777 | * K0407770
7C4B C0EA 778 | IGER LD ASW3 ID IT INTEGER K0407780
7C4C 4C18 7C51 779 | BSC L PLAC1,+- BRANCH IF NOT K0407790
780 | * K0407800
781 | * K0407810
7C4E 1010 782 | SLA 16 K0407820
7C4F D0E6 783 | STO ASW3 CLEAR INTEGER STMNT SW K0407830
7C50 7008 784 | MDX PLAC1+8 GO SET INTEGER SUBPRG BITS K0407840
785 | * K0407850
786 | * SET THE SUBP AND TYPE INDRS IN K0407860
787 | * THE SYM TBL ID WORD OF A SUBP K0407870
788 | * SUBP NAME FOUND IN A SUBP, FUNC, K0407880
789 | * REAL FUNCTION, OR INTEGER FUNC K0407890
790 | * STMNT - CHECKS FOR A SYM TBL K0407900
791 | * OVERLAP K0407910
7C51 C0B1 792 | PLAC1 LD WRD1 LOAD FIRST WORD K0407920
7C52 E0D9 793 | AND H7E00 CLEAR ALL BUT FIRST WORD K0407930
7C53 90D9 794 | S H1200 IS IT LESS THAN I K0407940
7C54 4828 795 | BSC +Z SKIP IF YES K0407950
7C55 7005 796 | MDX REELQ GO SET REAL SUBP BITS K0407960
7C56 90D7 797 | S H1800 IS IT N OR LESS K0407970
7C57 4C30 7C5B 798 | BSC L REELQ,Z- BRANCH IF NOT K0407980
7C59 C0D5 799 | LD H4080 SET INTEGER SUBPRG BITS K0407990
7C5A 7001 800 | MDX VIPQ SET INTEGER SUBP BITS K0408000
7C5B C0D4 801 | REELQ LD H0080 SET REAL SUBPROGRAM BITS K0408010
7C5C D300 802 | VIPQ STO 3 0 PUT IN SYMBOL TABLE K0408020
7C5D 73FD 803 | MDX 3 -3 MOVE SYMBOL TABLE POINTER K0408030
7C5E 6F00 7A2A 804 | STX L3 EOFST NEW END OF SYMBOL TABLE K0408040
7C60 74FD 7A28 805 | MDX L SOFXT,-3 MOVE SYMBOL K0408050
7C62 74FD 7A29 806 | MDX L SOFGT,-3 TABLE ADDRESSES K0408060
807 | * K0408070
808 | * SYMBOL TABLE OVERLAP K0408080
7C64 C400 7A2A 809 | LD L EOFST LOAD END OF SYMBOL TABLE K0408090
7C66 80CD 810 | A TWOS ADD TWO K0408100
7C67 9400 7A25 811 | S L EOFS SUBTRACT END OF STRING K0408110
7C69 4C28 7CDD 812 | BSC L JIMMY,+Z BRANCH IF OVERLAP ERROR K0408120
813 | * K0408130
814 | * K0408140
7C6B 7101 815 | SLOP MDX 1 1 MOVE POINTER K0408150
816 | * K0408160
817 | * K0408170
818 | * CHECKS FOR A LEFT PARENTHESIS OR K0408180
819 | * A STMNT TERMINATOR FOLLOWING THE K0408190
820 | * SUBP NAME K0408200
7C6C C100 821 | DTB LD 1 0 LOAD WORD K0408210
7C6D 90C3 822 | S SEMI IS CHARACTER SEMI-COLON K0408220
7C6E 4C18 7CD4 823 | BSC L RMV,+- BRANCH IF YES K0408230
824 | * K0408240
825 | * K0408250
7C70 C034 826 | LD ASW1 RIGHT PARENTHESIS FOUND K0408260
7C71 4C20 7C19 827 | BSC L ER12,Z BRANCH IF YES K0408270
828 | * K0408280
829 | * K0408290
7C73 C100 830 | LD 1 0 LOAD WORD K0408300
7C74 90BE 831 | S LPAR IS CHARACTER LEFT PAREN K0408310
7C75 4C20 7C19 832 | BSC L ER12,Z BRANCH IF NOT K0408320
833 | * K0408330
834 | * K0408340
7C77 7101 835 | FLIP MDX 1 1 MOVE POINTER K0408350
836 | * K0408360
837 | * CHECKS FOR A VALID PARAM NAME K0408370
7C78 C100 838 | FLOP LD 1 0 LOAD WORD K0408380
7C79 4C10 7C15 839 | BSC L ER7,- ERROR IF OPERATOR 2-4 K0408390
7C7B 1002 840 | SLA 2 ERROR IF NOT 2-4 K0408400
7C7C 4C2A 7C15 841 | BSC L ER7,C+Z ALPHABETIC CHARACTER 2-4 K0408410
7C7E C100 842 | LD 1 0 LOAD WORD AGAIN 2-4 K0408420
7C7F D01F 843 | STO WDD1 SAVE WORD K0408430
7C80 C101 844 | LD 1 1 LOAD 2ND WORD K0408440
7C81 4C28 7C87 845 | BSC L SADS,+Z BRANCH IF PART OF NAME K0408450
7C83 C400 7C0C 846 | LD L ZO LOAD ZEROS AS 2ND WORD K0408460
7C85 D01A 847 | STO WDD2 STORE K0408470
7C86 7005 848 | MDX ZARRO GO PUT IN SYMBOL TABLE K0408480
7C87 D018 849 | SADS STO WDD2 STORE 2ND WORD K0408490
7C88 7101 850 | MDX 1 1 MOVE POINTER K0408500
7C89 C101 851 | LD 1 1 LOAD NEXT WORD K0408510
7C8A 4C28 7C15 852 | BSC L ER7,+Z BRANCH NOT SPECIAL CHAR K0408520
853 | * K0408530
854 | * SCANS THE SYM TBL FOR K0408540
855 | * DUPLICATION OF A VAR NAME K0408550
7C8C 6780 7A27 856 | ZARRO LDX I3 SOFNS LOAD START OF CHECK ADDR K0408560
7C8E 7009 857 | MDX CAKE START LOOP K0408570
7C8F C301 858 | LIPS LD 3 1 DOES FIRST WORD OF NAME K0408580
7C90 900E 859 | S WDD1 MATCH 1ST WORD OF TABLE K0408590
7C91 4820 860 | BSC Z SKIP IF YES K0408600
7C92 7004 861 | MDX CLET GET NEXT SYMBOL TBL ENTRY K0408610
7C93 C302 862 | LD 3 2 DOES 2ND WORD MATCH 2ND K0408620
7C94 900B 863 | S WDD2 WORD OF SYMBOL TBL ENTRY K0408630
7C95 4C18 7C0D 864 | BSC L CHK,+- BRANCH IF YES K0408640
7C97 73FD 865 | CLET MDX 3 -3 MOVE PT TO NEXT TBL ENTRY K0408650
7C98 6B08 866 | CAKE STX 3 SIV SAVE TABLE POINTER K0408660
7C99 C007 867 | LD SIV LOAD ENTRY ADDRESS K0408670
7C9A 9400 7A2A 868 | S L EOFST SUBTRACT END OF TABLE K0408680
7C9C 4820 869 | BSC Z SKIP IF FINISHED CHECK K0408690
7C9D 70F1 870 | MDX LIPS CONTINUE LOOP K0408700
7C9E 7008 871 | MDX PIECE PUT NAME IN SYMBOL TABLE K0408710
872 | * K0408720
873 | * CONSTANTS K0408730
7C9F 0000 874 | WDD1 DC 0 TEMPORARY STORAGE FOR K0408740
7CA0 0000 875 | WDD2 DC 0 SYMBOL TABLE ENTRY K0408750
7CA1 0000 876 | SIV DC 0 TEMPORARY STORAGE K0408760
7CA2 4400 877 | IDCII DC /4400 INTEGER FUNCTION K0408770
7CA3 0400 878 | IDCRR DC /0400 REAL FUNCTION K0408780
7CA4 002B 879 | COMA DC /2B COMMA K0408790
7CA5 0000 880 | ASW1 DC 0 SWITCH 1A K0408800
7CA6 000F 881 | ERR15 DC 15 ERROR NO. 15 K0408810
882 | * K0408820
883 | * PLACES THE PARAM NAME INTO THE K0408830
884 | * SYM TBL - SETS THE PARAM AND K0408840
885 | * TYPE INDICATORS IN THE SYM TBL - K0408850
886 | * CHECKS FOR A SYM TBL OVERLAP K0408860
887 | * CHECKS FOR A COMMA OR RIGHT K0408870
888 | * PARENTHESIS K0408880
7CA7 C0F8 889 | PIECE LD WDD2 LOAD 2ND WORD K0408890
7CA8 D302 890 | STO 3 2 PUT IN SYMBOL TABLE K0408900
7CA9 C0F5 891 | LD WDD1 LOAD 1ST WORD K0408910
7CAA D301 892 | STO 3 1 PUT IN SYMBOL TABLE K0408920
893 | * K0408930
894 | * INDICATE TYPE AND K0408940
895 | * FORMAL PARAMETER K0408950
7CAB C0F3 896 | LD WDD1 LOAD FIRST WORD K0408960
7CAC E400 7C2C 897 | AND L H7E00 GET FIRST CHARACTER K0408970
7CAE 9400 7C2D 898 | S L H1200 IS IT LESS THAN I K0408980
7CB0 4828 899 | BSC +Z SKIP IF NO K0408990
7CB1 7006 900 | MDX KEEL SET REAL INDICATORS K0409000
7CB2 9400 7C2E 901 | S L H1800 IS IT GREATER THAN N K0409010
7CB4 4C30 7CB8 902 | BSC L KEEL,Z- BRANCH IF YES K0409020
7CB6 C0EB 903 | LD IDCII LOAD INTEGER FUNCTION ID K0409030
7CB7 7001 904 | MDX HIPS GO PUT IN SYMBOL TABLE K0409040
7CB8 C0EA 905 | KEEL LD IDCRR LOAD REAL FUNCTION ID K0409050
7CB9 D300 906 | HIPS STO 3 0 PUT IN SYMBOL TABLE K0409060
7CBA 73FD 907 | MDX 3 -3 MOVE POINTER K0409070
7CBB 6F00 7A2A 908 | STX L3 EOFST NEW END OF SYMBOL TABLE K0409080
7CBD 74FD 7A28 909 | MDX L SOFXT,-3 MODIFY SYMBOL K0409090
7CBF 74FD 7A29 910 | MDX L SOFGT,-3 TABLE ADDRESSES K0409100
911 | * K0409110
912 | * SYMBOL TABLE OVERLAP K0409120
7CC1 C400 7A2A 913 | LD L EOFST LOAD END OF SYMBOL TABLE K0409130
7CC3 8400 7C34 914 | A L TWOS ADD TWO K0409140
7CC5 9400 7A25 915 | S L EOFS SUBTRACT END OF STRING K0409150
7CC7 4C28 7CDD 916 | BSC L JIMMY,+Z BRANCH IF OVERLAP K0409160
917 | * K0409170
918 | * K0409180
7CC9 7101 919 | MDX 1 1 MOVE STRING POINTER K0409190
920 | * K0409200
921 | * K0409210
7CCA C100 922 | LD 1 0 LOAD WORD K0409220
7CCB 90D8 923 | S COMA IS CHARACTER COMMA K0409230
7CCC 4C18 7C77 924 | BSC L FLIP,+- BRANCH IF YES K0409240
925 | * K0409250
926 | * K0409260
7CCE 9400 7C32 927 | S L RPAR IS CHARACTER RIGHT PAREN K0409270
7CD0 4C20 7C19 928 | BSC L ER12,Z BRANCH IF NOT K0409280
929 | * K0409290
930 | * K0409300
7CD2 68D2 931 | STX 0 ASW1 SET RIGHT PARENTHESIS SW K0409310
7CD3 7097 932 | MDX SLOP CHECK REST OF STMNT K0409320
933 | * K0409330
7CD4 C400 7BFB 934 | RMV LD L SW5A IS FIO STMNT PRESENT 2-11 K0409340
7CD6 4C18 7A9F 935 | BSC L REMOV,+- BRCH IF NOT 2-11 K0409350
7CD8 C0CD 936 | LD ERR15 IF PRESENT 2-11 K0409360
7CD9 D400 7A8C 937 | STO L ERRNO SET ERROR TO 15 2-11 K0409370
7CDB 4C00 7AA1 938 | BSC L EROR AND INSERT ON STRING 2-11 K0409380
939 | * K0409390
940 | * K0409400
7CDD 7401 7A2D 941 | JIMMY MDX L ERROR,1 SET OVERLAP ERROR INDR K0409410
7CDF 6400 7C22 942 | LDX L SOS GO TO END OF PHASE K0409420
7CE1 943 | BSS BPHAR+PHLEN*320-1-* PATCH AREA K0409430
7DF5 0000 944 | DC 0 K0409440
7DF6 945 | END BPHAR-2 K0409450
There were no errors in this assembly
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
$PHSE 0078 92 156
AOT 7B1F 434 428
AOT1 7B20 435 463
ASW1 7CA5 880 826 931
ASW2 7C35 745 613 769 774
ASW3 7C36 746 604 778 783
BPHAR 7A36 139 943 945
CAKE 7C98 866 857
CCWD 7A31 112
CHK 7C0D 705 672 864
CLET 7C97 865 861
CLOSE 7C20 723 713 716 719
CNT 7B07 402 409 471 478 526 556
COMA 7CA4 879 923
COMAC 7AFE 393 366 517 521
COMMC 7A38 148 174
COMON 7A2B 106
CONST 7AF6 385 352
COT1 7B02 397 435
COT2 7B03 398 442
CSIZE 7A2C 107
DD1 7AF2 380 368
DD2 7A5F 208 193 381
DD3 7AEA 365 542
DFCNT 7A33 132
DO2 7BD4 646 634 641
DO3 7BCC 638 592
DTB 7C6C 821
EAT 7A7C 238 233
EATQ 7BF1 673 669
ENDC 7A39 149 170
EOFS 7A25 100 302 317 353 537 811 915
EOFST 7A2A 105 241 346 351 530 535 676 804 809 868 908 913
ER12 7C19 717 827 832 928
ER13 7C1D 720 708
ER14 7C11 711
ER7 7C15 714 650 660 839 841 852
ER7R 7C08 697 714
ERAH 7A9C 275 210 213 222
EROR 7AA1 286 268 271 274 277 723 938
ERR10 7A8D 257 269
ERR11 7A8E 258 266
ERR12 7C09 698 717
ERR13 7C0A 699 720
ERR14 7C0B 700 711
ERR15 7CA6 881 936
ERR7 7A8F 259 275
ERR8 7A90 260 272
ERRID 7A91 261 296
ERRNO 7A8C 256 267 270 273 276 280 298 712 715 718 721 937
ERROR 7A2D 108 160 548 563 941
FIOC 7BFC 685 573
FIX 7A53 189 176
FLIP 7C77 835 924
FLOP 7C78 838
FNAME 7A2E 109 766
FUNC1 7BFF 688 617
FUNC2 7C00 689 620
FUNC3 7C01 690 623
FUNC4 7C02 691 626
GEEP 7A99 272 418 433 440 441 444 452 454 457 475 494 503 523
559
H0080 7C30 740 801
H1200 7C2D 737 794 898
H1800 7C2E 738 797 901
H4080 7C2F 739 799
H7E00 7C2C 736 793 897
HACK 7BF2 674 665
HELP 7A93 266 236
HELP1 7B04 399 448 456
HIPS 7CB9 906 904
IDADR 7A87 251 189 286 292 303 628 646
IDCI 7AFB 390 342
IDCII 7CA2 877 903
IDCR 7AFC 391 344
IDCRR 7CA3 878 905
IDNRM 7A83 247 181 289
IDNVQ 7C05 694 580
IDTPE 7A3A 150 169
IDTPQ 7C06 695 597
IGER 7C4B 778 770
INTC 7BFE 687 600
IOCS 7A32 121
JACK 7A7D 239 227
JIMMY 7CDD 941 812 916
JIMY 7B85 548 354 538
KEEL 7CB8 905 900 902
LIPS 7C8F 858 870
LOOP 7A74 229 243
LOOP1 7AB9 310 315
LOP 7BE9 666 678
LPAR 7C33 743 831
MAD 7A6C 219 215
MADS 7BE1 657 653
MEMRY 8000 89 90 91
MV 7A4C 179
NEX 7B44 471 439
NEXP 7B67 513 486 498
NINT 7B05 400 443 445
NORM2 7A85 249 192 202 374
NRMSV 7AF5 384 291 304
NXID 7A50 183 182
NXTPH 7C28 732 142 728 729
NXTPQ 7B87 551 161 171
O2 7B53 488 481
O3 7B60 500 490
OKJOE 7A36 145
ORG 7A23 98
OVERL 7A23 90 94
PARNL 7AFD 392 361
PARNR 7B08 403 522
PH 7A3B 155 145
PHID 0022 95 155
PHLEN 0003 93 943
PIECE 7CA7 889 871
PILL 7B28 441 438
PIT 7AF7 386 416 417
PIT1 7AF8 387 336
PLAC1 7C51 792 779 784
PLACE 7AC8 329 244
PLACQ 7C39 754 679
PRTE 7B09 408 362 558
PTB 7A58 197 375
REALC 7BFD 686 598
REEL 7AD6 344 339 341
REELQ 7C5B 801 775 796 798
REMOV 7A9F 279 199 935
RGTI 7AF9 388 337
RGTN 7AFA 389 340
RMV 7CD4 934 823
ROL 7FBC 91 730
RPAR 7C32 742 927
SADS 7C87 849 845
SAVE 7C07 696 674 675 762
SAVEQ 7A8B 255 239 240
SAVX1 7AC1 318 308
SEMI 7C31 741 822
SEMIC 7A84 248 198
SETUP 7A96 269 203
SF1 7BF9 682 640
SF2 7BFA 683 642
SIGN1 7C38 748 765
SIV 7CA1 876 866 867
SLOP 7C6B 815 932
SOFGT 7A29 104 348 532 806 910
SOFNS 7A27 102 226 664 856
SOFS 7A24 99 157 567
SOFST 7A26 101 761
SOFXT 7A28 103 347 531 805 909
SORF 7A30 111 591 633
SOS 7C22 728 321 564 601 618 621 624 627 643 942
STAR1 7BA4 591 574
STARF 7B97 571 584
START 7B8F 563 551
SUMM 7B06 401 423 449 458 474 482 492 501
SW2 7A86 250 373 479 488
SW5 7A88 252 320 568
SW5A 7BFB 684 576 934
TCNT 7B88 556 518
TEM 7B00 395 426 430 434 460 462
TEMPT 7B42 466 451 455
THRE 7B43 467 557
THREE 7C37 747 764
TRY 7BB4 613 599 605
TST 7A43 167 184 322
TWO 7B84 545 536
TWOS 7C34 744 810 914
VIP 7AD7 345 343
VIPQ 7C5C 802 800
WD1 7A89 253 211 230 331 335
WD2 7A8A 254 217 219 235 329
WDD1 7C9F 874 843 859 891 896
WDD2 7CA0 875 847 849 863 889
WRD1 7C03 692 651 667 756 792
WRD2 7C04 693 655 657 671 754
ZARRO 7C8C 856 848
ZERO 7A92 262 216
ZO 7C0C 701 654 846
ZOR 7BE6 664 656
ZORRO 7A71 226 218