ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:06 2020
Source File: \kforph19.asm
1130 FORTRAN COMPILER PHASE 19
2 | *************************************************** K1900020
3 | *STATUS - VERSION 2, MODIFICATION 12 * K1900030
4 | * * K1900040
5 | *FUNCTION/OPERATION * K1900050
6 | * * LOADS THE SYSTEM PRINT SUBROUTINE FOR PHASES* K1900060
7 | * 19-24. ALSO PROVIDES THE PRINT INTERFACE. * K1900070
8 | * SUBROUTINE FOR THESE PHASES. * K1900080
9 | * * ALLOCATES STORAGE FOR COMMON VARIABLES. * K1900090
10 | * * ALLOCATES ALL STORAGE ASSIGNMENTS ALIGNED * K1900100
11 | * ACCORDING TO EQUIVALENCE STATEMENTS. * K1900110
12 | * * ASSIGNS ALL ALLOCATIONS ACCORDING TO THE * K1900120
13 | * SPECIFIED PRECISION OF THE PROGRAM. * K1900130
14 | * * PRINTS THE ALLOCATIONS OF THE VARIABLES AS * K1900140
15 | * THEY ARE ASSIGNED IF REQUIRED. * K1900150
16 | * * COMPUTES THE CORE REQUIREMENTS FOR CONSTANTS* K1900160
17 | * AFTER ALL DEFINED VARIABLES HAVE BEEN * K1900170
18 | * ALLOCATED. THE CORE REQUIREMENTS FOR * K1900180
19 | * VARIABLES AND FOR COMMON ARE THEN STORED IN * K1900190
20 | * THE FORTRAN COMMUNICATIONS AREA (FCOM). * K1900200
21 | * * K1900210
22 | *ENTRY POINTS- * K1900220
23 | * * NEQ - ENTERED VIA A CALL TO THE K1900230
24 | * ROL SUBROUTINE FROM PHASE 18. * K1900240
25 | * * K1900250
26 | *INPUT- * K1900260
27 | * * STRING AREA * K1900270
28 | * * SYMBOL TABLE AREA * K1900280
29 | * * FCOM * K1900290
30 | * * K1900300
31 | *OUTPUT- * K1900310
32 | * * STRING AREA * K1900320
33 | * * SYMBOL TABLE AREA * K1900330
34 | * * FCOM * K1900340
35 | * * LISTING ON PRINCIPAL PRINTER * K1900350
36 | * * K1900360
37 | *EXTERNAL REFERENCES- * K1900370
38 | * SUBROUTINES- * K1900380
39 | * * DZ000 * K1900390
40 | * * ROL * K1900400
41 | * * PRINCIPAL PRINT SUBR (AT OVERP) * K1900410
42 | * COMMA/DCOM * K1900420
43 | * * $CH12 * K1900430
44 | * * $PBSY * K1900440
45 | * * $PHSE * K1900450
46 | * * $DBSY * K1900460
47 | * * K1900470
48 | * * K1900480
49 | *EXITS- * K1900490
50 | * NORMAL- * K1900500
51 | * EXIT TO NEXT PHASE VIA ROL SUBROUTINE * K1900510
52 | * ERROR- * K1900520
53 | * N/A * K1900530
54 | * * K1900540
55 | *TABLES/WORK AREAS * K1900550
56 | * * FCOM * K1900560
57 | * * STRING AREA * K1900570
58 | * * SYMBOL TABLE AREA * K1900580
59 | * * K1900590
60 | *ATTRIBUTES- * K1900600
61 | * N/A * K1900610
62 | * * K1900620
63 | *NOTES- * K1900630
64 | * ERRORS DETECTED IN THIS PHASE -65,66,67,86,99 * K1900640
65 | * * K1900650
66 | *************************************************** K1900660
67 | ABS K1900670
68 | * K1900680
69 | * SYSTEM EQUATES K1900690
8000 70 | MEMRY EQU /8000 MEMORY SIZE K1900700
7A23 71 | OVERL EQU MEMRY-1501 START OF FCOM 2-4 K1900710
0031 72 | PHID EQU 49 PHASE ID K1900720
7FBC 73 | ROL EQU MEMRY-68 ENTRY TO PHASE ROLLER RTN K1900730
74 | * K1900740
75 | * PRINT ROUTINE EQUATES K1900750
7F8B 76 | HEAD EQU ROL-49 PAGE HEADER AREA K1900760
7E42 77 | OVERP EQU HEAD-327-2 DEVICE PRINT RTN AREA K1900770
00F2 78 | DZ000 EQU /F2 DISKZ ENTRY POINT K1900780
00EE 79 | $DBSY EQU /EE NON-ZERO WHEN DISKZ BUSY K1900790
0006 80 | $CH12 EQU /06 INDICATOR FOR CHANNEL 12 K1900800
81 | * K1900810
0036 82 | $PBSY EQU /36 NON-ZERO IF PRINTER BUSY K1900820
83 | * *NEGATIVE IF BUFFER FREE K1900830
0078 84 | $PHSE EQU /78 ID OF PHASE IN CORE K1900840
1130 FORTRAN COMPILER PHASE 19
86 | *************************************************** K1900860
87 | * * K1900870
88 | * FORTRAN COMMUNICATION AREA * K1900880
89 | * * K1900890
90 | *************************************************** K1900900
7A23 91 | ORG OVERL FCOM ORIGIN K1900910
7A23 92 | ORG BSS 1 ORIGIN ADDRESS 2-4 K1900915
7A24 93 | SOFS BSS 1 START OF STRING K1900920
7A25 94 | EOFS BSS 1 END OF STRING K1900930
7A26 95 | SOFST BSS 1 START OF SYMBOL TABLE K1900940
7A27 96 | SOFNS BSS 1 START OF NON-STATEMENT NUMBERS K1900950
7A28 97 | SOFXT BSS 1 SIZE OF WORK AREA K1900960
7A29 98 | SOFGT BSS 1 SIZE OF CONSTANT AREA K1900970
7A2A 99 | EOFST BSS 1 END OF SYMBOL TABLE K1900980
7A2B 100 | COMON BSS 1 HIGH CORE COMMON ADDRESS K1900990
7A2C 101 | CSIZE BSS 1 SIZE OF COMMON K1901000
7A2D 102 | ERROR BSS 1 OVERLAP ERROR INDICATOR K1901010
7A2E 103 | FNAME BSS 2 PROGRAM NAME K1901020
7A30 104 | SORF BSS 1 SUBROUTINE(-) OR FUNCTION(+) K1901030
7A31 105 | CCWD BSS 1 CONTROL CARD WORD K1901040
106 | * BIT 15 TRANSFER TRACE K1901050
107 | * BIT 14 ARITHMETIC TRACE K1901060
108 | * BIT 13 EXTENDED PRECISION K1901070
109 | * BIT 12 LIST SYMBOL TABLE K1901080
110 | * BIT 11 LIST SUBP NAMES K1901090
111 | * BIT 10 LIST SOURCE PROGRAM K1901100
112 | * BIT 9 ONE WORD INTEGERS K1901110
113 | * BIT 8 ORIGIN 2-4 K1901120
114 | * BIT 7-0 UNUSED 2-4 K1901125
115 | * K1901130
7A32 116 | IOCS BSS 1 IOCS CONTROL CARD WORD K1901140
117 | * BIT 15 CARD K1901150
118 | * BIT 14 PAPERTAPE K1901160
119 | * BIT 13 TYPEWRITER K1901170
120 | * BIT 12 1403 PRINTER K1901180
121 | * BIT 11 2501 READER K1901190
122 | * BIT 10 KEYBOARD K1901200
123 | * BIT 9 1442 PUNCH K1901210
124 | * BIT 8 DISK K1901220
125 | * BIT 7 1132 PRINTER K1901230
126 | * BIT 6 UNASSIGNED K1901240
127 | * BIT 5 UNASSIGNED K1901250
128 | * BIT 4 UNASSIGNED K1901260
129 | * BIT 3 PLOTTER K1901270
130 | * BIT 2 UNASSIGNED K1901280
131 | * BIT 1 UNFORMATTED DISK K1901290
132 | * BIT 0 UNASSIGNED K1901300
133 | * K1901310
7A33 134 | DFCNT BSS 1 DEFINE FILE COUNT K1901320
135 | *************************************************** K1901330
136 | * * K1901340
137 | * END OF FORTRAN COMMUNICATION * K1901350
138 | * AREA * K1901360
139 | * * K1901370
140 | *************************************************** K1901380
1130 FORTRAN COMPILER PHASE 19
142 | *************************************************** K1901400
143 | * * K1901410
144 | * PRINT AREA * K1901420
145 | * * K1901430
146 | *************************************************** K1901440
147 | * K1901450
148 | * INFORMATION FOR SYSTEM LOADER K1901460
7A36 149 | BPHAR EQU *+2 BEGIN PHASE AREA K1901470
7A34 0000 150 | DC 0 WORK AREA FOR LOADER K1901480
7A35 FFCF 151 | DC -PHID NEGATIVE PHASE ID K1901490
7A36 0076 152 | DC SSLET-*+1 DISPLACEMENT TO SLET STORE K1901500
7A37 0002 153 | DC 2 COUNT OF SLET ENTRIES K1901510
7A36 154 | ORG *-2 K1901520
155 | * K1901530
156 | * THIS WORD IS USED TO HOLD THE K1901540
157 | * VALUE FOR INDEX REGISTER 3 K1901550
158 | * SO AS TO ALLOW THE PRINT ROUTINE K1901560
159 | * TO RESTORE INDEX REGISTER 3 K1901570
160 | * AFTER CALLING THE SYSTEM PRINT K1901580
161 | * ROUTINE K1901590
7A36 7002 162 | NEQ MDX IP010 SAVE XR3 HERE K1901600
163 | * K1901610
164 | * THE FOLLOWING IS THE PRINT K1901620
165 | * AREA PART OF WHICH IS USED FOR K1901630
166 | * INITIAL PROGRAM EXECUTED ONLY K1901640
167 | * ONCE AT THE START OF THE PHASE. K1901650
7A37 0000 168 | DC *-* AVAILABLE K1901660
7A38 0000 169 | WDCNT DC *-* PRINT AREA WORD COUNT K1901670
7A39 170 | PAREA EQU * BEGINING OF PRINT AREA K1901680
171 | * K1901690
172 | * SET INDEX REGISTER 3 TO POINT K1901700
173 | * AT THE LITERAL POOL AND K1901710
174 | * SUBROUTINES. K1901720
7A39 6331 175 | IP010 LDX 3 PHID K1901730
7A3A 6F00 0078 176 | STX L3 $PHSE STORE PHASE ID K1901740
177 | * K1901750
7A3C 6700 7B65 178 | LDX L3 X LOAD XR3 K1901760
7A3E 6BF7 179 | STX 3 NEQ SAVE FOR PRINT ROUTINE K1901770
180 | * K1901780
181 | * LOAD SYSTEM PRINT ROUTINE K1901790
182 | * K1901800
183 | * K1901810
7A3F CC00 7AAE 184 | LDD L SSLET+2 LOAD PRINT RTN DISK ADR K1901820
7A41 DC00 7E42 185 | STD L OVERP STORE INTO PRINT RTN AREA K1901830
7A43 C808 186 | LDD IP015 LOAD DISK READ PARAMETER K1901840
7A44 4400 00F2 187 | BSI L DZ000 LOAD SYSTEM PRINT RTN K1901850
7A46 C400 00EE 188 | IP014 LD L $DBSY LOAD DISK BUSY INDICATOR K1901860
7A48 4C18 7A4E 189 | BSC L IP016,+- BRANCH IF NOT BUSY K1901870
7A4A 70FB 190 | MDX IP014 LOOP IF BUSY K1901880
191 | * K1901890
7A4C 192 | BSS E 0 K1901900
7A4C 7000 193 | IP015 DC /7000 DISK READ PARAMETER K1901910
7A4D 7E42 194 | DC OVERP ADDRESS OF PRINT RTN AREA K1901920
195 | * K1901930
7A4E 196 | IP016 EQU * CONTINUE K1901940
197 | * K1901941
7A4E C0E2 198 | LD CCWD IS THIS AN 2-4 K1901942
7A4F 1008 199 | SLA 8 ABSOLUTE PROGRAM 2-4 K1901943
7A50 4C10 7A58 200 | BSC L IP018,- NO - BRANCH 2-4 K1901944
7A52 D3A0 201 | STO 3 ORGSW-X SET ORG SWITCH 2-4 K1901945
7A53 C0DC 202 | LD SORF IS IT A SUBPROGRAM 2-4 K1901946
7A54 4C18 7A58 203 | BSC L IP018,+- NO - BRANCH 2-4 K1901947
7A56 7410 7A2D 204 | MDX L ERROR,16 YES - INDICATE ERR 85 2-4 K1901948
205 | * K1901949
7A58 206 | IP018 EQU * CONTINUE K1901950
207 | * K1901951
7A58 C0D4 208 | LD ERROR LOAD ERROR INDICATOR 2-1 K1901960
7A59 4C20 7AD1 209 | BSC L EXIT,Z BRANCH IF OVERLAP ERROR 2-1 K1901970
210 | * INITIALIZE THE COMMA LIMITS. K1901980
7A5B C0CF 211 | LD COMON INITIALIZE CSIZE WITH COMON K1901990
7A5C D0CF 212 | STO CSIZE K1902000
213 | * K1902010
214 | * INITIALIZE THE VARIABLE AREA K1902020
215 | * COUNT TO START ALLOCATION. K1902030
7A5D C0D5 216 | LD DFCNT PLACE DEFINE FILE SIZE K1902040
7A5E D38F 217 | STO 3 VARCR-X IN VARCR K1902050
218 | * K1902060
219 | * SET THE CORRECT REAL VARIABLE K1902070
220 | * SIZE IN RSIZE. K1902080
7A5F C0D1 221 | LD CCWD LOAD CONTROL CARD WORD K1902090
7A60 100D 222 | SLA 13 PLACE PRECISION IN SIGN K1902100
7A61 4C10 7A65 223 | BSC L *+2,- BRANCH IF STANDARD K1902110
7A63 7401 7AF8 224 | MDX L RSIZE,1 INCRAMENT RSIZE TO 3 K1902120
225 | * K1902130
226 | * SET THE CORRECT INTEGER VARIABLE K1902140
227 | * SIZE IN ISIZE. K1902150
7A65 C0CB 228 | LD CCWD LOAD CONTROL CARD WORD K1902160
7A66 1009 229 | SLA 9 PLACE ONE WORD INT IN SIGN K1902170
7A67 4C28 7A6B 230 | BSC L *+2,+Z BRANCH IF ONE WORD INTEGERS K1902180
7A69 C393 231 | LD 3 RSIZE-X SET REAL AND INTEGER SAME K1902190
7A6A D392 232 | STO 3 ISIZE-X K1902200
233 | * K1902210
234 | * LOAD INDEX REGISTE 1 TO LOOK FOR K1902220
235 | * EQUIVALENCE STATEMENTS. K1902230
7A6B 6580 7A24 236 | LDX I1 SOFS LOAD XR1 K1902240
237 | * K1902250
238 | * TEST TO SEE IF STATEMENT IS AN K1902260
239 | * EQUIVALENCE STATEMENT. K1902270
7A6D C100 240 | IP020 LD 1 0 LOAD ID WORD K1902280
7A6E E3A2 241 | AND 3 HF800-X SAVE ONLY TYPE K1902290
7A6F F3A4 242 | EOR 3 HA800-X TEST FOR EQUIVALENCE K1902300
7A70 4C18 7A7C 243 | BSC L IP030,+- BRANCH IF EQUIVALENCE ST. K1902310
244 | * K1902320
245 | * TEST TO SEE IF STATEMENT IS AN K1902330
246 | * END STATEMENT. K1902340
7A72 F3A3 247 | EOR 3 HB800-X TEST FOR END K1902350
7A73 4C18 7AB4 248 | BSC L ML010,+- BRANCH IF END STATEMENT 2-1 K1902360
249 | * K1902370
250 | * MOVE INDEX REGISTER 1 TO THE K1902380
251 | * NEXT ID WORD. K1902390
7A75 C100 252 | LD 1 0 LOAD ID WORD K1902400
7A76 E3AD 253 | AND 3 H07FC-X SAVE STATEMENT NORM K1902410
7A77 1802 254 | SRA 2 POSITION NORM K1902420
7A78 D001 255 | STO *+1 INITIALIZE MDX INSTRUCTION K1902430
7A79 7500 0000 256 | MDX L1 *-* ADJUST INDEX REGISTER 1 K1902440
7A7B 70F1 257 | MDX IP020 BRANCH K1902450
258 | * K1902460
259 | * INITIALIZE THE START OF THE K1902470
260 | * EQUIVALENCE STATEMENTS IN INIT. K1902480
7A7C 7102 261 | IP030 MDX 1 2 INCREMENT XR1 BY 1 K1902490
7A7D 6D00 7BD0 262 | STX L1 IN01A+1 INITIALIZE INIT ROUTINE K1902500
263 | * K1902510
264 | * SET ALLOCATION BITS TO REFLECT K1902520
265 | * COMMON FOR EQUIVALENCE STATEMENT K1902530
266 | * EVALUATION. K1902540
7A7F C3A8 267 | LD 3 H2022-X PLACE ALLOCATION BITS K1902550
7A80 D39B 268 | STO 3 ALOCB-X IN ALOCB K1902560
269 | * BRANCH TO THE MAINLINE PROGRAM. K1902570
7A81 7032 270 | IP999 MDX ML010 BRANCH K1902580
271 | * K1902590
272 | * THIS IS THE HEADING -VARIABLE K1902600
273 | * ALLOCATION-. K1902610
7A82 E500 274 | TEXT DC /E500 V K1902620
7A83 C100 275 | DC /C100 A K1902630
7A84 D900 276 | DC /D900 R K1902640
7A85 C900 277 | DC /C900 I K1902650
7A86 C100 278 | DC /C100 A K1902660
7A87 C200 279 | DC /C200 B K1902670
7A88 D300 280 | DC /D300 L K1902680
7A89 C500 281 | DC /C500 E K1902690
7A8A 4000 282 | DC /4000 BLANK K1902700
7A8B C100 283 | DC /C100 A K1902710
7A8C D300 284 | DC /D300 L K1902720
7A8D D300 285 | DC /D300 L K1902730
7A8E D600 286 | DC /D600 O K1902740
7A8F C300 287 | DC /C300 C K1902750
7A90 C100 288 | DC /C100 A K1902760
7A91 E300 289 | DC /E300 T K1902770
7A92 C900 290 | DC /C900 I K1902780
7A93 D600 291 | DC /D600 O K1902790
7A94 D500 292 | DC /D500 N K1902800
7A95 E200 293 | DC /E200 S K1902810
294 | * K1902820
295 | * PRINT THE HEADING -VARIABLE K1902830
296 | * ALLOCATIONS-. K1902840
7A96 6700 7A82 297 | HD010 LDX L3 TEXT PLACE ADDRESS OF PRINT AREA K1902850
7A98 6F00 7E0D 298 | STX L3 AREA K1902860
7A9A 630A 299 | LDX 3 10 PLACE WORD COUNT K1902870
7A9B 6B9C 300 | STX 3 WDCNT K1902880
7A9C C480 0006 301 | LD I $CH12 LOAD END OF PAGE IND 2-7 K1902882
7A9E 44A0 7E0C 302 | BSI I NEWPG,Z BRANCH IF END OF PAGE 2-7 K1902884
7AA0 4400 7E0E 303 | BSI L PRINT CALL PRINT K1902890
304 | * K1902900
305 | * SET HTEST SWITCH TO INDICATE K1902910
306 | * THAT THE HEADING HAS BEEN K1902920
307 | * PRINTED. K1902930
7AA2 6861 308 | STX 0 HTEST INDICATE HEADING PRINTED K1902940
309 | * K1902950
310 | * RESET THE PRINT AREA ADDRESS K1902960
311 | * AND WORD COUNT. K1902970
7AA3 C3BF 312 | LD 3 H003C-X PLACE FULL WORD COUNT K1902980
7AA4 D093 313 | STO WDCNT K1902990
7AA5 C396 314 | LD 3 PAP-X PLACE PRINT AREA ADDRESS K1903000
7AA6 D400 7E0D 315 | STO L AREA K1903010
7AA8 4C00 7CDA 316 | BSC L BLKPA+1 BRANCH K1903020
7AAC 317 | ORG PAREA+120-5 K1903030
318 | *************************************************** K1903040
319 | * * K1903050
320 | * END OF PRINT AREA * K1903060
321 | * * K1903070
322 | *************************************************** K1903080
1130 FORTRAN COMPILER PHASE 19
324 | * K1903100
325 | * SLET ENTRY STORAGE K1903110
326 | * K1903120
7AAC 327 | BSS E 0 GUARANTEE EVEN BOUNDARY K1903130
328 | * K1903140
7AAC 0099 329 | SSLET DC 153 PRINICPAL PRINT SUBR ID K1903150
7AAD 0000 330 | DC *-* NOT USED K1903160
7AAE 0000 331 | DC *-* WORD COUNT K1903170
7AAF 0000 332 | DC *-* SECTOR ADDRESS K1903180
333 | * K1903190
334 | * K1903200
7AB0 0032 335 | OVRLY DC 50 ID FOR NEXT PHASE K1903210
336 | * K1903220
337 | * PRINT AREA ENDS HERE K1903230
338 | * K1903240
7AB1 0000 339 | DC *-* CORE ADDRESS NEXT PHASE K1903250
7AB2 0000 340 | DC *-* WORD COUNT K1903260
7AB3 0000 341 | DC *-* SECTOR ADDRESS K1903270
342 | * K1903280
343 | * K1903290
1130 FORTRAN COMPILER PHASE 19
345 | *************************************************** K1903310
346 | * * K1903320
347 | * MAINLINE * K1903330
348 | * * K1903340
349 | *************************************************** K1903350
350 | * K1903360
351 | * CALL ALLOC TO ALLOCATE THE K1903370
352 | * BLANK COMMON VARIABLES K1903380
7AB4 4400 7CE4 353 | ML010 BSI L ALLOC CALL ALLOC K1903390
354 | * K1903400
355 | * TEST TO SEE IF ANY EQUIVALENCE K1903410
356 | * STATEMENTS WHERE FOUND AND K1903420
357 | * EVALUATE THEM IF THERE WERE. K1903430
7AB6 C36B 358 | LD 3 IN01A+1-X LOAD EQUIV NEST ADR 2-10 K1903440
7AB7 4420 7D55 359 | BSI L EQUIV,Z BRANCH IF EQUIV. STS. K1903450
360 | * K1903460
361 | * CALL ALLOC ROUTINE TO ALLOCATE K1903470
362 | * THE REAL VARIABLES. K1903480
7AB9 4400 7CE4 363 | ML020 BSI L ALLOC CALL ALLOC K1903490
364 | * K1903500
365 | * CALL ALLOC ROUTINE TO ALLOCATE K1903510
366 | * THE INTEGER VARIABLES. K1903520
7ABB 4400 7CE4 367 | BSI L ALLOC CALL ALLOC K1903530
368 | * K1903540
369 | * CALCULATE COMMON SIZE AND MAKE K1903550
370 | * IT EVEN. K1903560
7ABD C400 7A2B 371 | ML021 LD L COMON LOAD UPPER COMMON ADDR 2-11 K1903570
7ABF 9400 7A2C 372 | S L CSIZE SUBTRACT LOWER ADR K1903580
7AC1 4804 373 | BSC E SKIP IF EVEN K1903590
7AC2 83CA 374 | A 3 H0001-X MAKE EVEN K1903600
7AC3 D400 7A2C 375 | STO L CSIZE STORE COMMON SIZE K1903610
376 | * K1903620
377 | * K1903630
378 | * INSERT THE WORK AREA SIZE INTO K1903640
379 | * THE COMMUNICATION AREA K1903650
7AC5 C38F 380 | LD 3 VARCR-X LOAD WORK AREA SIZE K1903660
7AC6 4804 381 | BSC E SKIP IF EVEN K1903670
7AC7 83CA 382 | A 3 H0001-X MAKE EVEN K1903680
7AC8 D400 7A28 383 | STO L SOFXT STORE EVEN WORK AREA SIZE K1903690
384 | * K1903700
385 | * PLACE CONSTANT AREA SIZE IN K1903710
386 | * SOFGT. K1903720
7ACA C395 387 | LD 3 CAC-X LOAD CONSTANT AREA SIZE K1903730
7ACB D400 7A29 388 | STO L SOFGT SAVE IN SOFGT K1903740
389 | * K1903750
390 | * TEST TO SEE IF PARTIAL LINE K1903760
391 | * REMAINS TO BE PRINTED. K1903770
7ACD C396 392 | LD 3 PAP-X LOAD PRINT AREA POINTER K1903780
7ACE 9398 393 | S 3 RPAP-X SUBTRACT START OF PRINT ARA K1903790
7ACF 4420 7E0E 394 | BSI L PRINT,Z BRANCH TO PRINT PART LINE K1903800
395 | * K1903810
396 | * CALL IN THE NEXT PHASE OF THE K1903820
397 | * COMPILER K1903830
7AD1 6580 7AB1 398 | EXIT LDX I1 OVRLY+1 LOAD XR1 WITH CORE ADR K1903840
7AD3 C8DE 399 | LDD OVRLY+2 LOAD DISK ADDRESS K1903850
7AD4 4C00 7FBC 400 | BSC L ROL BRANCH TO ROL ROUTINE K1903860
401 | * K1903870
402 | * LOAD THE NUMBER 65 INTO K1903880
403 | * THE A REGISTER K1903890
7AD6 C3BA 404 | ERR65 LD 3 H0041-X LOAD 65 K1903900
7AD7 7003 405 | MDX ERR BRANCH K1903910
406 | * K1903920
407 | * LOAD THE NUMBER 66 INTO K1903930
408 | * THE A REGISTER. K1903940
7AD8 C3BB 409 | ERR66 LD 3 H0042-X LOAD 66 K1903950
7AD9 7001 410 | MDX ERR BRANCH K1903960
411 | * K1903970
412 | * LOAD THE NUMBER 67 INTO K1903980
413 | * THE A REGISTER. K1903990
7ADA C3BC 414 | ERR67 LD 3 H0043-X LOAD 67 K1904000
415 | * K1904010
416 | * PLACE THE ERROR NUMBER AND K1904020
417 | * INDICATOR. K1904030
7ADB 6580 7AF1 418 | ERR LDX I1 NRA SET TO EQUIVALENCE STMT2-12 K1904040
7ADD D100 419 | STO 1 0 PLACE ERROR NUMBER K1904050
7ADE C3AA 420 | LD 3 H0FFF-X LOAD ERROR INDICATOR K1904060
7ADF D1FF 421 | STO 1 -1 PLACE ERROR INDICATOR K1904070
422 | * K1904080
423 | * K1904090
424 | * K1904100
7AE0 4400 7C02 425 | BSI L RMOVE REMOVE SPECIAL INDICATORS K1904110
426 | * K1904120
427 | * K1904130
7AE2 C3C2 428 | LD 3 H0022-X 2-7 K1904132
7AE3 D39B 429 | STO 3 ALOCB-X 2-7 K1904134
430 | * K1904140
7AE4 70D8 431 | MDX ML021 BEGIN EXIT THIS PHASE 2-11 K1904150
432 | *************************************************** K1904160
433 | * * K1904170
434 | * END OF MAINLINE PROGRAM * K1904180
435 | * * K1904190
436 | *************************************************** K1904200
1130 FORTRAN COMPILER PHASE 19
438 | *************************************************** K1904220
439 | * * K1904230
440 | * LITERAL POOL * K1904240
441 | * * K1904250
442 | *************************************************** K1904260
7B65 443 | X EQU *+128 INDEX REGISTER 3 VALUE K1904270
7AE5 0000 444 | SW1 DC *-* SWITCH 1 K1904280
7AE6 0000 445 | SW2 DC *-* SWITCH 2 K1904290
7AE7 0000 446 | SW3 DC *-* SWITCH 3 K1904300
7AE8 0000 447 | SW4 DC *-* SWITCH 4 K1904310
7AE9 0000 448 | ODDSW DC *-* ODD SWITCH K1904320
7AEA 0000 449 | EVSW DC *-* EVEN SWITCH K1904330
7AEB FFFF 450 | TRACK DC -1 TRACK SWITCH K1904340
7AEC 0000 451 | LOW DC *-* LOW ADR. OF NEST K1904350
7AED 0000 452 | HIGH DC *-* HIGH ADR. OF NEST K1904360
7AEE 0000 453 | DEFIN DC *-* DEFIN IND. FOR NEST K1904370
7AEF 0000 454 | RELAD DC *-* RELATIVE ADR. OF NEST K1904380
7AF0 0000 455 | D4 DC *-* OFFSET FOR SUBSCRIPT K1904390
7AF1 0000 456 | NRA DC *-* NEST RETURN ADR. K1904400
7AF2 0000 457 | SNRA DC *-* SAVE AREA FOR NRA K1904410
7AF3 0000 458 | BASE DC *-* BASE ADR. OF NEST K1904420
7AF4 0000 459 | VARCR DC *-* ADR. OF VARIABLE CORE K1904430
7AF5 0312 460 | TAGLP DC /0312 TAGED LEFT PARENTHESIS K1904440
7AF6 0000 461 | VSIZE DC *-* VARIABLE SIZE K1904450
7AF7 0001 462 | ISIZE DC 1 INTEGER SIZE K1904460
7AF8 0002 463 | RSIZE DC 2 REAL SIZE K1904470
7AF9 0000 464 | ASIZE DC *-* ARRAY SIZE K1904480
7AFA 0000 465 | CAC DC *-* CONSTANT AREA COUNT K1904490
7AFB 7A39 466 | PAP DC PAREA PRINT AREA POINTER K1904500
7AFC 7AB1 467 | LNEND DC PAREA+120 PRINT LINE END (CONST.) K1904510
7AFD 7A39 468 | RPAP DC PAREA PRINT AREA ADDRESS (CONST.) K1904520
7AFE 0000 469 | SAVAD DC *-* SAVE HEXIDECIMAL ADDRESS K1904530
7AFF 0000 470 | SALOC DC *-* SAVE ALLOCATION K1904540
7B00 0022 471 | ALOCB DC /0022 ALLOCATION BITS K1904550
7B01 0000 472 | COMSW DC *-* COMMON VARIABLE SWITCH 2-0 K1904551
7B02 473 | BSS E 0 K1904560
7B02 0000 474 | NAME DC *-* PACKED NAME K1904570
7B03 0000 475 | DC *-* K1904580
7B04 0000 476 | HTEST DC *-* HEADER SWITCH K1904590
7B05 0000 477 | ORGSW DC 0 ORIGIN SWITCH 2-4 K1904595
7B06 FFFF 478 | HFFFF DC /FFFF CONSTANT K1904600
7B07 F800 479 | HF800 DC /F800 CONSTANT K1904610
7B08 B800 480 | HB800 DC /B800 CONSTANT K1904620
7B09 A800 481 | HA800 DC /A800 CONSTANT K1904630
7B0A 8000 482 | H8000 DC /8000 CONSTANT K1904640
7B0B 4000 483 | H4000 DC /4000 CONSTANT K1904650
7B0C 3FFF 484 | H3FFF DC /3FFF CONSTANT K1904660
7B0D 2022 485 | H2022 DC /2022 CONSTANT K1904670
7B0E 1800 486 | H1800 DC /1800 CONSTANT K1904680
7B0F 0FFF 487 | H0FFF DC /0FFF CONSTANT K1904690
7B10 0C00 488 | H0C00 DC /0C00 CONSTANT K1904700
7B11 07FF 489 | H07FF DC /07FF CONSTANT K1904710
7B12 07FC 490 | H07FC DC /07FC CONSTANT K1904720
7B13 07F2 491 | H07F2 DC /07F2 CONSTANT K1904730
7B14 0300 492 | H0300 DC /0300 CONSTANT K1904740
7B15 00D9 493 | H00D9 DC /00D9 CONSTANT K1904750
7B16 00C9 494 | H00C9 DC /00C9 CONSTANT K1904760
7B17 00C5 495 | H00C5 DC /00C5 CONSTANT K1904770
7B18 00C3 496 | H00C3 DC /00C3 CONSTANT K1904780
7B19 00C0 497 | H00C0 DC /00C0 CONSTANT K1904790
7B1A 007E 498 | H007E DC /007E CONSTANT K1904800
7B1B 0060 499 | H0060 DC /0060 CONSTANT K1904810
7B1C 005D 500 | H005D DC /005D CONSTANT K1904820
7B1D 005C 501 | H005C DC /005C CONSTANT K1904830
7B1E 004D 502 | H004D DC /004D CONSTANT K1904840
7B1F 0041 503 | H0041 DC /0041 CONSTANT K1904850
7B20 0042 504 | H0042 DC /0042 CONSTANT K1904860
7B21 0043 505 | H0043 DC /0043 CONSTANT K1904870
7B22 0040 506 | H0040 DC /0040 CONSTANT K1904880
7B23 003F 507 | H003F DC /003F CONSTANT K1904890
7B24 003C 508 | H003C DC /003C CONSTANT K1904900
7B25 0039 509 | H0039 DC /0039 CONSTANT K1904910
7B26 0028 510 | H0028 DC /0028 CONSTANT K1904920
7B27 0022 511 | H0022 DC /0022 CONSTANT K1904930
7B28 0020 512 | H0020 DC /0020 CONSTANT K1904940
7B29 0012 513 | H0012 DC /0012 CONSTANT K1904950
7B2A 000F 514 | H000F DC /000F CONSTANT K1904960
7B2B 000C 515 | H000C DC /000C CONSTANT K1904970
7B2C 0009 516 | H0009 DC /0009 CONSTANT K1904980
7B2D 0003 517 | H0003 DC /0003 CONSTANT K1904990
7B2E 0002 518 | H0002 DC /0002 CONSTANT K1905000
7B2F 0001 519 | H0001 DC /0001 CONSTANT K1905010
1130 FORTRAN COMPILER PHASE 19
521 | *************************************************** K1905030
522 | * * K1905040
523 | * ROUTINE NAME/ARRL * K1905050
524 | * * K1905060
525 | * FUNCTION /PLACE IN VSIZE THE SIZE OF EACH * K1905070
526 | * ELEMENT AN IN ASIZE THE TOTAL SIZE * K1905080
527 | * OF THE ARRAY. * K1905090
528 | * * K1905100
529 | * ENTRY /ARRL * K1905110
530 | * * K1905120
531 | * INPUT /NO SPECIAL INPUT OTHER THAN THE * K1905130
532 | * SYMBOL TABLE. * K1905140
533 | * * K1905150
534 | * OUTPUT /VSIZE AND ASIZE WILL BE SET. * K1905160
535 | * * K1905170
536 | * EXTERNAL * K1905180
537 | * REFERANCES /SUBROUTINES (VARFO) ARE CALLED AND * K1905190
538 | * REFERANCES TO (VSIZE,ASIZE,H1800) * K1905200
539 | * ARE MADE. * K1905210
540 | * * K1905220
541 | * ERROR /NONE * K1905230
542 | * * K1905240
543 | * NOTE /CALLING SEQUENCE BSI ARRL * K1905250
544 | * * K1905260
545 | *************************************************** K1905270
546 | * K1905280
547 | * ENTRY-ARRL K1905290
7B30 0000 548 | ARRL DC *-* LINK WORD K1905300
549 | * K1905310
550 | * CALL VARFO TO DETERMINE THE K1905320
551 | * SIZE OF THE PRESENT SYMBOL. K1905330
7B31 43E0 552 | BSI 3 VARFO-X CALL VARFO K1905340
553 | * K1905350
554 | * PLACE THE SIZE OF THE SINGLE K1905360
555 | * ELEMENT IN ASIZE. K1905370
7B32 C391 556 | LD 3 VSIZE-X LOAD THE ELEMENT SIZE K1905380
7B33 D394 557 | STO 3 ASIZE-X PLACE IN ARRAY SIZE K1905390
558 | * K1905400
559 | * TEST THE SYMBOL TO SEE IF IT K1905410
560 | * IS DIMENSIONED. K1905420
7B34 C200 561 | LD 2 0 LOAD INDICATOR WORD K1905430
7B35 E3A9 562 | AND 3 H1800-X SAVE DIMENSION IND. BITS K1905440
7B36 4C98 7B30 563 | BSC I ARRL,+- BR IF NOT DIMENSIONED K1905450
564 | * K1905460
565 | * CALCULATE THE SIZE OF THE K1905470
566 | * ARRAY. K1905480
7B38 C2FD 567 | LD 2 -3 LOAD NUMBER OF ELEMENTS K1905490
7B39 A391 568 | M 3 VSIZE-X MULTIPLY BY ELEMENT SIZE K1905500
7B3A 1081 569 | SLT 1 BRANCH TO ERROR 99 IF 2-7 K1905505
7B3B 4C20 7B41 570 | BSC L ARRL1,Z *CORE REQ EXCESSIVE 2-7 K1905510
7B3D 108F 571 | SLT 15 SHIFT INTO ACCUMULATOR 2-7 K1905515
7B3E D394 572 | STO 3 ASIZE-X STORE ARRAY SIZE K1905520
573 | * K1905530
574 | * RETURN K1905540
7B3F 4C80 7B30 575 | BSC I ARRL RETURN K1905550
576 | * K1905552
7B41 7408 7A2D 577 | ARRL1 MDX L ERROR,8 INDICATE ERROR 99 2-7 K1905554
7B43 4C00 7AD1 578 | BSC L EXIT EXIT FROM THIS PHASE 2-7 K1905556
579 | * K1905558
580 | *************************************************** K1905560
581 | * * K1905570
582 | * END OF ARRL ROUTINE * K1905580
583 | * * K1905590
584 | *************************************************** K1905600
1130 FORTRAN COMPILER PHASE 19
586 | *************************************************** K1905620
587 | * * K1905630
588 | * ROUTINE NAME/VARFO * K1905640
589 | * * K1905650
590 | * FUNCTION /PLACE IN VSIZE THE SIZE OF THE * K1905660
591 | * VARIABLE OR CONSTANT THAT IS BEING * K1905670
592 | * LOOKED AT. * K1905680
593 | * * K1905690
594 | * ENTRY /VARFO * K1905700
595 | * * K1905710
596 | * INPUT /NO SPECIAL INPUT OTHER THAN THE * K1905720
597 | * SYMBOL TABLE. * K1905730
598 | * * K1905740
599 | * OUTPUT /VSIZE WILL BE SET. * K1905750
600 | * * K1905760
601 | * EXTERNAL * K1905770
602 | * REFERANCES /REFERANCES TO (ISIZE,VSIZE,RSIZE) * K1905780
603 | * ARE MADE. * K1905790
604 | * * K1905800
605 | * ERROR /NONE * K1905810
606 | * * K1905820
607 | * NOTE /CALLING SEQUENCE BSI VARFO * K1905830
608 | * * K1905840
609 | *************************************************** K1905850
610 | * K1905860
611 | * ENTRY-VARFO K1905870
7B45 0000 612 | VARFO DC *-* LINK WORD K1905880
613 | * K1905890
614 | * SET VARIABLE SIZE TO THAT OF K1905900
615 | * THE INTEGER VARIABLES. K1905910
7B46 C392 616 | LD 3 ISIZE-X LOAD INTEGER SIZE K1905920
7B47 D391 617 | STO 3 VSIZE-X STORE IN VARIABLE SIZE K1905930
618 | * K1905940
619 | * TEST TO SEE IF THE VARIABLE IS K1905950
620 | * REAL OR INTEGER. K1905960
7B48 C200 621 | LD 2 0 LOAD INDICATOR WORD K1905970
7B49 1001 622 | SLA 1 PLACE REAL IND. IN SIGN K1905980
7B4A 4CA8 7B45 623 | BSC I VARFO,+Z BR IF INTEGER K1905990
624 | * K1906000
625 | * SET THE VARIABLE SIZE TO THAT OF K1906010
626 | * THE REAL VARIABLES. K1906020
7B4C C393 627 | LD 3 RSIZE-X LOAD REAL SIZE K1906030
7B4D D391 628 | STO 3 VSIZE-X STORE IN VARIABLE SIZE K1906040
629 | * K1906050
630 | * RETURN K1906060
7B4E 4C80 7B45 631 | BSC I VARFO RETURN K1906070
632 | *************************************************** K1906080
633 | * * K1906090
634 | * END OF VARFO ROUTINE * K1906100
635 | * * K1906110
636 | *************************************************** K1906120
1130 FORTRAN COMPILER PHASE 19
638 | *************************************************** K1906140
639 | * * K1906150
640 | * ROUTINE NAME/RTN * K1906160
641 | * * K1906170
642 | * FUNCTION /POINTS INDEX REGISTER 1 TO THE FIRS* K1906180
643 | * SYMBOL IN THE NEST NOW BEING WORKED* K1906190
644 | * ON. INDEX REGISTER 2 IS ALSO SET TO* K1906200
645 | * POINT AT SYMBOL TABLE. * K1906210
646 | * * K1906220
647 | * ENTRY /RTN * K1906230
648 | * * K1906240
649 | * INPUT /NO SPECIAL INPUT. * K1906250
650 | * * K1906260
651 | * OUTPUT /XR1 AND XR2 ARE SET. * K1906270
652 | * * K1906280
653 | * EXTERNAL * K1906290
654 | * REFERENCES /SUBROUTINES (XR2) AND REQUIRED AND * K1906300
655 | * REFERANCES TO (NRA) ARE MADE. * K1906310
656 | * * K1906320
657 | * ERROR /NONE * K1906330
658 | * * K1906340
659 | * NOTES /NONE * K1906350
660 | * * K1906360
661 | *************************************************** K1906370
662 | * K1906380
663 | * ENTRY-RTN K1906390
7B50 0000 664 | RTN DC *-* LINK WORD K1906400
665 | * K1906410
666 | * RESTORE INDEX REGISTER 1 TO K1906420
667 | * POINT AT THE FIRST VARIABLE K1906430
668 | * IN THE PRESENT NEST. K1906440
7B51 6580 7AF1 669 | LDX I1 NRA LOAD XR1 NEST RETURN ADR. K1906450
670 | * K1906460
671 | * CALL XR2 TO SET INDEX REGISTER 2 K1906470
672 | * TO POINT AT THE INDICATOR WORD K1906480
673 | * OF THE SYMBOL XR1 POINTS AT. K1906490
7B53 43F1 674 | BSI 3 XR2-X CALL XR2 K1906500
675 | * K1906510
676 | * RETURN K1906520
7B54 4C80 7B50 677 | BSC I RTN RETURN K1906530
678 | *************************************************** K1906540
679 | * * K1906550
680 | * END OF RTN ROUTINE * K1906560
681 | * * K1906570
682 | *************************************************** K1906580
1130 FORTRAN COMPILER PHASE 19
684 | *************************************************** K1906600
685 | * * K1906610
686 | * ROUTINE NAME/XR2 * K1906620
687 | * * K1906630
688 | * FUNCTION /THIS ROUTINE PICKS UP THE WORD * K1906640
689 | * SPECIFIED BY INDEX REGISTER 1, * K1906650
690 | * COMPUTES THE SYMBOL TABLE ADDRESS, * K1906660
691 | * AND LOAD THAT ADDRESS INTO INDEX * K1906670
692 | * REGISTER 2. * K1906680
693 | * * K1906690
694 | * ENTRY /XR2 * K1906700
695 | * * K1906710
696 | * INPUT /NO SPECIAL INPUT OTHER THAN THE * K1906720
697 | * STRING AND SYMBOL TABLE. * K1906730
698 | * * K1906740
699 | * OUTPUT /INDEX REGISTER 2 IS SET. * K1906750
700 | * * K1906760
701 | * EXTERNAL * K1906770
702 | * REFERANCES /REFERANCES TO (SOFST,H07FF) ARE * K1906780
703 | * MADE. * K1906790
704 | * * K1906800
705 | * ERROR /NONE * K1906810
706 | * * K1906820
707 | * NOTES /CALLING SEQUENCE BSI XR2 * K1906830
708 | * * K1906840
709 | *************************************************** K1906850
710 | * K1906860
711 | * ENTRY-XR2 K1906870
7B56 0000 712 | XR2 DC *-* LINK WORD K1906880
713 | * K1906890
714 | * LOAD INDEX REGISTER 2 WITH THE K1906900
715 | * SYMBOL TABLE ADDRESS OF SYMBOL. K1906910
7B57 C100 716 | LD 1 0 LOAD SYMBOL K1906920
7B58 E3AC 717 | AND 3 H07FF-X SEPERATE OFSET K1906930
7B59 D008 718 | STO *+8 SAVE OFSET K1906940
7B5A C400 7A26 719 | LD L SOFST CALCULATE K1906950
7B5C 83C8 720 | A 3 H0003-X K1906960
7B5D 9004 721 | S *+4 SOFST-3*OFSET+3 K1906970
7B5E 9003 722 | S *+3 K1906980
7B5F 9002 723 | S *+2 K1906990
7B60 D001 724 | STO *+1 INITIALIZE LDX INSTRUCTION K1907000
7B61 6600 0000 725 | LDX L2 *-* LOAD XR2 K1907010
726 | * K1907020
727 | * RETURN K1907030
7B63 4C80 7B56 728 | BSC I XR2 RETURN K1907040
729 | *************************************************** K1907050
730 | * * K1907060
731 | * END OF XR2 ROUTINE * K1907070
732 | * * K1907080
733 | *************************************************** K1907090
1130 FORTRAN COMPILER PHASE 19
735 | *************************************************** K1907110
736 | * * K1907120
737 | * ROUTINE NAME/HILO * K1907130
738 | * * K1907140
739 | * FUNCTION /THE HIGH AND LOW VALUES AND THE * K1907150
740 | * DEFINE INDICATORS ARE SAVE FOR * K1907160
741 | * A SET OF NESTS OF EQUIVALENCE * K1907170
742 | * STATEMENTS. * K1907180
743 | * * K1907190
744 | * ENTRY /HILO * K1907200
745 | * * K1907210
746 | * INPUT /THE VALUE OF THE VARIABLE BEING * K1907220
747 | * LOOKED AT AS WELL AS THE SYMBOL * K1907230
748 | * TABLE. * K1907240
749 | * * K1907250
750 | * OUTPUT /LOW,HIGH AND DEFIN WILL BE SET. * K1907260
751 | * * K1907270
752 | * EXTERNAL * K1907280
753 | * REFERANCES /SUBROUTINES (ARRL,GETD4) ARE CALLED* K1907290
754 | * AND REFERANCES (RELAD,VSIZE,BASE, * K1907300
755 | * ASIZE,LOW,H0001,HIGH,DEFIN) ARE * K1907310
756 | * MADE. * K1907320
757 | * * K1907330
758 | * ERROR /NONE * K1907340
759 | * * K1907350
760 | * NOTE /CALLING SEQUENCE BSI HILO * K1907360
761 | * * K1907370
762 | *************************************************** K1907380
763 | * K1907390
764 | * ENTRY-HILO K1907400
7B65 0000 765 | HILO DC *-* LINK WORD K1907410
766 | * K1907420
767 | * CALL ARRL TO OBTAIN THE VARIABLE K1907430
768 | * SIZE AND THE ARRAY SIZE. K1907440
7B66 43CB 769 | BSI 3 ARRL-X CALL ARRL K1907450
770 | * K1907460
771 | * CALL GETD4 TO OBTAIN THE OFFSET K1907470
772 | * FOR THE PRESENT VARIABLE. K1907480
7B67 4045 773 | BSI GETD4 CALL GETD4 K1907490
774 | * K1907500
775 | * CALCULATE THE BASIS FOR K1907510
776 | * DETERMINING IF THIS ARRAY OR K1907520
777 | * ELEMENT WILL DEFINE A NEW K1907530
778 | * LOW OR HIGH FOR THIS NEST. K1907540
7B68 838A 779 | A 3 RELAD-X CALCULATE K1907550
7B69 8391 780 | A 3 VSIZE-X BASE=D4+RELAD-VSIZE K1907560
7B6A D38E 781 | STO 3 BASE-X K1907570
782 | * K1907580
783 | * K1907620
784 | * TEST TO SEE IF REAL VARIABLES ARE K1907630
785 | * STANDARD PRECISION. K1907640
786 | * K1907650
787 | * *1 INSTR REMOVED 2-11 K1907660
7B6B C393 788 | LD 3 RSIZE-X LOAD REAL SIZE 2-11 K1907670
7B6C 4C04 7B7B 789 | BSC L HILO7,E BR IF EXTEND PRECISION 2-11 K1907680
790 | * K1907690
791 | * TEST TO SEE IF REAL VARIABLE BEING K1907700
792 | * LOOKED AT. K1907710
793 | * K1907720
7B6E C200 794 | LD 2 0 LOAD INDICATOR WORD K1907730
7B6F 1001 795 | SLA 1 PLACE TYPE IN SIGN K1907740
7B70 4C28 7B7B 796 | BSC L HILO7,+Z BRANCH IF INTEGER 2-8 K1907750
797 | * K1907760
798 | * TEST TO SEE IF THE LOW VALUE OF K1907770
799 | * THE ARRAY OR VARIABLE IS EVEN. K1907780
800 | * K1907790
7B72 C38E 801 | LD 3 BASE-X COMPUTE LOW ADDRESS K1907800
7B73 9394 802 | S 3 ASIZE-X K1907810
7B74 4C04 7B7F 803 | BSC L HILO6,E BRANCH IF ODD K1907820
804 | * K1907830
805 | * TEST TO SEE IF THE ODD SWITCH IS K1907840
806 | * SET ON. K1907850
807 | * K1907860
7B76 C384 808 | LD 3 ODDSW-X LOAD ODD SWITCH K1907870
7B77 4C20 7ADA 809 | BSC L ERR67,Z BRANCH IF ALLOCATION ERROR K1907880
810 | * K1907890
811 | * SET THE EVEN SWITCH ON. K1907900
812 | * K1907910
7B79 6C00 7AEA 813 | STX L0 EVSW SET EVEN SWITCH K1907920
814 | * K1907940
7B7B C382 815 | HILO7 LD 3 SW3-X TEST IF COMMON 2-8 K1907941
7B7C 4C18 7B9A 816 | BSC L HILO3,+- BRANCH IF YES 2-8 K1907942
7B7E 7008 817 | MDX HILO5 BRANCH IF NO 2-8 K1907943
818 | * K1907944
7B7F C382 819 | HILO6 LD 3 SW3-X TEST IF COMMON 2-8 K1907945
7B80 4C18 7ADA 820 | BSC L ERR67,+- BRANCH IF YES 2-8 K1907946
821 | * K1907947
822 | * TEST TO SEE IF THE EVEN SWITCH IS K1907950
823 | * SET ON. K1907960
824 | * K1907970
7B82 C385 825 | LD 3 EVSW-X LOAD EVEN SWITCH K1907980
7B83 4C20 7ADA 826 | BSC L ERR67,Z BRANCH IF ALLOCATION ERROR K1907990
827 | * K1908000
828 | * SET ODD SWITCH ON. K1908010
829 | * K1908020
7B85 6C00 7AE9 830 | STX L0 ODDSW K1908030
831 | * K1908040
832 | * TEST TO SEE IF THIS NEST WILL K1908050
833 | * PRODUCE A NEW LOW. K1908060
7B87 C38E 834 | HILO5 LD 3 BASE-X LOAD PRESENT LOW K1908070
7B88 9394 835 | S 3 ASIZE-X K1908080
7B89 9387 836 | S 3 LOW-X TEST AGAINST TOTAL LOW K1908090
7B8A 4C10 7B8E 837 | BSC L HILO1,- BR IF NOT NEW LOW K1908100
838 | * K1908110
839 | * SAVE THE NEW LOW FOR ALLOCATION K1908120
840 | * PRUPOSES. K1908130
7B8C 8387 841 | A 3 LOW-X RESTORE NEW LOW K1908140
7B8D D387 842 | STO 3 LOW-X SAVE NEW LOW K1908150
843 | * K1908160
844 | * TEST TO SEE IF THIS NEST WILL K1908170
845 | * PRODUCE A NEW HIGH. K1908180
7B8E C38E 846 | HILO1 LD 3 BASE-X LOAD PRESENT HIGH K1908190
7B8F 93CA 847 | S 3 H0001-X K1908200
7B90 9388 848 | S 3 HIGH-X TEST AGAINST TOTAL HIGH K1908210
7B91 4C08 7B95 849 | BSC L HILO2,+ BR IF NOT NEW HIGH K1908220
850 | * K1908230
851 | * SAVE THE NEW HIGH FOR ALLOCATION K1908240
852 | * PURPOSES. K1908250
7B93 8388 853 | A 3 HIGH-X RESTORE NEW HIGH K1908260
7B94 D388 854 | STO 3 HIGH-X SAVE NEW HIGH K1908270
855 | * K1908280
856 | * SAVE THE INDICATOR WORDS FOR K1908290
857 | * THE SYMBOLS IN THE NESTS. K1908300
7B95 C389 858 | HILO2 LD 3 DEFIN-X LOAD ACCUMULATED IND. WORDS K1908310
7B96 EA00 859 | OR 2 0 OR IN NEW IND. WORD K1908320
7B97 D389 860 | STO 3 DEFIN-X SAVE ACCUMULATED IND. WORDS K1908330
861 | * K1908340
862 | * K1908350
7B98 4C80 7B65 863 | HILOX BSC I HILO RETURN K1908360
864 | * K1908370
7B9A 865 | HILO3 EQU * K1908380
7B9A D385 866 | STO 3 EVSW-X MIGHT HAVE BEEN SET 2-10 K1908385
867 | * *ABOVE WHEN IT SHOULDNT2-10 K1908386
868 | * K1908390
869 | * TEST TO SEE IF THE START OF K1908400
870 | * BLANK COMMON IS BEING EXTENDED. K1908410
7B9B C38E 871 | HILO4 LD 3 BASE-X LOAD PRESENT HIGH K1908420
7B9C 93CA 872 | S 3 H0001-X K1908430
7B9D 9400 7A2B 873 | S L COMON TEST AGAINST COMMON HIGH K1908440
7B9F 4C30 7AD8 874 | BSC L ERR66,-Z BRANCH IF EXTENDING COMMON K1908450
875 | * K1908460
876 | * TEST TO SEE IF THE END OF BLANK K1908470
877 | * COMMON IS BEING EXTENDED. K1908480
7BA1 C38E 878 | LD 3 BASE-X LOAD PRESENT LOW K1908490
7BA2 9394 879 | S 3 ASIZE-X K1908500
7BA3 93CA 880 | S 3 H0001-X 2-6 K1908505
7BA4 9400 7A2C 881 | S L CSIZE TEST AGAINST COMMON LOW K1908510
7BA6 4C10 7B95 882 | BSC L HILO2,- BRANCH IF NOT NEW LOW K1908520
883 | * K1908530
884 | * INDICATE THE NEW LOW FOR BLANK K1908540
885 | * COMMON. K1908550
7BA8 8400 7A2C 886 | A L CSIZE RESTORE NEW LOW K1908560
7BAA D400 7A2C 887 | STO L CSIZE SAVE NEW LOW K1908570
7BAC 70E8 888 | MDX HILO2 RETURN K1908580
889 | * K1908590
890 | *************************************************** K1908600
891 | * * K1908610
892 | * END OF HILO ROUTINE * K1908620
893 | * * K1908630
894 | *************************************************** K1908640
1130 FORTRAN COMPILER PHASE 19
896 | *************************************************** K1908660
897 | * * K1908670
898 | * ROUTINE NAME/GETD4 * K1908680
899 | * * K1908690
900 | * FUNCTION /PLACE IN D4 THE OFFSET INDICATED * K1908700
901 | * BY THE SUBSCRIPT IN EQUIVALENCE. * K1908710
902 | * * K1908720
903 | * ENTRY /GETD4 * K1908730
904 | * * K1908740
905 | * INPUT /INDEX REGISTER 1 POINTING AT THE * K1908750
906 | * STRING AND INDEX REGISTER 2 * K1908760
907 | * POINTING AT THE SYMBOL TABLE. * K1908770
908 | * * K1908780
909 | * OUTPUT /D4 WILL BE SET. * K1908790
910 | * * K1908800
911 | * EXTERNAL * K1908810
912 | * REFERANCES /REFERANCES TO (D4,H1800,H8000)ARE * K1908820
913 | * MADE. * K1908830
914 | * * K1908840
915 | * ERROR /NONE * K1908850
916 | * * K1908860
917 | * NOTES /CALLING SEQUENCE BSI GETD4 * K1908870
918 | * * K1908880
919 | *************************************************** K1908890
920 | * K1908900
921 | * ENTRY-GETD4 K1908910
7BAD 0000 922 | GETD4 DC *-* K1908920
923 | * K1908930
924 | * PLACE A ZERO IN D4. K1908940
7BAE 1010 925 | SLA 16 ZERO A REGISTER K1908950
7BAF D38B 926 | STO 3 D4-X STORE IN D4 K1908960
927 | * K1908970
928 | * CHECK TO SEE IF THE SYMBOL IS K1908980
929 | * DIMENSIONED. K1908990
7BB0 C200 930 | LD 2 0 LOAD INDICATOR WORD K1909000
7BB1 E3A9 931 | AND 3 H1800-X SAVE DIMENSION IND. BITS K1909010
7BB2 4C98 7BAD 932 | BSC I GETD4,+- BR IF NOT DIMENSIONED K1909020
933 | * K1909030
934 | * PLACE THE OFFSET IN D4. K1909040
7BB4 C102 935 | LD 1 2 LOAD OFFSET K1909050
7BB5 F3A5 936 | EOR 3 H8000-X REMOVE LEADING BIT. K1909060
7BB6 D38B 937 | STO 3 D4-X STORE D4 K1909070
938 | * K1909080
939 | * RETURN K1909090
7BB7 4C80 7BAD 940 | BSC I GETD4 RETURN K1909100
941 | *************************************************** K1909110
942 | * * K1909120
943 | * END OF GETD4 ROUTINE * K1909130
944 | * * K1909140
945 | *************************************************** K1909150
1130 FORTRAN COMPILER PHASE 19
947 | *************************************************** K1909170
948 | * * K1909180
949 | * ROUTINE NAME/EVENA * K1909190
950 | * * K1909200
951 | * FUNCTION /MAKE THE VALUE OF VARCR EVEN. * K1909210
952 | * * K1909220
953 | * ENTRY /EVENA * K1909230
954 | * * K1909240
955 | * INPUT /THE VALUE TO BE MADE EVEN IN VARCR.* K1909250
956 | * * K1909260
957 | * OUTPUT /VARCR IS EVEN. * K1909270
958 | * * K1909280
959 | * EXTERNAL * K1909290
960 | * REFERANCES /REFERANCES TO (VARCR,H0001,RSIZE) * K1909300
961 | * ARE MADE. * K1909310
962 | * * K1909320
963 | * ERROR /NONE * K1909330
964 | * * K1909340
965 | * NOTE /CALLING SEQUENCE BSI EVENA * K1909350
966 | * * K1909360
967 | *************************************************** K1909370
968 | * K1909380
969 | * ENTRY-EVENA K1909390
7BB9 0000 970 | EVENA DC *-* LINK WORD K1909400
971 | * K1909410
972 | * TEST TO SEE IF THE SIZE OF THE K1909420
973 | * VARIABLES ARE STANDARD OR K1909430
974 | * EXTENDED PRECISION. K1909440
7BBA C393 975 | LD 3 RSIZE-X LOAD REAL SIZE K1909450
7BBB 4C84 7BB9 976 | BSC I EVENA,E BR IF EXTEND. PRECISION K1909460
977 | * K1909470
978 | * TEST VARCR FOR BEING EVEN. K1909480
7BBD C38F 979 | LD 3 VARCR-X LOAD VARIABLE CORE ADR. K1909490
7BBE 4804 980 | BSC E SKIP IF EVEN K1909500
981 | * K1909510
982 | * INCREMENT THE VARIABLE CORE ADR. K1909520
983 | * BY 1 TO MAKE IT EVEN. K1909530
7BBF 83CA 984 | A 3 H0001-X INCREMENT VARCR BY 1 K1909540
7BC0 D38F 985 | STO 3 VARCR-X STORE VARCR K1909550
986 | * K1909560
987 | * RETURN K1909570
7BC1 4C80 7BB9 988 | BSC I EVENA RETURN K1909580
989 | *************************************************** K1909590
990 | * * K1909600
991 | * END OF EVENA ROUTINE * K1909610
992 | * * K1909620
993 | *************************************************** K1909630
1130 FORTRAN COMPILER PHASE 19
995 | *************************************************** K1909650
996 | * * K1909660
997 | * ROUTINE NAME/INCR * K1909670
998 | * * K1909680
999 | * FUNCTION /THIS ROUTINE POSTIONS INDEX * K1909690
1000 | * REGISTERS 1 AND 2 DURING HANDLING * K1909700
1001 | * OF EQUIVALENCE STATEMENTS * K1909710
1002 | * ENTRY POINTS/INCR(MOVES INDEX REGISTER 1 TO THE * K1909720
1003 | * NEXT SYMBOL IN THE EQUIVALENCE * K1909730
1004 | * STATEMENTS. SKIPS ANY DELETED * K1909740
1005 | * NESTS.) * K1909750
1006 | * * K1909760
1007 | * INIT(PLACES INDEX REGISTER 1 TO THE* K1909770
1008 | * FIRST NON-DELETED NEST.) * K1909780
1009 | * * K1909790
1010 | * INPUT /NO SPECIAL INPUT OTHER THAN THE * K1909800
1011 | * SYMBOL TABLE. * K1909810
1012 | * * K1909820
1013 | * OUTPUT /INDEX REGISTER 1 WILL BE POINTING * K1909830
1014 | * AT THE STRING AND INDEX REGISTER 2 * K1909840
1015 | * WILL POINT AT THE ENTRY IN THE * K1909850
1016 | * SYMBOL TABLE ASSOCIATED WITH THE * K1909860
1017 | * STRING SYMBOL. * K1909870
1018 | * * K1909880
1019 | * EXTERNAL * K1909890
1020 | * REFERENCES /SUBROUTINES (MOVE,XR2) ARE REQUIRED* K1909900
1021 | * AND REFERENCES TO (NRA,H8000) ARE * K1909910
1022 | * MADE. * K1909920
1023 | * * K1909930
1024 | * ERROR /NONE * K1909940
1025 | * * K1909950
1026 | * NOTES /STORAGE CELL AT IN01A+1 IS FILLED I* K1909960
1027 | * BY INITIALIZATION WITH THE ADDRESS * K1909970
1028 | * OF THE FIRST EQUIVALENCE STATEMENT * K1909980
1029 | * OF A DUMMY IF EQUIVALENCE ARE * K1909990
1030 | * PRESENT. * K1910000
1031 | * * K1910010
1032 | *************************************************** K1910020
1033 | * K1910030
1034 | * ENTRY-INCR K1910040
7BC3 0000 1035 | INCR DC *-* LINK WORD K1910050
1036 | * K1910060
1037 | * CALL MOVE TO MOVE POINTER TO THE K1910070
1038 | * NEXT SYMBOL IN THE EQUIVALENCE K1910080
1039 | * STATEMENTS. K1910090
7BC4 401E 1040 | BSI MOVE CALL MOVE K1910100
7BC5 7BDA 1041 | DC IN01E BR IF END OF ALL EQUIV K1910110
7BC6 7BD1 1042 | DC IN01B BR IF END OF NEST K1910120
1043 | * K1910130
1044 | * CALL XR2 TO POINT INDEX REGISTER K1910140
1045 | * 2 AT THE INDICATOR WORD OF THE K1910150
1046 | * SYMBOL TABLE ENTRY. K1910160
7BC7 43F1 1047 | BSI 3 XR2-X CALL XR2 K1910170
1048 | * K1910180
1049 | * RETURN LINK+2 K1910190
7BC8 7402 7BC3 1050 | MDX L INCR,2 INCREMENT LINK WORD BY 2 K1910200
7BCA 4C80 7BC3 1051 | BSC I INCR RETURN K1910210
1052 | * K1910220
1053 | * ENTRY-INIT K1910230
7BCC 0000 1054 | INIT DC *-* LINK WORD K1910240
1055 | * K1910250
1056 | * MOVE THE LINK WORD TO THE INCR K1910260
1057 | * ENTRY POINT. K1910270
7BCD C0FE 1058 | LD INIT LOAD LINK WORD-INIT K1910280
7BCE D0F4 1059 | STO INCR STORE LINK WORD-INCR K1910290
1060 | * K1910300
1061 | * SET INDEX REGISTER 1 TO POINT AT K1910310
1062 | * THE FIRST NEST. (THIS ADDRESS IS K1910320
1063 | * COMPUTED IN THE INITIALIZATION K1910330
1064 | * AN IS STORED HERE.) K1910340
7BCF 6500 0000 1065 | IN01A LDX L1 *-* LOAD XR1 WITH NEST ADDRESS K1910350
1066 | * K1910360
1067 | * SAVE INDEX REGISTER 1 FOR THE K1910370
1068 | * RTN ROUTINE. K1910380
7BD1 6D00 7AF1 1069 | IN01B STX L1 NRA SAVE XR1 K1910390
1070 | * K1910400
1071 | * TEST THE LEFT PARENTHESIS TO SEE K1910410
1072 | * IF THE NEST HAS BEEN DELETED. K1910420
7BD3 C1FF 1073 | LD 1 -1 LOAD LEFT PARENTHESIS K1910430
7BD4 F3A5 1074 | EOR 3 H8000-X CHECK FOR DELETE CODE K1910440
7BD5 4C18 7BDE 1075 | BSC L IN01C,+- BR IF DELETE CODE K1910450
1076 | * K1910460
1077 | * CALL XR2 TO POINT INDEX REGISTER K1910470
1078 | * 2 AT THE INDICATOR WORD OF THE K1910480
1079 | * SYMBOL TABLE ENTRY. K1910490
7BD7 43F1 1080 | BSI 3 XR2-X CALL XR2 K1910500
1081 | * K1910510
1082 | * INCREMENT LINK WORD BY 1 K1910520
7BD8 7401 7BC3 1083 | MDX L INCR,1 INCREMENT LINK WORD BY 1 K1910530
1084 | * K1910540
1085 | * RETURN C'(LINK) K1910550
1086 | * K1910560
7BDA C0E8 1087 | IN01E LD INCR INITIALIZE BRANCH INST. K1910570
7BDB D001 1088 | STO *+1 K1910580
7BDC 4C80 0000 1089 | BSC I *-* RETURN K1910590
1090 | * K1910600
1091 | * CALL XR2 TO POINT INDEX REGISTER K1910610
1092 | * 2 AT THE INDICATOR WORD OF THE K1910620
1093 | * SYMBOL TABLE ENTRY. K1910630
7BDE 43F1 1094 | IN01C BSI 3 XR2-X CALL XR2 K1910640
1095 | * K1910650
1096 | * CALL MOVE TO MOVE POINTER TO THE K1910660
1097 | * NEXT SYMBOL IN THE EQUIVALENCE K1910670
1098 | * STATEMENTS. K1910680
7BDF 4003 1099 | BSI MOVE CALL MOVE K1910690
7BE0 7BDA 1100 | DC IN01E BR IF END OF ALL EQUIV. K1910700
7BE1 7BD1 1101 | DC IN01B BR IF END OF NEST K1910710
7BE2 70FB 1102 | MDX IN01C K1910720
1103 | *************************************************** K1910730
1104 | * * K1910740
1105 | * END OF INCR ROUTINE * K1910750
1106 | * * K1910760
1107 | *************************************************** K1910770
1130 FORTRAN COMPILER PHASE 19
1109 | *************************************************** K1910790
1110 | * * K1910800
1111 | * ROUTINE NAME/MOVE * K1910810
1112 | * * K1910820
1113 | * FUNCTION /MOVE INDEX REGISTER 1 TO THE NEXT * K1910830
1114 | * SYMBOL IN THE EQUIVALENCE STATEMENT* K1910840
1115 | * PRESENT. * K1910850
1116 | * * K1910860
1117 | * ENTRY /MOVE * K1910870
1118 | * * K1910880
1119 | * INPUT /NO SPECIAL INPUT OTHER THAN THE * K1910890
1120 | * SYMBOL TABLE. * K1910900
1121 | * * K1910910
1122 | * OUTPUT /INDEX REGISTER 1 WILL POINT AT THE * K1910920
1123 | * NEXT SYMBOL IN THE EQUIVALENCE * K1910930
1124 | * STATEMENTS. * K1910940
1125 | * * K1910950
1126 | * EXTERNAL * K1910960
1127 | * REFERENCES /REFERENCES TO (H1800,H0012,HF800, * K1910970
1128 | * HA800) ARE MADE. * K1910980
1129 | * * K1910990
1130 | * ERROR /NONE * K1911000
1131 | * * K1911010
1132 | * NOTES /NONE * K1911020
1133 | * * K1911030
1134 | *************************************************** K1911040
1135 | * K1911050
1136 | * ENTRY-MOVE K1911060
7BE3 0000 1137 | MOVE DC *-* LINK WORD K1911070
1138 | * K1911080
1139 | * CHECK TO SEE IF PRESENT SYMBOL K1911090
1140 | * IS DIMENSIONED. K1911100
7BE4 C200 1141 | LD 2 0 LOAD INDICATOR WORD K1911110
7BE5 E3A9 1142 | AND 3 H1800-X SAVE DIMENSION BITS K1911120
7BE6 4C18 7BE9 1143 | BSC L MV01A,+- BR IF NOT DIMENSIONED K1911130
1144 | * K1911140
1145 | * MOVE INDEX REGISTER 1 OVER THE K1911150
1146 | * SUBSCRIPT. K1911160
7BE8 7103 1147 | MDX 1 3 K1911170
1148 | * K1911180
1149 | * MOVE INDEX REGISTER 1 OVER THE K1911190
1150 | * SYMBOL. K1911200
7BE9 7102 1151 | MV01A MDX 1 2 K1911210
1152 | * K1911220
1153 | * TEST TO SEE IF THERE IS A SYMBOL K1911230
1154 | * AT LOCATION SPECIFIED BY XR1. K1911240
7BEA C100 1155 | LD 1 0 LOAD SYMBOL AT XR1 K1911250
7BEB 4C10 7BF1 1156 | BSC L MV01B,- BR IF OPERATOR K1911260
1157 | * K1911270
1158 | * RETURN TO LINK+2 K1911280
7BED 7402 7BE3 1159 | MDX L MOVE,2 INCREMENT LINK WORD BY 2 K1911290
7BEF 4C80 7BE3 1160 | BSC I MOVE RETURN K1911300
1161 | * K1911310
1162 | * TEST THE SEPERATOR TO SEE IF IT K1911320
1163 | * IS A COMMA. K1911330
7BF1 93C4 1164 | MV01B S 3 H0012-X TEST FOR COMMA K1911340
7BF2 4C20 7BFB 1165 | BSC L MV01C,Z BR IF NOT A COMMA K1911350
1166 | * K1911360
1167 | * MOVE INDEX REGISTER 1 TO THE K1911370
1168 | * NEXT NEST. K1911380
7BF4 7102 1169 | MDX 1 2 K1911390
1170 | * K1911400
1171 | * INCREMENT LINK WORD BY 1 K1911410
7BF5 7401 7BE3 1172 | MV01D MDX L MOVE,1 K1911420
1173 | * K1911430
1174 | * RETURN C'(LINK WORD) K1911440
7BF7 C0EB 1175 | MV01E LD MOVE LOAD LINK WORD K1911450
7BF8 D001 1176 | STO *+1 INITIALIZE BR INSTRUCTION K1911460
7BF9 4C80 0000 1177 | BSC I *-* RETURN K1911470
1178 | * K1911480
1179 | * TEST THE NEXT STATEMENT TO SEE K1911490
1180 | * IF IT IS AN EQUIVALENCE K1911500
1181 | * STATEMENT. K1911510
7BFB C101 1182 | MV01C LD 1 1 LOAD NEXT ID WORD K1911520
7BFC E3A2 1183 | AND 3 HF800-X SAVE TYPE BITS K1911530
7BFD F3A4 1184 | EOR 3 HA800-X CHECK FOR EQUIVALENCE K1911540
7BFE 4C20 7BF7 1185 | BSC L MV01E,Z BR IF NOT EQUIV. STATEMENT K1911550
1186 | * K1911560
1187 | * SKIP TO NEST IN NEXT STATEMENT. K1911570
7C00 7103 1188 | MDX 1 3 K1911580
7C01 70F3 1189 | MDX MV01D K1911590
1190 | *************************************************** K1911600
1191 | * * K1911610
1192 | * END OF THE MOVE ROUTINE * K1911620
1193 | * * K1911630
1194 | *************************************************** K1911640
1130 FORTRAN COMPILER PHASE 19
1196 | *************************************************** K1911660
1197 | * * K1911670
1198 | * ROUTINE NAME/RMOVE * K1911680
1199 | * * K1911690
1200 | * FUNCTION /REMOVE BEING ALLOCATED BITS FROM * K1911700
1201 | * THE SYMBOL TABLE. * K1911710
1202 | * * K1911720
1203 | * ENTRY /RMOVE * K1911730
1204 | * * K1911740
1205 | * INPUT /THE SYMBOL TABLE IS INPUT. * K1911750
1206 | * * K1911760
1207 | * OUTPUT /THE SYMBOL TABLE WILL BE FREE * K1911770
1208 | * OF BEING ALLOCATED BITS. * K1911780
1209 | * EXTERNAL * K1911790
1210 | * REFERANCES /REFERANCES TO (SOFST,H0300,H1800, * K1911800
1211 | * D4,EOFST) ARE MADE. * K1911810
1212 | * * K1911820
1213 | * ERROR /NONE * K1911830
1214 | * * K1911840
1215 | * NOTE /CALLING SEQUENCE BSI RMOVE * K1911850
1216 | * * K1911860
1217 | *************************************************** K1911870
1218 | * K1911880
1219 | * ENTRY-RMOVE K1911890
7C02 0000 1220 | RMOVE DC *-* LINK WORD K1911900
1221 | * K1911910
1222 | * POINT INDEX REGISTER 1 AT THE K1911920
1223 | * START OF THE SYMBOL TABLE. K1911930
7C03 6580 7A26 1224 | LDX I1 SOFST LOAD XR1 WITH SOFST K1911940
1225 | * K1911950
1226 | * THE SYMBOL TO SEE IF THE BEING K1911960
1227 | * ALLOCATED BITS ARE ON. K1911970
7C05 C100 1228 | RM01A LD 1 0 LOAD INDICATOR WORD K1911980
7C06 E3AF 1229 | AND 3 H0300-X TEST BEING ALLOCATED BITS K1911990
7C07 F3AF 1230 | EOR 3 H0300-X K1912000
7C08 4C20 7C0D 1231 | BSC L RM01B,Z BR IF NOT BEING ALLOCATED K1912010
1232 | * K1912020
1233 | * CLEAR BEING ALLOCATED BITS FROM K1912030
1234 | * SYMBOL TABLE. K1912040
7C0A C100 1235 | LD 1 0 LOAD INDICATOR WORD K1912050
7C0B F3AF 1236 | EOR 3 H0300-X CLEAR BEING ALLOCATED BITS K1912060
7C0C D100 1237 | STO 1 0 STORE INDICATOR WORD K1912070
1238 | * K1912080
1239 | * TEST TO SEE IF SYMBOL IS K1912090
1240 | * DIMENSIONED. K1912100
7C0D C100 1241 | RM01B LD 1 0 LOAD INDICATOR WORD K1912110
7C0E E3A9 1242 | AND 3 H1800-X SAVE DIMENSIONED BITS K1912120
7C0F 4820 1243 | BSC Z SKIP IF NOT DIMENSIONED K1912130
1244 | * K1912140
1245 | * MOVE INDEX REGISTER 1 OVER THE K1912150
1246 | * DIMENSION INFORMATION. K1912160
7C10 71FD 1247 | MDX 1 -3 K1912170
1248 | * K1912180
1249 | * MOVE TO NEXT SYMBOL K1912190
7C11 71FD 1250 | MDX 1 -3 K1912200
1251 | * K1912210
1252 | * TEST TO SEE THE WHOLE SYMBOL K1912220
1253 | * TABLE HAS BEEN CHECKED. K1912230
7C12 6D00 7AF0 1254 | STX L1 D4 SAVE PRESENT POSITION K1912240
7C14 C38B 1255 | LD 3 D4-X LOAD PRESENT POSITION K1912250
7C15 9400 7A2A 1256 | S L EOFST TEST FOR END OF TABLE K1912260
7C17 4C88 7C02 1257 | BSC I RMOVE,+ BR IF END OF TABLE K1912270
7C19 70EB 1258 | MDX RM01A K1912280
1259 | *************************************************** K1912290
1260 | * * K1912300
1261 | * END OF RMOVE ROUTINE * K1912310
1262 | * * K1912320
1263 | *************************************************** K1912330
1130 FORTRAN COMPILER PHASE 19
1265 | *************************************************** K1912350
1266 | * * K1912360
1267 | * ROUTINE NAME/INSER * K1912370
1268 | * * K1912380
1269 | * FUNCTION /INSERT THE ALLOCATION IN THE SYMBOL* K1912390
1270 | * TABLE AND PRINT THE ALLOCATION. * K1912400
1271 | * * K1912410
1272 | * ENTRY /INSER * K1912420
1273 | * * K1912430
1274 | * INPUT /ALLOCATION IN A REGISTER. INDEX * K1912440
1275 | * REGISTER 2 SET TO POINT AT SYMBOL * K1912450
1276 | * TABLE. * K1912460
1277 | * * K1912470
1278 | * OUTPUT /ALLOCTION IN SYMBOL TABLE AN SYMBOL* K1912480
1279 | * READIED FOR PRINTING. * K1912490
1280 | * * K1912500
1281 | * EXTERNAL * K1912510
1282 | * REFERANCES /SUBROUTINES (TOPAU,TOPA,TOPAD,PRINT* K1912520
1283 | * BLKPA,NEWPG) ARE CALLED AND * K1912530
1284 | * REFERANCES TO (SALOC,H0002,ALOCB, * K1912540
1285 | * NAME,CCWD,H000C,HFFFF,H0040,H0060, * K1912550
1286 | * H00D9,H00C9,H00C3,H005C,H007E,VSIZE* K1912560
1287 | * ASIZE,H1800,PAP,RPAP,LNEND,H003C, * K1912570
1288 | * WDCNT,PCHSK) ARE MADE. * K1912580
1289 | * * K1912590
1290 | * ERROR /NONE * K1912600
1291 | * * K1912610
1292 | * NOTE /CALLING SEQUENCE LD ALLOCATION * K1912620
1293 | * BSI INSER * K1912630
1294 | * * K1912640
1295 | *************************************************** K1912650
1296 | * K1912660
1297 | * ENTRY-INSER K1912670
7C1A 0000 1298 | INSER DC *-* LINK WORD K1912680
1299 | * K1912690
1300 | * SAVE THE ALLOCATION IN SALOC. K1912700
7C1B D39A 1301 | STO 3 SALOC-X SAVE ALLOCATION K1912710
1302 | * K1912720
1303 | * TEST TO SEE IF SYMBOL HAS BEEN K1912730
1304 | * PREVIOUSLY ALLOCATED. K1912740
7C1C C200 1305 | LD 2 0 LOAD INDICATOR WORD K1912750
7C1D E3C9 1306 | AND 3 H0002-X SAVE ALLOCATION BIT K1912760
7C1E 4C18 7C25 1307 | BSC L IS01A,+- BR NOT PREVIOUSLY ALLOCATED K1912770
1308 | * K1912780
1309 | * TEST TO SEE THAT ALL ALLOCATIONS K1912790
1310 | * ARE THE SAME. K1912800
7C20 C201 1311 | LD 2 1 LOAD PREVIOUS ALLOCATION K1912810
7C21 939A 1312 | S 3 SALOC-X CHECK WITH THIS ONE K1912820
7C22 4C20 7ADA 1313 | BSC L ERR67,Z BR IF NOT THE SAME K1912830
7C24 700C 1314 | MDX IS01B BRANCH K1912840
1315 | * K1912850
1316 | * PLACE ALLOCATION BITS IN THE K1912860
1317 | * INDICATOR WORD OF THE SYMBOL K1912870
1318 | * TABLE. K1912880
7C25 C200 1319 | IS01A LD 2 0 LOAD INDICATOR WORD K1912890
7C26 EB9B 1320 | OR 3 ALOCB-X OR IN ALLOCATION BITS K1912900
7C27 D200 1321 | STO 2 0 STORE INDICATOR WORD K1912910
1322 | * CHECK IF STANDARD PRECISION K1912914
1323 | * REAL VARIABLE IS ALLOCATED K1912915
1324 | * TO AN ODD ADDRESS. K1912916
1325 | * K1912920
7C28 1001 1326 | SLA 1 PLACE REAL IND.IN SIGN 2-11 K1912922
7C29 4C28 7C31 1327 | BSC L IS01B,+Z BRANCH IF INTEGER 2-11 K1912923
7C2B C393 1328 | LD 3 RSIZE-X LOAD REAL SIZE 2-11 K1912924
7C2C 4C04 7C31 1329 | BSC L IS01B,E BR IF EXTEND PRECISION 2-11 K1912925
7C2E C39A 1330 | LD 3 SALOC-X LOAD ALLOCATION 2-11 K1912926
7C2F 4C04 7ADA 1331 | BSC L ERR67,E ERROR IF NOT EVEN ADDR 2-11 K1912927
1332 | * SAVE THE VARIABLE NAME K1912930
7C31 C201 1333 | IS01B LD 2 1 LOAD 1ST WORD OF NAME K1912940
7C32 D39D 1334 | STO 3 NAME-X SAVE 1ST WORD OF NAME K1912950
7C33 C202 1335 | LD 2 2 LOAD 2ND WORD OF NAME K1912960
7C34 D39E 1336 | STO 3 NAME-X+1 SAVE 2ND WORD OF NAME K1912970
1337 | * K1912980
1338 | * INSERT THE ALLOCATION FOR THIS K1912990
1339 | * VARIABLE IN THE 2ND WORD OF ITS K1913000
1340 | * SYMBOL TABLE ENTRY. K1913010
7C35 C39A 1341 | LD 3 SALOC-X LOAD ALLOCATION K1913020
7C36 D201 1342 | STO 2 1 PLACE IN SYMBOL TABLE K1913030
1343 | * K1913040
1344 | * TEST TO SEE LIST SYMBOL TABLE K1913050
1345 | * IS REQUESTED. K1913060
7C37 C400 7A31 1346 | LD L CCWD LOAD CONTROL CARD WORD K1913070
7C39 100C 1347 | SLA 12 PLACE LIST S.T. BIT IN SIGN K1913080
7C3A 4C90 7C1A 1348 | BSC I INSER,- BRANCH IF NO LISTIN REQUIRE K1913090
1349 | * K1913100
1350 | * TEST TO AVOID LISTING G.T. AND K1913110
1351 | * S.G.T. ENTRY IN SYMBOL TABLE. K1913120
7C3C C200 1352 | LD 2 0 LOAD ID WORD K1913130
7C3D E3C6 1353 | AND 3 H000C-X SAVE S.G.T. AN G.T. BITS K1913140
7C3E 4CA0 7C1A 1354 | BSC I INSER,Z BRANCH IF G.T. OT S.G.T. K1913150
1355 | * K1913160
1356 | * TEST TO AVOID LISTING PREVIOUSLY K1913170
1357 | * LISTED VARIABLE WHEN ALLOCATING K1913180
1358 | * EQUIVALENCE STATEMENTS. K1913190
7C40 C202 1359 | LD 2 2 LOAD 2ND WORD IN SYMBOL TAB K1913200
7C41 F3A1 1360 | EOR 3 HFFFF-X TEST FOR LISTED K1913210
7C42 4C98 7C1A 1361 | BSC I INSER,+- BRANCH IF LISTED K1913220
1362 | * K1913230
1363 | * INDICATE THAT THIS VARIABLE HAS K1913240
1364 | * BEEN LISTED. K1913250
7C44 C3A1 1365 | LD 3 HFFFF-X LOAD PRINTED INDICATOR K1913260
7C45 D202 1366 | STO 2 2 PLACE IN SYMBOL TABLE K1913270
1367 | * K1913280
1368 | * TEST TO SEE IF THE HEADING HAS K1913290
1369 | * BEEN PRINTED. K1913300
7C46 C39F 1370 | LD 3 HTEST-X LOAD HEADER INDICATOR K1913310
7C47 4C18 7A96 1371 | BSC L HD010,+- BRANCH TO PRINT HEADING K1913320
1372 | * K1913330
1373 | * PLACE THE NAME IN THE PRINTER K1913340
1374 | * BUFFER. K1913350
7C49 C39E 1375 | IS01C LD 3 NAME+1-X K1913360
7C4A E3BE 1376 | AND 3 H003F-X K1913370
7C4B 4C20 7C51 1377 | BSC L GO1,Z K1913380
7C4D CB9D 1378 | LDD 3 NAME-X K1913390
7C4E 18C6 1379 | RTE 6 K1913400
7C4F DB9D 1380 | STD 3 NAME-X K1913410
7C50 70F8 1381 | MDX IS01C K1913420
7C51 C3BD 1382 | GO1 LD 3 H0040-X LOAD A BLANK K1913430
7C52 4057 1383 | BSI TOPAU CALL TOPAU K1913440
7C53 C39D 1384 | LD 3 NAME-X LOAD NAME K1913450
7C54 1808 1385 | SRA 8 SEPARATE 1ST CHARACTER K1913460
7C55 404A 1386 | BSI TOPA CALL TOPA K1913470
7C56 C39D 1387 | LD 3 NAME-X LOAD NAME K1913480
7C57 1802 1388 | SRA 2 SEPARATE 2ND CHARACTER K1913490
7C58 4047 1389 | BSI TOPA CALL TOPA K1913500
7C59 CB9D 1390 | LDD 3 NAME-X LOAD NAME K1913510
7C5A 1084 1391 | SLT 4 SEPARATE 3RD CHARACTER K1913520
7C5B 4044 1392 | BSI TOPA CALL TOPA K1913530
7C5C C39E 1393 | LD 3 NAME+1-X LOAD NAME K1913540
7C5D 1806 1394 | SRA 6 SEPARATE 4TH CHARACTER K1913550
7C5E 4041 1395 | BSI TOPA CALL TOPA K1913560
7C5F C39E 1396 | LD 3 NAME+1-X LOAD 5TH CHARACTER K1913570
7C60 403F 1397 | BSI TOPA CALL TOPA K1913580
1398 | * K1913590
1399 | * PLACE LEFT PAREN BETWEEN THE K1913600
1400 | * NAME AND THE VARIABLE TYPES. K1913610
7C61 C3B9 1401 | LD 3 H004D-X LOAD A HYPHEN K1913620
7C62 4047 1402 | BSI TOPAU CALL TOPAU K1913630
1403 | * K1913640
1404 | * TEST TO SEE IF THE VARIABLE IS K1913650
1405 | * REAL OR INTEGER AND PLACE THE K1913660
1406 | * FIRST LETTER IN THE PRINT AREA. K1913670
7C63 C200 1407 | LD 2 0 LOAD ID WORD K1913680
7C64 1002 1408 | SLA 2 PLACE TYPE IN CARRY K1913690
7C65 C3B0 1409 | LD 3 H00D9-X LOAD R K1913700
7C66 4802 1410 | BSC C SKIP IF REAL K1913710
7C67 C3B1 1411 | LD 3 H00C9-X LOAD I K1913720
7C68 4041 1412 | BSI TOPAU CALL TOPAU K1913730
1413 | * K1913740
1414 | * TEST TO SEE IF THE VARIABLE IS K1913750
1415 | * IN COMMON. K1913760
7C69 C200 1416 | LD 2 0 LOAD ID WORD K1913770
7C6A 1002 1417 | SLA 2 PLACE COMMON IND. IN SIGN K1913780
7C6B D39C 1418 | STO 3 COMSW-X STORE IN COMMON SWITCH 2-6 K1913785
7C6C 4C28 7C71 1419 | BSC L IS01D,+Z BRANCH IF IN COMMON K1913790
1420 | * K1913800
1421 | * PLACE A BLANK IN THE PRINT AREA. K1913810
7C6E C3BD 1422 | LD 3 H0040-X LOAD BLANK K1913820
7C6F 403A 1423 | BSI TOPAU CALL TOPAU K1913830
7C70 7002 1424 | MDX IS01E BRANCH K1913840
1425 | * K1913850
1426 | * PLACE C IN PRINT AREA TO K1913860
1427 | * INDICATE THE VARIABLE IS K1913870
1428 | * IN COMMON K1913880
7C71 C3B3 1429 | IS01D LD 3 H00C3-X LOAD C K1913890
7C72 4037 1430 | BSI TOPAU CALL TOPAU K1913900
1431 | * K1913910
7C73 C3B7 1432 | IS01E LD 3 H005D-X K1913920
7C74 4035 1433 | BSI TOPAU PUT RIGHT PAREN AFTER TYPE K1913930
1434 | * K1913940
1435 | * PLACE AN EQUAL SIGN IN THE K1913950
1436 | * PRINT AREA. K1913960
7C75 C3B5 1437 | LD 3 H007E-X LOAD = K1913970
7C76 4033 1438 | BSI TOPAU CALL TOPAU K1913980
1439 | * K1913990
1440 | * PLACE THE ADDRESS OF THE FIRST K1914000
1441 | * ELEMENT IN THE VARIABLE. K1914010
7C77 C39A 1442 | LD 3 SALOC-X LOAD ADDRESS K1914020
7C78 4039 1443 | BSI TOPAD CALL TOPAD K1914030
1444 | * K1914040
1445 | * TEST TO SEE IF THE VARIABLE IS K1914050
1446 | * AN ARRAY. K1914060
7C79 C200 1447 | LD 2 0 LOAD ID WORD K1914070
7C7A E3A9 1448 | AND 3 H1800-X SEPEATE DIMENSION BITS K1914080
7C7B 4C18 7C87 1449 | BSC L IS01F,+- BRANCH IF NOT DIMENSIONED K1914090
1450 | * K1914100
1451 | * CALL ARRL AND GET THE DATA K1914110
1452 | * ABOUT THE VARIABLE. COMPUTE K1914120
1453 | * THE SECOND ADDRESS OF THE K1914130
1454 | * ARRAY. K1914140
7C7D 43CB 1455 | BSI 3 ARRL-X CALCULATE ARRAY SIZE K1914150
7C7E C391 1456 | LD 3 VSIZE-X LOAD VARIABLE SIZE K1914160
7C7F 9394 1457 | S 3 ASIZE-X SUBTRACT ARRAY SIZE K1914170
7C80 839A 1458 | A 3 SALOC-X FIND LOW ADDRESS K1914180
7C81 D39A 1459 | STO 3 SALOC-X SAVE 2ND ADDRESS K1914190
1460 | * K1914200
1461 | * PLACE THE HYPHEN BETWEEN THE K1914210
1462 | * FIRST AND SECOND ADDRESS. K1914220
7C82 C3B6 1463 | LD 3 H0060-X LOAD HYPHEN K1914230
7C83 4026 1464 | BSI TOPAU CALL TOPAU K1914240
1465 | * K1914250
1466 | * PLACE THE SECOND ADDRESS IN THE K1914260
1467 | * PRINT AREA. K1914270
7C84 C39A 1468 | LD 3 SALOC-X LOAD 2ND ADDRESS K1914280
7C85 402C 1469 | BSI TOPAD CALL TOPAD K1914290
7C86 700A 1470 | MDX IS01G BRANCH K1914300
1471 | * K1914310
1472 | * PLACE BLANKS FOR 2ND ADDRESS IN K1914320
1473 | * THE PRINT AREA. K1914330
7C87 C3BD 1474 | IS01F LD 3 H0040-X LOAD A BLANK K1914340
7C88 4021 1475 | BSI TOPAU CALL TOPAU K1914350
7C89 C3BD 1476 | LD 3 H0040-X LOAD A BLANK K1914360
7C8A 401F 1477 | BSI TOPAU CALL TOPAU K1914370
7C8B C3BD 1478 | LD 3 H0040-X LOAD A BLANK K1914380
7C8C 401D 1479 | BSI TOPAU CALL TOPAU K1914390
7C8D C3BD 1480 | LD 3 H0040-X LOAD A BLANK K1914400
7C8E 401B 1481 | BSI TOPAU CALL TOPAU K1914410
7C8F C3BD 1482 | LD 3 H0040-X LOAD A BLANK K1914420
7C90 4019 1483 | BSI TOPAU CALL TOPAU K1914430
1484 | * K1914440
1485 | * TEST TO SEE IF WE ARE AT THE K1914450
1486 | * END OF THE PRINT LINE. K1914460
7C91 C396 1487 | IS01G LD 3 PAP-X LOAD PRINT AREA POINTER K1914470
7C92 9397 1488 | S 3 LNEND-X SUBTRACT LINE END K1914480
7C93 4CA8 7C1A 1489 | BSC I INSER,Z+ BRANCH IF LINE NOT FULL K1914490
1490 | * K1914500
1491 | * RESET THE LINE POINTER AND K1914510
7C95 C398 1492 | LD 3 RPAP-X LOAD PRINT AREA ADDRESS K1914520
7C96 D396 1493 | STO 3 PAP-X INITIALIZE PRINT AREA PTR. K1914530
1494 | * K1914540
1495 | * PRINT THE LINE. K1914550
7C97 4400 7E0E 1496 | BSI L PRINT CALL PRINT K1914560
1497 | * K1914570
1498 | * BLANK THE PRINT AREA K1914580
7C99 403F 1499 | BSI BLKPA K1914590
1500 | * K1914600
1501 | * TEST IF END OF PAGE AND HANDLE K1914610
1502 | * HEADING. K1914620
7C9A C480 0006 1503 | LD I $CH12 LOAD END OF PAGE INDICATOR K1914630
7C9C 44A0 7E0C 1504 | BSI I NEWPG,Z BRANCH IF END OF PAGE K1914640
7C9E 4C80 7C1A 1505 | BSC I INSER BRANCH K1914650
1506 | *************************************************** K1914660
1507 | * * K1914670
1508 | * END OF INSER ROUTINE * K1914680
1509 | * * K1914690
1510 | *************************************************** K1914700
1130 FORTRAN COMPILER PHASE 19
1512 | *************************************************** K1914720
1513 | * * K1914730
1514 | * ROUTINE NAME/ TOPA * K1914740
1515 | * * K1914750
1516 | * FUNCTION /CONVERT 6 BIT TRUNCATED EBCDIC * K1914760
1517 | * AND CHECK FOR BLANKS, PLACING THE * K1914770
1518 | * CHARACTER IN THE PRINT AREA. * K1914780
1519 | * * K1914790
1520 | * ENTRY /TOPA * K1914800
1521 | * * K1914810
1522 | * INPUT /THE A REGISTER CONTAINS IN THE RIGH* K1914820
1523 | * 8 BITS THE CHARACTER TO BE PLACED * K1914830
1524 | * IN THE RIGHT AREA. * K1914840
1525 | * * K1914850
1526 | * OUTPUT /CHARACTER IS PLACED. * K1914860
1527 | * * K1914870
1528 | * EXTERNAL * K1914880
1529 | * REFERANCES /SUBROUTINES (TOPAU) ARE CALLED AND * K1914890
1530 | * REFERANCES TO (H003F,H0040,H00C0) * K1914900
1531 | * ARE MADE. * K1914910
1532 | * * K1914920
1533 | * ERROR /NONE * K1914930
1534 | * * K1914940
1535 | * NOTE /CALLING SEQUENCE LD CHARACTER * K1914950
1536 | * BSI TOPA * K1914960
1537 | * * K1914970
1538 | *************************************************** K1914980
1539 | * K1914990
1540 | * ENTRY-TOPA K1915000
7CA0 0000 1541 | TOPA DC *-* LINK WORD K1915010
1542 | * K1915020
1543 | * SAVE THE RIGHT 6 BITS IN THE K1915030
1544 | * A REGISTER. TEST TO SEE IF THE K1915040
1545 | * CHARACTER IS BLANK. K1915050
7CA1 E3BE 1546 | AND 3 H003F-X SAVE 6 BITS K1915060
7CA2 4C20 7CA6 1547 | BSC L TA01A,Z BRANCH IF NOT BLANK K1915070
1548 | * K1915080
1549 | * LOAD A BLANK TO BE PLACED IN K1915090
1550 | * PRINT AREA. K1915100
7CA4 C3BD 1551 | LD 3 H0040-X LOAD BLANK K1915110
7CA5 7001 1552 | MDX TA01B BRANCH K1915120
1553 | * K1915130
1554 | * MAKE THE CHARACTERS EBCDIC. K1915140
7CA6 EBB4 1555 | TA01A OR 3 H00C0-X OR IN THE HIGH BITS K1915150
1556 | * K1915160
1557 | * CALL TOPAU TO PLACE CHARACTER K1915170
1558 | * IN PRINT AREA. K1915180
7CA7 4002 1559 | TA01B BSI TOPAU CALL TOPAU K1915190
1560 | * K1915200
1561 | * RETURN K1915210
7CA8 4C80 7CA0 1562 | BSC I TOPA BRANCH K1915220
1563 | *************************************************** K1915230
1564 | * * K1915240
1565 | * END OF TOPA ROUTINE * K1915250
1566 | * * K1915260
1567 | *************************************************** K1915270
1130 FORTRAN COMPILER PHASE 19
1569 | *************************************************** K1915290
1570 | * * K1915300
1571 | * ROUTINE NAME/TOPAU * K1915310
1572 | * * K1915320
1573 | * FUNCTION /PLACE CHARACTER IN PRINT AREA. * K1915330
1574 | * * K1915340
1575 | * ENTRY /TOPAU * K1915350
1576 | * * K1915360
1577 | * INPUT /CHARACTER IN A REGISTER THAT IS TO * K1915370
1578 | * BE PLACED IN THE PRINT BUFFER. * K1915380
1579 | * * K1915390
1580 | * OUTPUT /CHARACTER IS PLACED. * K1915400
1581 | * * K1915410
1582 | * EXTERNAL * K1915420
1583 | * REFERANCES /REFERANCES TO (PAP) AR MADE. * K1915430
1584 | * * K1915440
1585 | * ERROR /NONE * K1915450
1586 | * * K1915460
1587 | * NOTE /CALLING SEQUENCE LD CHARACTER * K1915470
1588 | * BSI TOPAU * K1915480
1589 | * * K1915490
1590 | *************************************************** K1915500
1591 | * K1915510
1592 | * ENTRY-TOPAU K1915520
7CAA 0000 1593 | TOPAU DC *-* LINK WORD K1915530
1594 | * K1915540
1595 | * MOVE THE CHARACTER TO THE LEFT K1915550
1596 | * SIDE OF THE A REGISTER. K1915560
7CAB 1008 1597 | SLA 8 MOVE LEFT CHARACTER K1915570
1598 | * K1915580
1599 | * PLACE CHARACTER IN PRINT AREA. K1915590
7CAC D480 7AFB 1600 | STO I PAP PLACE CHARACTER K1915600
7CAE 7401 7AFB 1601 | MDX L PAP,1 INCREMENT POINTER K1915610
1602 | * K1915620
1603 | * RETURN K1915630
7CB0 4C80 7CAA 1604 | BSC I TOPAU BRANCH K1915640
1605 | *************************************************** K1915650
1606 | * * K1915660
1607 | * END OF TOPAU ROUTINE * K1915670
1608 | * * K1915680
1609 | *************************************************** K1915690
1130 FORTRAN COMPILER PHASE 19
1611 | *************************************************** K1915710
1612 | * * K1915720
1613 | * ROUTINE NAME/TOPAD * K1915730
1614 | * * K1915740
1615 | * FUNCTION /PLACE HEXIDECIMAL ADDRESS IN THE * K1915750
1616 | * PRINT AREA. * K1915760
1617 | * * K1915770
1618 | * ENTRY /TOPAD * K1915780
1619 | * * K1915790
1620 | * INPUT /HEXIDECIMAL WORD IS IN THE A * K1915800
1621 | * REGISTER. * K1915810
1622 | * * K1915820
1623 | * OUTPUT /THE FOUR HEXIDECIMAL CHARACTERS ARE* K1915830
1624 | * PLACED IN THE PRINT AREA. * K1915840
1625 | * * K1915850
1626 | * EXTERNAL * K1915860
1627 | * REFERANCES /SUBROUTINES (TOPAH) ARE CALLED AND * K1915870
1628 | * REFERANCES TO (SAVAD,H4000) ARE * K1915880
1629 | * MADE. * K1915890
1630 | * * K1915900
1631 | * ERROR /NONE * K1915910
1632 | * * K1915920
1633 | * NOTE /CALLING SEQUENCE LD ADDRESS * K1915930
1634 | * BSI TOPAD * K1915940
1635 | * * K1915950
1636 | *************************************************** K1915960
1637 | * K1915970
1638 | * ENTRY-TOPAD K1915980
7CB2 0000 1639 | TOPAD DC *-* LINK WORD K1915990
1640 | * K1916000
1641 | * SAVE ADDRESS TO BE PLACED IN K1916010
1642 | * THE PRINT AREA. K1916020
7CB3 D399 1643 | STO 3 SAVAD-X SAVE ADDRESS K1916030
1644 | * K1916035
7CB4 C3A0 1645 | LD 3 ORGSW-X IS IT AN ABS PROGRAM 2-4 K1916037
7CB5 4C18 7CC4 1646 | BSC L TD01A,+- BRANCH IF NO 2-4 K1916040
7CB7 C39C 1647 | LD 3 COMSW-X BRANCH IF VARIABLE 2-6 K1916041
7CB8 4C28 7CC4 1648 | BSC L TD01A,+Z *IN COMMON 2-6 K1916042
7CBA C400 7A23 1649 | LD L ORG YES - RELOCATE 2-4 K1916043
7CBC 8399 1650 | A 3 SAVAD-X THE ADDRESS AND 2-4 K1916044
7CBD D399 1651 | STO 3 SAVAD-X STORE BACK 2-4 K1916045
7CBE 4C10 7CC4 1652 | BSC L TD01A,- IF NEGATIVE 2-4 K1916046
7CC0 7440 7A2D 1653 | MDX L ERROR,64 SET ERROR 86 2-4 K1916047
7CC2 4C00 7AD1 1654 | BSC L EXIT AND EXIT 2-4 K1916048
1655 | * K1916050
1656 | * PLACE THE HEX ADDRESS IN THE K1916060
1657 | * PRINT AREA. K1916070
7CC4 C399 1658 | TD01A LD 3 SAVAD-X LOAD SAVED ADDRESS K1916080
7CC5 180C 1659 | SRA 12 ISOLATE 1ST HEX CHARACTER K1916090
7CC6 400A 1660 | BSI TOPAH CALL TOPAH K1916100
7CC7 C399 1661 | LD 3 SAVAD-X LOAD SAVED ADDRESS K1916110
7CC8 1808 1662 | SRA 8 ISOLATE 2ND HEX CHARACTER K1916120
7CC9 4007 1663 | BSI TOPAH CALL TOPAH K1916130
7CCA C399 1664 | LD 3 SAVAD-X LOAD SAVED ADDRESS K1916140
7CCB 1804 1665 | SRA 4 ISOLATE 3RD HEX CHARACTER K1916150
7CCC 4004 1666 | BSI TOPAH CALL TOPAH K1916160
7CCD C399 1667 | LD 3 SAVAD-X LOAD 4TH HEX CHARACTER K1916170
7CCE 4002 1668 | BSI TOPAH CALL TOPAH K1916180
1669 | * K1916190
1670 | * RETURN K1916200
7CCF 4C80 7CB2 1671 | BSC I TOPAD BRANCH K1916210
1672 | *************************************************** K1916220
1673 | * * K1916230
1674 | * END OF TOPAD ROUTINE * K1916240
1675 | * * K1916250
1676 | *************************************************** K1916260
1130 FORTRAN COMPILER PHASE 19
1678 | *************************************************** K1916280
1679 | * * K1916290
1680 | * ROUTINE NAME/ TOPAH * K1916300
1681 | * * K1916310
1682 | * FUNCTION /THIS ROUTINE CONVERTS A 4 BIT * K1916320
1683 | * HEXIDECIMAL DIGIT TO AN EBCDIC * K1916330
1684 | * CHARACTER AND PLACE IN PRINT AREA. * K1916340
1685 | * * K1916350
1686 | * ENTRY /TOPAH * K1916360
1687 | * * K1916370
1688 | * INPUT /HEXIDECIMAL DIGIT IN A REGISTER. * K1916380
1689 | * * K1916390
1690 | * OUTPUT /EBCDIC CHARACTER IS PLACED IN THE * K1916400
1691 | * PRINT AREA. * K1916410
1692 | * * K1916420
1693 | * EXTERNAL * K1916430
1694 | * REFERANCES /SUBROUTINES (TOPA) ARE CALLED AND * K1916440
1695 | * REFERANCES TO (H000F,H0009,H0039) * K1916450
1696 | * ARE MADE. * K1916460
1697 | * * K1916470
1698 | * ERROR /NONE * K1916480
1699 | * * K1916490
1700 | * NOTE /CALLING SEQUENCE LD DIGIT * K1916500
1701 | * BSI TOPAH * K1916510
1702 | * * K1916520
1703 | *************************************************** K1916530
1704 | * K1916540
1705 | * ENTRY-TOPAH K1916550
7CD1 0000 1706 | TOPAH DC *-* LINK WORD K1916560
1707 | * K1916570
1708 | * SEPERATE THE LAST HEX CHARACTER K1916580
1709 | * IN THE A REGISTER. K1916590
7CD2 E3C5 1710 | AND 3 H000F-X HOLD RIGHT HEX CHARACTER K1916600
1711 | * K1916610
1712 | * TEST AND ADJUST 0-9 TO /30-/39 K1916620
1713 | * AND A-F TO /01-/06 K1916630
7CD3 93C7 1714 | S 3 H0009-X CHECK AGAINST 9 K1916640
7CD4 4808 1715 | BSC + SKIP IF A-F K1916650
7CD5 83C0 1716 | A 3 H0039-X ADJUST NUMBERS 0-9 K1916660
1717 | * K1916670
1718 | * CALL TOPAU TO PLACE THE K1916680
1719 | * CHARACTER IN THE PRINT AREA. K1916690
7CD6 40C9 1720 | BSI TOPA CALL TOPA K1916700
1721 | * K1916710
1722 | * RETURN K1916720
7CD7 4C80 7CD1 1723 | BSC I TOPAH BRANCH K1916730
1724 | *************************************************** K1916740
1725 | * * K1916750
1726 | * END OF TOPAH ROUTINE * K1916760
1727 | * * K1916770
1728 | *************************************************** K1916780
1130 FORTRAN COMPILER PHASE 19
1730 | *************************************************** K1916800
1731 | * * K1916810
1732 | * ROUTINE NAME/BLKPA * K1916820
1733 | * * K1916830
1734 | * FUNCTION /CLEAR THE PRINT AREA TO BLANKS. * K1916840
1735 | * * K1916850
1736 | * ENTRY /BLKPA * K1916860
1737 | * * K1916870
1738 | * INPUT /NONE * K1916880
1739 | * * K1916890
1740 | * OUTPUT /PRINT AREA IS CLEARED. * K1916900
1741 | * * K1916910
1742 | * EXTERNAL * K1916920
1743 | * REFERANCES /REFERANCES TO (H0040,PAREA) ARE * K1916930
1744 | * MADE. * K1916940
1745 | * * K1916950
1746 | * ERROR /NONE * K1916960
1747 | * * K1916970
1748 | * NOTE /CALLING SEQUENCE BSI BLKPA * K1916980
1749 | * * K1916990
1750 | *************************************************** K1917000
1751 | * K1917010
1752 | * ENTRY-BLKPA K1917020
7CD9 7C49 1753 | BLKPA DC IS01C LINK WORD K1917030
1754 | * K1917040
1755 | * CLEAR THE PRINT AREA USING K1917050
1756 | * INDEX REGISTER 3. K1917060
7CDA C3A6 1757 | LD 3 H4000-X LOAD BLANK K1917070
7CDB 6388 1758 | LDX 3 -120 LOAD XR3 WITH -120 K1917080
7CDC D700 7AB1 1759 | STO L3 PAREA+120 PLANK PRINT AREA K1917090
7CDE 7301 1760 | MDX 3 1 INCREMENT XR3 BY 1 K1917100
7CDF 70FC 1761 | MDX *-4 BRANCH K1917110
1762 | * K1917120
1763 | * RESTORE INDEX REGISTER 3 TO K1917130
1764 | * POINT LITERAL POOL. K1917140
7CE0 6700 7B65 1765 | LDX L3 X LOAD XR3 K1917150
1766 | * K1917160
1767 | * RETURN K1917170
7CE2 4C80 7CD9 1768 | BSC I BLKPA BRANCH K1917180
1130 FORTRAN COMPILER PHASE 19
1770 | *************************************************** K1917200
1771 | * * K1917210
1772 | * ROUTINE NAME/ALLOC * K1917220
1773 | * * K1917230
1774 | * FUNCTION /ALLOCATE ALL COMMON AND NON- * K1917240
1775 | * EQUIVALENCED VARIABLES. * K1917250
1776 | * * K1917260
1777 | * ENTRY /ALLOC * K1917270
1778 | * * K1917280
1779 | * INPUT /NO SPECIAL INPUT OTHER THAN THE * K1917290
1780 | * SYMBOL TABLE. * K1917300
1781 | * * K1917310
1782 | * OUTPUT /THE PART OF THE SYMBOL TABLE THIS * K1917320
1783 | * IS CONTROLED BY THE PRESENT SETTING* K1917330
1784 | * OF TRACK SWITCH IS ALLOCATED. * K1917340
1785 | * * K1917350
1786 | * EXTERNAL * K1917360
1787 | * REFERANCES /SUBROUTINES (ARRL,INSER,VARF0) ARE * K1917370
1788 | * CALLED AN REFERANCES TO (TRACK,BASE* K1917380
1789 | * SOFST,CSIZE,LCOMN,CCWD,VSIZE,RELAD,* K1917390
1790 | * D4,H1800,EOFST,H0028,H07D2,H0001, * K1917400
1791 | * VARCR,CAC) ARE MADE. * K1917410
1792 | * * K1917420
1793 | * ERROR /NONE * K1917430
1794 | * * K1917440
1795 | * NOTES /CALLING SEQUENCE BSI ALLOC * K1917450
1796 | * * K1917460
1797 | * TRACK SWITCH CONTROLS THE ALLOCATIO* K1917470
1798 | * OF PARTS OF THE SYMBOL TABLE AS * K1917480
1799 | * FOLLOWS * K1917490
1800 | * PLUS -COMMON * K1917500
1801 | * ZERO -REAL VARIABLES * K1917510
1802 | * MINUS-INTEGER VARIABLES * K1917520
1803 | * * K1917530
1804 | *************************************************** K1917540
1805 | * K1917550
1806 | * ENTRY-ALLOC K1917560
7CE4 0000 1807 | ALLOC DC *-* LINK WORD K1917570
1808 | * K1917580
1809 | * LOAD INDEX REGISTER 2 WITH THE K1917590
1810 | * START OF THE SYMBOL TABLE. K1917600
7CE5 6680 7A26 1811 | LDX I2 SOFST LOAD XR2 K1917610
1812 | * K1917620
1813 | * TEST TRACK SWITCH TO DECIDE K1917630
1814 | * THE ALLOCATION TO BE PREFORMED. K1917640
7CE7 C386 1815 | AL01A LD 3 TRACK-X LOAD TRACK SWITCH K1917650
7CE8 4C18 7D2D 1816 | BSC L AL01B,-+ BR TO ALLOC. REAL SYMBOLS K1917660
7CEA 4C30 7D33 1817 | BSC L AL01C,-Z BR TO ALLOC. INTEGER SYMBOL K1917670
1818 | * K1917680
1819 | * TEST TO SEE IF PRESENT SYMBOL IS K1917690
1820 | * A CONSTANT. K1917700
7CEC C200 1821 | LD 2 0 LOAD INDICATOR WORD K1917710
7CED 4C28 7D16 1822 | BSC L AL01D,+Z BR IF CONSTANT K1917720
1823 | * K1917730
1824 | * REPOSITION SYMBOL TABLE NAME TO K1917740
1825 | * READY FOR LATER PRINTING. K1917750
7CEF 1090 1826 | SLT 16 CLEAR EXTENSION REGISTER K1917760
7CF0 C202 1827 | LD 2 2 LOAD RIGHT 2 CHARACTERS K1917770
7CF1 188F 1828 | SRT 15 PLACE IN Q REGISTER K1917780
7CF2 C201 1829 | LD 2 1 LOAD LEFT 3 CHARACTERS K1917790
7CF3 1081 1830 | SLT 1 REMOVE LEADING BIT K1917800
7CF4 18C2 1831 | RTE 2 RE-POSITION NAME K1917810
7CF5 D201 1832 | STO 2 1 STORE REPOSITIONED NAME K1917820
7CF6 18D0 1833 | RTE 16 K1917830
7CF7 D202 1834 | STO 2 2 K1917840
1835 | * K1917850
1836 | * TEST TO SEE IF VARIABLE IS IN K1917860
1837 | * COMMON. K1917870
7CF8 C200 1838 | LD 2 0 LOAD INDICATOR WORD K1917880
7CF9 1002 1839 | SLA 2 PLACE COMMON IND. IN SIGN K1917890
7CFA 4C10 7D27 1840 | BSC L AL01E,- BR IF NOT IN COMMON K1917900
1841 | * K1917910
1842 | * K1917920
1843 | * PLACE BLANK COMMON ADDRESS IN K1917930
1844 | * BASE. K1917940
7CFC C400 7A2C 1845 | LD L CSIZE LOAD BLANK COMMON ADDRESS K1917950
1846 | * K1917960
1847 | * TEST THE ADDRESS IN BASE FOR K1917970
1848 | * BEING ODD. K1917980
7CFE D38E 1849 | AL01G STO 3 BASE-X SAVE BASE K1917990
7CFF 4C04 7D0A 1850 | BSC L AL01H,E BR IF BASE IS ODD K1918000
1851 | * K1918010
1852 | * TEST THIS SYMBOL FOR BEING K1918020
1853 | * REAL. K1918030
7D01 C200 1854 | LD 2 0 LOAD INDICATOR WOR K1918040
7D02 1001 1855 | SLA 1 PLACE REAL IND. IN SIGN K1918050
7D03 4C28 7D0A 1856 | BSC L AL01H,+Z BR IF INTEGER K1918060
1857 | * K1918070
1858 | * TEST TO SEE IF THIS PROGRAM IS K1918080
1859 | * STANDARD PRECISION. K1918090
1860 | * *1 INSTR REMOVED 2-11 K1918100
7D05 C393 1861 | LD 3 RSIZE-X LOAD REAL SIZE 2-11 K1918110
7D06 4C04 7D0A 1862 | BSC L AL01H,E BR IF EXTEND PRECISION 2-11 K1918120
1863 | * K1918130
1864 | * CORRECT BASE TO BE ODD FOR THE K1918140
1865 | * RIGHT WORD OF STANDARD PRECISION K1918150
1866 | * REAL SYMBOLS. K1918160
7D08 74FF 7AF3 1867 | MDX L BASE,-1 DECRAMENT BASE BY 1 K1918170
1868 | * K1918180
1869 | * CALL ARRL TO DETERMINE THE SIZE K1918190
1870 | * OF THE SYMBOL ELEMENTS. K1918200
7D0A 43CB 1871 | AL01H BSI 3 ARRL-X CALL ARRL K1918210
1872 | * K1918220
1873 | * UPDATE THE ADDRESS OF COMMON K1918230
1874 | * BEING HANDLED. K1918240
7D0B C38E 1875 | LD 3 BASE-X LOAD BASE ADDRESS OF SYMBOL K1918250
7D0C 9394 1876 | S 3 ASIZE-X SUBTRACT ARRAY SIZE K1918260
7D0D D38E 1877 | STO 3 BASE-X SAVE ADJUSTED BASE K1918270
1878 | * K1918280
7D0E D400 7A2C 1879 | STO L CSIZE * K1918290
1880 | * K1918300
1881 | * COMPUTE THE ADDRESS OF THE K1918310
1882 | * SYMBOL. K1918320
7D10 C38E 1883 | AL01J LD 3 BASE-X LOAD BASE ADDRESS OF SYMBOL K1918330
7D11 8394 1884 | A 3 ASIZE-X ADD ARRAY SIZE K1918340
7D12 9391 1885 | S 3 VSIZE-X COMPUTE ADDRESS OF LEFT K1918350
7D13 83CA 1886 | A 3 H0001-X WORD K1918360
1887 | * K1918370
1888 | * CALL INSER TO PLACE ALLOCATION K1918380
1889 | * IN THE SYMBOL TABLE. K1918390
7D14 4400 7C1A 1890 | AL01L BSI L INSER CALL INSER K1918400
1891 | * K1918410
1892 | * TEST TO SEE IF PRESENT SYMBOL K1918420
1893 | * TABLE ENTRY IS DIMENSIONED. K1918430
7D16 C200 1894 | AL01D LD 2 0 LOAD INDICATOR WORD K1918440
7D17 E3A9 1895 | AND 3 H1800-X SAVE DIMENSION IND. BITS K1918450
7D18 4820 1896 | BSC Z SKIP IF NOT DIMENSIONED K1918460
1897 | * K1918470
1898 | * MOVE SYMBOL TABLE POINTER OVER K1918480
1899 | * THE DIMENSION INFORMATION. K1918490
7D19 72FD 1900 | MDX 2 -3 K1918500
1901 | * K1918510
1902 | * MOVE SYMBOL TABLE POINTER TO K1918520
1903 | * NEXT SYMBOL. K1918530
7D1A 72FD 1904 | MDX 2 -3 K1918540
1905 | * K1918550
1906 | * TEST TO SEE IF POINTER HAS K1918560
1907 | * PASSED OVER THE WHOLE SYMBOL K1918570
1908 | * TABLE. K1918580
7D1B 6E00 7AF0 1909 | STX L2 D4 SAVE PRESENT POINTER K1918590
7D1D C38B 1910 | LD 3 D4-X TEST FOR END OF TABLE K1918600
7D1E 9400 7A2A 1911 | S L EOFST K1918610
7D20 4C30 7CE7 1912 | BSC L AL01A,Z- BR IF NOT END OF TABLE K1918620
1913 | * K1918630
1914 | * MOVE THE TRACK SWITCH TO ITS K1918640
1915 | * NEXT POSITION. K1918650
7D22 C386 1916 | LD 3 TRACK-X LOAD TRACK SWITCH K1918660
7D23 83CA 1917 | A 3 H0001-X MOVE TO NEXT POSITION K1918670
7D24 D386 1918 | STO 3 TRACK-X STORE TRACK SWITCH K1918680
1919 | * K1918690
1920 | * RETURN K1918700
7D25 4C80 7CE4 1921 | BSC I ALLOC RETURN K1918710
1922 | * K1918720
1923 | * TEST TO SEE IF THE PRESENT K1918730
1924 | * SYMBOL IS A GENERATED TEMPERARY. K1918740
1925 | * *1 INSTR REMOVED 2-11 K1918750
7D27 100A 1926 | AL01E SLA 10 PLACE G.T. IND IN SIGN 2-11 K1918760
7D28 4C10 7D16 1927 | BSC L AL01D,- BR IF NOT G.T. K1918770
1928 | * K1918780
1929 | * MAKE SURE ALL G.T.S ARE REAL K1918790
1930 | * VARIABLES. K1918800
7D2A C3C1 1931 | LD 3 H0028-X LOAD NEW INDICATOR WORD K1918810
7D2B D200 1932 | STO 2 0 SAVE FOR G.T. IND. WORD K1918820
7D2C 70E9 1933 | MDX AL01D K1918830
1934 | * K1918840
1935 | * TEST TO SEE IF PRESENT SYMBOL K1918850
1936 | * IS REAL. K1918860
7D2D C200 1937 | AL01B LD 2 0 LOAD INDICATOR WORD K1918870
7D2E 1001 1938 | SLA 1 PLACE REAL IND. IN SIGN K1918880
7D2F 4C28 7D16 1939 | BSC L AL01D,+Z BR IF NOT REAL SYMBOL K1918890
7D31 4354 1940 | BSI 3 EVENA-X MAKE ADDRESS EVEN K1918900
7D32 7004 1941 | MDX AL01M K1918910
1942 | * K1918920
1943 | * TEST TO SEE IF PRESENT SYMBOL K1918930
1944 | * IS INTEGER. K1918940
7D33 C200 1945 | AL01C LD 2 0 LOAD INDICATOR WORD K1918950
7D34 1001 1946 | SLA 1 PLACE INTEGER IND. IN SIGN K1918960
7D35 4C10 7D16 1947 | BSC L AL01D,- BR IF NOT INTEGER SYMBOL K1918970
1948 | * K1918980
1949 | * TEST TO SEE IF PRESENT SYMBOL K1918990
1950 | * IS CONSTANT. K1919000
1951 | * K1919002
7D37 C200 1952 | AL01M LD 2 0 2-6 K1919004
7D38 4C28 7D50 1953 | BSC L AL01N,+Z BRANCH IF CONSTANT 2-6 K1919010
1954 | * K1919020
1955 | * TEST TO SEE IF THE SYMBOL K1919030
1956 | * SHOULD BE ALLOCATED NOW. K1919040
7D3A C200 1957 | LD 2 0 LOAD INDICATOR WORD K1919050
7D3B E3AE 1958 | AND 3 H07F2-X SAVE SOME IND. BITS K1919060
7D3C F3C3 1959 | EOR 3 H0020-X K1919070
7D3D 4C20 7D16 1960 | BSC L AL01D,Z BR IF SHOULD NOT BE ALLOC. K1919080
1961 | * K1919090
1962 | * TEST TO SEE IF THE PRESENT K1919100
1963 | * SYMBOL IS A SUBSCRIPT GENERATED K1919110
1964 | * TEMPERARY. K1919120
7D3F C200 1965 | LD 2 0 LOAD INDICATOR WORD K1919130
7D40 100D 1966 | SLA 13 PLACE S.G.T. BIT IN SIGN K1919140
7D41 4C10 7D48 1967 | BSC L AL01I,- BR IF NOT S.G.T. K1919150
1968 | * K1919160
1969 | * ADJUST THE VARIABLE AREA SIZE K1919170
1970 | * BY 1. K1919180
7D43 C38F 1971 | LD 3 VARCR-X LOAD VARIABLE ADDRESS K1919190
7D44 83CA 1972 | A 3 H0001-X INCRAMENT BY 1 K1919200
7D45 D38F 1973 | STO 3 VARCR-X SAVE VARIABLE ADDRESS K1919210
7D46 93CA 1974 | S 3 H0001-X DECREMENT BY 1 K1919220
7D47 70CC 1975 | MDX AL01L K1919230
1976 | * K1919240
1977 | * CALL ARRL TO FIND THE AMOUNT OF K1919250
1978 | * STORAGE REQUIRED FOR THIS K1919260
1979 | * VARIABLE. K1919270
7D48 43CB 1980 | AL01I BSI 3 ARRL-X CALL ARRL K1919280
1981 | * K1919290
1982 | * MODIFY THE SIZE OF VARIABLE K1919300
1983 | * STORAGE AREA. K1919310
7D49 C38F 1984 | LD 3 VARCR-X LOAD VARIABLE ADDRESS K1919320
7D4A 8394 1985 | A 3 ASIZE-X ADJUST FOR SIZE OF SYMBOL K1919330
7D4B 4C08 7B41 1986 | BSC L ARRL1,+ ERROR 99 IF NONPOSITIVE 2-7 K1919335
7D4D D38F 1987 | STO 3 VARCR-X SAVE VARIABLE ADDRESS K1919340
1988 | * K1919350
1989 | * COMPUTE ADDRESS OF SYMBOL K1919360
7D4E 9391 1990 | S 3 VSIZE-X REMOVE ELEMENT SIZE K1919370
7D4F 70C4 1991 | MDX AL01L K1919380
1992 | * K1919390
1993 | * CALL VARF0 TO COMPUTE SIZE OF K1919400
1994 | * CONSTANT. K1919410
7D50 43E0 1995 | AL01N BSI 3 VARFO-X CALL VARFO K1919420
1996 | * K1919430
1997 | * INCRAMENT THE SIZE OF THE K1919440
1998 | * CONSTANT AREA. K1919450
7D51 C395 1999 | LD 3 CAC-X LOAD CONSTANT AREA COUNT K1919460
7D52 8391 2000 | A 3 VSIZE-X INCRAMENT BY CONSTANT SIZE K1919470
7D53 D395 2001 | STO 3 CAC-X SAVE CONSTANT AREA COUNT K1919480
7D54 70C1 2002 | MDX AL01D K1919490
2003 | *************************************************** K1919500
2004 | * * K1919510
2005 | * END OF ALLOC ROUTINE * K1919520
2006 | * * K1919530
2007 | *************************************************** K1919540
1130 FORTRAN COMPILER PHASE 19
2009 | *************************************************** K1919560
2010 | * * K1919570
2011 | * ROUTINE NAME/EQUIV * K1919580
2012 | * * K1919590
2013 | * FUNCTION /THIS ROUTINE HANDLES THE EQUIVALENC* K1919600
2014 | * STATEMENT FOR BOTH COMMON AND NON- * K1919610
2015 | * COMMON VARIABLES. * K1919620
2016 | * * K1919630
2017 | * ENTRY /EQUIV * K1919640
2018 | * * K1919650
2019 | * INPUT /NO SPECIAL INPUT OTHER THAN THE * K1919660
2020 | * STRING AND SYMBOL TABLE WITH ALL * K1919670
2021 | * COMMON VARIABLES ALLOCATED. * K1919680
2022 | * * K1919690
2023 | * OUTPUT /VARIABLES NOT IN EQUIVALENCE ARE * K1919700
2024 | * NOT ALLOCATED. * K1919710
2025 | * * K1919720
2026 | * EXTERNAL * K1919730
2027 | * REFERENCES /SUBROUTINES (INIT,INCR,EVENA,RMOVE,* K1919740
2028 | * GETD4,RTN,HILO,INSER) ARE REQUIRED * K1919750
2029 | * AND REFERENCES TO (SW1,SW2,SW3,SW4,* K1919760
2030 | * LOW,HIGH,DEFIN,TAGLP,H0C00,CARCR, * K1919770
2031 | * BASE,H0300,NRA,SNRA,D4,RELAD,H0020,* K1919780
2032 | * H8000) ARE REFERANCED. * K1919790
2033 | * * K1919800
2034 | * ERROR /ERROR C-65 IS DETECTED AND CONTROL * K1919810
2035 | * IS TRANSFERED TO ERR65. * K1919820
2036 | * * K1919830
2037 | * * K1919840
2038 | *************************************************** K1919850
2039 | * K1919860
2040 | * ENTRY - EQUIV K1919870
7D55 0000 2041 | EQUIV DC *-* LINK WORD K1919880
2042 | * K1919890
2043 | * K1919900
2044 | * K1919910
2045 | * K1919920
7D56 1010 2046 | SLA 16 CLEAR VARCR TO EQUIVALENCE K1919930
7D57 D38F 2047 | STO 3 VARCR-X COMMON VARIABLES. K1919940
2048 | * K1919950
2049 | * INITIALIZE NEST LIMITS. K1919960
2050 | * *1 INSTR REMOVED 2-11 K1919970
7D58 D387 2051 | EQ01D STO 3 LOW-X PLACE ZERO IN LOW 2-11 K1919980
7D59 D388 2052 | STO 3 HIGH-X HIGH K1919990
7D5A D384 2053 | STO 3 ODDSW-X ODDSW K1920000
7D5B D385 2054 | STO 3 EVSW-X EVSW K1920010
7D5C D389 2055 | STO 3 DEFIN-X AND DEFIN K1920020
2056 | * K1920030
2057 | * SET SWITCH 4 TO NORMAL. K1920040
2058 | * *1 INSTR REMOVED 2-11 K1920050
7D5D D383 2059 | STO 3 SW4-X AND SW4 2-11 K1920060
2060 | * K1920070
2061 | * CALL INIT TO FIND FIRST NON- K1920080
2062 | * DELETED NEST IN EQUIVALENCE K1920090
2063 | * STATEMENTS. K1920100
7D5E 4367 2064 | EQ01I BSI 3 INIT-X CALL INIT K1920110
7D5F 7DF2 2065 | DC EQ03B BR IF END OF ALL EQUIV. K1920120
7D60 7D61 2066 | DC * NORMAL RETURN K1920130
2067 | * K1920140
2068 | * SET SWITCH 2 TO NORMAL K1920150
7D61 1010 2069 | SLA 16 PLACE ZERO IN SW2 K1920160
7D62 D381 2070 | STO 3 SW2-X K1920170
2071 | * K1920180
2072 | * TEST THE LEFT PARENTHESIS IN K1920190
2073 | * NEST TO SEE IF VARIABLES IN K1920200
2074 | * THIS NEST HAVE BEEN LOOKED AT. K1920210
7D63 C1FF 2075 | EQ01A LD 1 -1 LOAD LEFT PARENTHESIS K1920220
7D64 9390 2076 | S 3 TAGLP-X TEST FOR TAGED PARENTHESIS K1920230
7D65 4C20 7D6B 2077 | BSC L EQ01G,Z BR IF LEFT PARENTHESIS OK K1920240
2078 | * K1920250
2079 | * INCRAMENT THE ITEM POINTER TO K1920260
2080 | * THE NEXT SYMBOL. K1920270
7D67 435E 2081 | BSI 3 INCR-X CALL INCR K1920280
7D68 7D79 2082 | DC EQ01F BR IF END OF ALL EQUIV. K1920290
7D69 7D63 2083 | DC EQ01A BR IF END OF NEST K1920300
7D6A 70FC 2084 | MDX *-4 K1920310
2085 | * K1920320
2086 | * TEST THE SYMBOL BEING LOOKED K1920330
2087 | * AT FOR BEING IN COMMON. K1920340
7D6B C200 2088 | EQ01G LD 2 0 LOAD INDICATOR WORD K1920350
7D6C 1002 2089 | SLA 2 PLACE COMMON IND. IN SIGN K1920360
7D6D 4C28 7DC9 2090 | BSC L EQ02B,+Z BR IF SYMBOL IN COMMON K1920370
2091 | * K1920380
2092 | * TEST THE SYMBOL BEING LOOKED K1920390
2093 | * AT FOR BEING ALLOCATED. K1920400
7D6F E3AB 2094 | AND 3 H0C00-X K1920410
7D70 F3AB 2095 | EOR 3 H0C00-X K1920420
7D71 4C18 7DA2 2096 | BSC L EQ02A,+- BR IF SYMBOL BEING ALOCATED K1920430
2097 | * K1920440
2098 | * INCRAMENT THE ITEM POINTER TO K1920450
2099 | * THE NEXT SYMBOL. K1920460
7D73 435E 2100 | BSI 3 INCR-X CALL INCR K1920470
7D74 7D79 2101 | DC EQ01F BR IF END OF ALL EQUIV. K1920480
7D75 7D63 2102 | DC EQ01A BR IF END OF NEST K1920490
7D76 70F4 2103 | MDX EQ01G K1920500
2104 | * K1920510
2105 | * TAG SWITCH 4 K1920520
7D77 D383 2106 | EQ01E STO 3 SW4-X PLACE NONZERO IN SW4 K1920530
7D78 70E5 2107 | MDX EQ01I K1920540
2108 | * K1920550
2109 | * TEST SWITCH 2 K1920560
7D79 C381 2110 | EQ01F LD 3 SW2-X LOAD SWITCH 2 K1920570
7D7A 4C20 7D77 2111 | BSC L EQ01E,Z BR IF SWITCH 2 TRANSFER K1920580
2112 | * K1920590
2113 | * TEST SWITCH 4 K1920600
7D7C C383 2114 | LD 3 SW4-X LOAD SWITCH 4 K1920610
7D7D 4C18 7DF2 2115 | BSC L EQ03B,+- BRANCH IF SWITCH 4 NORMAL K1920620
2116 | * K1920630
2117 | * CALL EVENA TO MAKE VARCR EVEN K1920640
2118 | * 2-11 K1920642
2119 | * *5 INSTR REMOVED 2-11 K1920644
2120 | * 2-11 K1920645
7D7F 4354 2121 | BSI 3 EVENA-X CALL EVENA K1920650
2122 | * K1920660
2123 | * TEST TO SEE IF THE LOW ADDRESS K1920670
2124 | * FOR THE NEST IS ODD. K1920680
2125 | * K1920690
7D80 C387 2126 | LD 3 LOW-X LOAD LOW ADDRESS K1920700
7D81 4C04 7D87 2127 | BSC L EQ03G,E BRANCH IF ODD K1920710
2128 | * K1920720
2129 | * TEST TO SEE IF THE ODD SWITCH IS K1920730
2130 | * SET ON. K1920740
2131 | * K1920750
7D83 C384 2132 | LD 3 ODDSW-X LOAD ODD SWITCH K1920760
7D84 4C20 7D8A 2133 | BSC L EQ03H,Z BRANCH ODD SWITCH ON K1920770
7D86 7006 2134 | MDX EQ03I BRANCH K1920780
2135 | * K1920790
2136 | * TEST TO SEE IF THE EVEN SWITCH IS K1920800
2137 | * SET ON. K1920810
2138 | * K1920820
7D87 C385 2139 | EQ03G LD 3 EVSW-X LOAD EVEN SWITCH K1920830
7D88 4C18 7D8D 2140 | BSC L EQ03I,+- BRANCH IF EVEN SWITCH OFF K1920840
2141 | * K1920850
2142 | * SUBTRACT 1 FROM LOW K1920860
2143 | * K1920870
7D8A C387 2144 | EQ03H LD 3 LOW-X CALCULATE LOW=LOW-1 K1920880
7D8B 93CA 2145 | S 3 H0001-X K1920890
7D8C D387 2146 | STO 3 LOW-X K1920900
2147 | * K1920910
2148 | * ADJUST VARIABLE AREA TO INCLUDE K1920920
2149 | * THE PRESENT NEST. SAVE IN BASE K1920930
2150 | * THE ADDRESS USED FOR ALLOCATION K1920940
2151 | * OF THE NEST. K1920950
7D8D C38F 2152 | EQ03I LD 3 VARCR-X LOAD VARIABLE ADDRESS K1920960
7D8E 9387 2153 | S 3 LOW-X SUBTRACT LOW ADDRESS K1920970
7D8F D38E 2154 | STO 3 BASE-X SAVE BASE FOR NEST K1920980
7D90 8388 2155 | A 3 HIGH-X ADD HIGH ADDRESS K1920990
7D91 83CA 2156 | A 3 H0001-X INCREMENT 2-1 K1921000
7D92 D38F 2157 | STO 3 VARCR-X STORE ADJUSTED ADDRESS K1921010
2158 | * K1921020
2159 | * CALL INIT TO FIND FIRST NON- K1921030
2160 | * DELETED NEST IN EQUIVALENCE K1921040
2161 | * STATEMENTS. K1921050
7D93 4367 2162 | BSI 3 INIT-X CALL INIT K1921060
7D94 7D95 2163 | DC * BR IF END OF ALL EQUIV. K1921070
7D95 7D96 2164 | DC * NORMAL RETURN K1921080
2165 | * K1921090
2166 | * TEST SYMBOL BEING LOOKED AT K1921100
2167 | * FOR BEING ALLOCATED. K1921110
7D96 C200 2168 | EQ01C LD 2 0 LOAD INDICATOR WORD K1921120
7D97 E3AF 2169 | AND 3 H0300-X K1921130
7D98 F3AF 2170 | EOR 3 H0300-X K1921140
7D99 4C18 7DE1 2171 | BSC L EQ03A,+- BR IF SYMBOL BEING ALOCATED K1921150
2172 | * K1921160
2173 | * INCRAMENT THE ITEM POINTER TO K1921170
2174 | * THE NEXT SYMBOL K1921180
7D9B 435E 2175 | BSI 3 INCR-X CALL INCR K1921190
7D9C 7D9F 2176 | DC EQ01B BR IF END OF ALL EQUIV. K1921200
7D9D 7D96 2177 | DC EQ01C BR IF END OF NEST K1921210
7D9E 70FC 2178 | MDX *-4 K1921220
2179 | * K1921230
2180 | * REMOVE BEING ALLOCATED BITS K1921240
2181 | * FROM SYMBOL TABLE. K1921250
7D9F 4400 7C02 2182 | EQ01B BSI L RMOVE CALL RMOVE K1921260
7DA1 7050 2183 | MDX EQ03B K1921270
2184 | * K1921280
2185 | * TEST SWITCH 1 K1921290
7DA2 C380 2186 | EQ02A LD 3 SW1-X LOAD SW1 K1921300
7DA3 4C18 7DCC 2187 | BSC L EQ02C,+- BR IF SWITCH 1 NORMAL K1921310
2188 | * K1921320
2189 | * SAVE THE PRESENT POSITION AND K1921330
2190 | * READY FOR A SCAN TO FIND THE K1921340
2191 | * ALLOCATION FOR THIS VARIABLE. K1921350
7DA5 691D 2192 | STX 1 EQ02G+1 SAVE XR1 K1921360
7DA6 6A1E 2193 | STX 2 EQ02G+3 SAVE XR2 K1921370
7DA7 C38C 2194 | LD 3 NRA-X SAVE NEST RETURN ADDRESS K1921380
7DA8 D38D 2195 | STO 3 SNRA-X K1921390
2196 | * K1921400
2197 | * CALL INIT TO FIND FIRST NON- K1921410
2198 | * DELETED NEST IN EQUIVALENCE K1921420
2199 | * STATEMENTS. K1921430
7DA9 4367 2200 | BSI 3 INIT-X CALL INIT K1921440
7DAA 7DAB 2201 | DC * BR IF END OF ALL EQUIV. K1921450
7DAB 7DAC 2202 | DC * NORMAL RETURN K1921460
2203 | * K1921470
2204 | * TEST THE LEFT PARENTHESIS IN K1921480
2205 | * NEST TO SEE IF VARIABLES IN K1921490
2206 | * THIS NEST HAVE BEEN LOOKED AT. K1921500
7DAC C1FF 2207 | EQ02D LD 1 -1 LOAD LEFT PARENTHESIS K1921510
7DAD 9390 2208 | S 3 TAGLP-X TEST FOR TAGED PARENTHESIS K1921520
7DAE 4C18 7DB4 2209 | BSC L EQ02E,+- BR IF PARENTHESIS TAGED K1921530
2210 | * K1921540
2211 | * INCRAMENT THE ITEM POINTER TO K1921550
2212 | * THE NEXT SYMBOL. K1921560
7DB0 435E 2213 | BSI 3 INCR-X K1921570
7DB1 7DAC 2214 | DC EQ02D BR IF END OF ALL EQUIF. K1921580
7DB2 7DAC 2215 | DC EQ02D BR IF END OF NEST K1921590
7DB3 70FC 2216 | MDX *-4 K1921600
2217 | * K1921610
2218 | * TEST SYMBOL BEING LOOKED AT K1921620
2219 | * TO SEE IF IT IS SAME AS SAVED K1921630
2220 | * ONE. K1921640
7DB4 C480 7DC3 2221 | EQ02E LD I EQ02G+1 LOAD SAVE SYMBOL K1921650
7DB6 9100 2222 | S 1 0 COMPARE PRESENT SYMBOL K1921660
7DB7 4C18 7DBD 2223 | BSC L EQ02F,+- BR IF SYMBOLS SAME K1921670
2224 | * K1921680
2225 | * INCRAMENT THE ITEM POINTER TO K1921690
2226 | * THE NEXT SYMBOL. K1921700
7DB9 435E 2227 | BSI 3 INCR-X CALL INCR K1921710
7DBA 7DAC 2228 | DC EQ02D BR IF END OF ALL EQUIV. K1921720
7DBB 7DAC 2229 | DC EQ02D BR IF END OF NEST K1921730
7DBC 70F7 2230 | MDX EQ02E K1921740
2231 | * K1921750
2232 | * GET THE D4 FOR THE VARIABLE K1921760
2233 | * THAT IS BEING LOOKED AT. K1921770
7DBD 4348 2234 | EQ02F BSI 3 GETD4-X CALL GETD4 K1921780
2235 | * K1921790
2236 | * RETURN POINTER TO THE BEGINNING K1921800
2237 | * OF THE PRESENT NEST. K1921810
7DBE 43EB 2238 | BSI 3 RTN-X CALL RTN K1921820
2239 | * K1921830
2240 | * CALCULATE RELATIVE ADDRESS K1921840
2241 | * FOR VARIABLE FOUND IN SAVED K1921850
2242 | * NEST. K1921860
7DBF C101 2243 | LD 1 1 LOAD NEST ADDRESS K1921870
7DC0 838B 2244 | A 3 D4-X ADD D4 FOR VARIABLE IN NEST K1921880
7DC1 D38A 2245 | STO 3 RELAD-X SAVE RELATIVE ADDRESS K1921890
2246 | * K1921900
2247 | * RESTORE POINTER TO SAVED K1921910
2248 | * POSITION IN OTHER NEST. K1921920
7DC2 6500 0000 2249 | EQ02G LDX L1 *-* RESTORE XR1 K1921930
7DC4 6600 0000 2250 | LDX L2 *-* RESTORE XR2 K1921940
7DC6 C38D 2251 | LD 3 SNRA-X REPLACE NEST RETURN ADDRESS K1921950
7DC7 D38C 2252 | STO 3 NRA-X K1921960
7DC8 7006 2253 | MDX EQ02H K1921970
2254 | * K1921980
2255 | * GET RELATIVE ADDRESS IN COMMON K1921990
2256 | * FROM SYMBOL TABLE. K1922000
7DC9 C201 2257 | EQ02B LD 2 1 LOAD VARIABLE BASE ADDRESS K1922010
7DCA D38A 2258 | STO 3 RELAD-X PLACE IN RELAD. K1922020
7DCB 7001 2259 | MDX EQ02I K1922030
2260 | * K1922040
2261 | * PLACE ZERO IN RELATIVE ADDRESS K1922050
2262 | * *1 INSTR REMOVED 2-11 K1922060
7DCC D38A 2263 | EQ02C STO 3 RELAD-X STORE ZERO IN RELAD 2-11 K1922070
2264 | * K1922080
2265 | * TAG SWITCH 1 K1922090
7DCD 6C00 7AE5 2266 | EQ02I STX L0 SW1 PLACE XR0 IN SW1 K1922100
2267 | * K1922110
2268 | * GET THE D4 FOR THE VARIABLE K1922120
2269 | * THAT IS BEING LOOKED AT. K1922130
7DCF 4348 2270 | EQ02H BSI 3 GETD4-X CALL GETD4 K1922140
2271 | * K1922150
2272 | * REMOVE THE D4 FOR THE PRESENT K1922160
2273 | * VARIABLE FROM THE RELATIVE K1922170
2274 | * ADDRESS. K1922180
7DD0 C38A 2275 | LD 3 RELAD-X LOAD RELATIVE ADDRESS K1922190
7DD1 938B 2276 | S 3 D4-X REMOVE D4 K1922200
7DD2 D38A 2277 | STO 3 RELAD-X STORE RELATIVE ADDRESS K1922210
2278 | * K1922220
2279 | * RETURN POINTER TO THE BEGINNING K1922230
2280 | * OF THE PRESENT NEST. K1922240
7DD3 43EB 2281 | BSI 3 RTN-X CALL RTN K1922250
2282 | * K1922260
2283 | * PLACE THE ADDRESS FOR THE NEST K1922270
2284 | * IN THE NEST. K1922280
7DD4 C38A 2285 | LD 3 RELAD-X LOAD RELATIVE ADDRESS K1922290
7DD5 D101 2286 | STO 1 1 PLACE ADDRESS IN NEST K1922300
2287 | * K1922310
2288 | * TAG THE LEFT PARENTHESIS IN THE K1922320
2289 | * NEST BEING WORKED ON. K1922330
7DD6 C390 2290 | LD 3 TAGLP-X LOAD TAGED LEFT PARENTHESIS K1922340
7DD7 D1FF 2291 | STO 1 -1 PLACE OVER OTHER PAREN. K1922350
2292 | * K1922360
2293 | * TAG SWITCH 2 K1922370
7DD8 D381 2294 | STO 3 SW2-X PLACE NON-ZERO IN SW2 K1922380
2295 | * K1922390
2296 | * SET THE BEING ALLOCATED BITS K1922400
2297 | * IN THE SYMBOL TABLE INDICATOR K1922410
2298 | * WORD AS (STATEMENT NUMBER AND K1922420
2299 | * ARITHMETIC STATEMENT FUNCTION). K1922430
7DD9 C200 2300 | EQ02J LD 2 0 LOAD INDICATOR WORD K1922440
7DDA EBAF 2301 | OR 3 H0300-X ADD BEING ALLOCATED BITS K1922450
7DDB D200 2302 | STO 2 0 STORE INDICATOR WORD K1922460
2303 | * K1922470
2304 | * CALL HILO TO ADJUST THE HIGH K1922480
2305 | * AND LOW LIMITS ON THIS NEST K1922490
2306 | * AS WELL AS DECIDE IF THIS NEST K1922500
2307 | * IS DEFINED. K1922510
7DDC 4300 2308 | BSI 3 HILO-X CALL HILO K1922520
2309 | * K1922530
2310 | * INCRAMENT THE ITEM POINTER TO K1922540
2311 | * THE NEXT SYMBOL. K1922550
7DDD 435E 2312 | BSI 3 INCR-X CALL INCR K1922560
7DDE 7D77 2313 | DC EQ01E BR IF END OF ALL EQUIV K1922570
7DDF 7D63 2314 | DC EQ01A BR IF END OF NEST K1922580
7DE0 70F8 2315 | MDX EQ02J K1922590
2316 | * K1922600
2317 | * TEST TO SEE THAT THE NEST NOW K1922610
2318 | * BEING ALLOCATED IS DEFINED. K1922620
7DE1 C389 2319 | EQ03A LD 3 DEFIN-X LOAD INDICATOR FOR NEST K1922630
7DE2 E3C3 2320 | AND 3 H0020-X SAVE ONLY DEFINED BIT K1922640
7DE3 4C18 7AD6 2321 | BSC L ERR65,+- BRANCH IF NOT DEFINED K1922650
2322 | * K1922660
2323 | * PLACE RELATIVE ADDRESS FOR NEST K1922670
2324 | * IN RELAD. K1922680
7DE5 C101 2325 | LD 1 1 LOAD NEST RELATIVE ADDRESS K1922690
7DE6 838E 2326 | A 3 BASE-X K1922700
7DE7 D38A 2327 | STO 3 RELAD-X STORE IN RELAD K1922710
2328 | * K1922720
2329 | * CHANGE THE LEFT PARENTHESIS FOR K1922730
2330 | * THE NEST BEING ALLOCATED TO THE K1922740
2331 | * CODE FOR DELETE. K1922750
7DE8 C3A5 2332 | LD 3 H8000-X LOAD DELETE CODE K1922760
7DE9 D1FF 2333 | STO 1 -1 STORE OVER LEFT PARENTHESIS K1922770
2334 | * K1922780
2335 | * CALL GETD4 TO GET D4 FOR THE K1922790
2336 | * VARIABLE BEING LOOKED AT. K1922800
7DEA 4348 2337 | EQ03D BSI 3 GETD4-X CALL GETD4 K1922810
2338 | * K1922820
2339 | * ALLOCATE VARIABLE AND CALL INSER K1922830
2340 | * TO PLACE ALLOCATION IN SYMBOL K1922840
2341 | * TABLE AND PRINT IF REQUIRED K1922850
2342 | * *1 INSTR REMOVED 2-11 K1922860
7DEB 838A 2343 | A 3 RELAD-X ADD NEXT ADDR TO VARS 2-11 K1922870
2344 | * *D4--D4 IS IN ACC ON 2-11 K1922871
2345 | * *RETURN FROM GETD4 2-11 K1922872
7DEC 4400 7C1A 2346 | BSI L INSER INSERT AND PRINT K1922880
2347 | * K1922890
2348 | * INCRAMENT THE ITEM POINTER TO K1922900
2349 | * THE NEXT SYMBOL. K1922910
7DEE 435E 2350 | EQ03C BSI 3 INCR-X CALL INCR K1922920
7DEF 7D9F 2351 | DC EQ01B BR IF END OF ALL EQUIV K1922930
7DF0 7D96 2352 | DC EQ01C BR IF END OF NEST K1922940
7DF1 70F8 2353 | MDX EQ03D K1922950
2354 | * K1922960
2355 | * TEST SWITCH 3 K1922970
7DF2 C382 2356 | EQ03B LD 3 SW3-X LOAD SWITCH 3 K1922980
7DF3 4C20 7DFB 2357 | BSC L EQ03E,Z BR IF SWITCH 3 TRANSFER K1922990
2358 | * K1923000
2359 | * INITIALIZE THE VARIABLE AREA K1923010
7DF5 C400 7A33 2360 | LD L DFCNT LOAD DEFINE FILE COUNT K1923020
7DF7 D38F 2361 | STO 3 VARCR-X STORE IN VARIABLE CORE K1923030
2362 | * K1923040
2363 | * ALTER THE ALLOCATION BITS SO AS K1923050
2364 | * NOT TO REFLECT COMMON. K1923060
7DF8 C3C2 2365 | LD 3 H0022-X K1923070
7DF9 D39B 2366 | STO 3 ALOCB-X K1923080
2367 | * K1923090
2368 | * TAG SWITCH 3 K1923100
7DFA D382 2369 | STO 3 SW3-X SET SWITCH 3 NON-ZERO K1923110
2370 | * K1923120
2371 | * CALL INIT TO FIND THE FIRST K1923130
2372 | * NON-DELETED NEST IN EQUIVALENCE K1923140
2373 | * STATEMENTS K1923150
7DFB 4367 2374 | EQ03E BSI 3 INIT-X CALL INIT K1923160
7DFC 7E05 2375 | DC EQ03F BR IF END OF ALL EQUIV. K1923170
7DFD 7DFE 2376 | DC * NORMAL RETURN K1923180
2377 | * K1923190
2378 | * SET THE BEING ALLOCATED BITS IN K1923200
2379 | * THE SYMBOL TABLE FOR THIS K1923210
2380 | * VARIABLE. (SEE EQ02J) K1923220
7DFE C200 2381 | LD 2 0 LOAD INDICATOR WORD K1923230
7DFF EBAF 2382 | OR 3 H0300-X ADD BEING ALLOCATED BITS K1923240
7E00 D200 2383 | STO 2 0 STOR INDICATOR WORD K1923250
2384 | * K1923260
2385 | * NORMALIZE SWITCH 1 K1923270
7E01 1010 2386 | SLA 16 PUT ZERO IN SW1 K1923280
7E02 D380 2387 | STO 3 SW1-X K1923290
7E03 4C00 7D58 2388 | BSC L EQ01D BRANCH K1923300
2389 | * K1923310
2390 | * RETURN K1923320
7E05 4C80 7D55 2391 | EQ03F BSC I EQUIV K1923330
2392 | * K1923335
7E07 2393 | BSS OVERP-54-* PATCH AREA K1923340
2394 | * K1923345
2395 | *************************************************** K1923350
2396 | * * K1923360
2397 | * END OF EQUIV ROUTINE * K1923370
2398 | * * K1923380
2399 | *************************************************** K1923390
2400 | * K1923400
2401 | * K1923410
1130 FORTRAN COMPILER PHASE 19
2403 | * K1923430
2404 | * PRINT ROUTINE FOR PHASE 20 THROUGH K1923440
2405 | * PHASE 25. K1923450
2406 | * K1923460
7E0C 2407 | ORG OVERP-54 K1923470
2408 | * K1923480
7E0C 7E32 2409 | RPAGE DC PR100 RESTORE PAGE ENTRY K1923490
7E0C 2410 | NEWPG EQU RPAGE K1923500
2411 | * K1923510
7E0D 0000 2412 | AREA DC *-* CONTAINS MESSAGE ADDRESS K1923520
2413 | * K1923530
7E45 2414 | LSTPR EQU OVERP+3 DEVICE PRINT RTN ENTRY K1923540
2415 | * K1923550
7A36 2416 | Z EQU NEQ XR3 STORAGE LOCATION K1923560
2417 | * K1923570
2418 | * K1923580
7E0E 0000 2419 | PRINT DC *-* ENTRY TO PRINT A LINE K1923590
2420 | * K1923600
7E0F 6A17 2421 | STX 2 PR003 SAVE XR2 K1923610
7E10 6680 7E0D 2422 | LDX I2 AREA LOAD ADDRESS OF MESSAGE K1923620
7E12 6780 7A38 2423 | LDX I3 WDCNT LOAD WORD COUNT K1923630
7E14 6B17 2424 | STX 3 PR091 SAVE WORD COUNT IN WORK AR K1923640
7E15 6700 7A39 2425 | LDX L3 PAREA POINT XR3 AT PRINT AREA K1923650
2426 | * K1923660
2427 | * PACK CHARACTERS INTO PRINT AREA K1923670
2428 | * K1923680
7E17 C201 2429 | PR001 LD 2 1 LOAD RIGHT CHARACTER K1923690
7E18 1808 2430 | SRA 8 SHIFT RIGHT K1923700
7E19 EA00 2431 | OR 2 0 ADD LEFT CHARACTER K1923710
7E1A D300 2432 | STO 3 0 STORE INTO PRINT AREA K1923720
7E1B 7202 2433 | MDX 2 2 INCREMENT INPUT POINTER K1923730
7E1C 7301 2434 | MDX 3 1 INCREMENT OUTPUT POINTER K1923740
2435 | * DECREMENT WORD COUNT BY 1, K1923750
7E1D 74FF 7E2C 2436 | MDX L PR091,-1 SKIP WHEN COMPLETE. K1923760
7E1F 70F7 2437 | MDX PR001 CONTINUE PACKING K1923770
2438 | * K1923780
7E20 C80D 2439 | LDD PR093 LOAD PRINT PARAMETER K1923790
7E21 4023 2440 | BSI LSTPR GO PRINT LINE K1923800
7E22 C400 0036 2441 | LD L $PBSY LOOP IF THE PRINT BUFFER K1923810
7E24 4C30 7E22 2442 | BSC L *-4,-Z IS NOT AVAILABLE K1923820
7E26 6600 0000 2443 | LDX L2 *-* RESTORE XR2 K1923830
7E27 2444 | PR003 EQU *-1 XR2 SAVE AREA K1923840
7E28 6780 7A36 2445 | LDX I3 Z RESTORE XR3 K1923850
7E2A 4C80 7E0E 2446 | BSC I PRINT EXIT K1923860
2447 | * K1923870
2448 | * K1923880
2449 | * K1923890
7E2C 2450 | BSS E 0 K1923900
7E2C 0000 2451 | PR091 DC *-* WORK AREA FOR WORD COUNT K1923910
7E2D 7002 2452 | PR092 DC /7002 LINE SPACE PARAMETER K1923920
7E2E 7001 2453 | PR093 DC /7001 PRINT PARAMETER K1923930
7E2F 7A38 2454 | DC WDCNT PRINT AREA ADDRESS K1923940
7E30 7000 2455 | PR094 DC /7000 PAGE RESTORE PARAMETER K1923950
7E31 7F8B 2456 | DC HEAD PAGE HEADER STORAGE AREA K1923960
2457 | * K1923970
2458 | * K1923980
2459 | * K1923990
7E32 0000 2460 | PR100 DC *-* PAGE RESTORE ENTRY K1924000
2461 | * K1924010
7E33 C8FC 2462 | LDD PR094 LOAD PAGE RESTORE PARAM K1924020
7E34 4010 2463 | BSI LSTPR RESTORE PAGE K1924030
7E35 400F 2464 | BSI LSTPR PRINT PAGE HEADER K1924040
7E36 C0F6 2465 | LD PR092 LOAD LINE SPACE PARAMETER K1924050
7E37 400D 2466 | BSI LSTPR SPACE 1 LINE K1924060
7E38 4C80 7E32 2467 | BSC I PR100 RETURN K1924070
2468 | * SEE AREA PRECEEDING PRINT ROUTINE 2-1 K1924080
2469 | * FOR PATCH AREA 2-1 K1924090
7E3A 2470 | END BPHAR-2 K1924100
There were no errors in this assembly
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
$CH12 0006 80 301 1503
$DBSY 00EE 79 188
$PBSY 0036 82 2441
$PHSE 0078 84 176
AL01A 7CE7 1815 1912
AL01B 7D2D 1937 1816
AL01C 7D33 1945 1817
AL01D 7D16 1894 1822 1927 1933 1939 1947 1960 2002
AL01E 7D27 1926 1840
AL01G 7CFE 1849
AL01H 7D0A 1871 1850 1856 1862
AL01I 7D48 1980 1967
AL01J 7D10 1883
AL01L 7D14 1890 1975 1991
AL01M 7D37 1952 1941
AL01N 7D50 1995 1953
ALLOC 7CE4 1807 353 363 367 1921
ALOCB 7B00 471 268 429 1320 2366
AREA 7E0D 2412 298 315 2422
ARRL 7B30 548 563 575 769 1455 1871 1980
ARRL1 7B41 577 570 1986
ASIZE 7AF9 464 557 572 802 835 879 1457 1876 1884 1985
BASE 7AF3 458 781 801 834 846 871 878 1849 1867 1875 1877 1883 2154
2326
BLKPA 7CD9 1753 316 1499 1768
BPHAR 7A36 149 2470
CAC 7AFA 465 387 1999 2001
CCWD 7A31 105 198 221 228 1346
COMON 7A2B 100 211 371 873
COMSW 7B01 472 1418 1647
CSIZE 7A2C 101 212 372 375 881 886 887 1845 1879
D4 7AF0 455 926 937 1254 1255 1909 1910 2244 2276
DEFIN 7AEE 453 858 860 2055 2319
DFCNT 7A33 134 216 2360
DZ000 00F2 78 187
EOFS 7A25 94
EOFST 7A2A 99 1256 1911
EQ01A 7D63 2075 2083 2102 2314
EQ01B 7D9F 2182 2176 2351
EQ01C 7D96 2168 2177 2352
EQ01D 7D58 2051 2388
EQ01E 7D77 2106 2111 2313
EQ01F 7D79 2110 2082 2101
EQ01G 7D6B 2088 2077 2103
EQ01I 7D5E 2064 2107
EQ02A 7DA2 2186 2096
EQ02B 7DC9 2257 2090
EQ02C 7DCC 2263 2187
EQ02D 7DAC 2207 2214 2215 2228 2229
EQ02E 7DB4 2221 2209 2230
EQ02F 7DBD 2234 2223
EQ02G 7DC2 2249 2192 2193 2221
EQ02H 7DCF 2270 2253
EQ02I 7DCD 2266 2259
EQ02J 7DD9 2300 2315
EQ03A 7DE1 2319 2171
EQ03B 7DF2 2356 2065 2115 2183
EQ03C 7DEE 2350
EQ03D 7DEA 2337 2353
EQ03E 7DFB 2374 2357
EQ03F 7E05 2391 2375
EQ03G 7D87 2139 2127
EQ03H 7D8A 2144 2133
EQ03I 7D8D 2152 2134 2140
EQUIV 7D55 2041 359 2391
ERR 7ADB 418 405 410
ERR65 7AD6 404 2321
ERR66 7AD8 409 874
ERR67 7ADA 414 809 820 826 1313 1331
ERROR 7A2D 102 204 208 577 1653
EVENA 7BB9 970 976 988 1940 2121
EVSW 7AEA 449 813 825 866 2054 2139
EXIT 7AD1 398 209 578 1654
FNAME 7A2E 103
GETD4 7BAD 922 773 932 940 2234 2270 2337
GO1 7C51 1382 1377
H0001 7B2F 519 374 382 847 872 880 984 1886 1917 1972 1974 2145 2156
H0002 7B2E 518 1306
H0003 7B2D 517 720
H0009 7B2C 516 1714
H000C 7B2B 515 1353
H000F 7B2A 514 1710
H0012 7B29 513 1164
H0020 7B28 512 1959 2320
H0022 7B27 511 428 2365
H0028 7B26 510 1931
H0039 7B25 509 1716
H003C 7B24 508 312
H003F 7B23 507 1376 1546
H0040 7B22 506 1382 1422 1474 1476 1478 1480 1482 1551
H0041 7B1F 503 404
H0042 7B20 504 409
H0043 7B21 505 414
H004D 7B1E 502 1401
H005C 7B1D 501
H005D 7B1C 500 1432
H0060 7B1B 499 1463
H007E 7B1A 498 1437
H00C0 7B19 497 1555
H00C3 7B18 496 1429
H00C5 7B17 495
H00C9 7B16 494 1411
H00D9 7B15 493 1409
H0300 7B14 492 1229 1230 1236 2169 2170 2301 2382
H07F2 7B13 491 1958
H07FC 7B12 490 253
H07FF 7B11 489 717
H0C00 7B10 488 2094 2095
H0FFF 7B0F 487 420
H1800 7B0E 486 562 931 1142 1242 1448 1895
H2022 7B0D 485 267
H3FFF 7B0C 484
H4000 7B0B 483 1757
H8000 7B0A 482 936 1074 2332
HA800 7B09 481 242 1184
HB800 7B08 480 247
HD010 7A96 297 1371
HEAD 7F8B 76 77 2456
HF800 7B07 479 241 1183
HFFFF 7B06 478 1360 1365
HIGH 7AED 452 848 853 854 2052 2155
HILO 7B65 765 863 2308
HILO1 7B8E 846 837
HILO2 7B95 858 849 882 888
HILO3 7B9A 865 816
HILO4 7B9B 871
HILO5 7B87 834 817
HILO6 7B7F 819 803
HILO7 7B7B 815 789 796
HILOX 7B98 863
HTEST 7B04 476 308 1370
IN01A 7BCF 1065 262 358
IN01B 7BD1 1069 1042 1101
IN01C 7BDE 1094 1075 1102
IN01E 7BDA 1087 1041 1100
INCR 7BC3 1035 1050 1051 1059 1083 1087 2081 2100 2175 2213 2227 2312 2350
INIT 7BCC 1054 1058 2064 2162 2200 2374
INSER 7C1A 1298 1348 1354 1361 1489 1505 1890 2346
IOCS 7A32 116
IP010 7A39 175 162
IP014 7A46 188 190
IP015 7A4C 193 186
IP016 7A4E 196 189
IP018 7A58 206 200 203
IP020 7A6D 240 257
IP030 7A7C 261 243
IP999 7A81 270
IS01A 7C25 1319 1307
IS01B 7C31 1333 1314 1327 1329
IS01C 7C49 1375 1381 1753
IS01D 7C71 1429 1419
IS01E 7C73 1432 1424
IS01F 7C87 1474 1449
IS01G 7C91 1487 1470
ISIZE 7AF7 462 232 616
LNEND 7AFC 467 1488
LOW 7AEC 451 836 841 842 2051 2126 2144 2146 2153
LSTPR 7E45 2414 2440 2463 2464 2466
MEMRY 8000 70 71 73
ML010 7AB4 353 248 270
ML020 7AB9 363
ML021 7ABD 371 431
MOVE 7BE3 1137 1040 1099 1159 1160 1172 1175
MV01A 7BE9 1151 1143
MV01B 7BF1 1164 1156
MV01C 7BFB 1182 1165
MV01D 7BF5 1172 1189
MV01E 7BF7 1175 1185
NAME 7B02 474 1334 1336 1375 1378 1380 1384 1387 1390 1393 1396
NEQ 7A36 162 179 2416
NEWPG 7E0C 2410 302 1504
NRA 7AF1 456 418 669 1069 2194 2252
ODDSW 7AE9 448 808 830 2053 2132
ORG 7A23 92 1649
ORGSW 7B05 477 201 1645
OVERL 7A23 71 91
OVERP 7E42 77 185 194 2393 2407 2414
OVRLY 7AB0 335 398 399
PAP 7AFB 466 314 392 1487 1493 1600 1601
PAREA 7A39 170 317 466 467 468 1759 2425
PHID 0031 72 151 175
PR001 7E17 2429 2437
PR003 7E27 2444 2421
PR091 7E2C 2451 2424 2436
PR092 7E2D 2452 2465
PR093 7E2E 2453 2439
PR094 7E30 2455 2462
PR100 7E32 2460 2409 2467
PRINT 7E0E 2419 303 394 1496 2446
RELAD 7AEF 454 779 2245 2258 2263 2275 2277 2285 2327 2343
RM01A 7C05 1228 1258
RM01B 7C0D 1241 1231
RMOVE 7C02 1220 425 1257 2182
ROL 7FBC 73 76 400
RPAGE 7E0C 2409 2410
RPAP 7AFD 468 393 1492
RSIZE 7AF8 463 224 231 627 788 975 1328 1861
RTN 7B50 664 677 2238 2281
SALOC 7AFF 470 1301 1312 1330 1341 1442 1458 1459 1468
SAVAD 7AFE 469 1643 1650 1651 1658 1661 1664 1667
SNRA 7AF2 457 2195 2251
SOFGT 7A29 98 388
SOFNS 7A27 96
SOFS 7A24 93 236
SOFST 7A26 95 719 1224 1811
SOFXT 7A28 97 383
SORF 7A30 104 202
SSLET 7AAC 329 152 184
SW1 7AE5 444 2186 2266 2387
SW2 7AE6 445 2070 2110 2294
SW3 7AE7 446 815 819 2356 2369
SW4 7AE8 447 2059 2106 2114
TA01A 7CA6 1555 1547
TA01B 7CA7 1559 1552
TAGLP 7AF5 460 2076 2208 2290
TD01A 7CC4 1658 1646 1648 1652
TEXT 7A82 274 297
TOPA 7CA0 1541 1386 1389 1392 1395 1397 1562 1720
TOPAD 7CB2 1639 1443 1469 1671
TOPAH 7CD1 1706 1660 1663 1666 1668 1723
TOPAU 7CAA 1593 1383 1402 1412 1423 1430 1433 1438 1464 1475 1477 1479 1481
1483 1559 1604
TRACK 7AEB 450 1815 1916 1918
VARCR 7AF4 459 217 380 979 985 1971 1973 1984 1987 2047 2152 2157 2361
VARFO 7B45 612 552 623 631 1995
VSIZE 7AF6 461 556 568 617 628 780 1456 1885 1990 2000
WDCNT 7A38 169 300 313 2423 2454
X 7B65 443 178 201 217 231 232 241 242 247 253 267 268 312
314 358 374 380 382 387 392 393 404 409 414 420
428 429 552 556 557 562 568 572 616 617 627 628
674 717 720 769 779 780 781 788 801 802 808 815
819 825 834 835 836 841 842 846 847 848 853 854
858 860 866 871 872 878 879 880 926 931 936 937
975 979 984 985 1047 1074 1080 1094 1142 1164 1183 1184
1229 1230 1236 1242 1255 1301 1306 1312 1320 1328 1330 1334
1336 1341 1353 1360 1365 1370 1375 1376 1378 1380 1382 1384
1387 1390 1393 1396 1401 1409 1411 1418 1422 1429 1432 1437
1442 1448 1455 1456 1457 1458 1459 1463 1468 1474 1476 1478
1480 1482 1487 1488 1492 1493 1546 1551 1555 1643 1645 1647
1650 1651 1658 1661 1664 1667 1710 1714 1716 1757 1765 1815
1849 1861 1871 1875 1876 1877 1883 1884 1885 1886 1895 1910
1916 1917 1918 1931 1940 1958 1959 1971 1972 1973 1974 1980
1984 1985 1987 1990 1995 1999 2000 2001 2047 2051 2052 2053
2054 2055 2059 2064 2070 2076 2081 2094 2095 2100 2106 2110
2114 2121 2126 2132 2139 2144 2145 2146 2152 2153 2154 2155
2156 2157 2162 2169 2170 2175 2186 2194 2195 2200 2208 2213
2227 2234 2238 2244 2245 2251 2252 2258 2263 2270 2275 2276
2277 2281 2285 2290 2294 2301 2308 2312 2319 2320 2326 2327
2332 2337 2343 2350 2356 2361 2365 2366 2369 2374 2382 2387
XR2 7B56 712 674 728 1047 1080 1094
Z 7A36 2416 2445