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