KFORPH19

Table Of Contents
  • [00004] 1130 FORTRAN COMPILER PHASE 19
kforph19.lst
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