ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:06 2020
Source File: \kforph18.asm
1130 FORTRAN COMPILER PHASE 18
2 | *************************************************** K1800020
3 | *STATUS - VERSION 2, MODIFICATION 11 * K1800030
4 | * * K1800040
5 | *FUNCTION/OPERATION- * K1800050
6 | * * REPLACES ARITHMETIC, STMNT FUNCTION, CALL, * K1800060
7 | * AND IF STATEMENTS NOT INVOLVING SUBSCRIPTED * K1800070
8 | * VARIABLES BY COMPILER-GENERATED CODING * K1800080
9 | * * COMPLETES THE REPLACEMENT OF ARITHMETIC, * K1800090
10 | * STMNT FUNCTION, CALL, AND IF STMNTS THAT DO * K1800100
11 | * INVOLVE SUBSCRIPTED VARIABLES BY COMPILER- * K1800110
12 | * GENERATED CODING. * K1800120
13 | * * OPTIMIZES IF STMNT BRANCH INSTRUCTIONS. * K1800130
14 | * * HANDLES MIXED MODE ARITHMETIC * K1800140
15 | * * K1800150
16 | *ENTRY POINTS- * K1800160
17 | * ENQ-PHASE 18 IS READ INTO CORE BY PHASE 17 * K1800170
18 | * AND EXECUTION BEGUN AT LOCATION ENQ. * K1800180
19 | * * K1800190
20 | *INPUT- * K1800200
21 | * NONE IN THE USUAL SENSE. HOWEVER, THE STMNT * K1800210
22 | * STRING SCANNED BY THE COMPILER MAY BE * K1800220
23 | * CONSIDERED INPUT. * K1800230
24 | * * K1800240
25 | *OUTPUT- * K1800250
26 | * NONE IN THE USUAL SENSE. HOWEVER, THE STMNT * K1800260
27 | * STRING AND THE SYMBOL TABLE ALTERED BY THE * K1800270
28 | * COMPILER MAY BE CONSIDERED OUTPUT. * K1800280
29 | * * K1800290
30 | *EXTERNAL REFERENCES-N/A * K1800300
31 | * * K1800310
32 | *EXITS- * K1800320
33 | * NORMAL- * K1800330
34 | * PHASE EXITS NORMALLY IF OVERLAP ERROR IS * K1800340
35 | * NOT FOUND. PHASE 19 IS LOADED AND EXECUTED * K1800350
36 | * ERROR- * K1800360
37 | * IF AN OVERLAP ERROR OCCURS, COMPILATION IS * K1800370
38 | * ABORTED AND CONTROL IS PASSED FROM PHASE * K1800380
39 | * TO SUCCEEDING PHASE UNTIL AN OUTPUT PHASE * K1800390
40 | * IS REACHED WHICH CAN PRINT AN ERROR MESSAGE* K1800400
41 | * NO ERRORS ARE DETECTED IN PHASE 18. * K1800410
42 | * * K1800420
43 | *TABLES/WORK AREAS- * K1800430
44 | * NONE EXCEPT STATEMENT STRING AREA, SYMBOL * K1800440
45 | * TABLE, AND FORTRAN COMMUNICATION AREA * K1800450
46 | * * K1800460
47 | *ATTRIBUTES-N/A * K1800470
48 | * * K1800480
49 | *NOTES- * K1800490
50 | * THE SWITCHES USED IN PHASE 18 FOLLOW. IF * K1800500
51 | * POSITIVE, THE SWITCH IS TRANSFER=T. IF ZERO, * K1800510
52 | * THE SWITCH IS NORMAL=N. IF MINUS, THE SWITCH * K1800520
53 | * IS NEGATIVE=M. * K1800530
54 | * * MODSW-MODE OF ARITHMETIC * K1800540
55 | * N=SWITCH NOT SET. * K1800550
56 | * T=FIXED MODE ARITHMETIC * K1800560
57 | * M=FLOATING MODE ARITHMETIC * K1800570
58 | * * STNCH-STATEMENT NUMBER * K1800580
59 | * N=STMNT HAS NO STMNT NUMBER * K1800590
60 | * T=STMNT HAS STMNT NUMBER * K1800600
61 | * * TEMP -OUTPUT SWITCH * K1800610
62 | * T=OUTPUT PROCESSED PARTS OF STMNT * K1800620
63 | * WHILE SEARCHING FOR NEXT NOT * K1800630
64 | * PROCESSED OPTR IN SUBROUTINE * K1800640
65 | * FINDN * K1800650
66 | *************************************************** K1800660
67 | ABS K1800670
68 | * K1800680
69 | * SYSTEM EQUATES K1800690
8000 70 | MEMRY EQU /8000 K1800700
7A24 71 | OVERL EQU MEMRY-1500 START OF FCOM K1800710
7FBC 72 | ROL EQU MEMRY-68 LOCN OF RTN TO READ NXT PH K1800720
0078 73 | $PHSE EQU /78 NO. OF PHASE NOW IN CORE K1800730
7A24 74 | ORG OVERL K1800740
0030 75 | PHID EQU 48 ID NUMBER THIS PHASE K1800750
76 | ************************************************** K1800760
77 | * K1800770
78 | * FORTRAN COMMUNICATION AREA K1800780
79 | * K1800790
7A24 80 | SOFS BSS 1 START OF STRING K1800800
7A25 81 | EOFS BSS 1 END OF STRING K1800810
7A26 82 | SOFST BSS 1 START OF SYMBOL TABLE K1800820
7A27 83 | SOFNS BSS 1 START OF NON-STATEMENT NUMBERS K1800830
7A28 84 | SOFXT BSS 1 START OF SUBSCRIPT TEMPORARIES K1800840
7A29 85 | SOFGT BSS 1 START OF GENERATED TEMPORARIES K1800850
7A2A 86 | EOFST BSS 1 END OF SYMBOL TABLE K1800860
7A2B 87 | COMON BSS 1 NEXT AVAILABLE COMMON K1800870
7A2C 88 | CSIZE BSS 1 SIZE OF COMMON K1800880
7A2D 89 | ERROR BSS 1 OVERLAP ERROR K1800890
90 | * BIT 8 S/T EXCEEDS MAX LIMIT 2-11 K1800892
7A2E 91 | FNAME BSS 1 PROGRAM NAME K1800900
7A2F 92 | BSS 1 K1800910
7A30 93 | SORF BSS 1 SUBROUTINE(-) OR FUNCTION(+) K1800920
7A31 94 | CCWD BSS 1 CONTROL CARD WORD K1800930
95 | * BIT 15 TRANSFER TRACE K1800940
96 | * BIT 14 ARITHMETIC TRACE K1800950
97 | * BIT 13 EXTENDED PRECISION K1800960
98 | * BIT 12 LIST SYMBOL TABLE K1800970
99 | * BIT 11 LIST SUBPROGRAM NAMES K1800980
100 | * BIT 10 LIST SOURCE PROGRAM K1800990
101 | * BIT 9 ONE WORD INTEGERS K1801000
7A32 102 | IOCS BSS 1 IOCS CONTROL CARD WORD K1801010
103 | * BIT 15 CARD K1801020
104 | * BIT 14 PAPER TAPE K1801030
105 | * BIT 13 TYPEWRITER K1801040
106 | * BIT 12 1403 PRINTER K1801050
107 | * BIT 11 2501 READER K1801060
108 | * BIT 10 KEYBOARD K1801070
109 | * BIT 9 1442 PUNCH K1801080
110 | * BIT 8 DISK K1801090
111 | * BIT 7 1132 PRINTER K1801100
112 | * BIT 3 PLOTTER K1801110
7A33 113 | DFCNT BSS 1 K1801120
114 | * K1801130
115 | * K1801140
116 | * END OF FORTRAN COMMUNICATION K1801150
117 | * AREA K1801160
118 | * K1801170
7A36 119 | BPHAR EQU *+2 BEGIN PHASE AREA K1801180
7A34 0000 120 | DC 0 LOADER WORK AREA K1801190
7A35 FFD0 121 | DC -48 -PHASE ID FOR SLET LOOKUP K1801200
7A36 0462 122 | DC NXTPH-*+1 TABLE FOR NEXT PHASE ENTRY K1801210
7A37 0001 123 | DC 1 ONE ENTRY TO BE SET BY LDR K1801220
7A36 124 | ORG *-2 K1801230
7A36 6130 125 | ENT LDX 1 PHID GET ID THIS PHASE K1801240
7A37 6D00 0078 126 | STX L1 $PHSE STORE IN SYSTEM PHASE AREA K1801250
7A39 C0F3 127 | LD ERROR IS THERE OVERLAP ERROR K1801260
7A3A 4C20 7E85 128 | BSC L EXIT,Z BRANCH IF YES K1801270
7A3C C0E8 129 | START LD EOFS LOAD END OF STRING ADDR K1801280
7A3D 90E6 130 | S SOFS SUBTRACT START OF STRING K1801290
7A3E 4C00 7C5C 131 | BSC L CONT CONTINUE PROGRAM INITIALIZE K1801300
132 | * K1801310
133 | * K1801320
134 | * K1801330
7A40 6580 7C65 135 | P1011 LDX I1 SOFIS INITIALIZE STRING I/P PT K1801340
7A42 6680 7A24 136 | LDX I2 SOFS INITIALIZE STRING O/P PT K1801350
7A44 72FF 137 | MDX 2 -1 K1801360
138 | * K1801370
139 | * EXTRACTS THE STMNT ID TYPE K1801380
140 | * EXTRACTS THE STMNT ID TYPE K1801390
7A45 7101 141 | P1021 MDX 1 1 MOVE STRING I/P PT K1801400
7A46 7201 142 | MDX 2 1 MOVE STRING O/P PT K1801410
7A47 C100 143 | P1022 LD 1 0 LOAD STMNT ID WORD K1801420
7A48 E3EE 144 | AND 3 HF803-Z ELIMINATE NORM IN ID WORD K1801430
7A49 8304 145 | A 3 FOUR-Z ADD ONE TO NORM K1801440
7A4A D200 146 | STO 2 0 PUT ON OUTPUT STRING K1801450
7A4B E305 147 | AND 3 HF800-Z GET ID TYPE K1801460
7A4C D3BE 148 | STO 3 STTYP-Z SAVE ID TYPE K1801470
7A4D 6E00 7C58 149 | STX L2 OUTID SAVE ADDR OF O/P ID K1801480
7A4F 6D00 7C67 150 | STX L1 INID SAVE ADDR OF I/P ID K1801490
7A51 7101 151 | MDX 1 1 MOVE I/P STRING PT K1801500
7A52 C1FF 152 | LD 1 -1 LOAD STMNT ID WORD K1801510
7A53 4C04 7A56 153 | BSC L P1023,E BRANCH IF HAVE STMNT NO. K1801520
7A55 7009 154 | MDX P1031 TEST STMNT TYPE K1801530
155 | * K1801540
7A56 C304 156 | P1023 LD 3 FOUR-Z INCREMENT NORM K1801550
7A57 8480 7C58 157 | A I OUTID BY ONE K1801560
7A59 D480 7C58 158 | STO I OUTID PUT BACK ON OUTPUT STRING K1801570
7A5B 7101 159 | MDX 1 1 MOVE I/P PT K1801580
7A5C 7201 160 | MDX 2 1 MOVE O/P PT K1801590
7A5D C1FF 161 | LD 1 -1 LOAD STMNT NO. K1801600
7A5E D200 162 | STO 2 0 PUT ON OUTPUT STRING K1801610
163 | * CHECKS FOR A CALL, IF, ARITHMETIC, OR K1801620
164 | * STMNT FUNCTION STATEMENT K1801630
7A5F C300 165 | P1031 LD 3 0 K1801640
7A60 D3BD 166 | STO 3 MODSW-Z ZERO MODE SWITCH K1801650
167 | * K1801660
168 | * TEST IF ARITHMETIC STMNT FUNCTION K1801670
7A61 C3BE 169 | LD 3 STTYP-Z LOAD STMNT ID TYPE K1801680
7A62 9315 170 | S 3 HD000-Z IS IT ARITHMETIC STMNT FUNC K1801690
7A63 4C18 7AA0 171 | BSC L P1052,+- BRANCH IF YES K1801700
7A65 C3BE 172 | LD 3 STTYP-Z LOAD STMNT ID TYPE K1801710
7A66 93E1 173 | S 3 READ-Z SUBTRACT READ CONSTANT K1801720
7A67 4820 174 | BSC Z SKIP IF READ K1801730
7A68 93E5 175 | S 3 FIND-Z TEST FOR FIND STATEMENT K1801740
7A69 4820 176 | BSC Z SKIP IF FIND OR READ K1801750
7A6A 93E7 177 | S 3 WRITE-Z TEST FOR WRITE K1801760
7A6B 4C20 7A7E 178 | BSC L HERE,Z BR IF NOT I/O(RD-WRITE-FIND) K1801770
7A6D C100 179 | LD 1 0 LOAD 2ND WD I/P STRING K1801780
7A6E 9318 180 | S 3 H0054-Z IS IT EXPRESSION OPERATOR K1801790
7A6F 4C20 7A73 181 | BSC L A7A72,Z BRANCH IF NOT K1801800
7A71 7101 182 | MDX 1 1 MOVE I/P STRING PT K1801810
7A72 7031 183 | MDX P2011 BR TO CONTINUE PROCESSING K1801820
7A73 C100 184 | A7A72 LD 1 0 LOAD WORD K1801830
7A74 931C 185 | S 3 LIBFR-Z IS IT LIBF READ K1801840
7A75 4820 186 | BSC Z SKIP IF YES K1801850
7A76 9316 187 | S 3 H0080-Z IS IT LIBF WRITE K1801860
7A77 4820 188 | BSC Z SKIP IF YES K1801870
7A78 931D 189 | S 3 LIBFF-Z IS IT LIBF FIND K1801880
7A79 4C20 7A7E 190 | BSC L HERE,Z BRANCH IF NOT K1801890
7A7B 71FF 191 | MDX 1 -1 DECREMENT STRING I/P PT K1801900
7A7C 4C00 7E54 192 | BSC L D5011 CHECK REST OF STMNT K1801910
193 | * K1801920
7A7E C3BE 194 | HERE LD 3 STTYP-Z LOAD STMNT ID TYPE K1801930
7A7F 4818 195 | BSC +- SKIP IF NOT ARITH STMNT K1801940
7A80 7023 196 | MDX P2011 BRANCH IF ARITHMETIC STMNT K1801950
7A81 9306 197 | S 3 TCALL-Z IS IT CALL STMNT K1801960
7A82 4C18 7AA4 198 | BSC L P2011,+- BRANCH IF YES K1801970
7A84 9307 199 | S 3 H4800-Z IS IT IF STMNT K1801980
7A85 4C18 7AA4 200 | BSC L P2011,+- BRANCH IF YES K1801990
201 | * K1802000
202 | * MOVES THE STMNT TO THE O/P STRING K1802010
203 | * UNALTERED. DETERMINES IF THE LAST K1802020
204 | * STMNT WAS AN END STMNT K1802030
7A87 6580 7C67 205 | P1041 LDX I1 INID RESET I/P PT K1802040
7A89 6680 7C58 206 | LDX I2 OUTID RESET O/P PT K1802050
7A8B C100 207 | LD 1 0 LOAD STMNT ID WORD K1802060
7A8C E30B 208 | AND 3 H07FC-Z GET STMNT NORM K1802070
7A8D D3BF 209 | STO 3 NORM-Z SAVE NORM K1802080
7A8E C100 210 | P1042 LD 1 0 MOVE WORD TO K1802090
7A8F D200 211 | STO 2 0 OUTPUT STRING K1802100
7A90 74FC 7C64 212 | MDX L NORM,-4 DECREMENT NORM BY ONE K1802110
7A92 7008 213 | MDX P1043 CONTINUE LOOP K1802120
214 | * K1802130
215 | * TEST IF LAST OUTPUT STMNT K1802140
216 | * WAS END STATEMENT K1802150
7A93 C3BE 217 | LD 3 STTYP-Z LOAD STMNT ID TYPE K1802160
7A94 9308 218 | S 3 TEND-Z IS IT END STMNT K1802170
7A95 4C20 7A45 219 | BSC L P1021,Z BRANCH IF NOT K1802180
220 | * K1802190
7A97 6E00 7A25 221 | P1044 STX L2 EOFS NEW END OF STRING ADDR K1802200
7A99 4C00 7E85 222 | BSC L EXIT GO TO NEXT PHASE K1802210
223 | * K1802220
224 | * K1802230
7A9B 7101 225 | P1043 MDX 1 1 INCREMENT I/P PT K1802240
7A9C 7201 226 | MDX 2 1 INCREMENT O/P PT K1802250
7A9D 70F0 227 | MDX P1042 CONTINUE LOOP K1802260
228 | * K1802270
229 | * ARITHMETIC STMNT FUNCTION ENCOUNTERED K1802280
230 | * OUTPUT ARITHMETIC STMNT FUNC NAME K1802290
231 | * AND DUMMY VARIABLES K1802300
232 | * K1802310
7A9E C100 233 | P1051 LD 1 0 LOAD WORD K1802320
7A9F 4368 234 | BSI 3 OUTUN-Z PUT ON OUTPUT STRING K1802330
7AA0 7101 235 | P1052 MDX 1 1 MOVE I/P PT K1802340
7AA1 C100 236 | LD 1 0 LOAD WORD K1802350
7AA2 4C28 7A9E 237 | BSC L P1051,+Z BRANCH IF NAME K1802360
238 | * K1802370
239 | * K1802380
240 | * K1802390
241 | * MOVES THE PT PAST THE PROCESSED PART K1802400
242 | * OF THE STRING ENTRY. RETAINS THE K1802410
243 | * PROCESSED PART IN THE STRING K1802420
244 | * UNALTERED. PICKS UP AT THE NEXT K1802430
245 | * UNPROCESSED WORD K1802440
246 | * K1802450
7AA4 71FE 247 | P2011 MDX 1 -2 MOVE PT K1802460
7AA5 C300 248 | LD 3 ZERO-Z SET OUTPUT SWITCH K1802470
7AA6 4400 7E21 249 | BSI L FINDN FIND NEXT UNPROCESSED OPTR K1802480
250 | * K1802490
7AA8 4C18 7A45 251 | BSC L P1021,+- BRANCH IF SEMI-COLON K1802500
252 | * K1802510
253 | * NOT IN CARD SYSTEM K1802520
254 | * K1802530
7AAA 9400 7E7F 255 | S L EXPRO IS IT EXPRESSION-OPERATOR K1802540
7AAC 4C18 7E54 256 | BSC L D5011,+- BRANCH IF YES K1802550
7AAE C100 257 | LD 1 0 LOAD WORD K1802560
258 | * K1802570
7AAF 9326 259 | S 3 UNARY-Z IS IT UNARY MINUS K1802580
7AB0 4C18 7C22 260 | BSC L P6011,+- BRANCH IF YES K1802590
7AB2 9309 261 | S 3 CALLX-Z IS IT CALL K1802600
7AB3 4C18 7BC1 262 | BSC L P5011,+- BRANCH IF YES K1802610
7AB5 9327 263 | S 3 IF-Z IS IT IF K1802620
7AB6 4C18 7B60 264 | BSC L P3011,+- BRANCH IF YES K1802630
265 | * K1802640
266 | * FIND NEXT NOT-PROCESSED WORD K1802650
267 | * STARTING AT PTR+2 K1802660
268 | * K1802670
7AB8 6903 269 | P2013 STX 1 *+3 FIND NEXT UNPROCESSED WORD K1802680
7AB9 4400 7E21 270 | BSI L FINDN DECREMENT PT K1802690
7ABB 6500 0000 271 | LDX L1 *-* K1802700
272 | * K1802710
7ABD 4C28 7B08 273 | BSC L P2071,+Z BRANCH IF 3RD WORD NOT OPTR K1802720
7ABF C100 274 | LD 1 0 LOAD WORD AT PT K1802730
7AC0 9309 275 | S 3 H000E-Z IS IT .ASSIGN. K1802740
7AC1 4C20 7AE2 276 | BSC L P2051,Z BRANCH IF NOT K1802750
7AC3 C101 277 | LD 1 1 LOAD NEXT WORD K1802760
7AC4 432A 278 | BSI 3 SYMT-Z GET SYM TBL ID WORD K1802770
7AC5 100B 279 | SLA 11 IS IT GENERATED TEMPORARY K1802780
7AC6 4810 280 | BSC - SKIP IF YES K1802790
7AC7 7004 281 | MDX P2031 BRANCH IF NO K1802800
282 | * K1802810
283 | * MAKE MODE OF GT AGREE WITH MODESW K1802820
7AC8 C101 284 | LD 1 1 LOAD SYM TBL ENTRY NO K1802830
7AC9 4400 7DEA 285 | BSI L GTMOD GET MODE OF NAME K1802840
7ACB 700E 286 | MDX P2033 CLEAR MODE SWITCH K1802850
287 | * K1802860
288 | * GENERATES THE CODE TO HANDLE MIXED- K1802870
289 | * MODE ARITHMETIC K1802880
7ACC C3B9 290 | P2031 LD 3 STNA1-Z LOAD SYM TBL ID WORD K1802890
7ACD 4810 291 | BSC - SKIP IF FIXED PT K1802900
7ACE 7006 292 | MDX P2032 BRANCH IF NOT K1802910
7ACF C3BD 293 | LD 3 MODSW-Z TEST MODE SWITCH K1802920
7AD0 4810 294 | BSC - SKIP IF NOT FIX K1802930
7AD1 7008 295 | MDX P2033 BRANCH IF FIX K1802940
7AD2 C3F7 296 | LD 3 IFIX-Z LOAD .CALL IFIX. K1802950
7AD3 4368 297 | BSI 3 OUTUN-Z OUTPUT CALL K1802960
7AD4 7005 298 | MDX P2033 CLEAR MODE SWITCH K1802970
299 | * K1802980
300 | * K1802990
7AD5 C3BD 301 | P2032 LD 3 MODSW-Z TEST MODE SWITCH K1803000
7AD6 4828 302 | BSC Z+ SKIP IF FIXED K1803010
7AD7 7002 303 | MDX P2033 BRANCH IF NOT FIXED K1803020
7AD8 C3FA 304 | LD 3 FLT-Z LOAD .CALL FLOAT. K1803030
7AD9 4368 305 | BSI 3 OUTUN-Z OUTPUT CALL K1803040
306 | * K1803050
307 | * AT THAT POINT MODESWITCH MUST NOT K1803060
308 | * BE ZERO (ZERO WOULD MEAN AN ASSIGN- K1803070
309 | * OPERATOR PRECEDED BY NOT FILLING ANY K1803080
310 | * ACCUMULATOR K1803090
311 | * MODESWITCH IS SET ZERO SINCE NEXT K1803100
312 | * ARITHMETIC IS INDEPENDENT OF MODE K1803110
7ADA C300 313 | P2033 LD 3 ZERO-Z CLEAR K1803120
7ADB D3BD 314 | STO 3 MODSW-Z MODE SWITCH K1803130
7ADC C100 315 | P2041 LD 1 0 LOAD WORD K1803140
7ADD 4368 316 | BSI 3 OUTOP-Z OUTPUT OPERATOR K1803150
7ADE C101 317 | LD 1 1 LOAD WORD K1803160
7ADF 436F 318 | BSI 3 OUTNA-Z OUTPUT NAME K1803170
7AE0 7102 319 | MDX 1 2 MOVE PT K1803180
7AE1 70C2 320 | MDX P2011 FIND NEXT UNPROCESSED WORD K1803190
321 | * K1803200
322 | * K1803210
323 | * TEST IF WORD AT POINTER IS K1803220
324 | * .EXPONETIATE. OPERATOR K1803230
325 | * OR .REVERSE EXPONENTIATE. K1803240
7AE2 C100 326 | P2051 LD 1 0 LOAD WORD K1803250
7AE3 9314 327 | S 3 EXP-Z IS IT EXPONENTIATE OPTR K1803260
7AE4 4C18 7ADC 328 | BSC L P2041,+- BRANCH IF YES K1803270
7AE6 935A 329 | S 3 H003E-Z IS IT REVERSE EXPONENTIATE K1803280
7AE7 4C18 7ADC 330 | BSC L P2041,+- OPTR - BRANCH IF YES K1803290
331 | * K1803300
332 | * TESTS TO ASCERTAIN PROPER MODE K1803310
7AE9 C101 333 | LD 1 1 LOAD WORD K1803320
7AEA 432A 334 | BSI 3 SYMT-Z GET SYM TBL ID WORD K1803330
7AEB 4828 335 | BSC Z+ SKIP IF FLOAT K1803340
7AEC 7008 336 | MDX P2052 BRANCH IF FIX K1803350
7AED C3BD 337 | LD 3 MODSW-Z TEST MODE SWITCH K1803360
7AEE 4828 338 | BSC +Z SKIP IF FIX K1803370
7AEF 70EC 339 | MDX P2041 BRANCH IF FLOAT K1803380
7AF0 C3FA 340 | LD 3 FLT-Z LOAD .CALL FLOAT. K1803390
7AF1 4368 341 | BSI 3 OUTUN-Z OUTPUT CALL K1803400
7AF2 C305 342 | LD 3 HF800-Z SET MODE SWITCH K1803410
7AF3 D3BD 343 | STO 3 MODSW-Z TO FLOAT K1803420
7AF4 70E7 344 | MDX P2041 OUTPUT OPERATOR K1803430
345 | * K1803440
7AF5 C3BD 346 | P2052 LD 3 MODSW-Z TEST MODE SWITCH K1803450
7AF6 4810 347 | BSC - SKIP IF FLOAT K1803460
7AF7 70E4 348 | MDX P2041 BRANCH IF FIXED K1803470
349 | * K1803480
350 | * K1803490
7AF8 C3F6 351 | P2061 LD 3 FSTO-Z LOAD .CALL FSTO. K1803500
7AF9 4368 352 | BSI 3 OUTOP-Z OUTPUT CALL K1803510
7AFA 435C 353 | BSI 3 GETGT-Z GET GENERATED TEMPORARY K1803520
7AFB 4400 7DEA 354 | BSI L GTMOD MAKE MODE AGREE K1803530
7AFD 436F 355 | BSI 3 OUTNA-Z OUTPUT NAME K1803540
7AFE C101 356 | LD 1 1 LOAD WORD K1803550
7AFF 43A3 357 | BSI 3 SCKLD-Z OUTPUT .LOAD. K1803560
7B00 435C 358 | BSI 3 GETGT-Z GENERATED TEMPORARY K1803570
7B01 D101 359 | STO 1 1 REPLACES NAME K1803580
7B02 C3FA 360 | LD 3 FLT-Z LOAD .CALL FLT. K1803590
7B03 4368 361 | BSI 3 OUTUN-Z OUTPUT CALL K1803600
7B04 C100 362 | LD 1 0 LOAD WORD K1803610
7B05 4346 363 | BSI 3 REVOP-Z REVERSE OPERATOR K1803620
7B06 D100 364 | STO 1 0 STORE REVERSED OPERATOR K1803630
7B07 70D4 365 | MDX P2041 OUTPUT OPERATOR K1803640
366 | * K1803650
7B08 C305 367 | P2071 LD 3 HF800-Z SET MODE SWITCH K1803660
7B09 D3BD 368 | STO 3 MODSW-Z TO FLOATING PT K1803670
7B0A C480 7E53 369 | LD I PFIND LOAD NEXT UNPROCESSED WORD K1803680
7B0C 432A 370 | BSI 3 SYMT-Z GET SYM TBL ID WORD K1803690
7B0D 4C10 7B18 371 | BSC L P2081,- BRANCH IF FLOATING PT K1803700
7B0F C101 372 | LD 1 1 LOAD WORD K1803710
7B10 432A 373 | BSI 3 SYMT-Z GET SYM TBL ID WORD K1803720
7B11 4C10 7B1F 374 | BSC L P2091,- BRANCH IF FLOATING PT K1803730
7B13 C301 375 | LD 3 ONE-Z SET MODE SWITCH TO K1803740
7B14 D3BD 376 | STO 3 MODSW-Z FIXED PT K1803750
7B15 C101 377 | LD 1 1 OUTPUT FOLLOWING - K1803760
7B16 43A3 378 | BSI 3 SCKLD-Z LD PT+1 K1803770
7B17 703B 379 | MDX P2111 FIND NEXT UNPROCESSED OPTR K1803780
380 | * K1803790
7B18 C101 381 | P2081 LD 1 1 LOAD WORD K1803800
7B19 432A 382 | BSI 3 SYMT-Z GET SYM TBL ID WORD K1803810
7B1A 4828 383 | BSC +Z SKIP IF FLOATING PT K1803820
7B1B 7033 384 | MDX P2101 BRANCH IF FIXED PT K1803830
385 | * K1803840
7B1C C101 386 | P2083 LD 1 1 K1803850
7B1D 43A3 387 | BSI 3 SCKLD-Z OUTPUT LOAD INSTRUCTION K1803860
7B1E 7034 388 | MDX P2111 FIND NEXT UNPROCESSED OPTR K1803870
389 | * K1803880
7B1F C100 390 | P2091 LD 1 0 LOAD WORD K1803890
7B20 9309 391 | S 3 H000E-Z IS IT ASSIGN K1803900
7B21 4820 392 | BSC Z SKIP IF YES K1803910
7B22 7005 393 | MDX P2093 BRANCH IF NOT K1803920
7B23 C101 394 | LD 1 1 LOAD WORD K1803930
7B24 43A3 395 | BSI 3 SCKLD-Z OUTPUT LOAD INSTRUCTION K1803940
7B25 C3F7 396 | LD 3 IFIX-Z CHANGE VAR TO FIXED PT K1803950
7B26 4368 397 | BSI 3 OUTUN-Z OUTPUT .CALL IFIX. K1803960
7B27 702B 398 | MDX P2111 GET NEXT UNPROCESSED OPTR K1803970
399 | * K1803980
7B28 8304 400 | P2093 A 3 H0004-Z IS IT EXPRESSION OPERATOR K1803990
7B29 4818 401 | BSC +- SKIP IF NOT K1804000
7B2A 70F1 402 | MDX P2083 BRANCH IF YES K1804010
7B2B C100 403 | LD 1 0 K1804020
7B2C 4346 404 | BSI 3 REVOP-Z REVERSE THE OPERATOR K1804030
7B2D D100 405 | STO 1 0 K1804040
7B2E C102 406 | LD 1 2 LOAD WORD K1804050
7B2F 9307 407 | S 3 H4800-Z IS IT .LDX I1. K1804060
7B30 4820 408 | BSC Z SKIP IF YES K1804070
7B31 9329 409 | S 3 H1300-Z IS IT .LDX L1. K1804080
7B32 4C20 7B47 410 | BSC L P2099,Z BRANCH IF NOT K1804090
7B34 C101 411 | LD 1 1 LOAD VARIABLE K1804100
7B35 43A3 412 | BSI 3 SCKLD-Z OUTPUT LOAD INST AND VAR K1804110
7B36 C3F6 413 | LD 3 FSTO-Z LOAD .CALL FSTO. K1804120
7B37 4368 414 | BSI 3 OUTUN-Z OUTPUT CALL K1804130
7B38 435C 415 | BSI 3 GETGT-Z GET ADDR OF NEXT SYM TBL GT K1804140
7B39 4400 7DEA 416 | BSI L GTMOD MAKE MODE OF VAR AGREE K1804150
7B3B 436F 417 | BSI 3 OUTNA-Z OUTPUT VAR K1804160
7B3C 1010 418 | SLA 16 CLEAR ACC K1804170
7B3D 4400 7E21 419 | BSI L FINDN FIND NEXT UNPROCESSED PART K1804180
7B3F 43A3 420 | BSI 3 SCKLD-Z OUTPUT LOAD INST AND VAR K1804190
7B40 C3FA 421 | LD 3 FLT-Z LOAD .CALL FLOAT. K1804200
7B41 4368 422 | BSI 3 OUTUN-Z OUTPUT CALL K1804210
7B42 C1FC 423 | LD 1 -4 LOAD WORD K1804220
7B43 4368 424 | BSI 3 OUTUN-Z OUTPUT K1804230
7B44 435C 425 | BSI 3 GETGT-Z GET ADDR OF NEXT SYM TBL GT K1804240
7B45 436F 426 | BSI 3 OUTNA-Z OUTPUT NAME K1804250
7B46 7016 427 | MDX P3010 GO GET NEXT UNPROCESSED PART K1804260
7B47 C101 428 | P2099 LD 1 1 LOAD WORD AT PT + 1 K1804270
7B48 1890 429 | SRT 16 MOVE TO EXTENSION K1804280
7B49 C480 7E53 430 | LD I PFIND LOAD WORD AT PT + 2 K1804290
7B4B D101 431 | STO 1 1 STORE AT PT + 1 K1804300
7B4C 1090 432 | SLT 16 PUT WORD ORIGINALLY AT PT+1 K1804310
7B4D D480 7E53 433 | STO I PFIND IN PFIND (PT + 2) K1804320
7B4F C101 434 | P2101 LD 1 1 LOAD WORD K1804330
7B50 43A3 435 | BSI 3 SCKLD-Z OUTPUT LOAD INSTRUCTION K1804340
7B51 C3FA 436 | LD 3 FLT-Z CHANGE WORD TO FLOATING PT K1804350
7B52 4368 437 | BSI 3 OUTUN-Z OUTPUT .CALL FLT. K1804360
438 | * K1804370
439 | * FIND AND OUTPUT NEXT NONPROCESSED K1804380
440 | * OPERATOR, ALSO OUTPUT INTERSPERSED K1804390
441 | * PROCESSED DATA, IF ANY K1804400
442 | * K1804410
7B53 6904 443 | P2111 STX 1 P2112+1 SAVE INPUT PT K1804420
7B54 C300 444 | LD 3 ZERO-Z SET OUTPUT SWITCH K1804430
7B55 4400 7E21 445 | BSI L FINDN FIND NEXT UNPROCESSED OPTR K1804440
7B57 C400 0000 446 | P2112 LD L *-* LOAD OPERATOR K1804450
7B59 4368 447 | BSI 3 OUTOP-Z OUTPUT OPERATOR K1804460
7B5A C480 7E53 448 | LD I PFIND LOAD NAME K1804470
7B5C 436F 449 | BSI 3 OUTNA-Z OUTPUT NAME K1804480
7B5D 7101 450 | P3010 MDX 1 1 MOVE I/P PT K1804490
451 | * K1804500
7B5E 4C00 7AA4 452 | BSC L P2011 GET NEXT UNPROCESSED PART K1804510
453 | * K1804520
454 | * CHECKS FOR AN IF OPTR. GENERATES THE K1804530
455 | * TRACING CALLS. CHECKS FOR A STMNT K1804540
456 | * NO. ON THE NEXT STMNT. OPTIMIZES THE K1804550
457 | * 'BSC L' INST GENERATED TO COMBINE K1804560
458 | * CONDITIONS K1804570
7B60 C101 459 | P3011 LD 1 1 LOAD WORD K1804580
7B61 432A 460 | BSI 3 SYMT-Z GET SYM TBL ID WORD K1804590
7B62 1005 461 | SLA 5 IS IT STMNT NO. K1804600
7B63 4C28 7B6F 462 | BSC L P301A,+Z BRANCH IF YES K1804610
463 | * K1804620
7B65 C101 464 | LD 1 1 LOAD WORD K1804630
7B66 43A3 465 | BSI 3 SCKLD-Z OUTPUT LOAD INSTRUCTION K1804640
7B67 C301 466 | LD 3 ONE-Z SET MODE SWITCH K1804650
7B68 D3BD 467 | STO 3 MODSW-Z TO FIXED POINT K1804660
7B69 C3B9 468 | LD 3 STNA1-Z LOAD SYM TBL ID WORD K1804670
7B6A 7101 469 | MDX 1 1 MOVE INPUT POINTER K1804680
7B6B 4C28 7B6F 470 | BSC L P301A,Z+ BRANCH IF INTEGER VARIABLE K1804690
7B6D C305 471 | LD 3 HF800-Z SET MODE SWITCH K1804700
7B6E D3BD 472 | STO 3 MODSW-Z TO FLOATING POINT K1804710
473 | * K1804720
474 | * K1804730
7B6F C300 475 | P301A LD 3 ZERO-Z ZERO TO K1804740
7B70 D3C1 476 | STO 3 STNCH-Z CLEAR STMNT NO. CHECK K1804750
7B71 7101 477 | MDX 1 1 MOVE INPUT PT K1804760
7B72 C104 478 | LD 1 4 LOAD NEXT STMNT ID WORD K1804770
7B73 108F 479 | SLT 15 DOES STMNT HAVE STMNT NO. K1804780
7B74 4810 480 | BSC - SKIP IF NEXT STMT HAS NUMBER K1804790
7B75 7002 481 | MDX P3012 BRANCH IF NOT K1804800
7B76 C105 482 | LD 1 5 LOAD STMNT NO. K1804810
7B77 D3C1 483 | STO 3 STNCH-Z STORE STMNT NO. K1804820
7B78 C3BD 484 | P3012 LD 3 MODSW-Z TEST MODE SWITCH K1804830
7B79 4810 485 | BSC - SKIP IF FLOATING POINT K1804840
7B7A 7002 486 | MDX P3021 BRANCH IF FIXED POINT K1804850
7B7B C3F5 487 | LD 3 LDFAC-Z LOAD .LD FAC+1. K1804860
7B7C 4368 488 | BSI 3 OUTUN-Z OUTPUT K1804870
7B7D C400 7A31 489 | P3021 LD L CCWD K1804880
7B7F 100F 490 | SLA 15 IS IF TRACE REQUIRED K1804890
7B80 4C10 7B8A 491 | BSC L P3022,- BRANCH IF NOT K1804900
7B82 C3BD 492 | LD 3 MODSW-Z TEST MODE SWITCH K1804910
7B83 4C10 7B88 493 | BSC L P3020,- BRANCH IF FIXED PT K1804920
7B85 C3F4 494 | LD 3 FIF-Z REPLACE .LD FAC. BY K1804930
7B86 D200 495 | STO 2 0 .CALL FIF. (FLOATING TRACE) K1804940
7B87 7002 496 | MDX P3022 CHECK BRANCH ADDRESSES K1804950
7B88 C3F3 497 | P3020 LD 3 FIIF-Z LOAD INTEGER IF TRACE CALL K1804960
7B89 4368 498 | BSI 3 OUTUN-Z OUTPUT CALL K1804970
7B8A C100 499 | P3022 LD 1 0 LOAD IF-NEGATIVE BRANCH ADDR K1804980
7B8B 93C1 500 | S 3 STNCH-Z IS IT NEXT STMNT K1804990
7B8C 4818 501 | BSC +- SKIP IF NOT K1805000
7B8D 7014 502 | MDX P3041 BRANCH IF YES K1805010
7B8E C100 503 | LD 1 0 IS IF-NEGATIVE BRANCH EQUAL K1805020
7B8F 9101 504 | S 1 1 TO IF-ZERO BRANCH ADDRESS K1805030
7B90 4820 505 | BSC Z SKIP IF YES K1805040
7B91 7004 506 | MDX P3031 BRANCH IF NOT K1805050
7B92 C300 507 | LD 3 0 LOAD ZERO K1805060
7B93 D101 508 | STO 1 1 STORE IN IF ZERO WORD K1805070
7B94 C30C 509 | LD 3 BSCL1-Z LOAD .BSC L ,+. K1805080
7B95 7009 510 | MDX P3033 OUTPUT INSTRUCTION K1805090
511 | * K1805100
512 | * K1805110
7B96 C100 513 | P3031 LD 1 0 IS IF-NEGATIVE BRANCH EQUAL K1805120
7B97 9102 514 | S 1 2 TO IF-POSITIVE BRANCH ADDR K1805130
7B98 4820 515 | BSC Z SKIP IF YES K1805140
7B99 7004 516 | MDX P3032 BRANCH IF NOT K1805150
7B9A C300 517 | LD 3 0 LOAD ZERO K1805160
7B9B D102 518 | STO 1 2 STORE IN IF-POSITIVE WORD K1805170
7B9C C30D 519 | LD 3 BSCL2-Z LOAD .BSC L ,Z. K1805180
7B9D 7001 520 | MDX P3033 OUTPUT INSTRUCTION K1805190
7B9E C30E 521 | P3032 LD 3 BSCL3-Z LOAD .BSC L ,Z+. K1805200
7B9F 4368 522 | P3033 BSI 3 OUTOP-Z OUTPUT BSC INSTRUCTION K1805210
7BA0 C100 523 | LD 1 0 LOAD BRANCH TO ADDRESS K1805220
7BA1 436F 524 | BSI 3 OUTNA-Z OUTPUT ADDRESS K1805230
7BA2 C101 525 | P3041 LD 1 1 LOAD ZERO-BRANCH ADDRESS K1805240
7BA3 4818 526 | BSC +- SKIP IF NOT ZERO K1805250
7BA4 700F 527 | MDX P3051 BRANCH IF EQUAL TO NEG-ADDR K1805260
7BA5 93C1 528 | S 3 STNCH-Z IS IT NEXT STMNT K1805270
7BA6 4818 529 | BSC +- SKIP IF NOT K1805280
7BA7 700C 530 | MDX P3051 BRANCH IF YES K1805290
7BA8 C101 531 | LD 1 1 IS IF-ZERO BRANCH EQUAL TO K1805300
7BA9 9102 532 | S 1 2 IF POSITIVE BRANCH ADDRESS K1805310
7BAA 4820 533 | BSC Z SKIP IF YES K1805320
7BAB 7004 534 | MDX P3042 BRANCH IF NOT K1805330
7BAC C300 535 | LD 3 0 LOAD ZERO K1805340
7BAD D102 536 | STO 1 2 STORE IN IF-POSITIVE WORD K1805350
7BAE C30F 537 | LD 3 BSCL4-Z LOAD .BSC L ,-. K1805360
7BAF 7001 538 | MDX P3043 OUTPUT INSTRUCTION K1805370
539 | * K1805380
7BB0 C310 540 | P3042 LD 3 BSCL5-Z LOAD .BSC L ,+-. K1805390
7BB1 4368 541 | P3043 BSI 3 OUTOP-Z OUTPUT BSC INSTRUCTION K1805400
7BB2 C101 542 | LD 1 1 LOAD ZERO-BRANCH ADDRESS K1805410
7BB3 436F 543 | BSI 3 OUTNA-Z OUTPUT ADDRESS K1805420
7BB4 C102 544 | P3051 LD 1 2 LOAD POSITIVE BRANCH ADDRESS K1805430
7BB5 4818 545 | BSC +- SKIP IF NOT ZERO K1805440
7BB6 7007 546 | MDX P3053 BRANCH IF ZERO K1805450
7BB7 93C1 547 | S 3 STNCH-Z IS IT NEXT STMNT K1805460
7BB8 4818 548 | BSC +- SKIP IF NOT K1805470
7BB9 7004 549 | MDX P3053 BRANCH IF YES K1805480
7BBA C3F2 550 | LD 3 BSCL6-Z LOAD .BSC L ,-Z. K1805490
7BBB 4368 551 | BSI 3 OUTOP-Z OUTPUT INSTRUCTION K1805500
7BBC C102 552 | LD 1 2 LOAD POSITIVE BRANCH ADDR K1805510
7BBD 436F 553 | BSI 3 OUTNA-Z OUTPUT ADDRESS K1805520
7BBE 7103 554 | P3053 MDX 1 3 MOVE I/P POINTER K1805530
7BBF 4C00 7A45 555 | BSC L P1021 GET NEXT STMNT K1805540
556 | * K1805550
557 | * DETECTS A CALL OPTR. SETS THE MODE K1805560
558 | * SWITCH. IF IT IS AN IFIX OR FLOAT K1805570
559 | * CALL, CHANGES IT TO A ONE-WD CALL K1805580
7BC1 C301 560 | P5011 LD 3 ONE-Z SET MODE SWITCH K1805590
7BC2 D3BD 561 | STO 3 MODSW-Z TO FIXED POINT K1805600
7BC3 C101 562 | LD 1 1 LOAD WORD K1805610
7BC4 432A 563 | BSI 3 SYMT-Z GET SYM TBL ID WORD K1805620
7BC5 4828 564 | BSC +Z SKIP IF FLOATING POINT K1805630
7BC6 7002 565 | MDX P5012 BRANCH IF FIXED PT K1805640
7BC7 C305 566 | LD 3 HF800-Z SET MODE SWITCH K1805650
7BC8 D3BD 567 | STO 3 MODSW-Z TO FLOATING POINT K1805660
568 | * K1805670
569 | * TEST IF CALL IS .IFIX. OR .FLOAT. K1805680
570 | * IF SO, CHANGE TO ONE-WORD CALL K1805690
571 | * K1805700
7BC9 C101 572 | P5012 LD 1 1 LOAD WORD K1805710
7BCA 432A 573 | BSI 3 SYMT-Z GET SYM TBL ID WORD K1805720
7BCB C335 574 | LD 3 SYMT1+1-Z LOAD ADDR OF ID WORD K1805730
7BCC 8301 575 | A 3 ONE-Z K1805740
7BCD D001 576 | STO P501X+1 GET ADDRESS OF NAME IN ENTRY K1805750
7BCE C400 0000 577 | P501X LD L *-* LOAD FIRST WORD OF NAME K1805760
7BD0 D3B7 578 | STO 3 TEMP-Z STORE K1805770
7BD1 7401 7BCF 579 | MDX L P501X+1,1 GET ADDR OF 2ND WORD K1805780
7BD3 C480 7BCF 580 | LD I P501X+1 LOAD 2ND WORD K1805790
7BD5 D3B8 581 | STO 3 TEMP-Z+1 STORE K1805800
582 | * K1805810
583 | * TEST IF NAME IS .FLOAT. K1805820
7BD6 CBB7 584 | LDD 3 TEMP-Z LOAD NAME K1805830
7BD7 9BFB 585 | SD 3 NFLT-Z IS IT .FLOAT. K1805840
7BD8 4C20 7BDF 586 | BSC L P5013,Z BRANCH IF NOT K1805850
7BDA 18D0 587 | RTE 16 CHECK 2ND WORD K1805860
7BDB 4C20 7BDF 588 | BSC L P5013,Z BRANCH NOT .FLOAT. K1805870
589 | * K1805880
590 | * OUTPUT .LOAD., ONEWORD .FLOAT. K1805890
7BDD C3FA 591 | LD 3 FLT-Z LOAD .CALL FLOAT. K1805900
7BDE 7008 592 | MDX P5015 OUTPUT CALL K1805910
593 | * K1805920
594 | * TEST IF .IFIX. K1805930
7BDF CBB7 595 | P5013 LDD 3 TEMP-Z LOAD NAME K1805940
7BE0 9BFD 596 | SD 3 NIFIX-Z IS IT .IFIX. K1805950
7BE1 4C20 7C09 597 | BSC L P5016,Z BRANCH IF NOT K1805960
7BE3 18D0 598 | RTE 16 CHECK 2ND WORD K1805970
7BE4 4C20 7C09 599 | BSC L P5016,Z BRANCH NOT .IFIX. K1805980
600 | * K1805990
601 | * OUTPUT ONE-WORD .IFIX. K1806000
7BE6 C3F7 602 | LD 3 IFIX-Z LOAD .CALL IFIX. K1806010
603 | * K1806020
604 | * 2-WD CALL .IFIX. OR .FLOAT. ENCOUNTRD K1806030
7BE7 D3B7 605 | P5015 STO 3 TEMP-Z STORE CALL K1806040
7BE8 C102 606 | LD 1 2 LOAD NEXT WORD K1806050
7BE9 432A 607 | BSI 3 SYMT-Z GET SYM TBL ID WORD K1806060
7BEA 1002 608 | SLA 2 ISOLATE DIMENSION K1806070
7BEB 180E 609 | SRA 14 INFORMATION K1806080
7BEC 4C18 7BF9 610 | BSC L P5017,+- BRANCH NOT DIMENSIONED K1806090
7BEE C320 611 | LD 3 H6000-Z LOAD NOP K1806100
7BEF 4368 612 | BSI 3 OUTUN-Z OUTPUT K1806110
7BF0 C3B7 613 | LD 3 TEMP-Z LOAD CALL K1806120
7BF1 93F7 614 | S 3 IFIX-Z IS IT IFIX K1806130
7BF2 4820 615 | BSC Z SKIP IF YES K1806140
7BF3 C321 616 | LD 3 H8380-Z CREATE PROPER K1806150
7BF4 83F9 617 | A 3 FLD-Z LOAD INSTRUCTION K1806160
7BF5 4368 618 | BSI 3 OUTUN-Z OUTPUT INSTRUCTION K1806170
7BF6 C320 619 | LD 3 H6000-Z LOAD NOP K1806180
7BF7 4368 620 | BSI 3 OUTUN-Z OUTPUT K1806190
7BF8 7002 621 | MDX P5018 OUTPUT ONE-WORD CALL K1806200
7BF9 C102 622 | P5017 LD 1 2 LOAD WORD K1806210
7BFA 43A3 623 | BSI 3 SCKLD-Z OUTPUT LOAD INSTRUCTION K1806220
7BFB C3B7 624 | P5018 LD 3 TEMP-Z LOAD ONE-WORD CALL K1806230
7BFC 4368 625 | BSI 3 OUTUN-Z OUTPUT CALL K1806240
626 | * K1806250
627 | * MAKE ENTRY IN SYM TBL A PSEUDO ENTRY K1806260
628 | * TO AVOID LISTING SUBP NAME TWICE K1806270
629 | * K1806280
7BFD C101 630 | LD 1 1 LOAD WORD K1806290
7BFE 432A 631 | BSI 3 SYMT-Z GET SYM TBL ID WORD K1806300
7BFF 4C10 7C03 632 | BSC L *+2,- BRANCH IF FLOATING POINT K1806310
7C01 C328 633 | LD 3 H4220-Z LOAD INTEGER STMNT NO. ID K1806320
7C02 7001 634 | MDX *+1 PUT IN SYMBOL TABLE K1806330
7C03 C3DE 635 | LD 3 H0220-Z LOAD REAL STMNT NO. ID K1806340
7C04 D480 7CDA 636 | STO I SYMT1+1 PUT IN SYM TBL K1806350
637 | * K1806360
7C06 7103 638 | MDX 1 3 MOVE I/P POINTER K1806370
7C07 4C00 7AA4 639 | BSC L P2011 GET NEXT UNPROCESSED WORD K1806380
640 | * K1806390
641 | * TWO-WORD CALL OTHER THAN K1806400
642 | * .FLOAT. OR .IFIX. K1806410
643 | * K1806420
7C09 C301 644 | P5016 LD 3 ONE-Z LOAD OPTR FOR TWO WORD CALL K1806430
7C0A 4368 645 | BSI 3 OUTUN-Z OUTPUT CALL K1806440
7C0B C101 646 | LD 1 1 LOAD WORD K1806450
7C0C 4368 647 | BSI 3 OUTUN-Z OUTPUT K1806460
7C0D 7102 648 | MDX 1 2 MOVE PT TO NEXT WORD K1806470
7C0E C100 649 | LD 1 0 LOAD WORD K1806480
7C0F 4C10 7AA4 650 | BSC L P2011,- BRANCH IF OPERATOR K1806490
651 | * K1806500
652 | * CHECKS FOR THE EXTERNAL SPECIFICATION K1806510
653 | * GENERATES THE PROPER CALL K1806520
654 | * OUTPUTS THE COMPLETE CALL AND K1806530
655 | * ARGUMENTS K1806540
7C11 C100 656 | P5023 LD 1 0 LOAD WORD K1806550
7C12 432A 657 | BSI 3 SYMT-Z GET SYM TBL ID WORD K1806560
7C13 18C1 658 | RTE 1 K1806570
7C14 4C28 7C1B 659 | BSC L P5024,+Z BRANCH IF CONSTANT K1806580
7C16 100B 660 | SLA 11 K1806590
7C17 4C10 7C1B 661 | BSC L P5024,- BRANCH IF NOT EXTERNAL K1806600
662 | * K1806610
663 | * NAME IS .EXTERNAL. K1806620
664 | * OUTPUT .CALL. OPERATOR (=/0001) K1806630
665 | * K1806640
7C19 C301 666 | LD 3 ONE-Z LOAD CALL OPERATOR K1806650
7C1A 4368 667 | BSI 3 OUTUN-Z OUTPUT OPERATOR K1806660
668 | * K1806670
669 | * K1806680
670 | * OUTPUT NAME AT POINTER K1806690
671 | * K1806700
7C1B C100 672 | P5024 LD 1 0 LOAD NAME K1806710
7C1C 4368 673 | BSI 3 OUTUN-Z OUTPUT NAME K1806720
674 | * K1806730
675 | * TEST IF END OF ARGUMENT LIST K1806740
676 | * (NEXT WORD AN OPERATOR) K1806750
677 | * K1806760
7C1D 7101 678 | MDX 1 1 MOVE I/P PT K1806770
7C1E C100 679 | LD 1 0 LOAD WORD K1806780
7C1F 4C10 7AA4 680 | BSC L P2011,- BRANCH IF OPERATOR K1806790
7C21 70EF 681 | MDX P5023 BRANCH IF NOT K1806800
682 | * K1806810
683 | * K1806820
684 | * GENERATES THE CALLS OR INSTRUCTIONS K1806830
685 | * TO HANDLE THE UNARY MINUS K1806840
686 | * K1806850
7C22 C101 687 | P6011 LD 1 1 LOAD WORD K1806860
7C23 4810 688 | BSC - SKIP IF NOT OPERATOR K1806870
7C24 7019 689 | MDX P6024 BRANCH IF OPERATOR K1806880
7C25 7101 690 | MDX 1 1 MOVE I/P POINTER K1806890
7C26 432A 691 | BSI 3 SYMT-Z GET SYM TBL ID WORD K1806900
7C27 4810 692 | BSC - SKIP IF INTEGER NAME K1806910
7C28 700B 693 | MDX P6021 BRANCH IF REAL NAME K1806920
7C29 C301 694 | LD 3 ONE-Z SET MODE SWITCH K1806930
7C2A D3BD 695 | STO 3 MODSW-Z TO FIXED POINT K1806940
7C2B C3F0 696 | LD 3 SLA16-Z LOAD .SLA 16. K1806950
7C2C 4368 697 | BSI 3 OUTUN-Z OUTPUT INSTRUCTION K1806960
7C2D C3E7 698 | LD 3 SL-Z LOAD .S L. K1806970
7C2E 4368 699 | BSI 3 OUTOP-Z OUTPUT INSTRUCTION K1806980
7C2F C100 700 | LD 1 0 LOAD NAME K1806990
7C30 436F 701 | BSI 3 OUTNA-Z OUTPUT K1807000
7C31 7101 702 | P6012 MDX 1 1 MOVE I/P PT K1807010
7C32 4C00 7AA4 703 | BSC L P2011 GET NEXT UNPROCESSED OPER K1807020
7C34 C305 704 | P6021 LD 3 HF800-Z SET MODE SWITCH K1807030
7C35 D3BD 705 | STO 3 MODSW-Z TO FLOATING POINT K1807040
7C36 C3F9 706 | LD 3 FLD-Z LOAD .FLD. K1807050
7C37 4368 707 | BSI 3 OUTOP-Z OUTPUT K1807060
7C38 C100 708 | LD 1 0 LOAD NAME K1807070
7C39 436F 709 | BSI 3 OUTNA-Z OUTPUT K1807080
7C3A C002 710 | P6022 LD H1C80 LOAD .CALL RSIGN. K1807090
7C3B 4368 711 | BSI 3 OUTUN-Z OUTPUT K1807100
7C3C 70F4 712 | MDX P6012 PROCESS NEXT WORD K1807110
7C3D 1C80 713 | H1C80 DC /1C80 .CALL RSIGN. K1807120
7C3E C3BD 714 | P6024 LD 3 MODSW-Z TEST MODE SWITCH K1807130
7C3F 4808 715 | BSC + SKIP IF FIXED POINT K1807140
7C40 70F9 716 | MDX P6022 BRANCH IF NOT K1807150
7C41 C3F1 717 | LD 3 STOFA-Z LOAD .STO FAC+1. K1807160
7C42 4368 718 | BSI 3 OUTUN-Z OUTPUT K1807170
7C43 C3F0 719 | LD 3 SLA16-Z LOAD .SLA 16. K1807180
7C44 4368 720 | BSI 3 OUTUN-Z OUTPUT K1807190
7C45 C3EF 721 | LD 3 SFAC-Z LOAD .S FAC+1. K1807200
7C46 4368 722 | BSI 3 OUTUN-Z OUTPUT K1807210
7C47 70E9 723 | MDX P6012 GET NEXT WORD K1807220
724 | * K1807230
725 | * GENERATES THE CODE FOR A 'LD' INST K1807240
726 | * IN THE DESIGNATED MODE K1807250
7C48 0000 727 | SCKLD DC 0 ENTRY POINT K1807260
7C49 D017 728 | STO SCKL3 SAVE ACCUMULATOR K1807270
7C4A 432A 729 | BSI 3 SYMT-Z GET SYM TBL ID WORD K1807280
7C4B 4C10 7C50 730 | BSC L SCKL1,- BRANCH IF REAL VARIABLE K1807290
7C4D C013 731 | LD SCKL3 LOAD INTEGER K1807300
7C4E EBF8 732 | OR 3 LDL-Z COMBINE WITH .LD L. K1807310
7C4F 7003 733 | MDX SCKL2 OUTPUT INSTRUCTION K1807320
7C50 C3F9 734 | SCKL1 LD 3 FLD-Z LOAD .FLD. K1807330
7C51 4368 735 | BSI 3 OUTUN-Z OUTPUT K1807340
7C52 C00E 736 | LD SCKL3 LOAD REAL VARIABLE K1807350
7C53 4368 737 | SCKL2 BSI 3 OUTUN-Z OUTPUT K1807360
7C54 4C80 7C48 738 | BSC I SCKLD RETURN K1807370
739 | * K1807380
740 | * SUBROUTINE K1807390
741 | * INCREMENT NORM IN OUTPUT STATEMENT K1807400
742 | * AND INCREMENT OUTPUT POINTER K1807410
743 | * K1807420
7C56 0000 744 | INCR DC 0 ENTRY POINT K1807430
7C57 7404 0000 745 | NADR MDX L *-*,4 INCREMENT NORM IN O/P STRING K1807440
7C59 7201 746 | MDX 2 1 INCREMENT O/P PT K1807450
7C5A 4C80 7C56 747 | BSC I INCR RETURN K1807460
7C58 748 | OUTID EQU NADR+1 K1807470
749 | * K1807480
750 | * K1807490
7C5C 751 | BSS E 0 K1807500
7C5C 0000 752 | TEMP DC 0 TEMPORARY K1807510
7C5D 0000 753 | DC 0 STORAGE K1807520
7C5E 754 | BSS E 0 K1807530
7C5E 0000 755 | STNA1 DC 0 STORAGE FOR K1807540
7C5F 0000 756 | DC 0 PROGRAM NAME K1807550
7C60 0000 757 | TEMP2 DC 0 TEMPORARY STORAGE K1807560
7C61 0000 758 | SCKL3 DC 0 TEMPORARY STORAGE K1807570
7C62 0000 759 | MODSW DC 0 MODE SWITCH K1807580
7C63 0000 760 | STTYP DC 0 STMNT ID TYPE K1807590
7C64 0000 761 | NORM DC 0 STMNT NORM K1807600
7C65 0000 762 | SOFIS DC 0 START OF I/P STRING - 1 K1807610
7C66 0000 763 | STNCH DC 0 STORAGE FOR STMNT NO. K1807620
7C67 0000 764 | INID DC 0 INPUT STMNT ID WORD ADDR K1807630
7C68 0000 765 | SSOST DC 0 STORED START OF SYM TBL K1807640
7C69 0000 766 | GTMO3 DC 0 TEMPORARY K1807650
767 | * K1807660
768 | * K1807670
7C5C 769 | ORG TEMP K1807680
7C5C 6700 7CA5 770 | CONT LDX L3 ZERO LOAD INDEX REGISTER 3 K1807690
7C5E 8301 771 | A 3 ONE-Z ADD 1 TO GET SIZE OF STRING K1807700
7C5F D0FD 772 | STO MOVCT SAVE SIZE K1807710
7C60 6580 7A2A 773 | LDX I1 EOFST INITIALIZE LOOP O/P PT K1807720
7C62 71F6 774 | MDX 1 -10 K1807730
7C63 6680 7A25 775 | LDX I2 EOFS INITIALIZE LOOP I/P PT K1807740
776 | * K1807750
777 | * TEST IF OVERLAP ERROR K1807760
7C65 69F6 778 | STX 1 TEMP SAVE END OF SYM TBL ADDR K1807770
7C66 C400 7A25 779 | LD L EOFS LOAD END OF STRING ADDR K1807780
7C68 90F3 780 | S TEMP SUBTRACT END OF SYM TBL ADDR K1807790
7C69 4C28 7C6F 781 | BSC L MOVST,+Z BRANCH NO OVERLAP ERROR K1807800
7C6B 7401 7A2D 782 | MDX L ERROR,1 SET OVERLAP ERROR INDICATOR K1807810
7C6D 4C00 7E85 783 | BSC L EXIT GO TO NEXT PHASE K1807820
784 | * K1807830
785 | * MOVES THE STRING NEXT TO THE SYM TBL K1807840
7C6F C200 786 | MOVST LD 2 0 MOVE WORD NEXT K1807850
7C70 D100 787 | STO 1 0 TO SYMBOL TABLE K1807860
7C71 72FF 788 | MDX 2 -1 MOVE POINTERS K1807870
7C72 71FF 789 | MDX 1 -1 K1807880
7C73 74FF 7C5D 790 | MDX L MOVCT,-1 SKIP IF FINISHED MOVE K1807890
7C75 70F9 791 | MDX MOVST CONTINUE LOOP K1807900
792 | * K1807910
793 | * K1807920
794 | * K1807930
795 | * K1807940
7C76 6D00 7C65 796 | STX L1 SOFIS STORE ADDR OF I/P STRING - 1 K1807950
7C78 C400 7A26 797 | LD L SOFST INSERT STORED START K1807960
7C7A D3C3 798 | STO 3 SSOST-Z OF SYM TBL ADDR K1807970
7C7B 4C00 7A40 799 | BSC L P1011 BRANCH TO MAIN PROGRAM K1807980
800 | * K1807990
7C5D 801 | MOVCT EQU TEMP+1 COUNTER K1808000
802 | * K1808010
803 | * K1808020
7C7D 0000 804 | FAXB DC /0000 SYM TBL ADDR OF 2-WORD CALL K1808030
805 | * (INITIAL VALUE = ZERO) K1808040
7C7E 0000 806 | FAXBX DC /0000 SYM TBL ADDR OF 2-WORD CALL K1808050
807 | * (INITIAL VALUE = ZERO) K1808060
808 | * K1808070
7C7F 000C 809 | H000C DC /000C MULTIPLY OPERATOR K1808080
7C80 0780 810 | FDVR DC /0780 .CALL FDVR. K1808090
7C81 557E 811 | DFAC DC /557E .D FAC+1. K1808100
7C82 0680 812 | FSBR DC /0680 .CALL FSBR. K1808110
7C83 0220 813 | H0220 DC /0220 FORMAT STMNT NO. ID K1808120
7C84 0980 814 | FIXI DC /0980 .CALL FIXI. K1808130
7C85 0880 815 | FAXI DC /0880 .CALL FAXI. K1808140
7C86 9000 816 | STOL DC /9000 .STO L. K1808150
7C86 817 | H9000 EQU STOL K1808160
7C87 0A80 818 | FARIT DC /0A80 .CALL FARIT. K1808170
7C88 0B80 819 | IARIT DC /0B80 .CALL IARIT. K1808180
7C89 A800 820 | DL DC /A800 .D L. K1808190
7C8A 5800 821 | SRT16 DC /5800 .SRT 16. K1808200
822 | * K1808210
823 | * THE FOLLOWING 7 CONSTANTS K1808220
824 | * MUST FOLLOW EACH OTHER AND RETAIN K1808230
825 | * THEIR GIVEN ORDER K1808240
826 | * K1808250
7C8B 9800 827 | AL DC /9800 .A L. K1808260
7C8C A000 828 | SL DC /A000 .S L. K1808270
7C8D 0080 829 | FADD DC /0080 .CALL FADD. K1808280
7C8E 0180 830 | FSUB DC /0180 .CALL FSUB. K1808290
7C8F 0380 831 | FDIV DC /0380 .CALL FDIV. K1808300
7C90 0000 832 | DC 0 NOT USED BUT NEEDED FOR TBL K1808310
7C91 0280 833 | FMPY DC /0280 .CALL FMPY. K1808320
834 | * K1808330
835 | * K1808340
7C92 0036 836 | H0036 DC /0036 .REVERSE SUB. K1808350
7C93 F803 837 | HF803 DC /F803 MASK TO ELIMINATE NORM K1808360
7C94 547E 838 | SFAC DC /547E .S FAC+1. K1808370
7C95 5900 839 | SLA16 DC /5900 .SLA 16. K1808380
7C96 537E 840 | STOFA DC /537E .STO FAC+1. K1808390
7C97 5030 841 | BSCL6 DC /5030 .BSC L ,Z-. K1808400
7C98 0E80 842 | FIIF DC /0E80 .CALL FIIF. (FIX IF TRACE) K1808410
7C99 0F00 843 | FIF DC /0F00 .CALL FIF. (FLT IF TRACE) K1808420
7C9A 527E 844 | LDFAC DC /527E .LD FAC+1. K1808430
7C9B 0580 845 | FSTO DC /0580 .CALL FSTO. K1808440
7C9C 0C80 846 | IFIX DC /0C80 .CALL IFIX. K1808450
7C9D 8800 847 | LDL DC /8800 .LD L. K1808460
7C9D 848 | H8800 EQU LDL K1808470
7C9E 0480 849 | FLD DC /0480 .CALL FLD. K1808480
7C9F 0D00 850 | FLT DC /0D00 .CALL FLOAT. K1808490
851 | * K1808500
852 | * FOLLOWING TWO ENTRIES ARE USED K1808510
853 | * AS DOUBLE-LENGTH WORDS K1808520
854 | * K1808530
7CA0 855 | BSS E 0 K1808540
7CA0 8C9A 856 | NFLT DC /8C9A NAME K1808550
7CA1 E063 857 | DC /E063 .FLOAT. K1808560
7CA2 9231 858 | NIFIX DC /9231 NAME K1808570
7CA3 99C0 859 | DC /99C0 .IFIX. K1808580
860 | * K1808590
7CA4 3000 861 | H3000 DC /3000 MASK FOR DIMENSION TEST. K1808600
7CA5 0000 862 | ZERO DC 0 ZERO 00 K1808610
7CA5 863 | Z EQU ZERO K1808620
7CA6 0001 864 | ONE DC 1 ONE K1808630
7CA7 0002 865 | TWO DC 2 TWO K1808640
7CA8 0003 866 | THREE DC 3 THREE K1808650
7CA9 0004 867 | FOUR DC /0004 FOUR K1808660
7CA9 868 | H0004 EQU FOUR K1808670
7CAA F800 869 | HF800 DC /F800 ID TYPE MASK K1808680
7CAB 3000 870 | TCALL DC /3000 CALL ID TYPE K1808690
7CAC 4800 871 | H4800 DC /4800 .LDX I1. K1808700
7CAD 1000 872 | TEND DC /1000 END ID TYPE K1808710
7CAE 000E 873 | H000E DC /000E ASSIGN OPERATOR K1808720
7CAF 800C 874 | H800C DC /800C VARIABLE TEST MASK K1808730
875 | * BITS FOR CONST,GENTEMP,SPECGENT K1808740
7CB0 07FC 876 | H07FC DC /07FC MASK TO GET NORM K1808750
7CB1 5008 877 | BSCL1 DC /5008 .BSC L ,+. K1808760
7CB2 5020 878 | BSCL2 DC /5020 .BSC L ,Z. K1808770
7CB3 5028 879 | BSCL3 DC /5028 .BSC L ,Z+. K1808780
7CB4 5010 880 | BSCL4 DC /5010 .BSC L ,- K1808790
7CB5 5018 881 | BSCL5 DC /5018 .BSC L ,+-. K1808800
7CB6 07FF 882 | H07FF DC /07FF MASK TO GET SYM TBL ADDR K1808810
7CB7 17FD 883 | STLEN DC /17FD MAXIMUM LENGTH OF 2-11 K1808812
884 | * *SYMBOL TABLE 2-11 K1808814
7CB8 8000 885 | H8000 DC /8000 SIGN BIT MASK K1808820
7CB9 000A 886 | EXP DC /000A EXPONENTE OPERATOR K1808830
7CBA D000 887 | HD000 DC /D000 ARITHMETIC STMNT FUNC ID K1808840
7CBB 0080 888 | H0080 DC /0080 SUBPROGRAM ID WORD K1808850
7CBC 0028 889 | H0028 DC /0028 REFERENCED GENERATED TEMP ID K1808860
7CBD 0054 890 | H0054 DC /0054 EXPRESSION OPERATOR K1808870
7CBE 5980 891 | H5980 DC /5980 .SLT 16. K1808880
7CBF B000 892 | HB000 DC /B000 .M L. K1808890
7CC0 4000 893 | H4000 DC /4000 END STMNT ID WORD K1808900
7CC1 2180 894 | LIBFR DC /2180 .LIBF READ. K1808910
7CC2 0480 895 | LIBFF DC /0480 .LIBF WRITE. K1808920
7CC3 4028 896 | H4028 DC /4028 INTEGER, DEFINED VAR, GT ID K1808930
7CC4 1900 897 | H1900 DC /1900 .CALL SUBSCR. K1808940
7CC5 6000 898 | H6000 DC /6000 CONSTANT FOR DIMENSION TEST K1808950
7CC6 8380 899 | H8380 DC /8380 CONSTANT K1808960
7CC7 4800 900 | MDXL1 DC /6100-/1900 .MDX L1. K1808970
7CC8 FA00 901 | LDXL DC /5B00-/6100 .LDX L. K1808980
7CC9 ED00 902 | LDXI DC /4800-/5B00 .LDX I. K1808990
7CCA 1A00 903 | STXL1 DC /6200-/4800 .STX L1. K1809000
7CCB 0020 904 | UNARY DC /0020 UNARY MINUS K1809010
7CAE 905 | CALLX EQU H000E K1809020
7CCC FFE6 906 | IF DC /0014-/002E IF OPERATOR K1809030
7CCD 4220 907 | H4220 DC /4220 INTEGER STMNT NO. K1809040
7CCE 1300 908 | H1300 DC /1300 .LDX L1. K1809050
7C86 909 | READ EQU H9000 K1809060
7C8C 910 | WRITE EQU SL K1809070
7C8A 911 | FIND EQU SRT16 K1809080
912 | * K1809090
913 | * GETS THE SYM TBL ID WORD OF THE K1809100
914 | * VARIABLE NAME. K1809110
7CCF 0000 915 | SYMT DC 0 ENTRY POINT K1809120
7CD0 E311 916 | AND 3 H07FF-Z GET NO. OF ENTRY RELATIVE TO K1809130
7CD1 9301 917 | S 3 ONE-Z START OF SYMBOL TABLE K1809140
7CD2 D007 918 | STO SYMT1+1 SAVE NUMBER K1809150
7CD3 C400 7A26 919 | LD L SOFST GET ADDRESS OF ENTRY BY K1809160
7CD5 9004 920 | S SYMT1+1 SUBTRACTING 3 TIMES ENTRY K1809170
7CD6 9003 921 | S SYMT1+1 NO. FROM START OF STRING K1809180
7CD7 9002 922 | S SYMT1+1 ADDRESS K1809190
7CD8 D001 923 | STO SYMT1+1 STORE ADDR OF ID WORD K1809200
7CD9 C400 0000 924 | SYMT1 LD L *-* LOAD SYM TBL ID WORD K1809210
7CDB 18DF 925 | RTE 31 ROTATE WORD K1809220
7CDC DBB9 926 | STD 3 STNA1-Z STORE ROTATED WORD K1809230
7CDD 4C80 7CCF 927 | BSC I SYMT RETURN K1809240
928 | * K1809250
929 | * GETS THE NAME OF THE NEXT NEW K1809260
930 | * SYMBOL TABLE ENTRY K1809270
931 | * K1809280
7CDF 0000 932 | STENT DC 0 ENTRY POINT K1809290
7CE0 74FD 7A2A 933 | MDX L EOFST,-3 MOVE END OF SYM TBL ADDR K1809300
7CE2 C400 7A26 934 | LD L SOFST LOAD START OF SYM TBL ADDR K1809310
7CE4 9400 7A2A 935 | S L EOFST GET NEW SIZE OF SYM TBL K1809320
7CE6 1890 936 | SRT 16 POSITION FOR DIVIDE K1809330
7CE7 AB03 937 | D 3 THREE-Z GET NO. OF TABLE ENTRY K1809340
7CE8 EB13 938 | OR 3 H8000-Z PUT IN SIGN BIT FOR NAME K1809350
7CE9 4C80 7CDF 939 | BSC I STENT RETURN K1809360
940 | * K1809370
941 | * CHANGES THE SUBTRACT, DIVIDE, AND K1809380
942 | * EXPONENTIATE OPTRS INTO REVERSE K1809390
943 | * OPTRS WHERE NEEDED K1809400
944 | * K1809410
7CEB 0000 945 | REVOP DC 0 ENTRY POINT K1809420
7CEC D3BB 946 | STO 3 TEMP2-Z SAVE OPERATOR K1809430
7CED 935A 947 | S 3 H003E-Z HAS OPERATOR BEEN REVERSED K1809440
7CEE 4C30 7CFB 948 | BSC L REV2,-Z BRANCH IF YES K1809450
7CF0 800F 949 | A H0038 IS OPERATOR MINUS K1809460
7CF1 4818 950 | BSC +- SKIP IF NOT K1809470
7CF2 7006 951 | MDX REV1 BRANCH IF YES K1809480
7CF3 9302 952 | S 3 TWO-Z IS OPERATOR DIVIDE K1809490
7CF4 4818 953 | BSC +- SKIP IF NOT K1809500
7CF5 7003 954 | MDX REV1 BRANCH IF YES K1809510
7CF6 9302 955 | S 3 TWO-Z IS OPERATOR EXPONENT K1809520
7CF7 4820 956 | BSC Z SKIP IF YES K1809530
7CF8 7003 957 | MDX REV3 BRANCH IF NOT K1809540
958 | * K1809550
7CF9 C3BB 959 | REV1 LD 3 TEMP2-Z LOAD OPERATOR K1809560
7CFA 8004 960 | A H003E ADD REVERSE CONSTANT K1809570
7CFB D3BB 961 | REV2 STO 3 TEMP2-Z STORE REVERSED OPTR K1809580
7CFC C3BB 962 | REV3 LD 3 TEMP2-Z LOAD OPERATOR K1809590
7CFD 4C80 7CEB 963 | BSC I REVOP RETURN K1809600
7CFF 003E 964 | H003E DC /003E REVERSING CONSTANT K1809610
7D00 0038 965 | H0038 DC /0038 MINUS TEST CONSTANT K1809620
966 | * K1809630
967 | * COMPUTES THE GT SYM TBL ADDR K1809640
7D01 0000 968 | GETGT DC 0 ENTRY POINT K1809650
7D02 C367 969 | LD 3 NXTGT-Z IS NEXT GT COMPUTED K1809660
7D03 4CA0 7D01 970 | BSC I GETGT,Z RETURN IF YES K1809670
971 | * K1809680
972 | * K1809690
7D05 433A 973 | CMPGT BSI 3 STENT-Z GET SYM TBL ADDR FOR NEXT GT K1809700
7D06 D367 974 | STO 3 NXTGT-Z STORE ADDR K1809710
975 | * K1809720
976 | * MAKE THE ENTRY A GENER TEMP ENTRY K1809730
977 | * IN SYM T K1809740
978 | * K1809750
7D07 432A 979 | BSI 3 SYMT-Z GET ADDRESS FOR NEXT ENTRY K1809760
7D08 C317 980 | LD 3 H0028-Z LOAD SYM TBL ID WORD K1809770
7D09 D480 7CDA 981 | STO I SYMT1+1 PUT IN SYM TBL K1809780
7D0B 70F6 982 | MDX GETGT+1 RETURN K1809790
7D0C 0000 983 | NXTGT DC 0 NEXT AVAILABLE GT K1809800
984 | * K1809810
985 | * K1809820
986 | *************************************************** K1809830
987 | * FOLLOWING SUBROUTINE PUTS THE CON- * K1809840
988 | * TENTS OF A-REGISTER INTO OUTPUT * K1809850
989 | * STRING AND PERFORMS HOUSEKEEPING OF * K1809860
990 | * OUTPUT STRING POINTER. (OUTPUT * K1809870
991 | * POINTER IS INDEX REGISTER 2) SUB- * K1809880
992 | * ROUTINE HAS THREE ENTRY POINTS. USE * K1809890
993 | * OF FIRST MOVES THE CONTENTS OF A-RE-* K1809900
994 | * GISTER UNALTERED AS ONE WORD INTO * K1809910
995 | * OUTPUT STRING. USING OTHER ENTRIES * K1809920
996 | * (.NAME. AND .OPERATOR.-ENTRIES) MAY * K1809930
997 | * RESULT IN PACKED OUTPUT (OPERATOR * K1809940
998 | * AND NAME IN THE SAME WORD). SOME * K1809950
999 | * OPERATORS ARE CONVERTED INTO SEVERAL* K1809960
1000 | * WORDS OF OUTPUT. THE SUBROUTINE ALSO* K1809970
1001 | * PERFORMS PARTS OF THE CONTROLS THAT* K1809980
1002 | * ARE REQUIRED FOR MIXED MODE ARITH- * K1809990
1003 | * METIC AND MAY GENERATE CODES REPRE- * K1810000
1004 | * SENTING .CALL FLT. OR .CALL IFIX. * K1810010
1005 | *************************************************** K1810020
1006 | *************************************************** K1810030
1007 | * ADDS A WORD TO THE STMNT STRING FROM K1810040
1008 | * THE ACCUMULATOR K1810050
1009 | *************************************************** K1810060
7D0D 0000 1010 | OUTUN DC 0 ENTRY POINT K1810070
7D0E D201 1011 | OUT12 STO 2 1 PUT WORD ON OUTPUT STRING K1810080
7D0F 43B1 1012 | BSI 3 INCR-Z INCREMENT O/P PT AND NORM K1810090
7D10 4C80 7D0D 1013 | OUT13 BSC I OUTUN RETURN K1810100
1014 | *************************************************** K1810110
1015 | * OUTPUT AND COUNT * K1810120
1016 | * ENTRY = OPERATOR * K1810130
1017 | *************************************************** K1810140
1018 | * K1810150
1019 | * SAME AS UNALTERED ARGUMENT ENTRY K1810160
1020 | * K1810170
7D0D 1021 | OUTOP EQU OUTUN K1810180
1022 | * K1810190
7D12 0000 1023 | CWORD DC 0 CODEWORD 117 K1810200
7D13 0000 1024 | NAME DC 0 STORED NAME 119 K1810210
1025 | * K1810220
1026 | *************************************************** K1810230
1027 | * ADDS A NAME TO THE STMNT STRING K1810240
1028 | * PACKED INTO ONE WORD WITH AN OPTR K1810250
1029 | *************************************************** K1810260
7D14 0000 1030 | OUTNA DC 0 ENTRY POINT K1810270
7D15 D0FD 1031 | OUT31 STO NAME STORE OUTPUT WORD K1810280
7D16 C0FD 1032 | LD OUTNA LOAD RETURN ADDRESS K1810290
7D17 D0F5 1033 | STO OUTUN STORE IN OUTUN K1810300
7D18 C200 1034 | LD 2 0 LOAD LAST O/P WORD K1810310
7D19 D0F8 1035 | STO CWORD SAVE WORD K1810320
1036 | * K1810330
1037 | * TEST IF END OF ARITH STMNT FUNC K1810340
1038 | * (IDENTIFIED BY OPTR = .ASSIGN. K1810350
1039 | * AND NAME = .ARITH STMNT FUNC. K1810360
1040 | * K1810370
7D1A 9309 1041 | S 3 H000E-Z IS IT ASSIGN OPERATOR K1810380
7D1B 4C20 7D2A 1042 | BSC L OUT33,Z BRANCH IF NOT K1810390
7D1D C0F5 1043 | LD NAME LOAD WORD TO BE OUTPUT K1810400
7D1E 432A 1044 | BSI 3 SYMT-Z GET SYM TBL ID WORD K1810410
7D1F 1006 1045 | SLA 6 IS IT STMNT FUNCTION K1810420
7D20 4C10 7D2A 1046 | BSC L OUT33,- BRANCH IF NOT K1810430
1047 | * K1810440
1048 | * IS IT END OF AN ARITH STMNT FUNC K1810450
1049 | * STATEMENT K1810460
1050 | * DELETE LAST OUTPUT OPERATOR K1810470
1051 | * K1810480
7D22 C480 7C58 1052 | LD I NADR+1 LOAD STMNT ID WORD K1810490
7D24 9304 1053 | S 3 FOUR-Z DECREMENT NORM K1810500
7D25 D480 7C58 1054 | STO I NADR+1 PUT BACK ON STRING K1810510
7D27 72FF 1055 | MDX 2 -1 DECREMENT O/P PT K1810520
7D28 4C80 7D14 1056 | BSC I OUTNA RETURN K1810530
1057 | * K1810540
7D2A C0E7 1058 | OUT33 LD CWORD LOAD LAST O/P WORD K1810550
7D2B 1808 1059 | SRA 8 K1810560
7D2C 4818 1060 | BSC +- SKIP IF NO REDEFINITION K1810570
7D2D 7009 1061 | MDX OUT51 BRANCH TO REDEFINE CODE WORD K1810580
7D2E C0E3 1062 | OUT41 LD CWORD LOAD CODE WORD K1810590
7D2F 4828 1063 | BSC +Z SKIP IF NOT PACKED O/P K1810600
7D30 7003 1064 | MDX OUT44 BRANCH TO PACKED OUTPUT K1810610
1065 | * K1810620
1066 | * NONPACKED K1810630
1067 | * ENTRY IF A-REG = CODEWORD VALUE K1810640
1068 | * K1810650
7D31 D200 1069 | OUT43 STO 2 0 STORE CODE WORD K1810660
7D32 C0E0 1070 | LD NAME LOAD NAME K1810670
7D33 70DA 1071 | MDX OUT12 OUTPUT NAME K1810680
1072 | * PACKED K1810690
1073 | * A-REG IS ASSUMED = CODEWORD VALUE K1810700
7D34 E8DE 1074 | OUT44 OR NAME PACK CODE WORD AND NAME K1810710
7D35 D200 1075 | STO 2 0 PUT ON O/P STRING K1810720
7D36 70D9 1076 | MDX OUT13 RETURN K1810730
1077 | * K1810740
7D37 C0DB 1078 | OUT51 LD NAME GET SYM TBL ID K1810750
7D38 432A 1079 | BSI 3 SYMT-Z WORD FOR FUTURE USE K1810760
7D39 C0D8 1080 | LD CWORD LOAD CODE WORD K1810770
7D3A 9309 1081 | S 3 H000E-Z IS IT ASSIGN OPERATOR K1810780
7D3B 4C18 7D6B 1082 | BSC L OUT91,+- BRANCH IF YES K1810790
7D3D 4830 1083 | BSC -Z SKIP IF LESS THAN ASSIGN K1810800
7D3E 7020 1084 | MDX OUT61 BRANCH IF NOT K1810810
7D3F C0D2 1085 | LD CWORD LOAD CODE WORD K1810820
7D40 1801 1086 | SRA 1 COMPUTE ADDR TO K1810830
7D41 801B 1087 | A ADRC1 GET OPERATOR K1810840
7D42 D00E 1088 | STO OUT53+1 STORE ADDR K1810850
7D43 901A 1089 | S ADRC2 IS IT EXPONENT OPERATOR K1810860
7D44 4C18 7DA4 1090 | BSC L OUTC4,+- BRANCH IF NOT K1810870
7D46 C3B9 1091 | LD 3 STNA1-Z LOAD SUM TBL ID WORD OF NAME K1810880
7D47 4C10 7D58 1092 | BSC L OUT55,- BRANCH IF FLOATING POINT K1810890
1093 | * K1810900
1094 | * NAME IS INTEGER NAME K1810910
7D49 C0C8 1095 | LD CWORD LOAD OPERATOR K1810920
7D4A 93DA 1096 | S 3 H000C-Z IS IT MULTIPLY OPERATOR K1810930
7D4B 4C18 7D53 1097 | BSC L OUT54,+- BRANCH IF YES K1810940
7D4D 8304 1098 | A 3 H0004-Z IS IT DIVIDE OPERATOR K1810950
7D4E 4C18 7D66 1099 | BSC L OUT85,+- BRANCH IF YES K1810960
7D50 C400 0000 1100 | OUT53 LD L *-* LOAD OPERATOR K1810970
7D52 70E1 1101 | MDX OUT44 PACK AND OUTPUT K1810980
1102 | * K1810990
1103 | * ENTRY FOR INTEGER MULTIPLY K1811000
7D53 C36E 1104 | OUT54 LD 3 NAME-Z LOAD NAME K1811010
7D54 EB1A 1105 | OR 3 HB000-Z PACK WITH MULTIPLY OPTR K1811020
7D55 D200 1106 | STO 2 0 PUT ON STRING K1811030
7D56 C319 1107 | LD 3 H5980-Z LOAD .SLT 16. K1811040
7D57 70B6 1108 | MDX OUT12 OUTPUT INSTRUCTION K1811050
1109 | * K1811060
1110 | * ENTRY FOR OBTAINING .CALL FADD., K1811070
1111 | * .CALL FSUB., .CALL FDIV. K1811080
1112 | * K1811090
7D58 7402 7D51 1113 | OUT55 MDX L OUT53+1,FADD-AL MODIFY ADDRESS K1811100
7D5A C480 7D51 1114 | LD I OUT53+1 LOAD OPERATOR K1811110
7D5C 70D4 1115 | MDX OUT43 OUTPUT OPERATOR, NAME K1811120
1116 | * K1811130
7D5D 7C89 1117 | ADRC1 DC AL-2 ADDRESS CONSTANT K1811140
7D5E 7C8E 1118 | ADRC2 DC AL+3 ADDRESS CONSTANT K1811150
1119 | * K1811160
7D5F 93ED 1120 | OUT61 S 3 H0036-Z IS IT REVERSE SUBTRACT K1811170
7D60 4C18 7DCC 1121 | BSC L OUTF1,+- BRANCH IF YES K1811180
7D62 9302 1122 | S 3 TWO-Z IS IT REVERSE DIVIDE K1811190
7D63 4C18 7DDA 1123 | BSC L OUTG1,+- BRANCH K1811200
7D65 701E 1124 | MDX OUTB1 MUST BE REVERSE EXPONENTIATE K1811210
1125 | * K1811220
7D66 C3E5 1126 | OUT85 LD 3 SRT16-Z LOAD .SRT 16. K1811230
7D67 D200 1127 | STO 2 0 PUT ON O/P STRING K1811240
7D68 43B1 1128 | BSI 3 INCR-Z INCREMENT STMNT NORM, O/P PT K1811250
7D69 C3E4 1129 | LD 3 DL-Z LOAD .D L. K1811260
7D6A 70C9 1130 | MDX OUT44 OUTPUT OPERATOR, NAME K1811270
1131 | * K1811280
1132 | * ASSIGN K1811290
7D6B C400 7A31 1133 | OUT91 LD L CCWD K1811300
7D6D 100E 1134 | SLA 14 IS ARITHMETIC TRACE NEEDED K1811310
7D6E 4810 1135 | BSC - SKIP IF YES K1811320
7D6F 700C 1136 | MDX OUT95 BRANCH IF NOT K1811330
7D70 CBB9 1137 | LDD 3 STNA1-Z LOAD SYM TBL ID WORD K1811340
7D71 18C1 1138 | RTE 1 PUT ENTIRE WORD IN ACC K1811350
7D72 E30A 1139 | AND 3 H800C-Z IS IT VARIABLE NAME K1811360
7D73 4820 1140 | BSC Z SKIP IF YES K1811370
7D74 7007 1141 | MDX OUT95 BRANCH IF NOT K1811380
7D75 C3B9 1142 | LD 3 STNA1-Z LOAD SYM TBL ID WORD K1811390
7D76 4810 1143 | BSC - SKIP IF INTEGER NAME K1811400
7D77 7002 1144 | MDX OUT93 BRANCH IF NOT K1811410
7D78 C3E3 1145 | LD 3 IARIT-Z LOAD .CALL IARIT. K1811420
7D79 70B7 1146 | MDX OUT43 OUTPUT CALL, NAME. K1811430
7D7A C3E2 1147 | OUT93 LD 3 FARIT-Z L/AD .CALL FARIT. K1811440
7D7B 70B5 1148 | MDX OUT43 OUTPUT CALL, NAME K1811450
1149 | * K1811460
7D7C C3B9 1150 | OUT95 LD 3 STNA1-Z LOAD SYM TBL ID WORD K1811470
7D7D 4810 1151 | BSC - SKIP IF INTEGER NAME K1811480
7D7E 7003 1152 | MDX OUTA1 BRANCH IF NOT K1811490
7D7F 1003 1153 | SLA 3 K1811500
7D80 C3E1 1154 | LD 3 STOL-Z LOAD .STO L. K1811510
7D81 70B2 1155 | MDX OUT44 OUTPUT OPTR, NAME K1811520
7D82 C3F6 1156 | OUTA1 LD 3 FSTO-Z LOAD .CALL FSTO. K1811530
7D83 70AD 1157 | MDX OUT43 OUTPUT OPTR, WORD K1811540
1158 | * K1811550
1159 | * REV. EXPON. K1811560
7D84 C3BD 1160 | OUTB1 LD 3 MODSW-Z TEST MODE SWITCH K1811570
7D85 4C28 7D8A 1161 | BSC L OUTB2,Z+ BRANCH IF FLOATING POINT K1811580
1162 | * K1811590
1163 | * MODE = FIX K1811600
7D87 435C 1164 | BSI 3 GETGT-Z GET GENERATED TEMPORARY K1811610
7D88 EBE1 1165 | OR 3 H9000-Z COMBINE WITH .STO L. K1811620
7D89 7004 1166 | MDX OUTB3 OUTPUT K1811630
1167 | * K1811640
1168 | * MODE = FLOAT K1811650
7D8A C3F6 1169 | OUTB2 LD 3 FSTO-Z LOAD .CALL FSTO. K1811660
7D8B D200 1170 | STO 2 0 OUTPUT CALL K1811670
7D8C 43B1 1171 | BSI 3 INCR-Z MOVE PT, INCREMENT NORM K1811680
7D8D 435C 1172 | BSI 3 GETGT-Z GET GENERATED TEMPORARY K1811690
7D8E D200 1173 | OUTB3 STO 2 0 PUT ON O/P STRING K1811700
1174 | * K1811710
1175 | * MAKE GT-MODE AGREE WITH MODESWITCH K1811720
7D8F 4400 7DEA 1176 | BSI L GTMOD K1811730
1177 | * K1811740
7D91 43B1 1178 | BSI 3 INCR-Z MOVE O/P PT, INCREMENT NORM K1811750
1179 | * K1811760
1180 | * K1811770
7D92 C301 1181 | LD 3 ONE-Z SET MODE SWITCH K1811780
7D93 D3BD 1182 | STO 3 MODSW-Z TO FIXED POINT K1811790
7D94 C36E 1183 | LD 3 NAME-Z OUTPUT K1811800
7D95 EBF8 1184 | OR 3 H8800-Z .LD L NAME. K1811810
7D96 D200 1185 | STO 2 0 PUT ON OUTPUT STRING K1811820
7D97 432A 1186 | BSI 3 SYMT-Z WAS NAME FIXED PT K1811830
7D98 4C28 7DA1 1187 | BSC L OUTC1,Z+ BRANCH IF YES K1811840
1188 | * K1811850
1189 | * CHANGE MODESWITCH AND K1811860
1190 | * REPLACE OUTPUT BY FLOATING ARITHM K1811870
1191 | * K1811880
7D9A C305 1192 | LD 3 HF800-Z SET MODE SWITCH K1811890
7D9B D3BD 1193 | STO 3 MODSW-Z TO FLOATING POINT K1811900
7D9C C3F9 1194 | LD 3 FLD-Z LOAD .CALL FLD. K1811910
7D9D D200 1195 | STO 2 0 PUT ON O/P STRING K1811920
7D9E 43B1 1196 | BSI 3 INCR-Z MOVE O/P PT, INCREMENT NORM K1811930
7D9F C36E 1197 | LD 3 NAME-Z LOAD NAME K1811940
7DA0 D200 1198 | STO 2 0 PUT ON O/P STRING K1811950
7DA1 43B1 1199 | OUTC1 BSI 3 INCR-Z MOVE O/P PT, INCREMENT NORM K1811960
7DA2 435C 1200 | OUTC3 BSI 3 GETGT-Z REPLACE STORED NAME BY K1811970
7DA3 D36E 1201 | STO 3 NAME-Z GENERATED TEMPORARY K1811980
1202 | * K1811990
1203 | * OPERTR. EXP K1812000
7DA4 C3BD 1204 | OUTC4 LD 3 MODSW-Z TEST MODE SWITCH K1812010
7DA5 4808 1205 | BSC + SKIP IF FIXED PT K1812020
7DA6 701F 1206 | MDX OUTD5 BRANCH IF NOT K1812030
7DA7 C36E 1207 | LD 3 NAME-Z LOAD NAME K1812040
7DA8 432A 1208 | BSI 3 SYMT-Z GET SYM TBL ID WORD K1812050
7DA9 4810 1209 | BSC - SKIP IF INTEGER NAME K1812060
7DAA 7003 1210 | MDX OUTD1 BRANCH IF NOT K1812070
7DAB C3DF 1211 | LD 3 FIXI-Z LOAD .CALL FIXI. K1812080
7DAC 4C00 7D31 1212 | OUTC5 BSC L OUT43 OUTPUT CALL, NAME K1812090
1213 | * K1812100
7DAE C3FA 1214 | OUTD1 LD 3 FLT-Z LOAD .CALL FLT. K1812110
7DAF D200 1215 | STO 2 0 PUT ON O/P STRING K1812120
7DB0 43B1 1216 | BSI 3 INCR-Z MOVE O/P PT, INCREMENT NORM K1812130
7DB1 C305 1217 | LD 3 HF800-Z SET MOD SWITCH K1812140
7DB2 D3BD 1218 | STO 3 MODSW-Z TO FLOATING PT K1812150
1219 | * K1812160
7DB3 C302 1220 | OUTD2 LD 3 TWO-Z MAKE CODE WORD IN O/P STRING K1812170
7DB4 D200 1221 | STO 2 0 INTO A 2-WORD CALL OPTR K1812180
1222 | * K1812190
1223 | * TEST IF NAME DIMENSIONED K1812200
7DB5 C36E 1224 | LD 3 NAME-Z LOAD NAME K1812210
7DB6 432A 1225 | BSI 3 SYMT-Z GET SYM TBL ID WORD K1812220
7DB7 E3FF 1226 | AND 3 H3000-Z IS IT DIMENSIONED K1812230
7DB8 4C18 7DBE 1227 | BSC L OUTD3,+- BRANCH IF NOT K1812240
1228 | * K1812250
1229 | * OUTPUT 2-WD CALL FAXBX K1812260
7DBA C3D9 1230 | LD 3 FAXBX-Z LOAD .CALL FAXBX. K1812270
7DBB 4418 7E14 1231 | BSI L CAXBX,+- BRANCH TO MAKE SYM TBL ENTRY K1812280
1232 | * IF NOT THERE ALREADY K1812290
7DBD 7003 1233 | MDX OUTD4 MOVE PT K1812300
1234 | * K1812310
1235 | * OUTPUT 2-WD CALL .FAXB. K1812320
7DBE C3D8 1236 | OUTD3 LD 3 FAXB-Z LOAD .CALL FABX. K1812330
7DBF 4418 7DF8 1237 | BSI L CAXB,+- BRANCT TO MAKE SYM TBL ENTRY K1812340
1238 | * IF NOT THERE ALREADY K1812350
1239 | * K1812360
7DC1 D201 1240 | OUTD4 STO 2 1 OUTPUT WORD K1812370
7DC2 43B1 1241 | BSI 3 INCR-Z MOVE O/P PT, INCREMENT NORM K1812380
1242 | * K1812390
7DC3 C36E 1243 | LD 3 NAME-Z LOAD NAME K1812400
7DC4 4C00 7D0E 1244 | OUTDX BSC L OUT12 OUTPUT NAME K1812410
1245 | * K1812420
7DC6 C36E 1246 | OUTD5 LD 3 NAME-Z LOAD NAME K1812430
7DC7 432A 1247 | BSI 3 SYMT-Z GET SYM TBL ID WORD K1812440
7DC8 4810 1248 | BSC - SKIP IF INTEGER K1812450
7DC9 70E9 1249 | MDX OUTD2 BRANCH IF NOT K1812460
1250 | * K1812470
7DCA C3E0 1251 | LD 3 FAXI-Z LOAD .CALL FAXI. K1812480
7DCB 70E0 1252 | MDX OUTC5 OUTPUT CALL K1812490
1253 | * K1812500
1254 | * REVERSE SUB K1812510
7DCC C3B9 1255 | OUTF1 LD 3 STNA1-Z LOAD SYM TBL ID WORD K1812520
7DCD 4810 1256 | BSC - SKIP IF INTEGER K1812530
7DCE 7009 1257 | MDX OUTF4 BRANCH IF NOT K1812540
7DCF C3F1 1258 | LD 3 STOFA-Z LOAD .STO FAC+1. K1812550
7DD0 D200 1259 | STO 2 0 PUT ON O/P STRING K1812560
7DD1 C36E 1260 | LD 3 NAME-Z LOAD NAME K1812570
7DD2 E311 1261 | AND 3 H07FF-Z GET SYM TBL ENTRY NO K1812580
7DD3 83F8 1262 | A 3 LDL-Z COMBINE WITH .LD L. K1812590
7DD4 D201 1263 | STO 2 1 PUT ON O/P STRING K1812600
7DD5 43B1 1264 | BSI 3 INCR-Z MOVE O/P PT, INCREMENT NORM K1812610
7DD6 C3EF 1265 | LD 3 SFAC-Z LOAD .S FAC+1. K1812620
7DD7 70EC 1266 | MDX OUTDX OUTPUT K1812630
1267 | * K1812640
7DD8 C3DD 1268 | OUTF4 LD 3 FSBR-Z LOAD.CALL FSBR. K1812650
7DD9 70D2 1269 | MDX OUTC5 OUTPUT K1812660
1270 | * K1812670
1271 | * REVERSE DIVIDE K1812680
7DDA C3B9 1272 | OUTG1 LD 3 STNA1-Z LOAD SYM TBL ID WORD K1812690
7DDB 4810 1273 | BSC - SKIP IF INTEGER K1812700
7DDC 700B 1274 | MDX OUTG4 BRANCH IF NOT K1812710
7DDD C3F1 1275 | LD 3 STOFA-Z LOAD .STO FAC+1. K1812720
7DDE D200 1276 | STO 2 0 OUTPUT K1812730
7DDF C36E 1277 | LD 3 NAME-Z LOAD NAME K1812740
7DE0 EBF8 1278 | OR 3 LDL-Z COMBINE WITH .LD L. K1812750
7DE1 D201 1279 | STO 2 1 PUT ON O/P STRING K1812760
7DE2 C3E5 1280 | LD 3 SRT16-Z LOAD .SRT 16. K1812770
7DE3 D202 1281 | STO 2 2 PUT ON O/P STRING K1812780
7DE4 43B1 1282 | BSI 3 INCR-Z INCREMENT NORM, MOVE O/P PT K1812790
7DE5 43B1 1283 | BSI 3 INCR-Z INCREMENT NORM, MOVE O/P PT K1812800
7DE6 C3DC 1284 | LD 3 DFAC-Z LOAD .D FAC+1. K1812810
7DE7 70DC 1285 | MDX OUTDX OUTPUT K1812820
1286 | * K1812830
7DE8 C3DB 1287 | OUTG4 LD 3 FDVR-Z LOAD .CALL FDVR. K1812840
7DE9 70C2 1288 | MDX OUTC5 OUTPUT K1812850
1289 | * K1812860
1290 | * MAKES THE MODE OF THE GT AGREE WITH K1812870
1291 | * THE CURRENT MODE OF THE MODE SW K1812880
1292 | * K1812890
7DEA 0000 1293 | GTMOD DC 0 ENTRY POINT K1812900
7DEB D3C4 1294 | STO 3 GTMO3-Z SAVE WORD K1812910
7DEC 432A 1295 | BSI 3 SYMT-Z GET SYM TBL ID WORD K1812920
7DED C3BD 1296 | LD 3 MODSW-Z TEST MODE K1812930
7DEE 4C08 7DF2 1297 | BSC L GTMO1,+ RANCH IF FLOATING PT K1812940
7DF0 C31E 1298 | LD 3 H4028-Z SET ID WORD TO FIXED PT K1812950
7DF1 7001 1299 | MDX GTMO2 PUT IN TABLE K1812960
7DF2 C317 1300 | GTMO1 LD 3 H0028-Z SET ID WORD TO FLOATING PT K1812970
7DF3 D480 7CDA 1301 | GTMO2 STO I SYMT1+1 STORE IN TABLE K1812980
7DF5 C3C4 1302 | LD 3 GTMO3-Z RESTORE ACCUMULATOR K1812990
7DF6 4C80 7DEA 1303 | BSC I GTMOD RETURN K1813000
1304 | * K1813010
1305 | * K1813020
1306 | * MAKES THE SYM TBL ENTRY FOR THE K1813030
1307 | * SUBROUTINE NAMES FAXB AND EAXB SINCE K1813040
1308 | * THEY ARE 2-WORD CALLS K1813050
1309 | * K1813060
7DF8 0000 1310 | CAXB DC 0 ENTRY POINT K1813070
1311 | * K1813080
1312 | * GET NAM+ OF NEXT SYMT ENTRY K1813090
1313 | * AND STORE K1813100
1314 | * K1813110
7DF9 433A 1315 | BSI 3 STENT-Z GET NEXT SYM TBL ENTRY NO. K1813120
7DFA D3D8 1316 | STO 3 FAXB-Z SAVE ENTRY NO. K1813130
7DFB D018 1317 | STO CAXBX SAVE ENTRY NO. K1813140
1318 | * K1813150
7DFC C81F 1319 | LDD NAME1 GET EBC-NAME .FABX. K1813160
7DFD DBB7 1320 | CAXB1 STD 3 TEMP-Z STORE NAME K1813170
1321 | * K1813180
1322 | * MAKE SYMBOL TABLE ID-WD ENTRY K1813190
7DFE 6D00 7E10 1323 | STX L1 CAXB3+1 SAVE I/P PT K1813200
7E00 6580 7A2A 1324 | LDX I1 EOFST LOAD XR1 WITH END OF STRING K1813210
7E02 C316 1325 | LD 3 H0080-Z MAKE ID WORD A SUBPROGRAM K1813220
7E03 D103 1326 | STO 1 3 PUT IN SYM TBL K1813230
1327 | * K1813240
1328 | * IF EXTENDED PREC, CHANGE K1813250
1329 | * NAME K1813260
1330 | * K1813270
7E04 C400 7A31 1331 | LD L CCWD K1813280
7E06 100D 1332 | SLA 13 IS THERE STANDARD PRECISION K1813290
7E07 4C10 7E0B 1333 | BSC L CAXB2,- BRANCH IFYES K1813300
1334 | * K1813310
1335 | * CHANGE NAME TO BEGIN WITH .E. K1813320
7E09 C016 1336 | LD NAME3 CHANGE .FAXB. K1813330
7E0A D3B7 1337 | STO 3 TEMP-Z TO .EAXB. K1813340
1338 | * K1813350
7E0B CBB7 1339 | CAXB2 LDD 3 TEMP-Z LOAD NAME K1813360
7E0C D104 1340 | STO 1 4 PUT 1ST WORD IN SYM TBL K1813370
7E0D 18D0 1341 | RTE 16 K1813380
7E0E D105 1342 | STO 1 5 PUT 2ND WORD IN SYM TBL K1813390
1343 | * K1813400
7E0F 6500 0000 1344 | CAXB3 LDX L1 *-* RESTORE I/P PT K1813410
7E11 C002 1345 | LD CAXBX LOAD SUBPROGRAM NAME K1813420
7E12 4C80 7DF8 1346 | BSC I CAXB RETURN K1813430
1347 | * K1813440
1348 | * K1813450
1349 | * MAKES THE SYM TBL ENTRY FOR THE K1813460
1350 | * SUBROUTINE NAMES FAXBX AND EAXBX K1813470
1351 | * SINCE THEY ARE 2-WD CALLS K1813480
1352 | * K1813490
7E14 0000 1353 | CAXBX DC 0 ENTRY POINT K1813500
7E15 C0FE 1354 | LD CAXBX MOVE RETURN ADDR SO CAN USE K1813510
7E16 D0E1 1355 | STO CAXB .CALL FABX. SUBROUTINE K1813520
7E17 433A 1356 | BSI 3 STENT-Z GET NEXT SYM TBL ENTRY NO. K1813530
7E18 D0FB 1357 | STO CAXBX STORE K1813540
7E19 D3D9 1358 | STO 3 FAXBX-Z STORE K1813550
7E1A C803 1359 | LDD NAME2 LOAD EBC-NAME .FAXBX. K1813560
7E1B 70E1 1360 | MDX CAXB1 PUT IN SYM TBL K1813570
1361 | * K1813580
1362 | * CONSTANTS K1813590
7E1C 1363 | BSS E 0 K1813600
7E1C 8C0C 1364 | NAME1 DC /8C0C EBC-NAME K1813610
7E1D F080 1365 | DC /F080 .FAXB. K1813620
7E1E 8C0C 1366 | NAME2 DC /8C0C EBC-NAME K1813630
7E1F F0A7 1367 | DC /F0A7 .FAXBX. K1813640
7E20 8A0C 1368 | NAME3 DC /8A0C EBC-NAME .EAX. K1813650
1369 | * K1813660
1370 | * K1813670
1371 | * LOCATES THE NEXT OPTR NOT YET K1813680
1372 | * PROCESSED K1813690
1373 | * K1813700
7E21 0000 1374 | FINDN DC 0 ENTRY POINT K1813710
7E22 D3B7 1375 | STO 3 TEMP-Z STORE O/P SWITCH K1813720
7E23 7102 1376 | MDX 1 2 INITIALIZE POINTER K1813730
7E24 692E 1377 | STX 1 PFIND SAVE I/P PT K1813740
7E25 C480 7E53 1378 | FINDA LD I PFIND LOAD WORD IN STMNT K1813750
7E27 931F 1379 | S 3 H1900-Z IS WORD .CALL SUBSCR. K1813760
7E28 4C18 7E3E 1380 | BSC L MVSUB,+- BRANCH IF YES K1813770
7E2A 9322 1381 | S 3 MDXL1-Z IS IT .MDX L1. K1813780
7E2B 4C18 7E3A 1382 | BSC L MV3,+- BRANCH IF YES K1813790
7E2D 9323 1383 | S 3 LDXL-Z IS IT .LDX L1. K1813800
7E2E 4C18 7E3B 1384 | BSC L MV2,+- BRANCH IF YES K1813810
7E30 9324 1385 | S 3 LDXI-Z IS IT .LDX I1. K1813820
7E31 4C18 7E3B 1386 | BSC L MV2,+- BRANCH IF YES K1813830
7E33 9325 1387 | S 3 STXL1-Z IS IT .STX L1. K1813840
7E34 4C18 7E3B 1388 | BSC L MV2,+- BRANCH IF YES K1813850
7E36 C480 7E53 1389 | LD I PFIND RESTORE WORD K1813860
7E38 4C80 7E21 1390 | BSC I FINDN RETURN K1813870
1391 | * K1813880
7E3A 400C 1392 | MV3 BSI MOVE1 MOVE WORD TO O/P STRING K1813890
7E3B 400B 1393 | MV2 BSI MOVE1 MOVE WORD TO O/P STRING K1813900
7E3C 400A 1394 | MV1 BSI MOVE1 MOVE WORD TO O/P STRING K1813910
7E3D 70E7 1395 | MDX FINDA RETURN K1813920
7E3E 4008 1396 | MVSUB BSI MOVE1 MOVE WORD TO O/P STRING K1813930
7E3F 4007 1397 | BSI MOVE1 MOVE WORD TO O/P STRING K1813940
7E40 4006 1398 | MVS1 BSI MOVE1 MOVE WORD TO O/P STRING K1813950
7E41 4005 1399 | BSI MOVE1 MOVE WORD TO O/P STRING K1813960
7E42 C480 7E53 1400 | LD I PFIND LOAD WORD K1813970
7E44 4C10 7E40 1401 | BSC L MVS1,- BRANCH IF NOT TAGGED K1813980
7E46 70F5 1402 | MDX MV1 MOVE WORD, RETURN K1813990
1403 | * K1814000
7E47 0000 1404 | MOVE1 DC 0 ENTRY POINT K1814010
7E48 C3B7 1405 | LD 3 TEMP-Z TEST SWITCH K1814020
7E49 4C20 7E4F 1406 | BSC L MOVEX,Z BRANCH NOT OUTPUT K1814030
7E4B C480 7E53 1407 | LD I PFIND LOAD WORD K1814040
7E4D 4368 1408 | BSI 3 OUTUN-Z PUT ON O/P STRING K1814050
7E4E 7101 1409 | MDX 1 1 MOVE I/P PT K1814060
7E4F 7401 7E53 1410 | MOVEX MDX L PFIND,1 MOVE SUBROUTINE PT K1814070
7E51 4C80 7E47 1411 | BSC I MOVE1 RETURN K1814080
1412 | * K1814090
7E53 0000 1413 | PFIND DC 0 POINTER IN SUBROUTINE K1814100
1414 | * K1814110
1415 | * K1814120
1416 | * NOT IN CARD SYSTEM K1814130
1417 | * K1814140
1418 | * K1814150
1419 | * OUTPUTS DISK READ/WRITE STMNTS K1814160
1420 | * K1814170
7E54 C480 7C67 1421 | D5011 LD I INID LOAD STMNT ID WORD K1814180
7E56 E30B 1422 | AND 3 H07FC-Z GET NORM K1814190
7E57 1802 1423 | SRA 2 RIGHT JUSTIFY K1814200
7E58 83C2 1424 | A 3 INID-Z GET ADDR OF NEXT STMNT K1814210
7E59 9301 1425 | S 3 ONE-Z SUBTRACT ONE K1814220
7E5A D028 1426 | STO NXTID SAVE ADDRESS K1814230
7E5B C103 1427 | LD 1 3 LOAD WORD K1814240
7E5C 432A 1428 | BSI 3 SYMT-Z GET SYM TBL ID WORD K1814250
7E5D 4C10 7E69 1429 | BSC L D5021,- BRANCH IF NOT INTEGER K1814260
1430 | * K1814270
1431 | * OUTPUT REST OF READ/WRITE K1814280
1432 | * STATEMENT K1814290
1433 | * K1814300
7E5F 7101 1434 | D5013 MDX 1 1 MOVE I/P PT K1814310
7E60 C100 1435 | LD 1 0 LOAD WORD K1814320
7E61 4368 1436 | BSI 3 OUTUN-Z PUT ON O/P STRING K1814330
7E62 6921 1437 | STX 1 TSX1 STORE I/P PT K1814340
7E63 C020 1438 | LD TSX1 TEST FOR END K1814350
7E64 901E 1439 | S NXTID OF STMNT K1814360
7E65 4C10 7A45 1440 | BSC L P1021,- BRANCH IF END OF STMNT K1814370
7E67 4C00 7E5F 1441 | BSC L D5013 CONTINUE O/P K1814380
1442 | * K1814390
1443 | * ERROR ENCOUNTERED K1814400
1444 | * EXPRESSION NOT INTEGER K1814410
1445 | * IN READ/WRITE STMT K1814420
1446 | * K1814430
7E69 6680 7C58 1447 | D5021 LDX I2 OUTID RESET O/P PT K1814440
7E6B 6580 7C67 1448 | LDX I1 INID RESET I/P PT K1814450
7E6D C012 1449 | LD HA008 LOAD ERROR STMNT ID WORD K1814460
7E6E D200 1450 | STO 2 0 PUT ON O/P STRING K1814470
7E6F C100 1451 | LD 1 0 LOAD STMNT ID WORD K1814480
7E70 100F 1452 | SLA 15 DOES STMNT HAVE STMNT NO. K1814490
7E71 4C10 7E78 1453 | BSC L D5023,- BRANCH IF NOT K1814500
7E73 C00D 1454 | LD HA00D REPLACE ERROR ID WORD WITH K1814510
7E74 D200 1455 | STO 2 0 ERROR WORD WITH STMNT NO. K1814520
7E75 C101 1456 | LD 1 1 LOAD STMNT NO. K1814530
7E76 D201 1457 | STO 2 1 PUT ON O/P STRING K1814540
7E77 7201 1458 | MDX 2 1 MOVE O/P PT K1814550
7E78 C009 1459 | D5023 LD ERNO LOAD ERROR NO. K1814560
7E79 D201 1460 | STO 2 1 PUT ON O/P STRING K1814570
7E7A 7201 1461 | MDX 2 1 MOVE O/P PT K1814580
7E7B 6580 7E83 1462 | LDX I1 NXTID MOVE I/P PT TO NEXT STMNT K1814590
1463 | * K1814600
7E7D 4C00 7A45 1464 | BSC L P1021 PROCESS NEXT STMNT K1814610
1465 | * K1814620
7E7F 0054 1466 | EXPRO DC /0054 EXPRESSION OPERATOR K1814630
7E80 A008 1467 | HA008 DC /A008 ERROR STMNT ID WORD K1814640
7E81 A00D 1468 | HA00D DC /A00D ERROR ID WITH STMNT NO. K1814650
7E82 0049 1469 | ERNO DC 73 ERROR NO. 73 K1814660
7E83 0000 1470 | NXTID DC 0 ADDR OF NEXT I/P STMNT - 1 K1814670
7E84 0000 1471 | TSX1 DC 0 K1814680
1472 | * K1814690
1473 | * K1814700
1474 | * BR TO LOADER TO LOAD NEST PHASE K1814710
1475 | * K1814720
7E85 C400 7A26 1476 | EXIT LD L SOFST LD START OF S.T. ADDR 2-11 K1814721
7E87 9400 7CB7 1477 | S L STLEN SUB MAX S/T LENGTH 2-11 K1814723
7E89 9400 7A2A 1478 | S L EOFST SUB ACTUAL LIMIT 2-11 K1814725
7E8B 4C08 7E92 1479 | BSC L EXIT1,+ IF ACTUAL EXCEEDS MAX, 2-11 K1814726
7E8D C400 7A2D 1480 | LD L ERROR LOAD ERROR INDICATOR 2-11 K1814727
7E8F E807 1481 | OR ERR8 *SET ERROR BIT 2-11 K1814728
7E90 D400 7A2D 1482 | STO L ERROR * AND RESTORE 2-11 K1814729
7E92 6580 7E99 1483 | EXIT1 LDX I1 NXTPH+1 LOAD PARAM FOR READING 2-11 K1814730
7E94 C805 1484 | LDD NXTPH+2 NEXT PHASE K1814740
7E95 4C00 7FBC 1485 | BSC L ROL GO TO READ NEXT PHASE K1814750
7E97 0080 1486 | ERR8 DC 128 TO SET ERROR BIT ON 2-11 K1814755
7E98 1487 | BSS E 0 K1814760
7E98 0031 1488 | NXTPH DC 49 ID OF NEXT PHASE K1814770
7E99 0000 1489 | DC *-* CORE ADDRESS NEXT PHASE K1814780
7E9A 0000 1490 | DC *-* WORD COUNT NEXT PHASE K1814790
7E9B 0000 1491 | DC *-* SECTOR ADDRESS NEXT PHASE K1814800
1492 | * K1814810
1493 | * K1814820
7E9C 1494 | BSS 153 PATCH AREA 2-11 K1814830
7F35 0000 1495 | DC 0 K1814840
7F36 1496 | END BPHAR-2 K1814850
There were no errors in this assembly
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
$PHSE 0078 73 126
A7A72 7A73 184 181
ADRC1 7D5D 1117 1087
ADRC2 7D5E 1118 1089
AL 7C8B 827 1113 1117 1118
BPHAR 7A36 119 1496
BSCL1 7CB1 877 509
BSCL2 7CB2 878 519
BSCL3 7CB3 879 521
BSCL4 7CB4 880 537
BSCL5 7CB5 881 540
BSCL6 7C97 841 550
CALLX 7CAE 905 261
CAXB 7DF8 1310 1237 1346 1355
CAXB1 7DFD 1320 1360
CAXB2 7E0B 1339 1333
CAXB3 7E0F 1344 1323
CAXBX 7E14 1353 1231 1317 1345 1354 1357
CCWD 7A31 94 489 1133 1331
CMPGT 7D05 973
COMON 7A2B 87
CONT 7C5C 770 131
CSIZE 7A2C 88
CWORD 7D12 1023 1035 1058 1062 1080 1085 1095
D5011 7E54 1421 192 256
D5013 7E5F 1434 1441
D5021 7E69 1447 1429
D5023 7E78 1459 1453
DFAC 7C81 811 1284
DFCNT 7A33 113
DL 7C89 820 1129
ENT 7A36 125
EOFS 7A25 81 129 221 775 779
EOFST 7A2A 86 773 933 935 1324 1478
ERNO 7E82 1469 1459
ERR8 7E97 1486 1481
ERROR 7A2D 89 127 782 1480 1482
EXIT 7E85 1476 128 222 783
EXIT1 7E92 1483 1479
EXP 7CB9 886 327
EXPRO 7E7F 1466 255
FADD 7C8D 829 1113
FARIT 7C87 818 1147
FAXB 7C7D 804 1236 1316
FAXBX 7C7E 806 1230 1358
FAXI 7C85 815 1251
FDIV 7C8F 831
FDVR 7C80 810 1287
FIF 7C99 843 494
FIIF 7C98 842 497
FIND 7C8A 911 175
FINDA 7E25 1378 1395
FINDN 7E21 1374 249 270 419 445 1390
FIXI 7C84 814 1211
FLD 7C9E 849 617 706 734 1194
FLT 7C9F 850 304 340 360 421 436 591 1214
FMPY 7C91 833
FNAME 7A2E 91
FOUR 7CA9 867 145 156 868 1053
FSBR 7C82 812 1268
FSTO 7C9B 845 351 413 1156 1169
FSUB 7C8E 830
GETGT 7D01 968 353 358 415 425 970 982 1164 1172 1200
GTMO1 7DF2 1300 1297
GTMO2 7DF3 1301 1299
GTMO3 7C69 766 1294 1302
GTMOD 7DEA 1293 285 354 416 1176 1303
H0004 7CA9 868 400 1098
H000C 7C7F 809 1096
H000E 7CAE 873 275 391 905 1041 1081
H0028 7CBC 889 980 1300
H0036 7C92 836 1120
H0038 7D00 965 949
H003E 7CFF 964 329 947 960
H0054 7CBD 890 180
H0080 7CBB 888 187 1325
H0220 7C83 813 635
H07FC 7CB0 876 208 1422
H07FF 7CB6 882 916 1261
H1300 7CCE 908 409
H1900 7CC4 897 1379
H1C80 7C3D 713 710
H3000 7CA4 861 1226
H4000 7CC0 893
H4028 7CC3 896 1298
H4220 7CCD 907 633
H4800 7CAC 871 199 407
H5980 7CBE 891 1107
H6000 7CC5 898 611 619
H8000 7CB8 885 938
H800C 7CAF 874 1139
H8380 7CC6 899 616
H8800 7C9D 848 1184
H9000 7C86 817 909 1165
HA008 7E80 1467 1449
HA00D 7E81 1468 1454
HB000 7CBF 892 1105
HD000 7CBA 887 170
HERE 7A7E 194 178 190
HF800 7CAA 869 147 342 367 471 566 704 1192 1217
HF803 7C93 837 144
IARIT 7C88 819 1145
IF 7CCC 906 263
IFIX 7C9C 846 296 396 602 614
INCR 7C56 744 747 1012 1128 1171 1178 1196 1199 1216 1241 1264 1282 1283
INID 7C67 764 150 205 1421 1424 1448
IOCS 7A32 102
LDFAC 7C9A 844 487
LDL 7C9D 847 732 848 1262 1278
LDXI 7CC9 902 1385
LDXL 7CC8 901 1383
LIBFF 7CC2 895 189
LIBFR 7CC1 894 185
MDXL1 7CC7 900 1381
MEMRY 8000 70 71 72
MODSW 7C62 759 166 293 301 314 337 343 346 368 376 467 472 484
492 561 567 695 705 714 1160 1182 1193 1204 1218 1296
MOVCT 7C5D 801 772 790
MOVE1 7E47 1404 1392 1393 1394 1396 1397 1398 1399 1411
MOVEX 7E4F 1410 1406
MOVST 7C6F 786 781 791
MV1 7E3C 1394 1402
MV2 7E3B 1393 1384 1386 1388
MV3 7E3A 1392 1382
MVS1 7E40 1398 1401
MVSUB 7E3E 1396 1380
NADR 7C57 745 748 1052 1054
NAME 7D13 1024 1031 1043 1070 1074 1078 1104 1183 1197 1201 1207 1224 1243
1246 1260 1277
NAME1 7E1C 1364 1319
NAME2 7E1E 1366 1359
NAME3 7E20 1368 1336
NFLT 7CA0 856 585
NIFIX 7CA2 858 596
NORM 7C64 761 209 212
NXTGT 7D0C 983 969 974
NXTID 7E83 1470 1426 1439 1462
NXTPH 7E98 1488 122 1483 1484
ONE 7CA6 864 375 466 560 575 644 666 694 771 917 1181 1425
OUT12 7D0E 1011 1071 1108 1244
OUT13 7D10 1013 1076
OUT31 7D15 1031
OUT33 7D2A 1058 1042 1046
OUT41 7D2E 1062
OUT43 7D31 1069 1115 1146 1148 1157 1212
OUT44 7D34 1074 1064 1101 1130 1155
OUT51 7D37 1078 1061
OUT53 7D50 1100 1088 1113 1114
OUT54 7D53 1104 1097
OUT55 7D58 1113 1092
OUT61 7D5F 1120 1084
OUT85 7D66 1126 1099
OUT91 7D6B 1133 1082
OUT93 7D7A 1147 1144
OUT95 7D7C 1150 1136 1141
OUTA1 7D82 1156 1152
OUTB1 7D84 1160 1124
OUTB2 7D8A 1169 1161
OUTB3 7D8E 1173 1166
OUTC1 7DA1 1199 1187
OUTC3 7DA2 1200
OUTC4 7DA4 1204 1090
OUTC5 7DAC 1212 1252 1269 1288
OUTD1 7DAE 1214 1210
OUTD2 7DB3 1220 1249
OUTD3 7DBE 1236 1227
OUTD4 7DC1 1240 1233
OUTD5 7DC6 1246 1206
OUTDX 7DC4 1244 1266 1285
OUTF1 7DCC 1255 1121
OUTF4 7DD8 1268 1257
OUTG1 7DDA 1272 1123
OUTG4 7DE8 1287 1274
OUTID 7C58 748 149 157 158 206 1447
OUTNA 7D14 1030 318 355 417 426 449 524 543 553 701 709 1032 1056
OUTOP 7D0D 1021 316 352 447 522 541 551 699 707
OUTUN 7D0D 1010 234 297 305 341 361 397 414 422 424 437 488 498
612 618 620 625 645 647 667 673 697 711 718 720
722 735 737 1013 1021 1033 1408 1436
OVERL 7A24 71 74
P1011 7A40 135 799
P1021 7A45 141 219 251 555 1440 1464
P1022 7A47 143
P1023 7A56 156 153
P1031 7A5F 165 154
P1041 7A87 205
P1042 7A8E 210 227
P1043 7A9B 225 213
P1044 7A97 221
P1051 7A9E 233 237
P1052 7AA0 235 171
P2011 7AA4 247 183 196 198 200 320 452 639 650 680 703
P2013 7AB8 269
P2031 7ACC 290 281
P2032 7AD5 301 292
P2033 7ADA 313 286 295 298 303
P2041 7ADC 315 328 330 339 344 348 365
P2051 7AE2 326 276
P2052 7AF5 346 336
P2061 7AF8 351
P2071 7B08 367 273
P2081 7B18 381 371
P2083 7B1C 386 402
P2091 7B1F 390 374
P2093 7B28 400 393
P2099 7B47 428 410
P2101 7B4F 434 384
P2111 7B53 443 379 388 398
P2112 7B57 446 443
P3010 7B5D 450 427
P3011 7B60 459 264
P3012 7B78 484 481
P301A 7B6F 475 462 470
P3020 7B88 497 493
P3021 7B7D 489 486
P3022 7B8A 499 491 496
P3031 7B96 513 506
P3032 7B9E 521 516
P3033 7B9F 522 510 520
P3041 7BA2 525 502
P3042 7BB0 540 534
P3043 7BB1 541 538
P3051 7BB4 544 527 530
P3053 7BBE 554 546 549
P5011 7BC1 560 262
P5012 7BC9 572 565
P5013 7BDF 595 586 588
P5015 7BE7 605 592
P5016 7C09 644 597 599
P5017 7BF9 622 610
P5018 7BFB 624 621
P501X 7BCE 577 576 579 580
P5023 7C11 656 681
P5024 7C1B 672 659 661
P6011 7C22 687 260
P6012 7C31 702 712 723
P6021 7C34 704 693
P6022 7C3A 710 716
P6024 7C3E 714 689
PFIND 7E53 1413 369 430 433 448 1377 1378 1389 1400 1407 1410
PHID 0030 75 125
READ 7C86 909 173
REV1 7CF9 959 951 954
REV2 7CFB 961 948
REV3 7CFC 962 957
REVOP 7CEB 945 363 404 963
ROL 7FBC 72 1485
SCKL1 7C50 734 730
SCKL2 7C53 737 733
SCKL3 7C61 758 728 731 736
SCKLD 7C48 727 357 378 387 395 412 420 435 465 623 738
SFAC 7C94 838 721 1265
SL 7C8C 828 698 910
SLA16 7C95 839 696 719
SOFGT 7A29 85
SOFIS 7C65 762 135 796
SOFNS 7A27 83
SOFS 7A24 80 130 136
SOFST 7A26 82 797 919 934 1476
SOFXT 7A28 84
SORF 7A30 93
SRT16 7C8A 821 911 1126 1280
SSOST 7C68 765 798
START 7A3C 129
STENT 7CDF 932 939 973 1315 1356
STLEN 7CB7 883 1477
STNA1 7C5E 755 290 468 926 1091 1137 1142 1150 1255 1272
STNCH 7C66 763 476 483 500 528 547
STOFA 7C96 840 717 1258 1275
STOL 7C86 816 817 1154
STTYP 7C63 760 148 169 172 194 217
STXL1 7CCA 903 1387
SYMT 7CCF 915 278 334 370 373 382 460 563 573 607 631 657 691
729 927 979 1044 1079 1186 1208 1225 1247 1295 1428
SYMT1 7CD9 924 574 636 918 920 921 922 923 981 1301
TCALL 7CAB 870 197
TEMP 7C5C 752 578 581 584 595 605 613 624 769 778 780 801 1320
1337 1339 1375 1405
TEMP2 7C60 757 946 959 961 962
TEND 7CAD 872 218
THREE 7CA8 866 937
TSX1 7E84 1471 1437 1438
TWO 7CA7 865 952 955 1122 1220
UNARY 7CCB 904 259
WRITE 7C8C 910 177
Z 7CA5 863 144 145 147 148 156 166 169 170 172 173 175 177
180 185 187 189 194 197 199 208 209 217 218 234
248 259 261 263 275 278 290 293 296 297 301 304
305 313 314 316 318 327 329 334 337 340 341 342
343 346 351 352 353 355 357 358 360 361 363 367
368 370 373 375 376 378 382 387 391 395 396 397
400 404 407 409 412 413 414 415 417 420 421 422
424 425 426 435 436 437 444 447 449 460 465 466
467 468 471 472 475 476 483 484 487 488 492 494
497 498 500 509 519 521 522 524 528 537 540 541
543 547 550 551 553 560 561 563 566 567 573 574
575 578 581 584 585 591 595 596 602 605 607 611
612 613 614 616 617 618 619 620 623 624 625 631
633 635 644 645 647 657 666 667 673 691 694 695
696 697 698 699 701 704 705 706 707 709 711 714
717 718 719 720 721 722 729 732 734 735 737 771
798 916 917 926 937 938 946 947 952 955 959 961
962 969 973 974 979 980 1012 1041 1044 1053 1079 1081
1091 1096 1098 1104 1105 1107 1120 1122 1126 1128 1129 1137
1139 1142 1145 1147 1150 1154 1156 1160 1164 1165 1169 1171
1172 1178 1181 1182 1183 1184 1186 1192 1193 1194 1196 1197
1199 1200 1201 1204 1207 1208 1211 1214 1216 1217 1218 1220
1224 1225 1226 1230 1236 1241 1243 1246 1247 1251 1255 1258
1260 1261 1262 1264 1265 1268 1272 1275 1277 1278 1280 1282
1283 1284 1287 1294 1295 1296 1298 1300 1302 1315 1316 1320
1325 1337 1339 1356 1358 1375 1379 1381 1383 1385 1387 1405
1408 1422 1424 1425 1428 1436
ZERO 7CA5 862 248 313 444 475 770 863