KFORPH04

Table Of Contents
  • [00004] 1130 FORTRAN COMPILER PHASE 4
  • [00564] SUBROUTINE OR FUNCTION
kforph04.lst
ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov  1 19:25:06 2020
 
Source File: \kforph04.asm 
1130 FORTRAN COMPILER PHASE 4
 
                             2 | *************************************************** K0400020
                             3 | *STATUS - VERSION 2  MODIFICATION 12              * K0400030
                             4 | *                                                 * K0400040
                             5 | *FUNCTION/OPERATION-                              * K0400050
                             6 | *   * PLACES COMMON STMNT VARIABLE INTO THE SYMBOL* K0400060
                             7 | *     TABLE. INCLUDES DIMENSION INFORMATION, IF   * K0400070
                             8 | *     PRESENT.                                    * K0400080
                             9 | *   * REMOVES COMMON STMNTS FROM THE STRING       * K0400090
                            10 | *     AND INSERTS A DUMMY ERROR STMT(ERROR NUM 2-11 K0400100
                            11 | *     BER EQUAL TO ZERO) TO ACT AS A LINE COUNT2-11 K0400110
                            12 | *     PLACE HOLDER.                            2-11 K0400120
                            13 | *   * CHECKS FOR A SUBROUTINE OR FUNCTION STMNT.  * K0400130
                            14 | *   * PLACES THE NAME AND DUMMY ARGUMENTS OF THE  * K0400140
                            15 | *     SUBROUTINE OR FUNCTION STATEMENT INTO THE   * K0400150
                            16 | *     SYMBOL TABLE. DELETES THE STMNT FROM THE    * K0400160
                            17 | *     STMNT STRING AND INSERTS A DUMMY ERROR   2-11 K0400170
                            18 | *     STMNT(ERROR NUMBER EQUAL TO ZERO) TO     2-11 K0400180
                            19 | *     ACT AS A LINE COUNT PLACE HOLDER         2-11 K0400190
                            20 | *   * CHECKS REAL AND INTEGER STATEMENTS FOR THE  * K0400200
                            21 | *     WORD FUNCTION                               * K0400210
                            22 | *   * PHASE 4 IS A TWO PASS PHASE. THE FIRST PASS * K0400220
                            23 | *     PROCESSES COMMON STATEMENTS. THE SECOND     * K0400230
                            24 | *     PASS PROCESSES A SUBROUTINE OR FUNCTION     * K0400240
                            25 | *     STATEMENTS, INCLUDING A FUNCTION DESIGNATED * K0400250
                            26 | *     IN A REAL OR INTEGER STATEMENT.             * K0400260
                            27 | *                                                 * K0400270
                            28 | *ENTRY POINTS-                                    * K0400280
                            29 | *   PH-PHASE 4 IS READ INTO CORE BY PHASE 3 AND   * K0400290
                            30 | *      EXECUTION BEGUN AT LOCATION PH.            * K0400300
                            31 | *                                                 * K0400310
                            32 | *INPUT-                                           * K0400320
                            33 | *   NONE IN THE USUAL SENSE. HOWEVER, THE STMNT   * K0400330
                            34 | *   STRING SCANNED BY THE COMPILER MAY BE         * K0400340
                            35 | *   CONSIDERED INPUT.                             * K0400350
                            36 | *                                                 * K0400360
                            37 | *OUTPUT-                                          * K0400370
                            38 | *   NONE IN THE USUAL SENSE. HOWEVER, PHASE 4     * K0400380
                            39 | *   REMOVES STMNTS FROM THE STMNT STRING AND ADDS * K0400390
                            40 | *   ENTRIES TO THE SYMBOL TABLE.                  * K0400400
                            41 | *                                                 * K0400410
                            42 | *EXTERNAL ROUTINES-N/A                            * K0400420
                            43 | *                                                 * K0400430
                            44 | *EXITS-                                           * K0400440
                            45 | *   NORMAL-                                       * K0400450
                            46 | *      PHASE EXITS NORMALLY IF NO STMNTS OF THE   * K0400460
                            47 | *      TYPE IT PROCESSES ARE ENCOUNTERED OR IF NO * K0400470
                            48 | *      ERRORS ARE FOUND. PHASE 5 IS LOADED AND    * K0400480
                            49 | *      EXECUTED.                                  * K0400490
                            50 | *   ERROR-                                        * K0400500
                            51 | *      THE FLOW OF COMPILER PROCESSING IS NOT     * K0400510
                            52 | *      INTERRUPTED WHEN AN ERROR IS ENCOUNTERED   * K0400520
                            53 | *      AN ERROR STMNT REPLACES THE FAULTY STMNT   * K0400530
                            54 | *      ON THE STRING AND STMNT SCANNING PROCESS   * K0400540
                            55 | *      CONTINUES. AN EXCEPTION OCCURS IN THE CASE * K0400550
                            56 | *      OF AN OVERLAP ERROR. COMPILATION IS        * K0400560
                            57 | *      ABORTED AND CONTROL IS PASSED FROM PHASE   * K0400570
                            58 | *      TO SUCCEEDING PHASE UNTIL AN OUTPUT PHASE  * K0400580
                            59 | *      IS REACHED WHICH CAN PRINT AN ERROR MESSAGE* K0400590
                            60 | *      THE ERRORS DETECTED BY PHASE 4 ARE  7, 8,  * K0400600
                            61 | *      10, 11, 12, 13, 14 AND 15.                 * K0400610
                            62 | *                                                 * K0400620
                            63 | *TABLES/WORK AREAS-                               * K0400630
                            64 | *   NON EXCEPT STATEMENT STRING AREA, SYMBOL      * K0400640
                            65 | *   TABLE, AND FORTRAN COMMUNICATION AREA         * K0400650
                            66 | *                                                 * K0400660
                            67 | *ATTRIBUTES-N/A                                   * K0400670
                            68 | *                                                 * K0400680
                            69 | *NOTES-                                           * K0400690
                            70 | *   THE SWITCHES USED IN PHASE 4 FOLLOW. IF NON-  * K0400700
                            71 | *   ZERO, THE SWITCH IS TRANSFER=T. IF ZERO, THE  * K0400710
                            72 | *   SWITCH IS NORMAL=N.                           * K0400720
                            73 | *      * NORM2-SYNTAX ERROR IN COMMON STMNT       * K0400730
                            74 | *             T=SYNTAX ERROR PRESENT              * K0400740
                            75 | *      * ASW1-RIGHT PARENTHESIS ENCOUNTERED       * K0400750
                            76 | *             N=NOT ENCOUNTERED                   * K0400760
                            77 | *      * ASW2-REAL STATEMENT ENCOUNTERED          * K0400770
                            78 | *             N=NOT ENCOUNTERED                   * K0400780
                            79 | *      * ASW3-INTEGER STATEMENT ENCOUNTERED       * K0400790
                            80 | *             N=NOT ENCOUNTERED                   * K0400800
                            81 | *      * SW5 -SECOND PASS SWITCH               2-11 K0400810
                            82 | *             T=SECOND PASS MODE               2-11 K0400820
                            83 | *      * SW5A-FIO STATEMENT PRESENT               * K0400830
                            84 | *             N=NOT PRESENT                       * K0400840
                            85 | *************************************************** K0400850
                            86 |       ABS                                           K0400860
                            87 | *                                                   K0400870
                            88 | *                        SYSTEM EQUATES             K0400880
8000                        89 | MEMRY EQU     /8000                                 K0400890
7A23                        90 | OVERL EQU     MEMRY-1501 START OF FCOM              K0400900
7FBC                        91 | ROL   EQU     MEMRY-68   LOCN OF RTN TO READ NXT PH K0400910
0078                        92 | $PHSE EQU     /78        NO. OF PHASE NOW IN CORE   K0400920
0003                        93 | PHLEN EQU     3         NO. OF SECTORS THIS PHASE   K0400930
7A23                        94 |       ORG     OVERL                                 K0400940
0022                        95 | PHID  EQU     34         ID NUMBER THIS PHASE       K0400950
                            96 | *                                                   K0400960
                            97 | *                  FORTRAN COMMUNICATION AREA       K0400970
7A23                        98 | ORG   BSS     1    ORIGIN ADDRESS               2-4 K0400980
7A24                        99 | SOFS  BSS     1    START OF STRING                  K0400990
7A25                       100 | EOFS  BSS     1    END OF STRING                    K0401000
7A26                       101 | SOFST BSS     1    START OF SYMBOL TABLE            K0401010
7A27                       102 | SOFNS BSS     1    START OF NON-STATEMENT NUMBERS   K0401020
7A28                       103 | SOFXT BSS     1    START OF SUBSCRIPT TEMPORARIES   K0401030
7A29                       104 | SOFGT BSS     1    START OF GENERATED TEMPORARIES   K0401040
7A2A                       105 | EOFST BSS     1    END OF SYMBOL TABLE              K0401050
7A2B                       106 | COMON BSS     1    NEXT AVAILABLE COMMON            K0401060
7A2C                       107 | CSIZE BSS     1    SIZE OF COMMON                   K0401070
7A2D                       108 | ERROR BSS     1    OVERLAP ERROR                    K0401080
7A2E                       109 | FNAME BSS     1    PROGRAM NAME                     K0401090
7A2F                       110 |       BSS     1                                     K0401100
7A30                       111 | SORF  BSS     1    SUBROUTINE(-) OR FUNCTION(+)     K0401110
7A31                       112 | CCWD  BSS     1    CONTROL CARD WORD                K0401120
                           113 | *                BIT 15 TRANSFER TRACE              K0401130
                           114 | *                BIT 14 ARITHMETIC TRACE            K0401140
                           115 | *                BIT 13 EXTENDED PRECISION          K0401150
                           116 | *                BIT 12 LIST SYMBOL TABLE           K0401160
                           117 | *                BIT 11 LIST SUBPROGRAM NAMES       K0401170
                           118 | *                BIT 10 LIST SOURCE PROGRAM         K0401180
                           119 | *                BIT  9 ONE WORD INTEGERS           K0401190
                           120 | *                BIT  8 ORIGIN                  2-4 K0401200
7A32                       121 | IOCS  BSS     1    IOCS CONTROL CARD WORD           K0401210
                           122 | *                BIT 15 CARD                        K0401220
                           123 | *                BIT 14 PAPER TAPE                  K0401230
                           124 | *                BIT 13 TYPEWRITER                  K0401240
                           125 | *                BIT 12 1403 PRINTER                K0401250
                           126 | *                BIT 11 2501 READER                 K0401260
                           127 | *                BIT 10 KEYBOARD                    K0401270
                           128 | *                BIT  9 1442 PUNCH                  K0401280
                           129 | *                BIT  8 DISK                        K0401290
                           130 | *                BIT  7 1132 PRINTER                K0401300
                           131 | *                BIT  3 PLOTTER                     K0401310
7A33                       132 | DFCNT BSS     1                                     K0401320
                           133 | *                                                   K0401330
                           134 | *                                                   K0401340
                           135 | *                  END OF FORTRAN COMMUNICATION     K0401350
                           136 | *                  AREA                             K0401360
                           137 | *                                                   K0401370
                           138 | *                                                   K0401380
7A36                       139 | BPHAR EQU     *+2        BEGIN PHASE AREA           K0401390
7A34 0000                  140 |       DC      0          LOADER WORK AREA           K0401400
7A35 FFDE                  141 |       DC      -34        -PHASE ID FOR SLET LOOKUP  K0401410
7A36 01F2                  142 |       DC      NXTPH-*+1  TABLE FOR NEXT PHASE ENTRY K0401420
7A37 0001                  143 |       DC      1          ONE ENTRY TO BE SET BY LDR K0401430
7A36                       144 |       ORG     *-2                                   K0401440
7A36 4C00 7A3B             145 | OKJOE BSC  L  PH         BEGIN PROCESSING PHASE     K0401450
                           146 | *                                                   K0401460
                           147 | *                                                   K0401470
7A38 1400                  148 | COMMC DC      /1400      COMMON                     K0401480
7A39 0800                  149 | ENDC  DC      /0800      END                        K0401490
7A3A 7C00                  150 | IDTPE DC      /7C00      STMNT ID TYPE MASK         K0401500
                           151 | *                                                   K0401510
                           152 | *                  INITIALIZES THE PHASE            K0401520
                           153 | *                  CHECK FOR A PREVIOUS OVERLAP     K0401530
                           154 | *                  ERROR                            K0401540
7A3B 6122                  155 | PH    LDX   1 PHID       INITIALIZE INPUT POINTER   K0401550
7A3C 6D00 0078             156 |       STX  L1 $PHSE      STORE IN SYS PHASE AREA    K0401560
7A3E 6580 7A24             157 |       LDX  I1 SOFS       INITIALIZE STRING I/P PT   K0401570
                           158 | *                                                   K0401580
                           159 | *                  OVERLAP ERROR ON                 K0401590
7A40 C0EC                  160 |       LD      ERROR      TEST FOR OVERLAP ERROR     K0401600
7A41 4C20 7B87             161 |       BSC  L  NXTPQ,Z    BRANCH IF ERROR            K0401610
                           162 | *                                                   K0401620
                           163 | *                                                   K0401630
                           164 | *                  CHECKS FOR END AND COMMON STMNTS K0401640
                           165 | *                  UPDATES THE I/P STRING PT (XR1)  K0401650
                           166 | *                  TO MOVE TO THE NEXT STMNT        K0401660
7A43 C100                  167 | TST   LD    1 0          LOAD STMNT ID WORD         K0401670
7A44 1801                  168 |       SRA     1                                     K0401680
7A45 E0F4                  169 |       AND     IDTPE      GET ID TYPE                K0401690
7A46 90F2                  170 |       S       ENDC       IS IT END                  K0401700
7A47 4C18 7B87             171 |       BSC  L  NXTPQ,+-   BRANCH IF YES              K0401710
                           172 | *                                                   K0401720
                           173 | *                                                   K0401730
7A49 90EE                  174 |       S       COMMC      IS IT COMMON               K0401740
7A4A 4818                  175 |       BSC     +-         SKIP IF NOT                K0401750
7A4B 7007                  176 |       MDX     FIX        CHECK FOR TYPE OF COMMON   K0401760
                           177 | *                                                   K0401770
                           178 | *                  MOVE TO NEXT STMNT               K0401780
7A4C C100                  179 | MV    LD    1            LOAD STMNT ID WORD         K0401790
7A4D 1802                  180 |       SRA     2          SHIFT NORM TO RIGHT        K0401800
7A4E E034                  181 |       AND     IDNRM      ISOLATE NORM               K0401810
7A4F D001                  182 |       STO     NXID+1                                K0401820
7A50 7500 0000             183 | NXID  MDX  L1            MOVE POINTER TO NEXT STMNT K0401830
7A52 70F0                  184 |       MDX     TST        GO TEST STMNT TYPE         K0401840
                           185 | *                                                   K0401850
                           186 | *                        UNUSED CODE REMOVED    2-9 K0401860
                           187 | *                                                   K0401870
                           188 | *                  INITIALIZE TO SCAN COMMON STMNTS K0401880
7A53 6933                  189 | FIX   STX   1 IDADR      SAVE INPUT POINTER    2-11 K0401890
7A54 7101                  190 |       MDX   1 1          MOVE POINTER               K0401900
7A55 1010                  191 |       SLA     16                                    K0401910
7A56 D02E                  192 |       STO     NORM2      CLEAR NORM2                K0401920
7A57 7007                  193 |       MDX     DD2        BRANCH TO SCAN COM ST  2-9 K0401930
                           194 | *                                                   K0401940
                           195 | *                                                   K0401950
                           196 | *                  CHECKS FOR STMNT TERMINATOR      K0401960
7A58 C100                  197 | PTB   LD    1 0          IS CHARACTER               K0401970
7A59 902A                  198 |       S       SEMIC      SEMICOLON                  K0401980
7A5A 4C18 7A9F             199 |       BSC  L  REMOV,+-   BRANCH IF YES         2-11 K0401990
                           200 | *                                                   K0402000
                           201 | *                                                   K0402010
7A5C C028                  202 |       LD      NORM2      IS THERE SYNTAX ERROR IN   K0402020
7A5D 4C04 7A96             203 |       BSC  L  SETUP,E    COMMON STMNT - BRANCH YES  K0402030
                           204 | *                                                   K0402040
                           205 | *                        UNUSED CODE REMOVED    2-9 K0402050
                           206 | *                                                   K0402060
                           207 | *                  CHECKS THE NAME FOR VADIDTY      K0402070
7A5F C100                  208 | DD2   LD    1 0          LOAD WORD                  K0402080
7A60 4810                  209 |       BSC     -          SKIP IF NOT SPECIAL CHAR   K0402090
7A61 703A                  210 |       MDX     ERAH       GO TO ERROR 7              K0402100
7A62 D026                  211 |       STO     WD1        SAVE WORD                  K0402110
7A63 1002                  212 |       SLA     2                                     K0402120
7A64 4C2A 7A9C             213 |       BSC  L  ERAH,C+Z   BRANCH IF NUMERIC          K0402130
7A66 C101                  214 |       LD    1 1          LOAD 2ND WORD              K0402140
7A67 4C28 7A6C             215 |       BSC  L  MAD,+Z     BRANCH IF PART OF NAME     K0402150
7A69 C028                  216 |       LD      ZERO       LOAD ZEROES                K0402160
7A6A D01F                  217 |       STO     WD2        STORE AS 2ND WORD IN NAME  K0402170
7A6B 7005                  218 |       MDX     ZORRO      CHECK FOR DUPLICATES       K0402180
7A6C D01D                  219 | MAD   STO     WD2        STORE 2ND WORD             K0402190
7A6D 7101                  220 |       MDX   1 1          MOVE POINTER               K0402200
7A6E C101                  221 |       LD    1 1          LOAD NEXT WORD             K0402210
7A6F 4C28 7A9C             222 |       BSC  L  ERAH,+Z    BRANCH NOT SPECIAL CHAR    K0402220
                           223 | *                                                   K0402230
                           224 | *                  SCANS THE SYM TBL FOR            K0402240
                           225 | *                  DUPLICATION OF THE VAR NAME      K0402250
7A71 6780 7A27             226 | ZORRO LDX  I3 SOFNS      INITIALIZE SYMBOL TABLE PT K0402260
7A73 7009                  227 |       MDX     JACK       START LOOP                 K0402270
                           228 | *                                                   K0402280
7A74 C301                  229 | LOOP  LD    3 1          DOES FIRST WORD IN NAME    K0402290
7A75 9013                  230 |       S       WD1        MATCH TABLE WORD           K0402300
7A76 4820                  231 |       BSC     Z          SKIP IF YES                K0402310
                           232 | *                                                   K0402320
7A77 7004                  233 |       MDX     EAT        GET NEXT TABLE ENTRY       K0402330
7A78 C302                  234 |       LD    3 2          DOES SECOND WORD IN NAME   K0402340
7A79 9010                  235 |       S       WD2        EQUAL TABLE 2ND WORD       K0402350
7A7A 4C18 7A93             236 |       BSC  L  HELP,+-    BRANCH IF YES              K0402360
                           237 | *                                                   K0402370
7A7C 73FD                  238 | EAT   MDX   3 -3         GET NEXT TABLE ENTRY       K0402380
7A7D 6B0D                  239 | JACK  STX   3 SAVEQ      SAVE TABLE POINTER         K0402390
7A7E C00C                  240 |       LD      SAVEQ      HAS ENTIRE TABLE BEEN      K0402400
7A7F 90AA                  241 |       S       EOFST      CHECKED FOR DUPLICATES     K0402410
7A80 4820                  242 |       BSC     Z          SKIP IF YES                K0402420
7A81 70F2                  243 |       MDX     LOOP       CONTINUE LOOP              K0402430
7A82 7045                  244 |       MDX     PLACE      PUT IN SYMBOL TABLE        K0402440
                           245 | *                                                   K0402450
                           246 | *                  CONSTANTS                        K0402460
7A83 01FF                  247 | IDNRM DC      /01FF      NORM MASK                  K0402470
7A84 001E                  248 | SEMIC DC      /001E      SEMICOLON                  K0402480
7A85 0000                  249 | NORM2 DC      0          SWITCH TWO                 K0402490
7A86 0001                  250 | SW2   DC      1          SWITCH 2                   K0402500
7A87 0000                  251 | IDADR DC      0         STMNT ID ADRS          2-11 K0402510
7A88 0000                  252 | SW5   DC      0         SECOND PASS MODE SW    2-11 K0402520
7A89 0000                  253 | WD1   DC      0          WORD 1 OF COMMON NAME      K0402530
7A8A 0000                  254 | WD2   DC      0          WORD 2 OF COMMON NAME      K0402540
7A8B 0000                  255 | SAVEQ DC      0          SYMBOL TABLE POINTER       K0402550
7A8C 0000                  256 | ERRNO DC      0          ERROR NUMBER               K0402560
7A8D 000A                  257 | ERR10 DC      10         ERROR NO. 10               K0402570
7A8E 000B                  258 | ERR11 DC      11         ERROR NO. 11               K0402580
7A8F 0007                  259 | ERR7  DC      7          ERROR NO. 7                K0402590
7A90 0008                  260 | ERR8  DC      8          ERROR NO. 8                K0402600
7A91 A008                  261 | ERRID DC      /A008      ERROR STMNT ID WORD        K0402610
7A92 8000                  262 | ZERO  DC      /8000      USEFUL CONSTANT            K0402620
                           263 | *                        UNUSED WORDS REMOVED   2-9 K0402630
                           264 | *                                                   K0402640
                           265 | *                   SETUP  ERRORS                   K0402650
7A93 C0FA                  266 | HELP  LD      ERR11      SET ERROR NO. 11           K0402660
7A94 D0F7                  267 |       STO     ERRNO      GO TO CLOSE                K0402670
7A95 700B                  268 |       MDX     EROR      UP STRING              2-11 K0402680
7A96 C0F6                  269 | SETUP LD      ERR10      SET ERROR NO. 10           K0402690
7A97 D0F4                  270 |       STO     ERRNO      GO TO CLOSE                K0402700
7A98 7008                  271 |       MDX     EROR      UP STRING              2-11 K0402710
7A99 C0F6                  272 | GEEP  LD      ERR8       SET ERROR NO. 8            K0402720
7A9A D0F1                  273 |       STO     ERRNO      GO TO CLOSE                K0402730
7A9B 7005                  274 |       MDX     EROR      UP STRING              2-11 K0402740
7A9C C0F2                  275 | ERAH  LD      ERR7       SET ERROR NO. 7            K0402750
7A9D D0EE                  276 |       STO     ERRNO                                 K0402760
7A9E 7002                  277 |       MDX     EROR      CLOSE UP STRING        2-11 K0402770
                           278 | *                                                   K0402780
7A9F 1010                  279 | REMOV SLA     16         CLEAR ACCM - SET TO   2-11 K0402790
7AA0 D0EB                  280 |       STO     ERRNO     DUMMY ERROR NUMBR      2-11 K0402800
                           281 | *                                                   K0402810
                           282 | *     REPLACE STMNT WITH ERROR ID/OR DUMMY     2-11 K0402820
                           283 | *     ERROR ID(ERROR NO. = ZERO) AND           2-11 K0402830
                           284 | *     CLOSE THE STRING                         2-11 K0402840
                           285 | *                                                   K0402850
7AA1 6580 7A87             286 | EROR  LDX  I1 IDADR     RESET STMNT ID POINTER 2-11 K0402860
7AA3 C100                  287 |       LD    1 0          LOAD STMNT ID WORD         K0402870
7AA4 1802                  288 |       SRA     2          RIGHT-JUSTIFY NORM         K0402880
7AA5 E0DD                  289 |       AND     IDNRM      CLEAR ALL BUT NORM         K0402890
                           290 | *                                                   K0402900
7AA6 D04E                  291 |       STO     NRMSV      ADD NORM TO STRING POINTER K0402910
7AA7 80DF                  292 |       A       IDADR      TO GET ADDRESS OF NEXT2-11 K0402920
7AA8 D001                  293 |       STO     *+1        STATEMENT             2-11 K0402930
7AA9 6600 0000             294 |       LDX  L2 *-*        INITIALIZE LOOP PTR   2-11 K0402940
                           295 | *                                                   K0402950
7AAB C0E5                  296 |       LD      ERRID      LOAD ERROR STMNT ID WORD   K0402960
7AAC D100                  297 |       STO   1 0          PUT ON STRING              K0402970
7AAD C0DE                  298 |       LD      ERRNO      LOAD ERROR NUMBER          K0402980
7AAE D101                  299 |       STO   1 1          PUT ON STRING              K0402990
7AAF 7102                  300 |       MDX   1 +2         MOVE POINTER          2-11 K0403000
                           301 | *                                                   K0403010
7AB0 C400 7A25             302 |       LD   L  EOFS       COMPUTE RANGE OF LOOP      K0403020
7AB2 90D4                  303 |       S       IDADR      SUBTRACT POINTER THEN 2-11 K0403030
7AB3 9041                  304 |       S       NRMSV      SUBTRACT NORM TO GET       K0403040
7AB4 D001                  305 |       STO     *+1        RANGE OF LOOP         2-11 K0403050
7AB5 6700 0000             306 |       LDX  L3 *-*        INITL RANGE COUNTER   2-11 K0403060
                           307 | *                                                   K0403070
7AB7 690A                  308 |       STX   1 SAVX1+1    SAVE STRING POINTER   2-11 K0403080
7AB8 7301                  309 |       MDX   3 1                                     K0403090
7AB9 C200                  310 | LOOP1 LD    2 0          MOVE WORD DOWN             K0403100
7ABA D100                  311 |       STO   1 0          IN STRING             2-11 K0403110
7ABB 7101                  312 |       MDX   1 1          MOVE POINTERS              K0403120
7ABC 7201                  313 |       MDX   2 1                                     K0403130
7ABD 73FF                  314 |       MDX   3 -1         DECREMENT RANGE COUNTER    K0403140
7ABE 70FA                  315 |       MDX     LOOP1      CONTINUE LOOP              K0403150
                           316 | *                                                   K0403160
7ABF 6D00 7A25             317 |       STX  L1 EOFS       NEW END OF STRING          K0403170
7AC1 6500 0000             318 | SAVX1 LDX  L1 *-*        RESTORE INPUT POINTER 2-11 K0403180
                           319 | *                                                   K0403190
7AC3 C0C4                  320 |       LD      SW5       CHECK PASS MODE        2-11 K0403200
7AC4 4C20 7C22             321 |       BSC  L  SOS,Z     BRCH IF SECOND         2-11 K0403210
7AC6 4C00 7A43             322 |       BSC  L  TST       BRCH IF FIRST          2-11 K0403220
                           323 | *                                                   K0403230
                           324 | *                  PLACES A VARIABLE NAME IN THE    K0403240
                           325 | *                  SYM TBL - SETS THE COMMON AND    K0403250
                           326 | *                  TYPE INDICATORS IN THE SYM TBL   K0403260
                           327 | *                  ID WORD - CHECKS FOR A SYM TBL   K0403270
                           328 | *                  OVERLAP                          K0403280
7AC8 C0C1                  329 | PLACE LD      WD2        PUT 2ND WORD INTO          K0403290
7AC9 D302                  330 |       STO   3 2          SYMBOL TABLE               K0403300
7ACA C0BE                  331 |       LD      WD1        PUT 1ST WORD INTO          K0403310
7ACB D301                  332 |       STO   3 1          SYMBOL TABLE               K0403320
                           333 | *                                                   K0403330
                           334 | *                  SET TYPE AND COMMON INDICATORS   K0403340
7ACC C0BC                  335 |       LD      WD1        GET FIRST LETTER           K0403350
7ACD E02A                  336 |       AND     PIT1       OF NAME                    K0403360
7ACE 902A                  337 |       S       RGTI       IS IT I OR GREATER         K0403370
7ACF 4828                  338 |       BSC     +Z         SKIP IF YES                K0403380
7AD0 7005                  339 |       MDX     REEL       GO SET REAL ID WORD        K0403390
7AD1 9028                  340 |       S       RGTN       IS IT N OR LESS            K0403400
7AD2 4C30 7AD6             341 |       BSC  L  REEL,Z-    BRANCH IF NOT              K0403410
7AD4 C026                  342 |       LD      IDCI       LOAD INTEGER INDICATOR     K0403420
7AD5 7001                  343 |       MDX     VIP        GO PUT IN SYMBOL TABLE ID  K0403430
7AD6 C025                  344 | REEL  LD      IDCR       LOAD REAL SYM TBL ID       K0403440
7AD7 D300                  345 | VIP   STO   3 0          PUT IN SYMBOL TABLE    2-9 K0403450
7AD8 74FD 7A2A             346 |       MDX  L  EOFST,-3   MODIFY SYMBOL              K0403460
7ADA 74FD 7A28             347 |       MDX  L  SOFXT,-3   TABLE ADDRESSES            K0403470
7ADC 74FD 7A29             348 |       MDX  L  SOFGT,-3                              K0403480
                           349 | *                                                   K0403490
                           350 | *                  SYMBOL TABLE OVERLAP             K0403500
7ADE C400 7A2A             351 |       LD   L  EOFST      LOAD END OF SYMBOL TABLE   K0403510
7AE0 8015                  352 |       A       CONST      ADD TWO                    K0403520
7AE1 9400 7A25             353 |       S    L  EOFS       SUBTRACT END OF STRING     K0403530
7AE3 4C28 7B85             354 |       BSC  L  JIMY,+Z    BRANCH IF NEGATIVE-OVERLAP K0403540
                           355 | *                                                   K0403550
                           356 | *                                                   K0403560
7AE5 7101                  357 |       MDX   1 1          MOVE POINTER               K0403570
                           358 | *                                                   K0403580
                           359 | *                                                   K0403590
7AE6 C100                  360 |       LD    1 0          LOAD NEXT WORD             K0403600
7AE7 9015                  361 |       S       PARNL      IS CHAR LEFT PARENTHESIS   K0403610
7AE8 4C18 7B09             362 |       BSC  L  PRTE,+-    BRANCH IF YES              K0403620
                           363 | *                                                   K0403630
                           364 | *                  CHECKS FOR A COMMA OPTR          K0403640
7AEA C100                  365 | DD3   LD    1 0          LOAD WORD                  K0403650
7AEB 9012                  366 |       S       COMAC      IS CHARACTER COMMA         K0403660
7AEC 4818                  367 |       BSC     +-         SKIP IF NO                 K0403670
7AED 7004                  368 |       MDX     DD1        GO GET NEXT WORD           K0403680
                           369 | *                                                   K0403690
                           370 | *                        UNUSED CODE REMOVED    2-9 K0403700
                           371 | *                                                   K0403710
                           372 | *                                                   K0403720
7AEE C097                  373 |       LD      SW2        SET SYNTAX ERROR IN        K0403730
7AEF D095                  374 |       STO     NORM2      COMMON STMNT SWITCH        K0403740
7AF0 6400 7A58             375 |       LDX  L  PTB        GO CHECK CHARACTER         K0403750
                           376 | *                                                   K0403760
                           377 | *                                                   K0403770
                           378 | *                  UPDATES THE I/P STRING PT (XR1)  K0403780
                           379 | *                  TO MOVE TO THE NEXT STRING WORD  K0403790
7AF2 7101                  380 | DD1   MDX   1 1          MOVE POINTER               K0403800
7AF3 6400 7A5F             381 |       LDX  L  DD2        GET NEXT WORD              K0403810
                           382 | *                                                   K0403820
                           383 | *                  CONSTANTS                        K0403830
7AF5 0000                  384 | NRMSV DC      0          NORM                       K0403840
7AF6 0002                  385 | CONST DC      2          TWO                        K0403850
7AF7 6000                  386 | PIT   DC      /6000      NUMERIC ZONE BIT MASK      K0403860
7AF8 7E00                  387 | PIT1  DC      /7E00      ONE CHAR EBC MASK          K0403870
7AF9 1200                  388 | RGTI  DC      /1200      I                          K0403880
7AFA 1800                  389 | RGTN  DC      /1800      N                          K0403890
7AFB 6020                  390 | IDCI  DC      /6020      INTEGER SYMBOL TABLE ID    K0403900
7AFC 2020                  391 | IDCR  DC      /2020      REAL SYMBOL TABLE ID       K0403910
7AFD 000D                  392 | PARNL DC      /000D      LEFT PARENTHESIS           K0403920
7AFE 002B                  393 | COMAC DC      /002B      COMMA                      K0403930
7B00                       394 |       BSS  E  0                                     K0403940
7B00 0000                  395 | TEM   DC      0          EBC NUMBER TO              K0403950
7B01 0000                  396 |       DC      0          BE CONVERTED               K0403960
7B02 7E00                  397 | COT1  DC      /7E00      EBC NUMERIC MASK           K0403970
7B03 7800                  398 | COT2  DC      /7800      EBC NUMERIC BITS MASK      K0403980
7B04 0000                  399 | HELP1 DC      0          TEMPORARY STORAGE          K0403990
7B05 4800                  400 | NINT  DC      /4800      NINE                       K0404000
7B06 0000                  401 | SUMM  DC      0          TEMPORARY TOTAL            K0404010
7B07 0000                  402 | CNT   DC      0          DIMENSION COUNTER          K0404020
7B08 001D                  403 | PARNR DC      /001D      RIGHT PARENTHESIS          K0404030
                           404 | *                                                   K0404040
                           405 | *                                                   K0404050
                           406 | *                  CONVERTS THE DIMENSION CONSTANT  K0404060
                           407 | *                  TO BINARY                        K0404070
7B09 1010                  408 | PRTE  SLA     16                                    K0404080
7B0A D0FC                  409 |       STO     CNT        CLEAR COUNTER              K0404090
                           410 | *                                                   K0404100
                           411 | *                                                   K0404110
7B0B 7101                  412 |       MDX   1 1          MOVE POINTER               K0404120
                           413 | *                                                   K0404130
                           414 | *                                                   K0404140
7B0C C100                  415 |       LD    1 0          LOAD WORD                  K0404150
7B0D E0E9                  416 |       AND     PIT        IS IT NUMERIC              K0404160
7B0E F0E8                  417 |       EOR     PIT                                   K0404170
7B0F 4C20 7A99             418 |       BSC  L  GEEP,Z     BRANCH IF NOT              K0404180
                           419 | *                                                   K0404190
                           420 | *                  CHANGE CONSTANT TO BINARY NO.    K0404200
7B11 2000                  421 |       LDS     0          CLEAR STATUS INDICATORS    K0404210
7B12 10A0                  422 |       SLT     32         CLEAR ACC AND EXTENSION    K0404220
7B13 D0F2                  423 |       STO     SUMM       ZERO TOTAL                 K0404230
                           424 | *                                                   K0404240
7B14 C100                  425 |       LD    1            LOAD FIRST WORD            K0404250
7B15 D8EA                  426 |       STD     TEM        STORE IN WORK AREA         K0404260
7B16 C101                  427 |       LD    1 1          LOAD 2ND WORD              K0404270
7B17 4C10 7B1F             428 |       BSC  L  AOT,-      BRANCH ON OPERATOR         K0404280
7B19 1001                  429 |       SLA     1          GET RID OF INDICATOR BIT   K0404290
7B1A D0E6                  430 |       STO     TEM+1      STORE 2ND WORD             K0404300
7B1B C102                  431 |       LD    1 2          LOAD 3RD WORD              K0404310
7B1C 7101                  432 |       MDX   1 1          MOVE POINTER               K0404320
7B1D 4C08 7A99             433 |       BSC  L  GEEP,+     BRANCH ON NO OPERATOR      K0404330
7B1F C0E0                  434 | AOT   LD      TEM        LOAD FIRST WORD            K0404340
7B20 E0E1                  435 | AOT1  AND     COT1       GET FIRST CHAR FROM WORD   K0404350
7B21 1002                  436 |       SLA     2          SHIFT TO TEST IF NUMERIC   K0404360
                           437 | *                                                   K0404370
7B22 4C02 7B28             438 |       BSC  L  PILL,C     BRANCH CARRY ON            K0404380
7B24 4C18 7B44             439 |       BSC  L  NEX,+-     BRANCH END OF CONVERSION   K0404390
7B26 6400 7A99             440 |       LDX  L  GEEP       BRANCH ERROR               K0404400
7B28 4C10 7A99             441 | PILL  BSC  L  GEEP,-     BRANCH NOT NUMERIC         K0404410
7B2A E0D8                  442 |       AND     COT2       GET NUMBER BITS            K0404420
7B2B 90D9                  443 |       S       NINT       IS NO. GREATER THAN NINE   K0404430
7B2C 4C30 7A99             444 |       BSC  L  GEEP,-Z    BRANCH IF YES              K0404440
7B2E 80D6                  445 |       A       NINT       RESTORE ORIGINAL VALUE     K0404450
                           446 | *                                                   K0404460
7B2F 180B                  447 |       SRA     11         RIGHT JUSTIFY NUMBER       K0404470
7B30 D0D3                  448 |       STO     HELP1      SAVE NUMBER                K0404480
7B31 C0D4                  449 |       LD      SUMM       LOAD PREVIOUS TOTAL        K0404490
7B32 1001                  450 |       SLA     1          MULTIPLY BY TWO            K0404500
7B33 D00E                  451 |       STO     TEMPT      SAVE                       K0404510
7B34 4C28 7A99             452 |       BSC  L  GEEP,+Z    BRANCH IF OVERFLOW         K0404520
7B36 1002                  453 |       SLA     2          MULTIPLY TOTAL BY 8        K0404530
7B37 4C2A 7A99             454 |       BSC  L  GEEP,C+Z   BRANCH IF ERROR IN NUMBER  K0404540
7B39 8008                  455 |       A       TEMPT      GET PREVIOUS TOTAL X 10    K0404550
7B3A 80C9                  456 |       A       HELP1      ADD UNITS VALUE            K0404560
7B3B 4C01 7A99             457 |       BSC  L  GEEP,O     BRANCH IF OVERFLOW         K0404570
7B3D D0C8                  458 |       STO     SUMM       STORE NEW TOTAL            K0404580
                           459 | *                                                   K0404590
7B3E C8C1                  460 |       LDD     TEM        SHIFT NUMBER TO            K0404600
7B3F 1086                  461 |       SLT     6          GET EBC NUMBER             K0404610
7B40 D8BF                  462 |       STD     TEM        IN POSITION                K0404620
7B41 70DE                  463 |       MDX     AOT1       GO PROCESS NUMBER          K0404630
                           464 | *                                                   K0404640
                           465 | *                   CONSTANTS                       K0404650
7B42 0000                  466 | TEMPT DC      0          TEMPORARY STORAGE          K0404660
7B43 0003                  467 | THRE  DC      3          THREE                      K0404670
                           468 | *                                                   K0404680
                           469 | *                  PLACES A DIMENSION CONSTANT INTO K0404690
                           470 | *                  THE SYMBOL TABLE                 K0404700
7B44 7401 7B07             471 | NEX   MDX  L  CNT,1      INCREMENT DIMENSION COUNT  K0404710
                           472 | *                                                   K0404720
                           473 | *                                                   K0404730
7B46 C0BF                  474 |       LD      SUMM       LOAD DIMENSION VALUE       K0404740
7B47 4C18 7A99             475 |       BSC  L  GEEP,+-    BRANCH IF ZERO             K0404750
                           476 | *                                                   K0404760
                           477 | *                   PUT CONSTANT IN SYMBOL TABLE    K0404770
7B49 C0BD                  478 |       LD      CNT        LOAD DIMENSION COUNT       K0404780
7B4A 9400 7A86             479 |       S    L  SW2        WAS COUNT ONE              K0404790
7B4C 4820                  480 |       BSC     Z          SKIP IF YES                K0404800
7B4D 7005                  481 |       MDX     O2         CHECK FOR COUNT OF TWO     K0404810
7B4E C0B7                  482 |       LD      SUMM       LOAD DIMENSION VALUE       K0404820
7B4F D3FF                  483 |       STO   3 -1         PUT IN ALL                 K0404830
7B50 D3FE                  484 |       STO   3 -2         THREE DIMENSION            K0404840
7B51 D3FD                  485 |       STO   3 -3         WORDS                      K0404850
7B52 7014                  486 |       MDX     NEXP       GO GET NEXT NUMBER         K0404860
                           487 | *                                                   K0404870
7B53 9400 7A86             488 | O2    S    L  SW2        WAS COUNT TWO              K0404880
7B55 4820                  489 |       BSC     Z          SKIP IF YES                K0404890
7B56 7009                  490 |       MDX     O3         CHECK FOR COUNT OF THREE   K0404900
7B57 C3FF                  491 |       LD    3 -1         GET VALUE FOR 2ND AND 3RD  K0404910
7B58 A0AD                  492 |       M       SUMM       DIMENSION BY MULTIPLYING   K0404920
7B59 1081                  493 |       SLT     1         BRANCH TO SET ERROR 8   2-7 K0404930
7B5A 4C20 7A99             494 |       BSC  L  GEEP,Z    *IF TOO GREAT           2-7 K0404940
7B5C 108F                  495 |       SLT     15        SHIFT INTO ACCUMULATOR  2-7 K0404950
7B5D D3FE                  496 |       STO   3 -2         VALUE                      K0404960
7B5E D3FD                  497 |       STO   3 -3         STORE IN TABLE             K0404970
7B5F 7007                  498 |       MDX     NEXP       GO GET NEXT NUMBER         K0404980
                           499 | *                                                   K0404990
7B60 C3FD                  500 | O3    LD    3 -3         GET VALUE FOR 3RD DIM      K0405000
7B61 A0A4                  501 |       M       SUMM       BY MULTIPLYING 2ND VALUE   K0405010
7B62 1081                  502 |       SLT     1         BRANCH TO SET ERROR 8   2-7 K0405020
7B63 4C20 7A99             503 |       BSC  L  GEEP,Z    *IF TOO GREAT           2-7 K0405030
7B65 108F                  504 |       SLT     15        SHIFT INTO ACCUMULATOR  2-7 K0405040
7B66 D3FD                  505 |       STO   3 -3         STORE IN TABLE             K0405050
                           506 | *                                                   K0405060
                           507 | *                                                   K0405070
                           508 | *                  CHECKS FOR A COMMA, A RIGHT      K0405080
                           509 | *                  PARENTHESIS, AND AN OVERLAP      K0405090
                           510 | *                  ERROR - INDICATES THE            K0405100
                           511 | *                  DIMENSIONING LEVEL IN THE SYM    K0405110
                           512 | *                  TBL ID WORD                      K0405120
7B67 7101                  513 | NEXP  MDX   1 1          MOVE STRING POINTER        K0405130
                           514 | *                                                   K0405140
                           515 | *                                                   K0405150
7B68 C100                  516 |       LD    1 0          LOAD WORD                  K0405160
7B69 9094                  517 |       S       COMAC      IS CHARACTER COMMA         K0405170
7B6A 4C18 7B88             518 |       BSC  L  TCNT,+-    BRANCH IF YES              K0405180
                           519 | *                                                   K0405190
                           520 | *                                                   K0405200
7B6C 8091                  521 |       A       COMAC      RESTORE ORIGINAL VALUE     K0405210
7B6D 909A                  522 |       S       PARNR      IS IT RIGHT PARENTHESIS    K0405220
7B6E 4C20 7A99             523 |       BSC  L  GEEP,Z     BRANCH IF NOT              K0405230
                           524 | *                                                   K0405240
                           525 | *                   PUT DIMENSION COUNT IN SYM TBL  K0405250
7B70 C096                  526 |       LD      CNT        LOAD DIMENSION COUNT       K0405260
7B71 100B                  527 |       SLA     11         POSITION FOR SYMBOL TABLE  K0405270
7B72 EB00                  528 |       OR    3 0          COMBINE WITH ID WORD       K0405280
7B73 D300                  529 |       STO   3 0          NEW SYMBOL TABLE ID WORD   K0405290
7B74 74FD 7A2A             530 |       MDX  L  EOFST,-3   MODIFY SYMBOL              K0405300
7B76 74FD 7A28             531 |       MDX  L  SOFXT,-3   TABLE ADDRESSES            K0405310
7B78 74FD 7A29             532 |       MDX  L  SOFGT,-3                              K0405320
                           533 | *                                                   K0405330
                           534 | *                                                   K0405340
7B7A C400 7A2A             535 |       LD   L  EOFST      TEST FOR TABLE OVERLAP     K0405350
7B7C 8007                  536 |       A       TWO        ADD TWO                    K0405360
7B7D 9400 7A25             537 |       S    L  EOFS       SUBTRACT END OF STRING     K0405370
7B7F 4C28 7B85             538 |       BSC  L  JIMY,+Z    BRANCH IF OVERLAP          K0405380
                           539 | *                                                   K0405390
                           540 | *                                                   K0405400
7B81 7101                  541 |       MDX   1 1          MOVE POINTER               K0405410
7B82 6400 7AEA             542 |       LDX  L  DD3        GO CHECK NEXT WORD         K0405420
                           543 | *                                                   K0405430
                           544 | *                   CONSTANT                        K0405440
7B84 0002                  545 | TWO   DC      2          TWO                        K0405450
                           546 | *                                                   K0405460
                           547 | *                                                   K0405470
7B85 7401 7A2D             548 | JIMY  MDX  L  ERROR,1    SET OVERLAP ERROR          K0405480
                           549 | *                                                   K0405490
                           550 | *                                                   K0405500
7B87 7007                  551 | NXTPQ MDX     START      GO TO NEXT PART OF PHASE   K0405510
                           552 | *                                                   K0405520
                           553 | *                                                   K0405530
                           554 | *             CHECKS THAT DIMENTIONING              K0405540
                           555 | *             DOES NOT EXCEED THREE LEVELS          K0405550
7B88 C400 7B07             556 | TCNT  LD   L  CNT        LOAD DIMENSION COUNT       K0405560
7B8A 90B8                  557 |       S       THRE       IS IT THREE OR GREATER     K0405570
7B8B 4C28 7B0B             558 |       BSC  L  PRTE+2,+Z  BRANCH IF NOT              K0405580
7B8D 6400 7A99             559 |       LDX  L  GEEP       ERROR - BRANCH             K0405590
SUBROUTINE OR FUNCTION
 
                           561 | *                        UNUSED CODE REMOVED    2-9 K0405610
                           562 | *                                                   K0405620
7B8F C400 7A2D             563 | START LD   L  ERROR      IS THERE OVERLAP ERROR     K0405630
7B91 4C20 7C22             564 |       BSC  L  SOS,Z      BRANCH IF YES              K0405640
                           565 | *                                                   K0405650
                           566 | *                   INITIALIZE PHASE                K0405660
7B93 6580 7A24             567 |       LDX  I1 SOFS       INITIALIZE STRING POINTER  K0405670
7B95 6C00 7A88             568 |       STX  L  SW5       SET SW5 ON             2-11 K0405680
                           569 | *                                                   K0405690
                           570 | *                                                   K0405700
7B97 C100                  571 | STARF LD    1 0          LD STMNT ID                K0405710
7B98 180B                  572 |       SRA     11                                    K0405720
7B99 9062                  573 |       S       FIOC       TEST IF FIO CALL           K0405730
7B9A 4C20 7BA4             574 |       BSC  L  STAR1,Z    BRANCH IF NOT              K0405740
                           575 | *                                                   K0405750
7B9C 685E                  576 |       STX     SW5A       SET FIO STMNT PRESENT SW   K0405760
                           577 | *                                                   K0405770
7B9D C100                  578 |       LD    1 0          GET STMNT NORM             K0405780
7B9E 1802                  579 |       SRA     2                                     K0405790
7B9F E065                  580 |       AND     IDNVQ                                 K0405800
7BA0 D001                  581 |       STO     *+1                                   K0405810
7BA1 7500 0000             582 |       MDX  L1 *-*        MOVE TO NEXT STMNT         K0405820
                           583 | *                                                   K0405830
7BA3 70F3                  584 |       MDX     STARF      CHECK NEXT STMNT           K0405840
                           585 | *                                                   K0405850
                           586 | *                                                   K0405860
                           587 | *                  CHECKS THE FORTRAN COMMUNICATION K0405870
                           588 | *                  AREA (SORF) FOR A SUBP INDN -    K0405880
                           589 | *                  IF NONE, CHECKS THE FIRST STMNT  K0405890
                           590 | *                  TO SEE IF IT IS REAL OR INTEGER  K0405900
7BA4 C400 7A30             591 | STAR1 LD   L  SORF       HAVE SUBROUTINE OR FUNC    K0405910
7BA6 4C20 7BCC             592 |       BSC  L  DO3,Z      BRANCH IF YES              K0405920
                           593 | *                                                   K0405930
                           594 | *                                                   K0405940
7BA8 C100                  595 |       LD    1 0          LOAD STMNT ID WORD         K0405950
7BA9 1801                  596 |       SRA     1                                     K0405960
7BAA E05B                  597 |       AND     IDTPQ      GET STMNT ID TYPE          K0405970
7BAB 9051                  598 |       S       REALC      IS STMNT REAL              K0405980
7BAC 4C18 7BB4             599 |       BSC  L  TRY,+-     BRANCH IF YES              K0405990
7BAE 904F                  600 |       S       INTC       IS STMNT INTEGER           K0406000
7BAF 4C20 7C22             601 |       BSC  L  SOS,Z      BRANCH IF NOT              K0406010
                           602 | *                                                   K0406020
                           603 | *                                                   K0406030
7BB1 6C00 7C36             604 |       STX  L0 ASW3       SET INTEGER STMNT SW       K0406040
7BB3 7002                  605 |       MDX     TRY+2      CHECK FOR FUNCTION         K0406050
                           606 | *                                                   K0406060
                           607 | *                                                   K0406070
                           608 | *                  CHECKS FOR THE WORD 'FUNCTION'   K0406080
                           609 | *                  IN A REAL OR INTEGER STMNT -     K0406090
                           610 | *                  IF FOUND, INDICATES A FUNCTION   K0406100
                           611 | *                  IN THE FORTRAN COMMUNICATION     K0406110
                           612 | *                  AREA (SORF)                      K0406120
7BB4 6C00 7C35             613 | TRY   STX  L0 ASW2       SET REAL STMNT SW          K0406130
                           614 | *                                                   K0406140
                           615 | *                   ARE NEXT FOUR WORDS 'FUNCTION'  K0406150
7BB6 C101                  616 |       LD    1 1          LOAD WORD                  K0406160
7BB7 9047                  617 |       S       FUNC1      ARE CHARACTERS 'FU'        K0406170
7BB8 4C20 7C22             618 |       BSC  L  SOS,Z      BRANCH IF NOT              K0406180
7BBA C102                  619 |       LD    1 2          LOAD 2ND WORD              K0406190
7BBB 9044                  620 |       S       FUNC2      ARE CHARACTERS 'NC'        K0406200
7BBC 4C20 7C22             621 |       BSC  L  SOS,Z      BRANCH IF NOT              K0406210
7BBE C103                  622 |       LD    1 3          LOAD 3RD WORD              K0406220
7BBF 9041                  623 |       S       FUNC3      ARE CHARACTERS 'IO'        K0406230
7BC0 4C20 7C22             624 |       BSC  L  SOS,Z      BRANCH IF NOT              K0406240
7BC2 C104                  625 |       LD    1 4          LOAD 4TH WORD              K0406250
7BC3 903E                  626 |       S       FUNC4      IS CHARACTER 'N'           K0406260
7BC4 4C20 7C22             627 |       BSC  L  SOS,Z      BRANCH IF NOT              K0406270
7BC6 6D00 7A87             628 |       STX  L1 IDADR     SAVE STMNT ID POINTER  2-11 K0406280
7BC8 7105                  629 |       MDX   1 5          MOVE POINTER               K0406290
                           630 | *                                                   K0406300
                           631 | *                  INDICATE FUNCTION IN             K0406310
                           632 | *                  COMMUNICATION AREA               K0406320
7BC9 7401 7A30             633 |       MDX  L  SORF,1     SET FUNCTION IN SORF       K0406330
7BCB 700A                  634 |       MDX     DO2+2     CHECK FOR LEGAL NAME   2-12 K0406340
                           635 | *                                                   K0406350
                           636 | *                                                   K0406360
                           637 | *                  CHECKS FOR A SUBP OR FUNC STMNT  K0406370
7BCC C100                  638 | DO3   LD    1 0          LOAD STMNT ID WORD         K0406380
7BCD 180B                  639 |       SRA     11         GET STMNT ID TYPE          K0406390
7BCE 902A                  640 |       S       SF1        IS IT FUNCTION             K0406400
7BCF 4C18 7BD4             641 |       BSC  L  DO2,+-     BRANCH IF YES              K0406410
7BD1 9028                  642 |       S       SF2        IS IT SUBROUTINE           K0406420
7BD2 4C20 7C22             643 |       BSC  L  SOS,Z      BRANCH IF NO               K0406430
                           644 | *                                                   K0406440
                           645 | *                  CHECKS FOR A VALID SUBP NAME     K0406450
7BD4 6D00 7A87             646 | DO2   STX  L1 IDADR     SAVE STMNT ID POINTER  2-11 K0406460
7BD6 7101                  647 |       MDX   1 1          MOVE POINTER               K0406470
7BD7 C100                  648 |       LD    1 0          LOAD WORD                  K0406480
7BD8 4810                  649 |       BSC     -          SKIP IF NUMBER OR LETTER   K0406490
7BD9 703B                  650 |       MDX     ER7        ERROR                      K0406500
7BDA D028                  651 |       STO     WRD1       SAVE WORD                  K0406510
7BDB C101                  652 |       LD    1 1          LOAD 2ND WORD              K0406520
7BDC 4C28 7BE1             653 |       BSC  L  MADS,+Z    BRANCH IF NAME TWO WORDS   K0406530
7BDE C02D                  654 |       LD      ZO         SET ZEROS FOR              K0406540
7BDF D024                  655 |       STO     WRD2       SECOND WORD OF NAME        K0406550
7BE0 7005                  656 |       MDX     ZOR        PUT NAME IN SYMBOL TABLE   K0406560
7BE1 D022                  657 | MADS  STO     WRD2       STORE 2ND WORD             K0406570
7BE2 7101                  658 |       MDX   1 1          MOVE POINTER               K0406580
7BE3 C101                  659 |       LD    1 1          LOAD NEXT WORD             K0406590
7BE4 4C28 7C15             660 |       BSC  L  ER7,+Z     ERROR IF NOT SPECIAL OPER  K0406600
                           661 | *                                                   K0406610
                           662 | *                  SCANS THE SYM TBL FOR            K0406620
                           663 | *                  DUPLICATION OF THE SUBP NAME     K0406630
7BE6 6780 7A27             664 | ZOR   LDX  I3 SOFNS      INITIALIZE SYMBOL TABLE PT K0406640
7BE8 7009                  665 |       MDX     HACK       START CHECK                K0406650
7BE9 C301                  666 | LOP   LD    3 1          DOES FIRST WORD OF SYMBOL  K0406660
7BEA 9018                  667 |       S       WRD1       TABLE MATCH 1ST PART       K0406670
7BEB 4820                  668 |       BSC     Z          SKIP IF YES                K0406680
7BEC 7004                  669 |       MDX     EATQ       GET NEXT TABLE ENTRY       K0406690
7BED C302                  670 |       LD    3 2          DOES 2ND WORD OF SYMBOL    K0406700
7BEE 9015                  671 |       S       WRD2       TABLE MATCH 2ND PART       K0406710
7BEF 4C18 7C0D             672 |       BSC  L  CHK,+-     BRANCH IF YES              K0406720
7BF1 73FD                  673 | EATQ  MDX   3 -3         GO TO NEXT TABLE ENTRY     K0406730
7BF2 6B14                  674 | HACK  STX   3 SAVE       STORE POINTER              K0406740
7BF3 C013                  675 |       LD      SAVE       HAS ENTIRE SYMBOL TABLE    K0406750
7BF4 9400 7A2A             676 |       S    L  EOFST      BEEN CHECKED FOR DUPLICATE K0406760
7BF6 4820                  677 |       BSC     Z          SKIP IF YES                K0406770
7BF7 70F1                  678 |       MDX     LOP        CONTINUE LOOP              K0406780
7BF8 7040                  679 |       MDX     PLACQ      PLACE NAME IN TABLE        K0406790
                           680 | *                                                   K0406800
                           681 | *                   CONSTANTS                       K0406810
7BF9 000D                  682 | SF1   DC      /0D        FUNCTION                   K0406820
7BFA FFF7                  683 | SF2   DC      /04-/0D    SUBROUTINE                 K0406830
7BFB 0000                  684 | SW5A  DC      0          SWITCH 5A                  K0406840
7BFC 001B                  685 | FIOC  DC      /1B        FIO                        K0406850
7BFD 2400                  686 | REALC DC      /2400      REAL                       K0406860
7BFE 0400                  687 | INTC  DC      /0400      INTEGER                    K0406870
7BFF 8D22                  688 | FUNC1 DC      /8D22      FU                         K0406880
7C00 D0E3                  689 | FUNC2 DC      /D0E3      NC                         K0406890
7C01 92B2                  690 | FUNC3 DC      /92B2      TI                         K0406900
7C02 D000                  691 | FUNC4 DC      /D000      ON                         K0406910
7C03 0000                  692 | WRD1  DC      *-*        TEMPORARY STORAGE FOR      K0406920
7C04 0000                  693 | WRD2  DC      *-*        SYMBOL TABLE ENTRY         K0406930
7C05 01FF                  694 | IDNVQ DC      /01FF      NORM MASK                  K0406940
7C06 7C00                  695 | IDTPQ DC      /7C00      STMNT ID TYPE MASK         K0406950
7C07 0000                  696 | SAVE  DC      0          TEMPORARY STORAGE          K0406960
7C08 0007                  697 | ER7R  DC      7          ERROR NO. 7                K0406970
7C09 000C                  698 | ERR12 DC      12         ERROR NO. 12               K0406980
7C0A 000D                  699 | ERR13 DC      13         ERROR NO. 13               K0406990
7C0B 000E                  700 | ERR14 DC      14         ERROR NO. 14               K0407000
7C0C 8000                  701 | ZO    DC      /8000      SECOND WORD OF 1 WORD NAME K0407010
                           702 | *                                                   K0407020
                           703 | *                  CHECKS THAT A PARAMETER NAME     K0407030
                           704 | *                  HAS NOT BEEN ENTERED INTO COMMON K0407040
7C0D C300                  705 | CHK   LD    3 0          LOAD SYMBOL TABLE ID WORD  K0407050
7C0E 1002                  706 |       SLA     2          IS IT IN COMMON            K0407060
7C0F 4828                  707 |       BSC     +Z         BRANCH IF NOT              K0407070
7C10 700C                  708 |       MDX     ER13       GO SET UP ERROR 13         K0407080
                           709 | *                                                   K0407090
                           710 | *                   SET UP ERRORS                   K0407100
7C11 C0F9                  711 | ER14  LD      ERR14      SET UP                     K0407110
7C12 D400 7A8C             712 |       STO  L  ERRNO      ERROR NO. 14          2-11 K0407120
7C14 700B                  713 |       MDX     CLOSE      CLOSE UP STRING            K0407130
7C15 C0F2                  714 | ER7   LD      ER7R       SET UP                     K0407140
7C16 D400 7A8C             715 |       STO  L  ERRNO      ERROR NO. 7           2-11 K0407150
7C18 7007                  716 |       MDX     CLOSE      CLOSE UP STRING            K0407160
7C19 C0EF                  717 | ER12  LD      ERR12      SET UP                     K0407170
7C1A D400 7A8C             718 |       STO  L  ERRNO      ERROR NO. 12          2-11 K0407180
7C1C 7003                  719 |       MDX     CLOSE      CLOSE UP STRING            K0407190
7C1D C0EC                  720 | ER13  LD      ERR13      SET UP                     K0407200
7C1E D400 7A8C             721 |       STO  L  ERRNO      ERROR NO. 13          2-11 K0407210
                           722 | *                                                   K0407220
7C20 4C00 7AA1             723 | CLOSE BSC  L  EROR      BRCH TO INSERT ERROR   2-11 K0407230
                           724 | *                                                   K0407240
                           725 | *                  BRANCHES TO THE ROL ROUTINE TO   K0407250
                           726 | *                  LOAD THE NEXT PHASE              K0407260
                           727 | *                                                   K0407270
7C22 6580 7C29             728 | SOS   LDX  I1 NXTPH+1    LOAD PARAM FOR READING     K0407280
7C24 C805                  729 |       LDD     NXTPH+2    NEXT PHASE                 K0407290
7C25 4C00 7FBC             730 |       BSC  L  ROL        GO TO READ NEXT PHASE      K0407300
7C28                       731 |       BSS  E  0                                     K0407310
7C28 0023                  732 | NXTPH DC      35         ID OF NEXT PHASE           K0407320
7C29                       733 |       BSS     3          LOADER TABLE FOR NEXT PHS  K0407330
                           734 | *                                                   K0407340
                           735 | *                  CONSTANTS                        K0407350
7C2C 7E00                  736 | H7E00 DC      /7E00      STMNT ID TYPE MASK         K0407360
7C2D 1200                  737 | H1200 DC      /1200      I                          K0407370
7C2E 1800                  738 | H1800 DC      /1800      N                          K0407380
7C2F 4080                  739 | H4080 DC      /4080      INTEGER SUBPROGRAM         K0407390
7C30 0080                  740 | H0080 DC      /0080      REAL SUBPROGRAM            K0407400
7C31 001E                  741 | SEMI  DC      /001E      SEMICOLON                  K0407410
7C32 FFF2                  742 | RPAR  DC      /1D-/2B    RIGHT PARENTHESIS          K0407420
7C33 000D                  743 | LPAR  DC      /0D        LEFT PARENTHESIS           K0407430
7C34 0002                  744 | TWOS  DC      2          TWO                        K0407440
7C35 0000                  745 | ASW2  DC      *-*        SWITCH 2A                  K0407450
7C36 0000                  746 | ASW3  DC      *-*        SWITCH 3A                  K0407460
7C37 0003                  747 | THREE DC      3          THREE                      K0407470
7C38 8001                  748 | SIGN1 DC      /8001      SIGN                       K0407480
                           749 | *                                                   K0407490
                           750 | *                  PLACES THE SUBP NAME INTO THE    K0407500
                           751 | *                  SYM TBL - PLACES THE ADDR OF THE K0407510
                           752 | *                  SYM TBL ENTRY INTO THE FORTRAN   K0407520
                           753 | *                  COMMUNICATIONS AREA (FNAME)      K0407530
7C39 C0CA                  754 | PLACQ LD      WRD2       LOAD SECOND WORD           K0407540
7C3A D302                  755 |       STO   3 2          PUT IN SYMBOL TABLE        K0407550
7C3B C0C7                  756 |       LD      WRD1       LOAD FIRST WORD            K0407560
7C3C D301                  757 |       STO   3 1          PUT IN SYMBOL TABLE        K0407570
                           758 | *                                                   K0407580
                           759 | *                  PUT SYMBOL TABLE ADDRESS IN      K0407590
                           760 | *                  COMMUNICATION AREA               K0407600
7C3D C400 7A26             761 |       LD   L  SOFST      FIND LOCATION OF PRESENT   K0407610
7C3F 90C7                  762 |       S       SAVE       ENTRY RELATIVE TO START    K0407620
7C40 1890                  763 |       SRT     16         OF SYMBOL TABLE            K0407630
7C41 A8F5                  764 |       D       THREE      GET ENTRY POSITION         K0407640
7C42 80F5                  765 |       A       SIGN1      GIVE SIGN                  K0407650
7C43 D400 7A2E             766 |       STO  L  FNAME      SAVE                       K0407660
                           767 | *                                                   K0407670
                           768 | *                                                   K0407680
7C45 C0EF                  769 |       LD      ASW2       IS IT REAL                 K0407690
7C46 4C18 7C4B             770 |       BSC  L  IGER,+-    BRANCH IF NOT              K0407700
                           771 | *                                                   K0407710
                           772 | *                                                   K0407720
7C48 1010                  773 |       SLA     16                                    K0407730
7C49 D0EB                  774 |       STO     ASW2       CLEAR REAL STMNT SW        K0407740
7C4A 7010                  775 |       MDX     REELQ      GO SET REAL SUBPROGRAM BIT K0407750
                           776 | *                                                   K0407760
                           777 | *                                                   K0407770
7C4B C0EA                  778 | IGER  LD      ASW3       ID IT INTEGER              K0407780
7C4C 4C18 7C51             779 |       BSC  L  PLAC1,+-   BRANCH IF NOT              K0407790
                           780 | *                                                   K0407800
                           781 | *                                                   K0407810
7C4E 1010                  782 |       SLA     16                                    K0407820
7C4F D0E6                  783 |       STO     ASW3       CLEAR INTEGER STMNT SW     K0407830
7C50 7008                  784 |       MDX     PLAC1+8    GO SET INTEGER SUBPRG BITS K0407840
                           785 | *                                                   K0407850
                           786 | *                  SET THE SUBP AND TYPE INDRS IN   K0407860
                           787 | *                  THE SYM TBL ID WORD OF A SUBP    K0407870
                           788 | *                  SUBP NAME FOUND IN A SUBP, FUNC, K0407880
                           789 | *                  REAL FUNCTION, OR INTEGER FUNC   K0407890
                           790 | *                  STMNT - CHECKS FOR A SYM TBL     K0407900
                           791 | *                  OVERLAP                          K0407910
7C51 C0B1                  792 | PLAC1 LD      WRD1       LOAD FIRST WORD            K0407920
7C52 E0D9                  793 |       AND     H7E00      CLEAR ALL BUT FIRST WORD   K0407930
7C53 90D9                  794 |       S       H1200      IS IT LESS THAN I          K0407940
7C54 4828                  795 |       BSC     +Z         SKIP IF YES                K0407950
7C55 7005                  796 |       MDX     REELQ      GO SET REAL SUBP BITS      K0407960
7C56 90D7                  797 |       S       H1800      IS IT N OR LESS            K0407970
7C57 4C30 7C5B             798 |       BSC  L  REELQ,Z-   BRANCH IF NOT              K0407980
7C59 C0D5                  799 |       LD      H4080      SET INTEGER SUBPRG BITS    K0407990
7C5A 7001                  800 |       MDX     VIPQ       SET INTEGER SUBP BITS      K0408000
7C5B C0D4                  801 | REELQ LD      H0080      SET REAL SUBPROGRAM BITS   K0408010
7C5C D300                  802 | VIPQ  STO   3 0          PUT IN SYMBOL TABLE        K0408020
7C5D 73FD                  803 |       MDX   3 -3         MOVE SYMBOL TABLE POINTER  K0408030
7C5E 6F00 7A2A             804 |       STX  L3 EOFST      NEW END OF SYMBOL TABLE    K0408040
7C60 74FD 7A28             805 |       MDX  L  SOFXT,-3   MOVE SYMBOL                K0408050
7C62 74FD 7A29             806 |       MDX  L  SOFGT,-3   TABLE ADDRESSES            K0408060
                           807 | *                                                   K0408070
                           808 | *                  SYMBOL TABLE OVERLAP             K0408080
7C64 C400 7A2A             809 |       LD   L  EOFST      LOAD END OF SYMBOL TABLE   K0408090
7C66 80CD                  810 |       A       TWOS       ADD TWO                    K0408100
7C67 9400 7A25             811 |       S    L  EOFS       SUBTRACT END OF STRING     K0408110
7C69 4C28 7CDD             812 |       BSC  L  JIMMY,+Z   BRANCH IF OVERLAP ERROR    K0408120
                           813 | *                                                   K0408130
                           814 | *                                                   K0408140
7C6B 7101                  815 | SLOP  MDX   1 1          MOVE POINTER               K0408150
                           816 | *                                                   K0408160
                           817 | *                                                   K0408170
                           818 | *                  CHECKS FOR A LEFT PARENTHESIS OR K0408180
                           819 | *                  A STMNT TERMINATOR FOLLOWING THE K0408190
                           820 | *                  SUBP NAME                        K0408200
7C6C C100                  821 | DTB   LD    1 0          LOAD WORD                  K0408210
7C6D 90C3                  822 |       S       SEMI       IS CHARACTER SEMI-COLON    K0408220
7C6E 4C18 7CD4             823 |       BSC  L  RMV,+-     BRANCH IF YES              K0408230
                           824 | *                                                   K0408240
                           825 | *                                                   K0408250
7C70 C034                  826 |       LD      ASW1       RIGHT PARENTHESIS FOUND    K0408260
7C71 4C20 7C19             827 |       BSC  L  ER12,Z     BRANCH IF YES              K0408270
                           828 | *                                                   K0408280
                           829 | *                                                   K0408290
7C73 C100                  830 |       LD    1 0          LOAD WORD                  K0408300
7C74 90BE                  831 |       S       LPAR       IS CHARACTER LEFT PAREN    K0408310
7C75 4C20 7C19             832 |       BSC  L  ER12,Z     BRANCH IF NOT              K0408320
                           833 | *                                                   K0408330
                           834 | *                                                   K0408340
7C77 7101                  835 | FLIP  MDX   1 1          MOVE POINTER               K0408350
                           836 | *                                                   K0408360
                           837 | *                  CHECKS FOR A VALID PARAM NAME    K0408370
7C78 C100                  838 | FLOP  LD    1 0          LOAD WORD                  K0408380
7C79 4C10 7C15             839 |       BSC  L  ER7,-      ERROR IF OPERATOR      2-4 K0408390
7C7B 1002                  840 |       SLA     2          ERROR IF NOT           2-4 K0408400
7C7C 4C2A 7C15             841 |       BSC  L  ER7,C+Z    ALPHABETIC CHARACTER   2-4 K0408410
7C7E C100                  842 |       LD    1 0          LOAD WORD AGAIN        2-4 K0408420
7C7F D01F                  843 |       STO     WDD1       SAVE WORD                  K0408430
7C80 C101                  844 |       LD    1 1          LOAD 2ND WORD              K0408440
7C81 4C28 7C87             845 |       BSC  L  SADS,+Z    BRANCH IF PART OF NAME     K0408450
7C83 C400 7C0C             846 |       LD   L  ZO         LOAD ZEROS AS 2ND WORD     K0408460
7C85 D01A                  847 |       STO     WDD2       STORE                      K0408470
7C86 7005                  848 |       MDX     ZARRO      GO PUT IN SYMBOL TABLE     K0408480
7C87 D018                  849 | SADS  STO     WDD2       STORE 2ND WORD             K0408490
7C88 7101                  850 |       MDX   1 1          MOVE POINTER               K0408500
7C89 C101                  851 |       LD    1 1          LOAD NEXT WORD             K0408510
7C8A 4C28 7C15             852 |       BSC  L  ER7,+Z     BRANCH NOT SPECIAL CHAR    K0408520
                           853 | *                                                   K0408530
                           854 | *                  SCANS THE SYM TBL FOR            K0408540
                           855 | *                  DUPLICATION OF A VAR NAME        K0408550
7C8C 6780 7A27             856 | ZARRO LDX  I3 SOFNS      LOAD START OF CHECK ADDR   K0408560
7C8E 7009                  857 |       MDX     CAKE       START LOOP                 K0408570
7C8F C301                  858 | LIPS  LD    3 1          DOES FIRST WORD OF NAME    K0408580
7C90 900E                  859 |       S       WDD1       MATCH 1ST WORD OF TABLE    K0408590
7C91 4820                  860 |       BSC     Z          SKIP IF YES                K0408600
7C92 7004                  861 |       MDX     CLET       GET NEXT SYMBOL TBL ENTRY  K0408610
7C93 C302                  862 |       LD    3 2          DOES 2ND WORD MATCH 2ND    K0408620
7C94 900B                  863 |       S       WDD2       WORD OF SYMBOL TBL ENTRY   K0408630
7C95 4C18 7C0D             864 |       BSC  L  CHK,+-     BRANCH IF YES              K0408640
7C97 73FD                  865 | CLET  MDX   3 -3         MOVE PT TO NEXT TBL ENTRY  K0408650
7C98 6B08                  866 | CAKE  STX   3 SIV        SAVE TABLE POINTER         K0408660
7C99 C007                  867 |       LD      SIV        LOAD ENTRY ADDRESS         K0408670
7C9A 9400 7A2A             868 |       S    L  EOFST      SUBTRACT END OF TABLE      K0408680
7C9C 4820                  869 |       BSC     Z          SKIP IF FINISHED CHECK     K0408690
7C9D 70F1                  870 |       MDX     LIPS       CONTINUE LOOP              K0408700
7C9E 7008                  871 |       MDX     PIECE      PUT NAME IN SYMBOL TABLE   K0408710
                           872 | *                                                   K0408720
                           873 | *                  CONSTANTS                        K0408730
7C9F 0000                  874 | WDD1  DC      0          TEMPORARY STORAGE FOR      K0408740
7CA0 0000                  875 | WDD2  DC      0          SYMBOL TABLE ENTRY         K0408750
7CA1 0000                  876 | SIV   DC      0          TEMPORARY STORAGE          K0408760
7CA2 4400                  877 | IDCII DC      /4400      INTEGER FUNCTION           K0408770
7CA3 0400                  878 | IDCRR DC      /0400      REAL FUNCTION              K0408780
7CA4 002B                  879 | COMA  DC      /2B        COMMA                      K0408790
7CA5 0000                  880 | ASW1  DC      0          SWITCH 1A                  K0408800
7CA6 000F                  881 | ERR15 DC      15         ERROR NO. 15               K0408810
                           882 | *                                                   K0408820
                           883 | *                  PLACES THE PARAM NAME INTO THE   K0408830
                           884 | *                  SYM TBL - SETS THE PARAM AND     K0408840
                           885 | *                  TYPE INDICATORS IN THE SYM TBL - K0408850
                           886 | *                  CHECKS FOR A SYM TBL OVERLAP     K0408860
                           887 | *                  CHECKS FOR A COMMA OR RIGHT      K0408870
                           888 | *                  PARENTHESIS                      K0408880
7CA7 C0F8                  889 | PIECE LD      WDD2       LOAD 2ND WORD              K0408890
7CA8 D302                  890 |       STO   3 2          PUT IN SYMBOL TABLE        K0408900
7CA9 C0F5                  891 |       LD      WDD1       LOAD 1ST WORD              K0408910
7CAA D301                  892 |       STO   3 1          PUT IN SYMBOL TABLE        K0408920
                           893 | *                                                   K0408930
                           894 | *                  INDICATE TYPE AND                K0408940
                           895 | *                  FORMAL PARAMETER                 K0408950
7CAB C0F3                  896 |       LD      WDD1       LOAD FIRST WORD            K0408960
7CAC E400 7C2C             897 |       AND  L  H7E00      GET FIRST CHARACTER        K0408970
7CAE 9400 7C2D             898 |       S    L  H1200      IS IT LESS THAN I          K0408980
7CB0 4828                  899 |       BSC     +Z         SKIP IF NO                 K0408990
7CB1 7006                  900 |       MDX     KEEL       SET REAL INDICATORS        K0409000
7CB2 9400 7C2E             901 |       S    L  H1800      IS IT GREATER THAN N       K0409010
7CB4 4C30 7CB8             902 |       BSC  L  KEEL,Z-    BRANCH IF YES              K0409020
7CB6 C0EB                  903 |       LD      IDCII      LOAD INTEGER FUNCTION ID   K0409030
7CB7 7001                  904 |       MDX     HIPS       GO PUT IN SYMBOL TABLE     K0409040
7CB8 C0EA                  905 | KEEL  LD      IDCRR      LOAD REAL FUNCTION ID      K0409050
7CB9 D300                  906 | HIPS  STO   3 0          PUT IN SYMBOL TABLE        K0409060
7CBA 73FD                  907 |       MDX   3 -3         MOVE POINTER               K0409070
7CBB 6F00 7A2A             908 |       STX  L3 EOFST      NEW END OF SYMBOL TABLE    K0409080
7CBD 74FD 7A28             909 |       MDX  L  SOFXT,-3   MODIFY SYMBOL              K0409090
7CBF 74FD 7A29             910 |       MDX  L  SOFGT,-3   TABLE ADDRESSES            K0409100
                           911 | *                                                   K0409110
                           912 | *                  SYMBOL TABLE OVERLAP             K0409120
7CC1 C400 7A2A             913 |       LD   L  EOFST      LOAD END OF SYMBOL TABLE   K0409130
7CC3 8400 7C34             914 |       A    L  TWOS       ADD TWO                    K0409140
7CC5 9400 7A25             915 |       S    L  EOFS       SUBTRACT END OF STRING     K0409150
7CC7 4C28 7CDD             916 |       BSC  L  JIMMY,+Z   BRANCH IF OVERLAP          K0409160
                           917 | *                                                   K0409170
                           918 | *                                                   K0409180
7CC9 7101                  919 |       MDX   1 1          MOVE STRING POINTER        K0409190
                           920 | *                                                   K0409200
                           921 | *                                                   K0409210
7CCA C100                  922 |       LD    1 0          LOAD WORD                  K0409220
7CCB 90D8                  923 |       S       COMA       IS CHARACTER COMMA         K0409230
7CCC 4C18 7C77             924 |       BSC  L  FLIP,+-    BRANCH IF YES              K0409240
                           925 | *                                                   K0409250
                           926 | *                                                   K0409260
7CCE 9400 7C32             927 |       S    L  RPAR       IS CHARACTER RIGHT PAREN   K0409270
7CD0 4C20 7C19             928 |       BSC  L  ER12,Z     BRANCH IF NOT              K0409280
                           929 | *                                                   K0409290
                           930 | *                                                   K0409300
7CD2 68D2                  931 |       STX   0 ASW1       SET RIGHT PARENTHESIS SW   K0409310
7CD3 7097                  932 |       MDX     SLOP       CHECK REST OF STMNT        K0409320
                           933 | *                                                   K0409330
7CD4 C400 7BFB             934 | RMV   LD   L  SW5A      IS FIO STMNT PRESENT   2-11 K0409340
7CD6 4C18 7A9F             935 |       BSC  L  REMOV,+-  BRCH IF NOT            2-11 K0409350
7CD8 C0CD                  936 |       LD      ERR15     IF PRESENT             2-11 K0409360
7CD9 D400 7A8C             937 |       STO  L  ERRNO     SET ERROR TO 15        2-11 K0409370
7CDB 4C00 7AA1             938 |       BSC  L  EROR      AND INSERT ON STRING   2-11 K0409380
                           939 | *                                                   K0409390
                           940 | *                                                   K0409400
7CDD 7401 7A2D             941 | JIMMY MDX  L  ERROR,1    SET OVERLAP ERROR INDR     K0409410
7CDF 6400 7C22             942 |       LDX  L  SOS        GO TO END OF PHASE         K0409420
7CE1                       943 |       BSS     BPHAR+PHLEN*320-1-*  PATCH AREA       K0409430
7DF5 0000                  944 |       DC      0                                     K0409440
7DF6                       945 |       END     BPHAR-2                               K0409450
 
There were no errors in this assembly
 
=== CROSS REFERENCES ==========================================================
Name  Val   Defd  Referenced
$PHSE 0078    92  156
AOT   7B1F   434  428
AOT1  7B20   435  463
ASW1  7CA5   880  826  931
ASW2  7C35   745  613  769  774
ASW3  7C36   746  604  778  783
BPHAR 7A36   139  943  945
CAKE  7C98   866  857
CCWD  7A31   112
CHK   7C0D   705  672  864
CLET  7C97   865  861
CLOSE 7C20   723  713  716  719
CNT   7B07   402  409  471  478  526  556
COMA  7CA4   879  923
COMAC 7AFE   393  366  517  521
COMMC 7A38   148  174
COMON 7A2B   106
CONST 7AF6   385  352
COT1  7B02   397  435
COT2  7B03   398  442
CSIZE 7A2C   107
DD1   7AF2   380  368
DD2   7A5F   208  193  381
DD3   7AEA   365  542
DFCNT 7A33   132
DO2   7BD4   646  634  641
DO3   7BCC   638  592
DTB   7C6C   821
EAT   7A7C   238  233
EATQ  7BF1   673  669
ENDC  7A39   149  170
EOFS  7A25   100  302  317  353  537  811  915
EOFST 7A2A   105  241  346  351  530  535  676  804  809  868  908  913
ER12  7C19   717  827  832  928
ER13  7C1D   720  708
ER14  7C11   711
ER7   7C15   714  650  660  839  841  852
ER7R  7C08   697  714
ERAH  7A9C   275  210  213  222
EROR  7AA1   286  268  271  274  277  723  938
ERR10 7A8D   257  269
ERR11 7A8E   258  266
ERR12 7C09   698  717
ERR13 7C0A   699  720
ERR14 7C0B   700  711
ERR15 7CA6   881  936
ERR7  7A8F   259  275
ERR8  7A90   260  272
ERRID 7A91   261  296
ERRNO 7A8C   256  267  270  273  276  280  298  712  715  718  721  937
ERROR 7A2D   108  160  548  563  941
FIOC  7BFC   685  573
FIX   7A53   189  176
FLIP  7C77   835  924
FLOP  7C78   838
FNAME 7A2E   109  766
FUNC1 7BFF   688  617
FUNC2 7C00   689  620
FUNC3 7C01   690  623
FUNC4 7C02   691  626
GEEP  7A99   272  418  433  440  441  444  452  454  457  475  494  503  523
                  559
H0080 7C30   740  801
H1200 7C2D   737  794  898
H1800 7C2E   738  797  901
H4080 7C2F   739  799
H7E00 7C2C   736  793  897
HACK  7BF2   674  665
HELP  7A93   266  236
HELP1 7B04   399  448  456
HIPS  7CB9   906  904
IDADR 7A87   251  189  286  292  303  628  646
IDCI  7AFB   390  342
IDCII 7CA2   877  903
IDCR  7AFC   391  344
IDCRR 7CA3   878  905
IDNRM 7A83   247  181  289
IDNVQ 7C05   694  580
IDTPE 7A3A   150  169
IDTPQ 7C06   695  597
IGER  7C4B   778  770
INTC  7BFE   687  600
IOCS  7A32   121
JACK  7A7D   239  227
JIMMY 7CDD   941  812  916
JIMY  7B85   548  354  538
KEEL  7CB8   905  900  902
LIPS  7C8F   858  870
LOOP  7A74   229  243
LOOP1 7AB9   310  315
LOP   7BE9   666  678
LPAR  7C33   743  831
MAD   7A6C   219  215
MADS  7BE1   657  653
MEMRY 8000    89   90   91
MV    7A4C   179
NEX   7B44   471  439
NEXP  7B67   513  486  498
NINT  7B05   400  443  445
NORM2 7A85   249  192  202  374
NRMSV 7AF5   384  291  304
NXID  7A50   183  182
NXTPH 7C28   732  142  728  729
NXTPQ 7B87   551  161  171
O2    7B53   488  481
O3    7B60   500  490
OKJOE 7A36   145
ORG   7A23    98
OVERL 7A23    90   94
PARNL 7AFD   392  361
PARNR 7B08   403  522
PH    7A3B   155  145
PHID  0022    95  155
PHLEN 0003    93  943
PIECE 7CA7   889  871
PILL  7B28   441  438
PIT   7AF7   386  416  417
PIT1  7AF8   387  336
PLAC1 7C51   792  779  784
PLACE 7AC8   329  244
PLACQ 7C39   754  679
PRTE  7B09   408  362  558
PTB   7A58   197  375
REALC 7BFD   686  598
REEL  7AD6   344  339  341
REELQ 7C5B   801  775  796  798
REMOV 7A9F   279  199  935
RGTI  7AF9   388  337
RGTN  7AFA   389  340
RMV   7CD4   934  823
ROL   7FBC    91  730
RPAR  7C32   742  927
SADS  7C87   849  845
SAVE  7C07   696  674  675  762
SAVEQ 7A8B   255  239  240
SAVX1 7AC1   318  308
SEMI  7C31   741  822
SEMIC 7A84   248  198
SETUP 7A96   269  203
SF1   7BF9   682  640
SF2   7BFA   683  642
SIGN1 7C38   748  765
SIV   7CA1   876  866  867
SLOP  7C6B   815  932
SOFGT 7A29   104  348  532  806  910
SOFNS 7A27   102  226  664  856
SOFS  7A24    99  157  567
SOFST 7A26   101  761
SOFXT 7A28   103  347  531  805  909
SORF  7A30   111  591  633
SOS   7C22   728  321  564  601  618  621  624  627  643  942
STAR1 7BA4   591  574
STARF 7B97   571  584
START 7B8F   563  551
SUMM  7B06   401  423  449  458  474  482  492  501
SW2   7A86   250  373  479  488
SW5   7A88   252  320  568
SW5A  7BFB   684  576  934
TCNT  7B88   556  518
TEM   7B00   395  426  430  434  460  462
TEMPT 7B42   466  451  455
THRE  7B43   467  557
THREE 7C37   747  764
TRY   7BB4   613  599  605
TST   7A43   167  184  322
TWO   7B84   545  536
TWOS  7C34   744  810  914
VIP   7AD7   345  343
VIPQ  7C5C   802  800
WD1   7A89   253  211  230  331  335
WD2   7A8A   254  217  219  235  329
WDD1  7C9F   874  843  859  891  896
WDD2  7CA0   875  847  849  863  889
WRD1  7C03   692  651  667  756  792
WRD2  7C04   693  655  657  671  754
ZARRO 7C8C   856  848
ZERO  7A92   262  216
ZO    7C0C   701  654  846
ZOR   7BE6   664  656
ZORRO 7A71   226  218