ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:06 2020
Source File: \kforph23.asm
1130 FORTRAN COMPILER PHASE 23
2 | *************************************************** K2300020
3 | *STATUS - VERSION 2 MODIFICATION 8 * K2300030
4 | * * K2300040
5 | *FUNCTION/OPERATION- * K2300050
6 | * * LISTS THE FEATURES SUPPORTED BY THE PROGRAM * K2300060
7 | * AS INDICATED IN THE FORTRAN COMMUNICATIONS * K2300070
8 | * AREA (FCOM). * K2300080
9 | * * LISTS THE SYSTEM SUBROUTINES USED BY THE * K2300090
10 | * PROGRAM, IF REQUESTED. * K2300100
11 | * * LISTS THE SUBPROGRAM NAMES FOUND IN THE * K2300110
12 | * SYMBOL TABLE, IF REQUESTED. * K2300120
13 | * * AS A SUPPLEMENT TO THE EXPANDER PHASES, 17 * K2300130
14 | * AND 18, THIS PHASE ADDS INDEXING TO THE * K2300140
15 | * SYSTEM LIBRARY SUBROUTINE CALLS AND 2-WORD * K2300150
16 | * INSTRUCTIONS WHICH REFERENCE DIMENSIONED * K2300160
17 | * VARIABLES. * K2300170
18 | * * K2300180
19 | *ENTRY POINTS- * K2300190
20 | * * NEQ - ENTERED VIA A CALL TO THE ROL SUBR * K2300200
21 | * FROM PHASE 23. * K2300210
22 | * * K2300220
23 | *INPUT- * K2300230
24 | * * STRING AREA * K2300240
25 | * * SYMBOL TABLE AREA * K2300250
26 | * * FCOM * K2300260
27 | * * K2300270
28 | *OUTPUT- * K2300280
29 | * * STRING AREA * K2300290
30 | * * SYMBOL TABLE AREA * K2300300
31 | * * FCOM * K2300310
32 | * * PRINTED LISTING * K2300320
33 | * * K2300330
34 | *EXTERNAL REFERENCES- * K2300340
35 | * SUBROUTINES * K2300350
36 | * * ROL * K2300360
37 | * * LSTPR * K2300370
38 | * * PRINT * K2300380
39 | * * NEWPG * K2300390
40 | * COMMA/DCOM * K2300400
41 | * * $ PHSE * K2300410
42 | * * $ CH12 * K2300420
43 | * * K2300430
44 | *EXITS- * K2300440
45 | * NORMAL- * K2300450
46 | * EXIT FROM THIS PHASE IS MADE VIA A CALL * K2300460
47 | * TO THE ROL SUBR WITH A REQUEST TO ENTER * K2300470
48 | * THE NEXT PHASE. * K2300480
49 | * ERROR- * K2300490
50 | * N/A * K2300500
51 | * * K2300510
52 | *ATTRIBUTES- * K2300520
53 | * N/A * K2300530
54 | * * K2300540
55 | *NOTES- * K2300550
56 | * THERE ARE NO ERRORS DETECTED IN THIS PHASE * K2300560
57 | * * K2300570
58 | *************************************************** K2300580
59 | ABS K2300590
60 | * K2300600
61 | * SYSTEM EQUATES K2300610
8000 62 | MEMRY EQU /8000 K2300620
7A23 63 | OVERL EQU MEMRY-1501 START OF FCOM 2-4 K2300630
7FBC 64 | ROL EQU MEMRY-68 LOCN OF RTN TO READ NXT PH K2300640
0078 65 | $PHSE EQU /78 NO. OF PHASE NOW IN CORE K2300650
66 | * K2300660
0035 67 | PHID EQU 53 ID NUMBER THIS PHASE K2300670
68 | * PRINT ROUTINE K2300680
69 | * K2300690
7F8B 70 | HEAD EQU ROL-49 PAGE HEADER AREA K2300700
7E42 71 | OVERP EQU HEAD-327-2 DEVICE PRINT ROUTINE AREA K2300710
7E0C 72 | NEWPG EQU OVERP-54 INDIRECT ENTRY PAGE EJECT K2300720
0006 73 | $CH12 EQU /06 CHANNEL 12 INDICATOR K2300730
7E0E 74 | PRINT EQU NEWPG+2 PRINT INTERFACE RTN ENTRY K2300740
7E45 75 | LSTPR EQU OVERP+3 DEVICE PRINT ROUTINE ENTRY K2300750
7E0D 76 | AREA EQU NEWPG+1 MESSAGE ADDRESS K2300760
0003 77 | PHLEN EQU 3 NO SECTORS THIS PHASE K2300765
78 | * K2300770
1132 D.M. V2 FORT P24 LIST SYMBOLS
7A23 80 | ORG OVERL K2300790
81 | * K2300800
82 | * FORTRAN COMMUNICATION AREA K2300810
7A23 83 | ORG BSS 1 ORIGIN ADDRESS 2-4 K2300815
7A24 84 | SOFS BSS 1 START OF STRING K2300820
7A25 85 | EOFS BSS 1 END OF STRING K2300830
7A26 86 | SOFST BSS 1 START OF SYMBOL TABLE K2300840
7A27 87 | SOFNS BSS 1 LENGTH OF PROGRAM K2300850
7A28 88 | SOFXT BSS 1 SIZE OF WORK AREA (VAR AREA) K2300860
7A29 89 | SOFGT BSS 1 SIZE OF CONSTANTS AREA K2300870
7A2A 90 | EOFST BSS 1 END OF SYMBOL TABLE K2300880
7A2B 91 | COMON BSS 1 RELATIVE ENTRY POINT K2300890
7A2C 92 | CSIZE BSS 1 SIZE OF COMMON K2300900
7A2D 93 | ERROR BSS 1 ERROR FLAG K2300910
94 | * BIT 15 OVERLAP ERROR K2300920
95 | * BIT 14 OTHER ERROR K2300930
7A2E 96 | FNAME BSS 1 PROGRAM NAME K2300940
7A2F 97 | BSS 1 K2300950
7A30 98 | SORF BSS 1 SUBROUTINE(-) OR FUNCTION(+) K2300960
7A31 99 | CCWD BSS 1 CONTROL CARD WORD K2300970
100 | * BIT 15 TRANSFER TRACE K2300980
101 | * BIT 14 ARITHMETIC TRACE K2300990
102 | * BIT 13 EXTENDED PRECISION K2301000
103 | * BIT 12 LIST SYMBOL TABLE K2301010
104 | * BIT 11 LIST SUBPROGRAM NAMES K2301020
105 | * BIT 10 LIST SOURCE PROGRAM K2301030
106 | * BIT 9 ONE WORD INTEGERS K2301040
107 | * BIT 8 ORIGIN 2-4 K2301045
7A32 108 | IOCS BSS 1 IOCS CONTROL CARD WORD K2301050
109 | * BIT 15 CARD K2301060
110 | * BIT 14 PAPER TAPE K2301070
111 | * BIT 13 TYPEWRITER K2301080
112 | * BIT 12 1403 PRINTER K2301090
113 | * BIT 11 2501 READER K2301100
114 | * BIT 10 KEYBOARD K2301110
115 | * BIT 9 1442 PUNCH K2301120
116 | * BIT 8 DISK K2301130
117 | * BIT 7 1132 PRINTER K2301140
118 | * BIT 3 PLOTTER K2301150
119 | * BIT 1 UNFORMATTED DISK K2301160
7A33 120 | DFCNT BSS 1 K2301170
121 | * K2301180
122 | * END OF FORTRAN COMMUNICATION K2301190
123 | * AREA K2301200
124 | *************************************************** K2301210
1130 FORTRAN COMPILER PHASE 23
7A36 126 | BPHAR EQU *+2 K2301230
7A34 0000 127 | DC 0 LOADER WORK AREA K2301240
7A35 FFCB 128 | DC -53 -PHASE ID FOR SLET LOOKUP K2301250
7A36 0300 129 | DC NXTPH-*+1 DISPLACEMENT TO SLET TABLE K2301260
7A37 0001 130 | DC 1 ONE SLET ENTRY REQUESTED K2301270
7A36 131 | ORG *-2 K2301280
7A36 4C00 7A3D 132 | NEQ BSC L ENT BRANCH TO BEGIN PROCESSING K2301290
133 | * K2301300
134 | * K2301310
7A38 0000 135 | WDCNT DC *-* PRINT AREA WORD COUNT K2301320
7A39 4000 136 | PAREA DC /4000 PRINT AREA START K2301330
7A3A 4000 137 | DC /4000 BLANK K2301340
7A3B 4000 138 | DC /4000 BLANK K2301350
7A3C 4000 139 | DC /4000 BLANK K2301360
140 | * K2301370
7AB0 141 | PAEND EQU PAREA+119 END OF PRINT AREA K2301380
142 | * K2301390
7A3D 6135 143 | ENT LDX 1 PHID GET ID THIS PHASE K2301400
7A3E 6D00 0078 144 | STX L1 $PHSE STORE IN COMMA K2301410
7A40 C400 7A2D 145 | LD L ERROR K2301420
7A42 4C20 7D2C 146 | BSC L EXIT,Z BR TO EXIT IF OVERLAP ERROR K2301430
1130 FORTRAN COMPILER PHASE 23
148 | * INITIALIZATION PROGRAM IS EXECUTED K2301450
149 | * AT LOCATIONS THAT LATER SERVE AS K2301460
150 | * PRINT AREA K2301470
151 | * K2301480
152 | * K2301490
153 | * INITIALIZE TRANSFERVECTOR K2301500
154 | * K2301510
7A44 6700 7B17 155 | LDX L3 Z LOAD XR3 WITH WK AREA PT K2301520
7A46 6F00 7A36 156 | STX L3 NEQ SAVE FOR RE-INITIALIZATION K2301530
157 | * K2301540
158 | * K2301550
159 | * LIST FEATURES SUPPORTED K2301560
160 | * K2301570
161 | * K2301580
162 | * ANY FEATURES SUPPORTED K2301590
163 | * K2301600
7A48 C0E9 164 | LD IOCS LD IOCS CONTROL CD WORD K2301610
7A49 4820 165 | BSC Z SKIP IF ZERO K2301620
7A4A 7005 166 | MDX K1010 BRANCH IF IOCS PRESENT K2301630
7A4B C400 7A31 167 | LD L CCWD LD CONTROL CARD WORD K2301640
7A4D E317 168 | AND 3 H00C7-Z REMOVE UNNECESSARY BITS 2-4 K2301650
7A4E 4C18 7AC1 169 | BSC L L1035,+- BR IF NO FEATURES SUPPORTED K2301660
170 | * K2301670
171 | * IF ANY FEATURES SUPPORTED K2301680
172 | * PRINT TEXT -FEATURES SUPPORTED- K2301690
173 | * K2301700
174 | * K2301710
7A50 4400 7D13 175 | K1010 BSI L PBLNK SPACE PRINTER ONE LINE K2301720
7A52 4400 7ACC 176 | BSI L HTEST PRINT MSG K2301730
7A54 0009 177 | DC 9 WORD COUNT K2301740
7A55 C6C5 C1E3 E4D9 C5E2 178 | EBC .FEATURES SUPPORTED. K2301750
40E2 E4D7 D7D6 D9E3 |
C5C4 |
179 | * K2301760
180 | * K2301770
181 | * PRINT .TRANSFER TRACE. K2301780
182 | * IF APPLICABLE K2301790
183 | * K2301800
7A5E C0D2 184 | K1020 LD CCWD LOAD CONTROL CARD WORD K2301810
7A5F 100F 185 | SLA 15 TEST FOR TRANSFER TRACE K2301820
7A60 4C10 7A6D 186 | BSC L K1021,- BR IF NO TRANSFER TRACE K2301830
7A62 4400 7ACC 187 | BSI L HTEST PRINT MSG K2301840
7A64 0008 188 | DC 8 WORD COUNT K2301850
7A65 40E3 D9C1 D5E2 C6C5 189 | EBC . TRANSFER TRACE . K2301860
D940 E3D9 C1C3 C540 |
190 | * K2301870
191 | * PRINT .ARITHMETIC TRACE. K2301880
192 | * IF APPLICABLE K2301890
193 | * K2301900
7A6D C400 7A31 194 | K1021 LD L CCWD LOAD CONTROL CARD WORD K2301910
7A6F 100E 195 | SLA 14 TEST FOR ARITHMETIC TRACE K2301920
7A70 4C10 7A7E 196 | BSC L K1031,- BR IF NO ARITHMETIC TRACE K2301930
7A72 4400 7ACC 197 | BSI L HTEST PRINT MSG K2301940
7A74 0009 198 | DC 9 WORD COUNT K2301950
7A75 40C1 D9C9 E3C8 D4C5 199 | EBC . ARITHMETIC TRACE . K2301960
E3C9 C340 E3D9 C1C3 |
C540 |
200 | * K2301970
201 | * PRINT .ONE WORD INTEGERS. K2301980
202 | * IF APPLICABLE K2301990
203 | * K2302000
7A7E C400 7A31 204 | K1031 LD L CCWD LOAD CONTROL CARD WORD K2302010
7A80 1009 205 | SLA 9 TEST FOR ONE WORD INTEGERS K2302020
7A81 4C10 7A8F 206 | BSC L K1051,- BR IF NO ONE WORD INTEGERS K2302030
7A83 4400 7ACC 207 | BSI L HTEST PRINT MSG K2302040
7A85 0009 208 | DC 9 WORD COUNT K2302050
7A86 40D6 D5C5 40E6 D6D9 209 | EBC . ONE WORD INTEGERS. K2302060
C440 C9D5 E3C5 C7C5 |
D9E2 |
210 | * K2302070
211 | * PRINT .EXTENDED PRECISION. K2302080
212 | * IF APPLICABLE K2302090
213 | * K2302100
7A8F C0A1 214 | K1051 LD CCWD LOAD CONTROL CARD WORD K2302110
7A90 100D 215 | SLA 13 TEST FOR EXTENDED PRECISION K2302120
7A91 4C10 7AAD 216 | BSC L L1025,- BR IF NOT EXTENDED PRECISION K2302130
7A93 4038 217 | BSI HTEST PRINT MSG K2302140
7A94 000A 218 | DC 10 WORD COUNT K2302150
7A95 40C5 E7E3 C5D5 C4C5 219 | EBC . EXTENDED PRECISION . K2302160
C440 D7D9 C5C3 C9E2 |
C9D6 D540 |
220 | * K2302170
221 | * CHANGE SYSTEM SUBR.-NAME-LIST SO THAT K2302180
222 | * APPLICABLE NAMES BEGIN WITH .E. K2302190
223 | * RATHER THAN WITH .F. K2302200
224 | * K2302210
7A9F 6124 225 | LDX 1 FAXIX-TABSS+2 K2302220
7AA0 43D8 226 | L1022 BSI 3 FTOE-Z CHANGE NEXT NAME K2302230
7AA1 71FE 227 | MDX 1 -2 K2302240
7AA2 70FD 228 | MDX L1022 BR IF X1 NOT ZERO K2302250
229 | * K2302260
7AA3 6146 230 | LDX 1 FCHRI-TABSS+2 CHANGE WCHRI 2-6 K2302262
7AA4 43D8 231 | BSI 3 FTOE-Z *INTO VCHRI 2-6 K2302264
232 | * K2302270
233 | * CHANGE SECOND CHAR IN TRACE ROUTINE K2302280
234 | * NAMES FROM 'F' INTO 'E' K2302290
235 | * K2302300
7AA5 C304 236 | LD 3 H0004-Z MODIFY FTOE SUBR TO MODIFY K2302310
7AA6 D047 237 | STO DIFF *THE SECOND CHAR OF NAME K2302320
7AA7 612A 238 | LDX 1 FARI-TABSS+2 K2302330
7AA8 43D8 239 | BSI 3 FTOE-Z MODIFY FARI K2302340
7AA9 612C 240 | LDX 1 FARIX-TABSS+2 K2302350
7AAA 43D8 241 | BSI 3 FTOE-Z MODIFY FARIX K2302360
7AAB 613C 242 | LDX 1 FIF-TABSS+2 K2302370
7AAC 43D8 243 | BSI 3 FTOE-Z MODIFY FIF K2302380
244 | * K2302381
245 | * PRINT .ORIGIN. K2302382
246 | * IF APPLICABLE K2302383
247 | * K2302384
7AAD C400 7A31 248 | L1025 LD L CCWD LOAD CONTROL CARD WORD 2-4 K2302385
7AAF 1008 249 | SLA 8 TEST FOR ORIGIN 2-4 K2302386
7AB0 4C10 7AB8 250 | BSC L L1030,- BRANCH IF NOT ORIGIN 2-4 K2302387
7AB2 4019 251 | BSI HTEST PRINT MESSAGE 2-4 K2302388
7AB3 0004 252 | DC 4 WORD COUNT 2-4 K2302389
7AB4 40D6 D9C9 C7C9 D540 253 | EBC . ORIGIN . 2-4 K2302390
254 | * K2302391
255 | * TEST FOR IOCS K2302400
7AB8 C400 7A32 256 | L1030 LD L IOCS LOAD IOCS CONTROL CARD WORD K2302410
7ABA 4C18 7AC1 257 | BSC L L1035,+- BR IF NO IOCS REQUESTED K2302420
7ABC 400F 258 | BSI HTEST PRINT MSG K2302430
7ABD 0003 259 | DC 3 WORD COUNT K2302440
7ABE 40C9 D6C3 E240 260 | EBC . IOCS . K2302450
261 | * K2302460
262 | * K2302470
7AC1 C400 7A31 263 | L1035 LD L CCWD LOAD CONTROL CARD WORD K2302480
7AC3 100B 264 | SLA 11 TEST IF LIST SUBP NAMES K2302490
7AC4 4C10 7BF0 265 | BSC L L2011,- BR IF NO LIST REQUESTED K2302500
266 | * K2302510
7AC6 6580 7A26 267 | LDX I1 SOFST INITIALIZE SYMBOL PT K2302520
7AC8 6D00 7B1F 268 | STX L1 STP * K2302530
269 | * K2302540
270 | * BRANCH TO PROGRAM AREA K2302550
271 | * OUTSIDE THE PRINT AREA K2302560
272 | * K2302570
7ACA 4C00 7BD9 273 | BSC L L1041 BR OUT OF PRINT AREA K2302580
274 | * K2302590
275 | * K2302600
276 | * PRINT SECTION HEADER K2302610
277 | * K2302620
7ACC 0000 278 | HTEST DC *-* LINK K2302630
279 | * K2302640
7ACD C480 0006 280 | LD I $CH12 LOAD CHANNEL 12 INDICATOR K2302650
7ACF 44A0 7E0C 281 | BSI I NEWPG,Z EJECT PAGE IF SET K2302660
282 | * K2302670
7AD1 C0FA 283 | LD HTEST GET WORD COUNT ADDRESS K2302680
7AD2 18D0 284 | RTE 16 SHIFT TO EXTENSION K2302690
7AD3 C009 285 | LD HTES1 LOAD PRINT PARAMETER K2302700
7AD4 4400 7E45 286 | BSI L LSTPR PRINT HEADER K2302710
287 | * K2302720
288 | * CALCULATE RETURN ADDRESS K2302730
289 | * K2302740
7AD6 C480 7ACC 290 | LD I HTEST LOAD WORD COUNT K2302750
7AD8 80F3 291 | A HTEST ADD WORD COUNT ADDRESS K2302760
7AD9 8301 292 | A 3 ONE-Z ADD ONE K2302770
7ADA D001 293 | STO *+1 STO INTO RETURN INSTRUCTION K2302780
7ADB 4C00 0000 294 | BSC L *-* RETURN K2302790
295 | * K2302800
296 | * K2302810
7ADD 7001 297 | HTES1 DC /7001 PRINT PARAMETER K2302820
298 | * K2302830
1130 FORTRAN COMPILER PHASE 23
300 | ************************************************** K2302850
301 | * K2302860
302 | * .TRANSFER VECTOR. SUBROUTINES FOLLOW K2302870
303 | ************************************************** K2302880
304 | * K2302890
305 | * K2302900
306 | * SUBROUTINE K2302910
307 | * GET SYMBOL TABLE ID-WORD K2302920
308 | * K2302930
7ADE 0000 309 | GETST DC 0 LINK K2302940
7ADF E305 310 | AND 3 H07FF-Z MK TO LV SYM TBL ENTRY NO. K2302950
7AE0 4C98 7ADE 311 | BSC I GETST,+- RETURN IF ZERO 2-6 K2302955
7AE2 D008 312 | STO GETS1+1 STORE INTO LD INSTRUCTION K2302960
7AE3 C400 7A26 313 | LD L SOFST LD START OF SYM TBL ADDRESS K2302970
7AE5 9005 314 | S GETS1+1 SUBTRACT 3*ENTRY NUMBER K2302980
7AE6 9004 315 | S GETS1+1 * K2302990
7AE7 9003 316 | S GETS1+1 * K2303000
7AE8 8303 317 | A 3 3 PLUS THREE K2303010
7AE9 D001 318 | STO GETS1+1 STO SYM TBL ENTRY ADR K2303020
7AEA C400 0000 319 | GETS1 LD L *-* LD SYM TBL ID WORD K2303030
7AEC 4C80 7ADE 320 | BSC I GETST RETURN K2303040
321 | * K2303050
322 | * K2303060
323 | * SUBROUTINE K2303070
324 | * CHANGE .F. IN FIRST CHARACTER OF A K2303080
325 | * SUBROUTINE NAME INTO .E. K2303090
326 | * (OR E,F INTO V,W) K2303100
327 | * K2303110
328 | * DISPLACEMENT IN NAME LIST = X1 K2303120
7AEE 0100 329 | DIFF DC /0100 K2303130
7AEF 0000 330 | FTOE DC 0 LINK K2303140
7AF0 C500 7B39 331 | LD L1 TABSS-2 GET FIRST WORD IN NAME K2303150
7AF2 90FB 332 | S DIFF CHANGE NAME BY K2303160
333 | * *SUBTRACTING DIFF K2303170
7AF3 D500 7B39 334 | STO L1 TABSS-2 RETURN WORD TO TABLE K2303180
7AF5 4C80 7AEF 335 | BSC I FTOE RETURN K2303190
336 | * K2303200
337 | * SUBROUTINE K2303210
338 | * .TAG. SYSTEM SUBR. NAME IN LIST BY K2303220
339 | * MAKING LEFTMOST BIT = ONE K2303230
340 | * K2303240
7AF7 0000 341 | TAGSR DC 0 LINK K2303250
7AF8 C600 7B39 342 | LD L2 TABSS-2 LOAD TABLE ENTRY K2303260
7AFA EB07 343 | OR 3 H8000-Z TAG IT TO BE PRINTED K2303270
7AFB D600 7B39 344 | STO L2 TABSS-2 RESTORE TABLE ENTRY K2303280
7AFD 4C80 7AF7 345 | BSC I TAGSR RETURN K2303290
346 | * MOVE STRING POINTER K2303300
7AFF 0000 347 | MOVEP DC 0 LINK K2303310
7B00 7101 348 | MDX 1 1 INCR STRING POINTER K2303320
7B01 1000 349 | SLA 0 K2303330
7B02 74FC 7B25 350 | MDX L NRM,-4 DECR WORD COUNT K2303340
7B04 1000 351 | SLA 0 K2303350
7B05 4C80 7AFF 352 | BSC I MOVEP RETURN K2303360
353 | * K2303370
354 | * SUBR. MOVE SYMBOL TABLE POINTER K2303380
7B07 0000 355 | MSTP DC 0 LINK K2303390
7B08 C100 356 | LD 1 0 LD SYM TBL ID WORD K2303400
7B09 E30A 357 | AND 3 MASK3-Z TEST IF DIMENTIONED K2303410
7B0A 4820 358 | BSC Z SKIP IF NOT DIMENSIONED K2303420
7B0B C30B 359 | LD 3 CM3-Z MINUS THREE K2303430
7B0C 9303 360 | S 3 3 MINUS THREE K2303440
7B0D 8308 361 | A 3 STP-Z ADD SYM TBL PT ADDRESS K2303450
7B0E D308 362 | STO 3 STP-Z STO NEXT SYM TBL ENTRY ADDR K2303460
7B0F 6580 7B1F 363 | LDX I1 STP SET SR1 TO NEW SYM TBL ENTRY K2303470
7B11 4C80 7B07 364 | BSC I MSTP RETURN K2303480
365 | * K2303490
1130 FORTRAN COMPILER PHASE 23
367 | * CONSTANTS K2303510
368 | * K2303520
7B13 003C 369 | D60 DC 60 CONSTANT K2303530
7B14 7A39 370 | PAPIN DC PAREA INITIAL VALUE OF PAP K2303540
7B15 7A39 371 | PAP DC PAREA PRINT AREA POINTER K2303550
7B16 0078 372 | C120 DC 120 CONSTANT K2303560
7B17 0000 373 | Z DC 0 CONSTANT, WK AREA BASE ADDR K2303570
7B17 374 | ZERO EQU Z * K2303580
7B18 0001 375 | ONE DC 1 CONSTANT K2303590
7B19 0002 376 | TWO DC 2 CONSTANT K2303600
7B1A 0003 377 | THREE DC 3 CONSTANT K2303610
7B1B 0004 378 | FOUR DC 4 CONSTANT K2303620
7B1B 379 | H0004 EQU FOUR * K2303630
7B1C 07FF 380 | H07FF DC /07FF CONSTANT MASK K2303640
381 | * K2303650
7B1D 0100 382 | H0100 DC /0100 CONSTANT MASK K2303660
7B1E 8000 383 | H8000 DC /8000 CONSTANT FLAG BIT K2303670
7B1F 0000 384 | STP DC 0 SYMBOL TABLE POINTER K2303680
7B20 0080 385 | MASK2 DC /0080 FOR TESTING IF SUBP NAME K2303690
7B21 1800 386 | MASK3 DC /1800 FOR TESTING IF DIMENTIONED K2303700
7B22 FFFD 387 | CM3 DC /FFFD CONSTANT K2303710
7B23 F800 388 | MASK5 DC /F800 FOR EXTRACTING STMNT ID K2303720
7B24 07FC 389 | MASK6 DC /07FC FOR EXTRACTING NORM K2303730
7B25 0000 390 | NRM DC 0 STORED NORM K2303740
7B26 0000 391 | STID DC 0 STMNT ID K2303750
7B27 6000 392 | FTEST DC /6000 STMNT ID = FORMAT K2303760
7B28 1000 393 | ENDID DC /1000 STMNT ID = END K2303770
7B29 1800 394 | H1800 DC /1800 MASK TO TEST IF DIMENTIONED K2303780
7B2A 1900 395 | H1900 DC /1900 MASK TO TEST IF .CALL SUBC. K2303790
7B2B 1E00 396 | H1E00 DC /1E00 MASK TO TEST .LIBF VIOAI. K2303800
7B2C 5B00 397 | H5B00 DC /5B00 MASK TO TEST .LDXL1. K2303810
7B2D 0500 398 | H0500 DC /0500 CONSTANT K2303820
7B2E 00C7 399 | H00C7 DC /00C7 TEST IF FEATURES SUPPORTED K2303830
7B2F 0080 400 | H0080 DC /0080 CONSTANT K2303840
7B30 0008 401 | H0008 DC /0008 CONSTANT K2303850
7B31 7800 402 | H7800 DC /7800 CONSTANT K2303860
7B32 1D00 403 | H1D00 DC /1D00 MASK TO TEST .LIBF SUBIN. K2303870
7B33 1600 404 | H1600 DC /1600 MASK TO TEST .LIBF SIOAI. K2303880
7B34 1680 405 | H1680 DC /1680 MASK TO TEST .LIBF SIOAF. K2303890
7B35 5D00 406 | H5D00 DC /5D00 MASK TO TEST SPEC .BSC L. K2303900
7B36 4000 407 | H4000 DC /4000 CONSTANT K2303910
7B37 D800 408 | HD800 DC /D800 MAST TO TEST INTNL O/P FMT K2303920
7B38 4700 409 | H4700 DC /4700 MASK TO TEST .BSI L. K2303930
7B39 F000 410 | DFILE DC /F000 MASK TO TEST IF DEFINE FILE K2303940
7B3A 0800 411 | DATA DC /F800-/F000 K2303950
412 | * K2303960
1130 FORTRAN COMPILER PHASE 23
414 | * SYSTEM SUBR. TABLE K2303980
7B3B 0604 415 | TABSS DC /0604 FADD CODE=008 K2303990
7B3C 4100 416 | DC /4100 K2304000
7B3D 0604 417 | DC /0604 FADDX 010 K2304010
7B3E 4127 418 | DC /4127 K2304020
7B3F 068A 419 | DC /068A FSUB 018 K2304030
7B40 4080 420 | DC /4080 K2304040
7B41 068A 421 | DC /068A FSUBX 020 K2304050
7B42 40A7 422 | DC /40A7 K2304060
7B43 0651 423 | DC /0651 FMPY 028 K2304070
7B44 7A00 424 | DC /7A00 K2304080
7B45 0651 425 | DC /0651 FMPYX 030 K2304090
7B46 7A27 426 | DC /7A27 K2304100
7B47 0610 427 | DC /0610 FDIV 038 K2304110
7B48 9940 428 | DC /9940 K2304120
7B49 0610 429 | DC /0610 FDIVX 040 K2304130
7B4A 9967 430 | DC /9967 K2304140
7B4B 064C 431 | DC /064C FLD 048 K2304150
7B4C 4000 432 | DC /4000 K2304160
7B4D 064C 433 | DC /064C FLDX 050 K2304170
7B4E 49C0 434 | DC /49C0 K2304180
7B4F 068A 435 | DC /068A FSTO 058 K2304190
7B50 3580 436 | DC /3580 K2304200
7B51 068A 437 | DC /068A FSTOX 060 K2304210
7B52 35A7 438 | DC /35A7 K2304220
7B53 0688 439 | DC /0688 FSBR 068 K2304230
7B54 2640 440 | DC /2640 K2304240
7B55 0688 441 | DC /0688 FSBRX 070 K2304250
7B56 2667 442 | DC /2667 K2304260
7B57 0612 443 | DC /0612 FDVR 078 K2304270
7B58 5640 444 | DC /5640 K2304280
7B59 0612 445 | DC /0612 FDVRX 080 K2304290
7B5A 5667 446 | DC /5667 K2304300
7B5B 0606 447 | DC /0606 FAXI 088 K2304310
7B5C 7240 448 | DC /7240 K2304320
7B5D 0606 449 | FAXIX DC /0606 FAXIX 090 K2304330
7B5E 7267 450 | DC /7267 K2304340
7B5F 0626 451 | DC /0626 FIXI 098 K2304350
7B60 7240 452 | DC /7240 K2304360
7B61 0626 453 | DC /0626 FIXIX 0A0 K2304370
7B62 7267 454 | DC /7267 K2304380
7B63 2218 455 | FARI DC /2218 SFAR 0A8 K2304390
7B64 1640 456 | DC /1640 K2304400
7B65 2218 457 | FARIX DC /2218 SFARX 0B0 K2304410
7B66 1667 458 | DC /1667 K2304420
7B67 2224 459 | FIAR DC /2224 SIAR 0B8 K2304430
7B68 1640 460 | DC /1640 K2304440
7B69 2224 461 | FIARX DC /2224 SIARX 0C0 K2304450
7B6A 1667 462 | DC /1667 K2304460
7B6B 0918 463 | AIFIX DC /0918 IFIX 0C8 K2304470
7B6C 99C0 464 | DC /99C0 K2304480
7B6D 064D 465 | AFLT DC /064D FLOAT 0D0 K2304490
7B6E 6063 466 | DC /6063 K2304500
7B6F 2666 467 | DC /2666 WRTYZ 0D8 K2304510
7B70 3A29 468 | DC /3A29 K2304520
7B71 23A1 469 | DC /23A1 TYPEZ 0E0 K2304530
7B72 7169 470 | DC /7169 K2304540
7B73 2224 471 | FIIF DC /2224 SIIF 0E8 K2304550
7B74 9180 472 | DC /9180 K2304560
7B75 2218 473 | FIF DC /2218 SFIF 0F0 K2304570
7B76 9180 474 | DC /9180 K2304580
7B77 221D 475 | FGOTO DC /221D SGOTO 0F8 K2304590
7B78 68D6 476 | DC /68D6 K2304600
7B79 0305 477 | DC /0305 CARDZ 100 K2304610
7B7A 9129 478 | DC /9129 K2304620
7B7B 1765 479 | DC /1765 PRNTZ 108 K2304630
7B7C 58E9 480 | DC /58E9 K2304640
7B7D 1705 481 | DC /1705 PAPTZ 110 K2304650
7B7E 78E9 482 | DC /78E9 K2304660
7B7F 260C 483 | FCHRI DC /260C WCHRI 118 2-1 K2304670
7B80 8649 484 | DC /8649 K2304680
7B81 2464 485 | DC /2464 URED 120 K2304690
7B82 5100 486 | DC /5100 K2304700
7B83 2499 487 | DC /2499 UWRT 128 K2304710
7B84 98C0 488 | DC /98C0 K2304720
7B85 240D 489 | DC /240D UCOMP 130 K2304730
7B86 6517 490 | DC /6517 K2304740
7B87 1914 491 | DC /1914 READZ 138 K2304750
7B88 1129 492 | DC /1129 K2304760
7B89 2264 493 | AERD DC /2264 SRED 140 K2304770
7B8A 5100 494 | DC /5100 K2304780
7B8B 2299 495 | DC /2299 SWRT 148 K2304790
7B8C 98C0 496 | DC /98C0 K2304800
7B8D 220D 497 | DC /220D SCOMP 150 K2304810
7B8E 6517 498 | DC /6517 K2304820
7B8F 2218 499 | AFIO DC /2218 SFIO 158 K2304830
7B90 9580 500 | DC /9580 K2304840
7B91 2225 501 | DC /2225 SIOAI 160 K2304850
7B92 6049 502 | DC /6049 K2304860
7B93 2225 503 | AIOAF DC /2225 SIOAF 168 K2304870
7B94 6046 504 | DC /6046 K2304880
7B95 2225 505 | DC /2225 SIOFX 170 K2304890
7B96 61A7 506 | DC /61A7 K2304900
7B97 2225 507 | DC /2225 SIOIX 178 K2304910
7B98 6267 508 | DC /6267 K2304920
7B99 2225 509 | DC /2225 SIOF 180 K2304930
7B9A 6180 510 | DC /6180 K2304940
7B9B 2225 511 | IOI DC /2225 SIOI 188 K2304950
7B9C 6240 512 | DC /6240 K2304960
7B9D 2290 513 | SUBSC DC /2290 SUBSC 190 K2304970
7B9E 2883 514 | DC /2883 K2304980
7B9F 1765 515 | DC /1765 PRNZ 198 K2304990
7BA0 5A40 516 | DC /5A40 K2305000
7BA1 020D 517 | BCKSP DC /020D BCKSP 1A0 K2305010
7BA2 2897 518 | DC /2897 K2305020
7BA3 0558 519 | EOF DC /0558 EOF 1A8 K2305030
7BA4 6000 520 | DC /6000 K2305040
7BA5 1916 521 | REWND DC /1916 REWND 1B0 K2305050
7BA6 6544 522 | DC /6544 K2305060
7BA7 228D 523 | DC /228D STOP 1B8 K2305070
7BA8 65C0 524 | DC /65C0 K2305080
7BA9 1706 525 | DC /1706 PAUSE 1C0 K2305090
7BAA 4885 526 | DC /4885 K2305100
7BAB 2255 527 | RSIGN DC /2255 SNR 1C8 K2305110
7BAC 9000 528 | DC /9000 K2305120
7BAD 2290 529 | DC /2290 SUBIN 1D0 K2305130
7BAE 2255 530 | DC /2255 K2305140
7BAF 2418 531 | DC /2418 UFIO 1D8 K2305150
7BB0 9580 532 | DC /9580 K2305160
7BB1 2425 533 | DC /2425 VIOAI 1E0 K2305170
7BB2 6049 534 | DC /6049 K2305180
7BB3 2425 535 | DC /2425 VIOAF 1E8 K2305190
7BB4 6046 536 | DC /6046 K2305200
7BB5 2425 537 | DC /2425 UIOFX 1F0 K2305210
7BB6 61A7 538 | DC /61A7 K2305220
7BB7 2425 539 | DC /2425 UIOIX 1F8 K2305230
7BB8 6267 540 | DC /6267 K2305240
7BB9 2425 541 | DC /2425 UIOF 200 K2305250
7BBA 6180 542 | DC /6180 K2305260
7BBB 2425 543 | DC /2425 UIOI 208 K2305270
7BBC 6240 544 | DC /6240 K2305280
7BBD 2210 545 | MDFIO DC /2210 SDFIO 210 K2305290
7BBE 6256 546 | DC /6256 K2305300
7BBF 2211 547 | DC /2211 SDRED 218 K2305310
7BC0 9144 548 | DC /9144 K2305320
7BC1 2212 549 | DC /2212 SDWRT 220 K2305330
7BC2 6663 550 | DC /6663 K2305340
7BC3 2210 551 | DC /2210 SDCOM 228 K2305350
7BC4 3594 552 | DC /3594 K2305360
7BC5 0000 553 | DC 0 RESERVED TO KEEP CODE K2305370
7BC6 0000 554 | DC 0 DIFFERENCE CONSTANT K2305380
555 | * BETWEEN DISK I/O K2305390
556 | * ROUTINES AND OTHERS K2305400
7BC7 2210 557 | DC /2210 SDAI 238 K2305410
7BC8 1240 558 | DC /1240 K2305420
7BC9 2210 559 | DC /2210 SDAF 240 K2305430
7BCA 1180 560 | DC /1180 K2305440
7BCB 2210 561 | DC /2210 SDFX 248 K2305450
7BCC 69C0 562 | DC /69C0 K2305460
7BCD 2210 563 | DC /2210 SDIX 250 K2305470
7BCE 99C0 564 | DC /99C0 K2305480
7BCF 2210 565 | DC /2210 SDF 258 K2305490
7BD0 6000 566 | DC /6000 K2305500
7BD1 2210 567 | MDI DC /2210 SDI 260 K2305510
7BD2 9000 568 | DC /9000 K2305520
7BD3 2210 569 | MDFND DC /2210 SDFND 268 K2305530
7BD4 6544 570 | DC /6544 K2305540
7BD5 1754 571 | DC /1754 PNCHZ 270 K2305550
7BD6 3229 572 | DC /3229 K2305560
573 | * K2305570
7BD7 0000 574 | EOTAB DC /0000 NOT USED K2305580
7BD8 0000 575 | DC /0000 NOT USED K2305590
1130 FORTRAN COMPILER PHASE 23
577 | * K2305610
578 | * K2305620
579 | * K2305630
580 | ************************************************** K2305640
581 | * K2305650
582 | * K2305660
7BD9 C308 583 | L1041 LD 3 STP-Z TEST IF END OF SYMBOL TABLE K2305670
7BDA 9400 7A2A 584 | S L EOFST * K2305680
7BDC 4808 585 | BSC + SKIP IF NOT K2305690
7BDD 7012 586 | MDX L2011 BR IF END OF SYMBOL TABLE K2305700
7BDE C100 587 | LD 1 0 LOAD SYMBOL TABLE ID WORD K2305710
588 | * K2305720
589 | * TEST IF CONSTANT K2305730
590 | * (EXTENDED PREC CONST MAY HAVE BITS K2305740
591 | * IN ID-WORD TO MAKE IT SIMILAR TO K2305750
592 | * SUBPROGRAM NAMES) K2305760
7BDF 4C28 7BEE 593 | BSC L L1045,+Z BR IF NOT CONSTANT OR NAME K2305770
594 | * K2305780
7BE1 E309 595 | AND 3 MASK2-Z K2305790
7BE2 4808 596 | BSC + SKIP IF SUBPROGR NAME K2305800
7BE3 700A 597 | MDX L1045 BR IF NOT K2305810
598 | * K2305820
599 | * TEST IF SUBPROGRAM NAME IS THE K2305830
600 | * NAME OF THE COMPILED SUBPROGRAM K2305840
601 | * ITSELF K2305850
602 | * (HAS /FFFF IN LAST WORD) K2305860
603 | * IN THAT CASE DO NOT PRINT K2305870
604 | * K2305880
7BE4 C102 605 | LD 1 2 LOAD NAME WORD 2 K2305890
7BE5 8301 606 | A 3 1 K2305900
7BE6 4818 607 | BSC +- SKIP IF DIFF K2305910
7BE7 7006 608 | MDX L1045 BR IF SAME K2305920
609 | * K2305930
610 | * TEST IF ARITH STMT FUNCT NAME K2305940
611 | * IN THAT CASE DO NOT PRINT K2305950
612 | * K2305960
7BE8 C100 613 | LD 1 0 LOAD SYMBOL TABLE ID WORD K2305970
7BE9 E306 614 | AND 3 H0100-Z K2305980
7BEA 4C20 7BEE 615 | BSC L L1045,Z BR IF ARITH SMT FUNCT NAME K2305990
616 | * K2306000
617 | * GET NAME FROM SYMBOL TABLE K2306010
618 | * MOVE NAME TO PRINT AREA K2306020
619 | * K2306030
7BEC 4400 7CB9 620 | BSI L MNAME MOVE NAME TO PRINT AREA K2306040
621 | * K2306050
622 | * K2306060
7BEE 43F0 623 | L1045 BSI 3 MSTP-Z INCR SYMBOL TABLE POINTER K2306070
7BEF 70E9 624 | MDX L1041 GO CHECK NEXT ENTRY K2306080
625 | * K2306090
626 | * K2306100
7BF0 6580 7A24 627 | L2011 LDX I1 SOFS INITIALIZE STRING POINTER K2306110
628 | * K2306120
7BF2 C100 629 | L2012 LD 1 0 LOAD STATEMENT ID WORD K2306130
7BF3 E30C 630 | AND 3 MASK5-Z EXTRACT ID K2306140
7BF4 D30F 631 | STO 3 STID-Z STORE ID K2306150
7BF5 C100 632 | LD 1 0 LOAD STATEMENT ID WORD K2306160
7BF6 E30D 633 | AND 3 MASK6-Z EXTRACT NORM K2306170
7BF7 D30E 634 | STO 3 NRM-Z STORE NORM K2306180
7BF8 43E8 635 | BSI 3 MOVEP-Z MOVE POINTER K2306190
636 | * K2306200
637 | * TEST IF END-STATEMENT K2306210
7BF9 C30F 638 | L2021 LD 3 STID-Z LOAD STATEMENT ID K2306220
7BFA 9311 639 | S 3 ENDID-Z TEST IF .END. K2306230
7BFB 4C18 7C3B 640 | BSC L L2041,+- BR IF .END. K2306240
641 | * K2306250
642 | * K2306260
643 | * TEST TO FIND STATEMENTS THAT K2306270
644 | * CONSIST OF ONE WORD ONLY K2306280
645 | * K2306290
7BFD C30E 646 | LD 3 NRM-Z K2306300
7BFE 4C18 7BF2 647 | BSC L L2012,+- BR IF ONE-WD STMT K2306310
648 | * K2306320
649 | * K2306330
7C00 C30F 650 | LD 3 STID-Z LOAD STATEMENT ID K2306340
7C01 9310 651 | S 3 FTEST-Z TEST IF FORMAT-STATEMENT K2306350
7C02 4C18 7C14 652 | BSC L L2022,+- BR IF FORMAT-STATEMENT K2306360
653 | * K2306370
654 | * TEST IF LOADER-OVERLAY SMT K2306380
655 | * IN A SUBPROGRAM K2306390
656 | * OR DEFINE FILE, DATA K2306400
657 | * K2306410
7C04 C30F 658 | LD 3 STID-Z LOAD STATEMENT ID K2306420
7C05 9322 659 | S 3 DFILE-Z K2306430
7C06 4C18 7C14 660 | BSC L L2022,+- BR IF DEFINE FILE K2306440
7C08 9323 661 | S 3 DATA-Z K2306450
7C09 4C18 7C14 662 | BSC L L2022,+- BR IF DATA-STMT K2306460
663 | * K2306470
7C0B C30F 664 | LD 3 STID-Z LOAD STATEMENT ID K2306480
7C0C 9320 665 | S 3 HD800-Z K2306490
7C0D 4C20 7C19 666 | BSC L L2031,Z BR IF STMT-ID .NE. D800 K2306500
7C0F C400 7A30 667 | LD L SORF K2306510
7C11 4C20 7C14 668 | BSC L L2022,Z BR IF LOADER-OVERLAY STMT K2306520
7C13 7005 669 | MDX L2031 BR IF NOT K2306530
670 | * K2306540
671 | * K2306550
672 | * MOVE POINTER TO NEXT STATEMENT K2306560
673 | * K2306570
7C14 C30E 674 | L2022 LD 3 NRM-Z LOAD NORM K2306580
7C15 4C18 7BF2 675 | BSC L L2012,+- BRANCH IF NORM = ZERO K2306590
7C17 43E8 676 | BSI 3 MOVEP-Z MOVE POINTER K2306600
7C18 70FB 677 | MDX L2022 BR, MOVE NOT COMPLETE K2306610
678 | * K2306620
679 | * K2306630
7C19 C100 680 | L2031 LD 1 0 LD SYMBOL TABLE PT WORD K2306640
7C1A 4810 681 | BSC - SKIP IF PACKED INSTR OR NAME K2306650
7C1B 7011 682 | MDX L2033 BR IF NOT K2306660
7C1C E31A 683 | AND 3 H7800-Z K2306670
7C1D 4C18 7C28 684 | BSC L L2032,+- BR IF NAME K2306680
685 | * K2306690
686 | * CHANGE PACKED INSTRUCTION IF K2306700
687 | * NAME REFERS TO DIMENSIONED K2306710
688 | * VARIABLE K2306720
689 | * K2306730
7C1F C100 690 | LD 1 0 LD SYMBOL TABLE PT WORD K2306740
7C20 4400 7ADE 691 | BSI L GETST GET SYMBOL TABLE ID WORD K2306750
7C22 E312 692 | AND 3 H1800-Z TEST FOR DIMENSIONED VAR K2306760
7C23 4C18 7C28 693 | BSC L L2032,+- BR IF NOT DIMENSIONED K2306770
694 | * K2306780
695 | * CHANGE INSTRUCTION CODE K2306790
696 | * (FROM LDL TO LDL1 ETC) K2306800
697 | * WAS NOT DONE IN MACRO 1 BECAUSE K2306810
698 | * THE PHASE WAS SPACE CRITICAL K2306820
699 | * K2306830
7C25 C100 700 | LD 1 0 LOAD STRING WORD K2306840
7C26 EB1F 701 | OR 3 H4000-Z MODIFY INSTRUCTION CODE K2306850
7C27 D100 702 | STO 1 0 SAVE BACK IN STRING K2306860
703 | * K2306870
704 | * K2306880
7C28 43E8 705 | L2032 BSI 3 MOVEP-Z MOVE STRING POINTER K2306890
7C29 C30E 706 | LD 3 NRM-Z LOAD STMNT NORM K2306900
7C2A 4C20 7C19 707 | BSC L L2031,Z BR IF NORM NOT ZERO K2306910
7C2C 70C5 708 | MDX L2012 BR IF NORM ZERO K2306920
709 | * K2306930
710 | * K2306940
7C2D C100 711 | L2033 LD 1 0 LOAD STMNT ID WORD K2306950
7C2E 1001 712 | SLA 1 SHIFT TEST BIT TO SIGN K2306960
7C2F 4C10 7C5F 713 | BSC L L3011,- BR IF .CALL. K2306970
714 | * K2306980
715 | * TEST IF HARDW-INSTR CODE K2306990
716 | * REFERS TO .SPEC BSC L. K2307000
717 | * IF SO, MOVE POINTER ONE WORD K2307010
718 | * EXTRA (SPEC BSC L IS FOLLOWED K2307020
719 | * BY A DISPLACEMENT VALUE RATHER K2307030
720 | * THAN A NAME K2307040
721 | * K2307050
7C31 C100 722 | LD 1 0 LOAD STRING WORD K2307060
7C32 931E 723 | S 3 H5D00-Z SUBTRACT SPECIAL BSC CODE K2307070
7C33 4C18 7C39 724 | BSC L L2034,+- BR IF SPECIAL BSC FOUND K2307080
725 | * K2307090
726 | * K2307100
7C35 C100 727 | LD 1 0 LOAD STRING WORD K2307110
7C36 9315 728 | S 3 H5B00-Z SUBTRACT LDX L1 CODE K2307120
7C37 4C20 7C28 729 | BSC L L2032,Z BR IF NOT LDXL1 K2307130
730 | * K2307140
731 | * K2307150
7C39 43E8 732 | L2034 BSI 3 MOVEP-Z MOVE POINTER BY 1 K2307160
7C3A 70ED 733 | MDX L2032 CONTINUE K2307170
734 | * K2307180
735 | * K2307190
7C3B 6500 FF62 736 | L2041 LDX L1 TABSS-EOTAB-2 LD SIZE OF PR TBL 2-8 K2307200
7C3D C400 7A31 737 | LD L CCWD LD CONTROL CARD WORD K2307210
7C3F 100B 738 | SLA 11 TEST TO LIST SUBPROG NAME K2307220
7C40 4C10 7D2C 739 | BSC L EXIT,- BR IF LISTING NOT REQUIRED K2307230
7C42 7102 740 | L2042 MDX 1 2 INCR COUNT OF NAMES K2307240
7C43 700E 741 | MDX L2044 BR TO LIST NAME IF CNT NE 0 K2307250
742 | * K2307260
743 | * (SKIP OCCURS AT END OF LIST) K2307270
744 | * K2307280
745 | * TEST IF HALF FILLED LINE REMAINS K2307290
746 | * TO BE PRINTED K2307300
747 | * K2307310
7C44 C400 7D0F 748 | LD L PCNT LOAD PRINT CHAR COUNT K2307320
7C46 4C18 7D2C 749 | BSC L EXIT,+- BR IF PRINT COUNT ZERO K2307330
7C48 1801 750 | SRA 1 DIVIDE BY 2 K2307340
7C49 D400 7A38 751 | STO L WDCNT SAVE IN WORD COUNT K2307350
7C4B C3FD 752 | LD 3 PAPIN-Z FET PR AREA POINTER START K2307360
7C4C D400 7E0D 753 | STO L AREA SAVE FOR PRINT SUBROUTINE K2307370
7C4E 4400 7E0E 754 | BSI L PRINT PRINT LAST LINE K2307380
7C50 4C00 7D2C 755 | BSC L EXIT BR TO EXIT THIS PHASE K2307390
756 | * K2307400
757 | * PRINT .TAGGED. SYSTEM SUBROUTINE K2307410
758 | * NAMES K2307420
759 | * K2307430
7C52 C500 7BD7 760 | L2044 LD L1 EOTAB LOAD NAME FROM TABLE K2307440
7C54 4810 761 | BSC - SKIP IF SUBR NAME .TAGGED. K2307450
7C55 70EC 762 | MDX L2042 BR IF NOT K2307460
7C56 7500 7BD6 763 | MDX L1 EOTAB-1 INCR INDEX SO NAME AT XR1+1 K2307470
7C58 1000 764 | SLA 0 NOP, IF SIGN CHANGE K2307480
7C59 4400 7CB9 765 | BSI L MNAME MOVE NAME TO PRINT AREA K2307490
7C5B 7500 842A 766 | MDX L1 -EOTAB+1 RESET XR1 K2307500
7C5D 1000 767 | SLA 0 NOP K2307510
7C5E 70E3 768 | MDX L2042 BR BACK TO SEARCH LIST K2307520
769 | * K2307530
770 | * TWO-WORD SUBPROGRAM CALL K2307540
771 | * OR SYSTEMS SUBR CALL ENCOUNTERED. K2307550
772 | * K2307560
7C5F C100 773 | L3011 LD 1 0 LOAD STRING WORD K2307570
7C60 1807 774 | SRA 7 SHIFT TO TEST FOR 2-WD CALL K2307580
775 | * K2307590
7C61 4C18 7CAF 776 | BSC L L3051,+- BR IF TWO-WORD CALL K2307600
777 | * K2307610
778 | * THIS IS A SYSTEMS SUBROUTINE CALL K2307620
779 | * K2307630
780 | * TEST IF LAST WORD IN STATEMENT K2307640
7C63 C30E 781 | LD 3 NRM-Z LOAD STORED NORM K2307650
7C64 9304 782 | S 3 FOUR-Z SUBTRACT 1 FROM NORM COUNT K2307660
7C65 4C08 7C7A 783 | BSC L L3012,+ BR IF LAST K2307670
784 | * K2307680
785 | * TEST IF .CALL SUBIN. K2307690
786 | * TEST MUST BE MADE HERE SINCE ITS K2307700
787 | * FOLLOWING ARGUMENTS COULD BE K2307710
788 | * MISTAKEN FOR DIMENSIONED K2307720
789 | * VARIABLE NAMES, AT OCCASION K2307730
790 | * K2307740
7C67 C100 791 | LD 1 0 LOAD STRING WORD K2307750
7C68 931B 792 | S 3 H1D00-Z SUBTRACT .SUBIN. CODE K2307760
7C69 4C18 7C7A 793 | BSC L L3012,+- BR IF .SUBIN. K2307770
794 | * K2307780
795 | * K2307790
796 | * IF FOLLOWED BY A DIMENSIONED NAME, K2307800
797 | * INCREMENT CALL CODE K2307810
798 | * CORRECTION DONE HERE BECAUSE K2307820
799 | * MACRO 1 PHASE APPROACHING CRITICAL K2307830
800 | * SIZE K2307840
801 | * K2307850
7C6B C101 802 | LD 1 1 GET NEXT WORD OF STRING K2307860
7C6C 4C10 7C7A 803 | BSC L L3012,- BR IF NOT FOLLOWED BY K2307870
804 | * *NAME OR PACKED INSTRUCTION K2307880
7C6E E31A 805 | AND 3 H7800-Z MASK NAME BITS K2307890
7C6F 4C20 7C7A 806 | BSC L L3012,Z BR IF PACKED INSTR K2307900
807 | * K2307910
808 | * TEST IF NAME DIMENSIONED K2307920
7C71 C101 809 | LD 1 1 GET STRING WD K2307930
7C72 4400 7ADE 810 | BSI L GETST BR TO GET SYMBOL TABLE ID WD K2307940
7C74 E312 811 | AND 3 H1800-Z MASK ALL BUT DIMENSION BITS K2307950
7C75 4C18 7C7A 812 | BSC L L3012,+- BR IF NAME NOT DIMENSIONED K2307960
813 | * K2307970
814 | * NAME IS DIMENSIONED, K2307980
815 | * CHANGE CALL CODE K2307990
816 | * K2308000
7C77 C100 817 | LD 1 0 LOAD STRING WORD K2308010
7C78 8318 818 | A 3 H0080-Z MASK IN DIMENSION BITS K2308020
7C79 D100 819 | STO 1 0 SAVE IN STRING K2308030
820 | * K2308040
821 | * K2308050
822 | * TAG SYSTEMS SUBROUTINE NAME IN TABLE K2308060
823 | * K2308070
7C7A C100 824 | L3012 LD 1 0 LD STRING WD K2308080
7C7B 1806 825 | SRA 6 RIGHT JUSTIFY POINTER K2308090
7C7C D001 826 | STO L3013+1 SAVE POINTER TO SUBR TABLE K2308100
7C7D 6600 0000 827 | L3013 LDX L2 *-* PUT POINTER IN XR2 K2308110
7C7F 43E0 828 | BSI 3 TAGSR-Z BR TO FLAG SUBR TABLE ENTRY K2308120
829 | * K2308130
830 | * TEST IF SYSTEM SUBROUTINE K2308140
831 | * HAS SPECIAL ARGUMENT LIST TO K2308150
832 | * MOVE POINTER PAST THIS ARG LIST K2308160
833 | * K2308170
7C80 C100 834 | LD 1 0 LOAD STRING WORD K2308180
7C81 931C 835 | S 3 H1600-Z TEST FOR CALL FIOAI K2308190
7C82 4C18 7CA3 836 | BSC L L3015,+- BR IF CALL FIOAI K2308200
837 | * K2308210
7C84 C100 838 | LD 1 0 LOAD STRING WORD K2308220
7C85 931D 839 | S 3 H1680-Z TEST FOR CALL FIOAF K2308230
7C86 4C18 7CA3 840 | BSC L L3015,+- BR IF CALL FIOAF K2308240
841 | * K2308250
7C88 C100 842 | LD 1 0 LOAD STRING WORD K2308260
7C89 931B 843 | S 3 H1D00-Z TEST FOR CALL SUBIN K2308270
7C8A 4C18 7CA7 844 | BSC L L3041,+- BR IF CALL SUBIN K2308280
845 | * K2308290
7C8C C100 846 | LD 1 0 LOAD STRING WORD K2308300
7C8D 9313 847 | S 3 H1900-Z TEST FOR CALL SUBSC K2308310
7C8E 4C18 7C9B 848 | BSC L HERE,+- BR IF NOT CALL SUBSC K2308320
7C90 C100 849 | LD 1 0 LOAD STRING WORD K2308330
7C91 9314 850 | S 3 H1E00-Z TEST FOR CALL UIOA2 K2308340
7C92 4820 851 | BSC Z SKIP IF FOUND K2308350
7C93 9318 852 | S 3 H0080-Z TEST FOR CALL UIOAI K2308360
7C94 4820 853 | BSC Z SKIP IF FOUND K2308370
7C95 9316 854 | S 3 H0500-Z TEST FOR CALL SDAI K2308380
7C96 4820 855 | BSC Z SKIP IF FOUND K2308390
7C97 9318 856 | S 3 H0080-Z TEST FOR CALL SDAF K2308400
7C98 4C20 7C28 857 | BSC L L2032,Z NO MATCH, BR TO MOVE PT K2308410
7C9A 7008 858 | MDX L3015 BR TO MOVE PT PAST 2 WDS K2308420
859 | * K2308430
860 | * MOVE POINTER PAST ARGUMENT LIST K2308440
861 | * OF .CALL SUBSC. K2308450
862 | * K2308460
7C9B 43E8 863 | HERE BSI 3 MOVEP-Z MOVE POINTER 1 WORD K2308470
7C9C 43E8 864 | BSI 3 MOVEP-Z MOVE POINTER 1 WORD K2308480
7C9D 43E8 865 | L3042 BSI 3 MOVEP-Z MOVE POINTER 1 WORD K2308490
7C9E 43E8 866 | BSI 3 MOVEP-Z MOVE POINTER 1 WORD K2308500
7C9F C100 867 | LD 1 0 LOAD STRING WD K2308510
7CA0 4C28 7C28 868 | BSC L L2032,Z+ BR IF PAST ARGUMENT STRING K2308520
7CA2 70FA 869 | MDX L3042 BR IF NOT K2308530
870 | * K2308540
871 | * K2308550
872 | * MOVE POINTER PAST TWO ARGUMENTS K2308560
873 | * K2308570
7CA3 43E8 874 | L3015 BSI 3 MOVEP-Z MOVE POINTER 1 WORD K2308580
7CA4 43E8 875 | BSI 3 MOVEP-Z MOVE POINTER 1 WORD K2308590
7CA5 4C00 7C28 876 | BSC L L2032 CONTINUE K2308600
877 | * K2308610
878 | * MOVE POINTER BY ARGUMENTS K2308620
7CA7 1000 879 | L3041 SLA 0 NOP K2308630
7CA8 43E8 880 | L3016 BSI 3 MOVEP-Z MOVE POINTER 1 WORD K2308640
7CA9 C100 881 | LD 1 0 LOAD STRING WORD K2308650
7CAA 9301 882 | S 3 ONE-Z SUB END-OF-LIAT INDR (=1) K2308660
7CAB 4C20 7CA8 883 | BSC L L3016,Z BR IF NOT END OF K2308670
884 | * *ARGUMENT LIST K2308680
7CAD 4C00 7C28 885 | BSC L L2032 BR IF END OF ARGUMENT LIST K2308690
886 | * K2308700
887 | * TWO-WORD CALL ENCOUNTERED K2308710
888 | * IF CALL IS TO ARITH STMNT FUNCTION K2308720
889 | * CHANGE TO BSI L K2308730
890 | * K2308740
7CAF C101 891 | L3051 LD 1 1 LOAD STRING WD +1 K2308750
7CB0 4400 7ADE 892 | BSI L GETST BR TO GET SYM TBL ID WD K2308760
7CB2 E316 893 | AND 3 H0500-Z MASK ARITH STMNT FUNC BIT K2308770
7CB3 4C08 7C28 894 | BSC L L2032,+ BR IF NOT ARITH STMNT FUNC K2308780
895 | * OR DUMMY VARIABLE NAME K2308790
7CB5 C321 896 | LD 3 H4700-Z CODE FOR .BSI L. K2308800
7CB6 D100 897 | STO 1 0 SAVE AS FIRST STRING WD K2308810
7CB7 4C00 7C28 898 | BSC L L2032 BR TO CONTINUE K2308820
899 | * K2308830
900 | * PRINT HEADER IF NECESSARY K2308840
901 | * BUILD PRINT LINE K2308850
902 | * K2308860
7CB9 0000 903 | MNAME DC 0 ENTRY POINT K2308870
7CBA 4400 7D13 904 | BSI L PBLNK BR TO PRINT BLANK LINE K2308880
7CBC 4400 7ACC 905 | BSI L HTEST BR TO PRINT HEADER K2308890
7CBE 0009 906 | DC 9 WD CNT AND HEADER TO PRINT K2308900
7CBF C3C1 D3D3 C5C4 40E2 907 | EBC .CALLED SUBPROGRAMS. K2308910
E4C2 D7D9 D6C7 D9C1 |
D4E2 |
7CC8 6600 7CCA 908 | LDX L2 RWM-1 SET UP TO BR PAST HDR PR K2308920
7CCA 6AF0 909 | STX 2 MNAME+2 *AFTER FIRST PASS K2308930
7CCB 403E 910 | RWM BSI TOPAB BR TO PRINT BLANK CHAR K2308940
7CCC C101 911 | LD 1 1 GET SUBR NAME TO PRINT K2308950
7CCD 4031 912 | BSI TOPA BR TO CONVERT, MOVE 1ST CHAR K2308960
7CCE C101 913 | LD 1 1 GET SUBR NAME K2308970
7CCF 1006 914 | SLA 6 SHIFT 2ND CHAR K2308980
7CD0 402E 915 | BSI TOPA BR TO CONVERT, MOVE 2ND CHAR K2308990
7CD1 C102 916 | LD 1 2 GET 2ND WD OF SUBR NAME K2309000
7CD2 18D0 917 | RTE 16 SHIFT TO EXTENSION K2309010
7CD3 C101 918 | LD 1 1 GET 1ST WD OF SUBR NAME K2309020
7CD4 108C 919 | SLT 12 SHIFT BOTH REGS FOR 3RD CHAR K2309030
7CD5 4029 920 | BSI TOPA BR TO CONVERT, MOVE 3RD CHAR K2309040
7CD6 C102 921 | LD 1 2 GET 2ND WD OF SUBR NAME K2309050
7CD7 1002 922 | SLA 2 SHIFT 4TH CHAR K2309060
7CD8 4026 923 | BSI TOPA BR TO CONVERT, MOVE 4TH CHAR K2309070
7CD9 C102 924 | LD 1 2 GET 2ND WD OF SUBR NAME K2309080
7CDA 1008 925 | SLA 8 SHIFT 5TH CHAR K2309090
7CDB 4023 926 | BSI TOPA BR TO CONVERT, MOVE 5TH CHAR K2309100
7CDC 402D 927 | BSI TOPAB BR TO OUTPUT BLANK CHAR K2309110
7CDD 402C 928 | BSI TOPAB BR TO OUTPUT BLANK CHAR K2309120
929 | * K2309130
930 | * INCREMENT PRINT COUNT K2309140
7CDE C030 931 | LD PCNT LOAD PRINT COUNT K2309150
7CDF 8319 932 | A 3 H0008-Z INCR BY 8 CHARS K2309160
7CE0 D02E 933 | STO PCNT SAVE IN PRINT COUNT K2309170
934 | * K2309180
935 | * TEST IF LINE FULL K2309190
7CE1 93FF 936 | S 3 C120-Z SUBTRACT MAX NO. CHARS/LINE K2309200
7CE2 4CA8 7CB9 937 | BSC I MNAME,+Z RETURN IF LINE NOT FULL K2309210
7CE4 C3FD 938 | LD 3 PAPIN-Z LOAD PR AREA INT CONSTANT K2309220
7CE5 D3FE 939 | STO 3 PAP-Z RESET PR AREA POINTER K2309230
7CE6 D400 7E0D 940 | STO L AREA RESET START OF PR AREA K2309240
7CE8 C3FC 941 | LD 3 D60-Z GET CONSTANT 60 K2309250
7CE9 D400 7A38 942 | STO L WDCNT *TO SET UP PRINT WD COUNT K2309260
7CEB 4400 7E0E 943 | BSI L PRINT PRINT A LINE K2309270
7CED 1010 944 | SLA 16 CLEAR ACC K2309280
7CEE D020 945 | STO PCNT CLEAR PRINT COUNT K2309290
7CEF C480 0006 946 | LD I $CH12 TEST FOR CHANNEL 12 FOUND K2309300
7CF1 44A0 7E0C 947 | BSI I NEWPG,Z BR TO PAGE EJECT IF FOUND K2309310
7CF3 402A 948 | BSI BLKPA BR TO BLANK OUT THE PR AREA K2309320
7CF4 4C80 7CB9 949 | BSC I MNAME RETURN K2309330
950 | * K2309340
951 | * SUBROUTINE K2309350
952 | * CHAR IN ACC TO PRINT AREA UNCHANGED K2309360
953 | * K2309370
7CF6 0000 954 | TOPAU DC 0 LINK ENTRY POINT K2309380
7CF7 D01A 955 | STO STOCH SAVE CHAR TO PRINT K2309390
7CF8 C019 956 | TOPAX LD STOCH LD CHAR TO PRINT K2309400
7CF9 D480 7B15 957 | STO I PAP SAVE IN PRINT AREA K2309410
7CFB 7401 7B15 958 | MDX L PAP,1 MOVE PRINT AREA POINTER K2309420
7CFD 4C80 7CF6 959 | BSC I TOPAU RETURN K2309430
960 | * K2309440
961 | * SUBROUTINE K2309450
962 | * CONVERT CHAR IN ACC INTO K2309460
963 | * EBC-CODE, THEN MOVE TO PRINT AREA K2309470
964 | * K2309480
7CFF 0000 965 | TOPA DC 0 LINK K2309490
7D00 E00F 966 | AND H3F00 GET BITS 2-7 OF PR CHAR K2309500
7D01 4C18 7D08 967 | BSC L TOPA2,+- BR IF BLANK K2309510
968 | * K2309520
969 | * NOTE K2309530
970 | * IF OTHER SPECIAL CHARACTERS THAN K2309540
971 | * BLANK ARE EXPECTED, TESTING SHOULD K2309550
972 | * BE HERE K2309560
7D03 E80D 973 | OR HC000 OR IN BITS 0,1 OF PR CHAR K2309570
7D04 D00D 974 | TOPA1 STO STOCH SAVE CHAR TO PR IN EBC CODE K2309580
7D05 C0F9 975 | LD TOPA MOVE LINK K2309590
7D06 D0EF 976 | STO TOPAU SAVE IN COMMON OUTPUT AREA K2309600
7D07 70F0 977 | MDX TOPAX BR TO INCR PAP AND RETURN K2309610
7D08 C31F 978 | TOPA2 LD 3 H4000-Z LOAD EBC BLANK K2309620
7D09 70FA 979 | MDX TOPA1 BR TO OUTPUT IT K2309630
980 | * K2309640
7D0A 0000 981 | TOPAB DC 0 LINK ENTRY POINT K2309650
7D0B 1010 982 | SLA 16 CLEAR ACC K2309660
7D0C 40F2 983 | BSI TOPA BR TO OUTPUT EBC BLANK K2309670
7D0D 4C80 7D0A 984 | BSC I TOPAB RETURN K2309680
985 | * K2309690
986 | * CONSTANTS K2309700
7D0F 0000 987 | PCNT DC *-* COUNT OF CHARS TO PRINT K2309710
7D10 3F00 988 | H3F00 DC /3F00 CONSTANT MASK K2309720
7D11 C000 989 | HC000 DC /C000 CONSTANT MASK K2309730
7D12 0000 990 | STOCH DC *-* CHAR TO BE PRINTED K2309740
991 | * K2309750
992 | * SUBROUTINE K2309760
993 | * TO PRINT BLANK LINE K2309770
994 | * K2309780
7D13 0000 995 | PBLNK DC *-* LINK ENTRY POINT K2309790
7D14 C008 996 | LD PLBN2 LOAD SPACE PARAMETER K2309800
7D15 4400 7E45 997 | BSI L LSTPR SPACE PRINTER K2309810
998 | * K2309820
7D17 C480 0006 999 | LD I $CH12 LOAD CHANNEL 12 INDICATOR K2309830
7D19 44A0 7E0C 1000 | BSI I NEWPG,Z EJECT PAGE IF ON K2309840
1001 | * K2309850
7D1B 4C80 7D13 1002 | BSC I PBLNK RETURN K2309860
1003 | * K2309870
7D1D 7002 1004 | PLBN2 DC /7002 PRINTER SPACE PARAMETER K2309880
1005 | * K2309890
7D1E 0000 1006 | BLKPA DC *-* CLEAR THE PRINT AREA ENTRY K2309900
7D1F C31F 1007 | LD 3 H4000-Z LOAD EBC BLANK K2309910
7D20 6780 7A38 1008 | LDX I3 WDCNT PUT WORD COUNT XR3 K2309920
7D22 7780 7A38 1009 | MDX I3 WDCNT INCR WORD CNT BY SAME AMT K2309930
7D24 D700 7A38 1010 | BLKP STO L3 PAREA-1 SAVE BLANK IN PR AREA K2309940
7D26 73FF 1011 | MDX 3 -1 DECR COUNT OF NO. BLANKS K2309950
7D27 70FC 1012 | MDX BLKP LOOP IF PR AREA NOT FULL K2309960
7D28 6700 7B17 1013 | LDX L3 Z RESET XR3 TO CONSTANT PT K2309970
7D2A 4C80 7D1E 1014 | BSC I BLKPA RETURN K2309980
1015 | * K2309990
1016 | * EXIT ROUTINE K2310000
1017 | * K2310010
7D2C 1000 1018 | EXIT SLA 0 NOP K2310020
7D2D C480 0006 1019 | LD I $CH12 LOAD CHANNEL 12 SW K2310030
7D2F 44A0 7E0C 1020 | BSI I NEWPG,Z IF END OF PAGE, RESTORE PAGE K2310040
1021 | * K2310050
1022 | * K2310060
7D31 6580 7D37 1023 | LDX I1 NXTPH+1 LOAD PARAMETER FOR READING K2310070
7D33 C804 1024 | LDD NXTPH+2 *NEXT PHASE K2310080
7D34 4C00 7FBC 1025 | BSC L ROL GO TO READ NEXT PHASE K2310090
7D36 1026 | BSS E 0 K2310100
7D36 0036 1027 | NXTPH DC 54 ID OF NEXT PHASE K2310110
7D37 0000 1028 | DC *-* CORE ADDRESS NEXT PHASE K2310120
7D38 0000 1029 | DC *-* WORD COUNT NEXT PHASE K2310130
7D39 0000 1030 | DC *-* SECTOR ADDRESS NEXT PHASE K2310140
1031 | * K2310150
7D3A 1032 | BSS BPHAR+320*PHLEN-*-1 PATCH AREA 2-6 K2310160
1033 | * K2310170
7DF5 0000 1034 | DC 0 K2310180
7DF6 1035 | END BPHAR-2 K2310190
There were no errors in this assembly
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
$CH12 0006 73 280 946 999 1019
$PHSE 0078 65 144
AERD 7B89 493
AFIO 7B8F 499
AFLT 7B6D 465
AIFIX 7B6B 463
AIOAF 7B93 503
AREA 7E0D 76 753 940
BCKSP 7BA1 517
BLKP 7D24 1010 1012
BLKPA 7D1E 1006 948 1014
BPHAR 7A36 126 1032 1035
C120 7B16 372 936
CCWD 7A31 99 167 184 194 204 214 248 263 737
CM3 7B22 387 359
COMON 7A2B 91
CSIZE 7A2C 92
D60 7B13 369 941
DATA 7B3A 411 661
DFCNT 7A33 120
DFILE 7B39 410 659
DIFF 7AEE 329 237 332
ENDID 7B28 393 639
ENT 7A3D 143 132
EOF 7BA3 519
EOFS 7A25 85
EOFST 7A2A 90 584
EOTAB 7BD7 574 736 760 763 766
ERROR 7A2D 93 145
EXIT 7D2C 1018 146 739 749 755
FARI 7B63 455 238
FARIX 7B65 457 240
FAXIX 7B5D 449 225
FCHRI 7B7F 483 230
FGOTO 7B77 475
FIAR 7B67 459
FIARX 7B69 461
FIF 7B75 473 242
FIIF 7B73 471
FNAME 7A2E 96
FOUR 7B1B 378 379 782
FTEST 7B27 392 651
FTOE 7AEF 330 226 231 239 241 243 335
GETS1 7AEA 319 312 314 315 316 318
GETST 7ADE 309 311 320 691 810 892
H0004 7B1B 379 236
H0008 7B30 401 932
H0080 7B2F 400 818 852 856
H00C7 7B2E 399 168
H0100 7B1D 382 614
H0500 7B2D 398 854 893
H07FF 7B1C 380 310
H1600 7B33 404 835
H1680 7B34 405 839
H1800 7B29 394 692 811
H1900 7B2A 395 847
H1D00 7B32 403 792 843
H1E00 7B2B 396 850
H3F00 7D10 988 966
H4000 7B36 407 701 978 1007
H4700 7B38 409 896
H5B00 7B2C 397 728
H5D00 7B35 406 723
H7800 7B31 402 683 805
H8000 7B1E 383 343
HC000 7D11 989 973
HD800 7B37 408 665
HEAD 7F8B 70 71
HERE 7C9B 863 848
HTES1 7ADD 297 285
HTEST 7ACC 278 176 187 197 207 217 251 258 283 290 291 905
IOCS 7A32 108 164 256
IOI 7B9B 511
K1010 7A50 175 166
K1020 7A5E 184
K1021 7A6D 194 186
K1031 7A7E 204 196
K1051 7A8F 214 206
L1022 7AA0 226 228
L1025 7AAD 248 216
L1030 7AB8 256 250
L1035 7AC1 263 169 257
L1041 7BD9 583 273 624
L1045 7BEE 623 593 597 608 615
L2011 7BF0 627 265 586
L2012 7BF2 629 647 675 708
L2021 7BF9 638
L2022 7C14 674 652 660 662 668 677
L2031 7C19 680 666 669 707
L2032 7C28 705 684 693 729 733 857 868 876 885 894 898
L2033 7C2D 711 682
L2034 7C39 732 724
L2041 7C3B 736 640
L2042 7C42 740 762 768
L2044 7C52 760 741
L3011 7C5F 773 713
L3012 7C7A 824 783 793 803 806 812
L3013 7C7D 827 826
L3015 7CA3 874 836 840 858
L3016 7CA8 880 883
L3041 7CA7 879 844
L3042 7C9D 865 869
L3051 7CAF 891 776
LSTPR 7E45 75 286 997
MASK2 7B20 385 595
MASK3 7B21 386 357
MASK5 7B23 388 630
MASK6 7B24 389 633
MDFIO 7BBD 545
MDFND 7BD3 569
MDI 7BD1 567
MEMRY 8000 62 63 64
MNAME 7CB9 903 620 765 909 937 949
MOVEP 7AFF 347 352 635 676 705 732 863 864 865 866 874 875 880
MSTP 7B07 355 364 623
NEQ 7A36 132 156
NEWPG 7E0C 72 74 76 281 947 1000 1020
NRM 7B25 390 350 634 646 674 706 781
NXTPH 7D36 1027 129 1023 1024
ONE 7B18 375 292 882
ORG 7A23 83
OVERL 7A23 63 80
OVERP 7E42 71 72 75
PAEND 7AB0 141
PAP 7B15 371 939 957 958
PAPIN 7B14 370 752 938
PAREA 7A39 136 141 370 371 1010
PBLNK 7D13 995 175 904 1002
PCNT 7D0F 987 748 931 933 945
PHID 0035 67 143
PHLEN 0003 77 1032
PLBN2 7D1D 1004 996
PRINT 7E0E 74 754 943
REWND 7BA5 521
ROL 7FBC 64 70 1025
RSIGN 7BAB 527
RWM 7CCB 910 908
SOFGT 7A29 89
SOFNS 7A27 87
SOFS 7A24 84 627
SOFST 7A26 86 267 313
SOFXT 7A28 88
SORF 7A30 98 667
STID 7B26 391 631 638 650 658 664
STOCH 7D12 990 955 956 974
STP 7B1F 384 268 361 362 363 583
SUBSC 7B9D 513
TABSS 7B3B 415 225 230 238 240 242 331 334 342 344 736
TAGSR 7AF7 341 345 828
THREE 7B1A 377
TOPA 7CFF 965 912 915 920 923 926 975 983
TOPA1 7D04 974 979
TOPA2 7D08 978 967
TOPAB 7D0A 981 910 927 928 984
TOPAU 7CF6 954 959 976
TOPAX 7CF8 956 977
TWO 7B19 376
WDCNT 7A38 135 751 942 1008 1009
Z 7B17 373 155 168 226 231 236 239 241 243 292 310 343 357
359 361 362 374 583 595 614 623 630 631 633 634
635 638 639 646 650 651 658 659 661 664 665 674
676 683 692 701 705 706 723 728 732 752 781 782
792 805 811 818 828 835 839 843 847 850 852 854
856 863 864 865 866 874 875 880 882 893 896 932
936 938 939 941 978 1007 1013
ZERO 7B17 374