KFORPH18

Table Of Contents
  • [00004] 1130 FORTRAN COMPILER PHASE 18
kforph18.lst
ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov  1 19:25:06 2020
 
Source File: \kforph18.asm 
1130 FORTRAN COMPILER PHASE 18
 
                             2 | *************************************************** K1800020
                             3 | *STATUS - VERSION 2, MODIFICATION 11              * K1800030
                             4 | *                                                 * K1800040
                             5 | *FUNCTION/OPERATION-                              * K1800050
                             6 | *   * REPLACES ARITHMETIC, STMNT FUNCTION, CALL,  * K1800060
                             7 | *     AND IF STATEMENTS NOT INVOLVING SUBSCRIPTED * K1800070
                             8 | *     VARIABLES BY COMPILER-GENERATED CODING      * K1800080
                             9 | *   * COMPLETES THE REPLACEMENT OF ARITHMETIC,    * K1800090
                            10 | *     STMNT FUNCTION, CALL, AND IF STMNTS THAT DO * K1800100
                            11 | *     INVOLVE SUBSCRIPTED VARIABLES BY COMPILER-  * K1800110
                            12 | *     GENERATED CODING.                           * K1800120
                            13 | *   * OPTIMIZES IF STMNT BRANCH INSTRUCTIONS.     * K1800130
                            14 | *   * HANDLES MIXED MODE ARITHMETIC               * K1800140
                            15 | *                                                 * K1800150
                            16 | *ENTRY POINTS-                                    * K1800160
                            17 | *   ENQ-PHASE 18 IS READ INTO CORE BY PHASE 17    * K1800170
                            18 | *       AND EXECUTION BEGUN AT LOCATION ENQ.      * K1800180
                            19 | *                                                 * K1800190
                            20 | *INPUT-                                           * K1800200
                            21 | *   NONE IN THE USUAL SENSE. HOWEVER, THE STMNT   * K1800210
                            22 | *   STRING SCANNED BY THE COMPILER MAY BE         * K1800220
                            23 | *   CONSIDERED INPUT.                             * K1800230
                            24 | *                                                 * K1800240
                            25 | *OUTPUT-                                          * K1800250
                            26 | *   NONE IN THE USUAL SENSE. HOWEVER, THE STMNT   * K1800260
                            27 | *   STRING AND THE SYMBOL TABLE ALTERED BY THE    * K1800270
                            28 | *   COMPILER MAY BE CONSIDERED OUTPUT.            * K1800280
                            29 | *                                                 * K1800290
                            30 | *EXTERNAL REFERENCES-N/A                          * K1800300
                            31 | *                                                 * K1800310
                            32 | *EXITS-                                           * K1800320
                            33 | *   NORMAL-                                       * K1800330
                            34 | *      PHASE EXITS NORMALLY IF OVERLAP ERROR IS   * K1800340
                            35 | *      NOT FOUND. PHASE 19 IS LOADED AND EXECUTED * K1800350
                            36 | *   ERROR-                                        * K1800360
                            37 | *      IF AN OVERLAP ERROR OCCURS, COMPILATION IS * K1800370
                            38 | *      ABORTED AND CONTROL IS PASSED FROM PHASE   * K1800380
                            39 | *      TO SUCCEEDING PHASE UNTIL AN OUTPUT PHASE  * K1800390
                            40 | *      IS REACHED WHICH CAN PRINT AN ERROR MESSAGE* K1800400
                            41 | *      NO ERRORS ARE DETECTED IN PHASE 18.        * K1800410
                            42 | *                                                 * K1800420
                            43 | *TABLES/WORK AREAS-                               * K1800430
                            44 | *   NONE EXCEPT STATEMENT STRING AREA, SYMBOL     * K1800440
                            45 | *   TABLE, AND FORTRAN COMMUNICATION AREA         * K1800450
                            46 | *                                                 * K1800460
                            47 | *ATTRIBUTES-N/A                                   * K1800470
                            48 | *                                                 * K1800480
                            49 | *NOTES-                                           * K1800490
                            50 | *   THE SWITCHES USED IN PHASE 18 FOLLOW. IF      * K1800500
                            51 | *   POSITIVE, THE SWITCH IS TRANSFER=T. IF ZERO,  * K1800510
                            52 | *   THE SWITCH IS NORMAL=N. IF MINUS, THE SWITCH  * K1800520
                            53 | *   IS NEGATIVE=M.                                * K1800530
                            54 | *      * MODSW-MODE OF ARITHMETIC                 * K1800540
                            55 | *              N=SWITCH NOT SET.                  * K1800550
                            56 | *              T=FIXED MODE ARITHMETIC            * K1800560
                            57 | *              M=FLOATING MODE ARITHMETIC         * K1800570
                            58 | *      * STNCH-STATEMENT NUMBER                   * K1800580
                            59 | *              N=STMNT HAS NO STMNT NUMBER        * K1800590
                            60 | *              T=STMNT HAS STMNT NUMBER           * K1800600
                            61 | *      * TEMP -OUTPUT SWITCH                      * K1800610
                            62 | *              T=OUTPUT PROCESSED PARTS OF STMNT  * K1800620
                            63 | *                WHILE SEARCHING FOR NEXT NOT     * K1800630
                            64 | *                PROCESSED OPTR IN SUBROUTINE     * K1800640
                            65 | *                FINDN                            * K1800650
                            66 | *************************************************** K1800660
                            67 |       ABS                                           K1800670
                            68 | *                                                   K1800680
                            69 | *                       SYSTEM EQUATES              K1800690
8000                        70 | MEMRY EQU     /8000                                 K1800700
7A24                        71 | OVERL EQU     MEMRY-1500 START OF FCOM              K1800710
7FBC                        72 | ROL   EQU     MEMRY-68   LOCN OF RTN TO READ NXT PH K1800720
0078                        73 | $PHSE EQU     /78        NO. OF PHASE NOW IN CORE   K1800730
7A24                        74 |       ORG     OVERL                                 K1800740
0030                        75 | PHID  EQU     48         ID NUMBER THIS PHASE       K1800750
                            76 | **************************************************  K1800760
                            77 | *                                                   K1800770
                            78 | *                  FORTRAN COMMUNICATION AREA       K1800780
                            79 | *                                                   K1800790
7A24                        80 | SOFS  BSS     1    START OF STRING                  K1800800
7A25                        81 | EOFS  BSS     1    END OF STRING                    K1800810
7A26                        82 | SOFST BSS     1    START OF SYMBOL TABLE            K1800820
7A27                        83 | SOFNS BSS     1    START OF NON-STATEMENT NUMBERS   K1800830
7A28                        84 | SOFXT BSS     1    START OF SUBSCRIPT TEMPORARIES   K1800840
7A29                        85 | SOFGT BSS     1    START OF GENERATED TEMPORARIES   K1800850
7A2A                        86 | EOFST BSS     1    END OF SYMBOL TABLE              K1800860
7A2B                        87 | COMON BSS     1    NEXT AVAILABLE COMMON            K1800870
7A2C                        88 | CSIZE BSS     1    SIZE OF COMMON                   K1800880
7A2D                        89 | ERROR BSS     1    OVERLAP ERROR                    K1800890
                            90 | *                BIT 8 S/T EXCEEDS MAX LIMIT   2-11 K1800892
7A2E                        91 | FNAME BSS     1    PROGRAM NAME                     K1800900
7A2F                        92 |       BSS     1                                     K1800910
7A30                        93 | SORF  BSS     1    SUBROUTINE(-) OR FUNCTION(+)     K1800920
7A31                        94 | CCWD  BSS     1    CONTROL CARD WORD                K1800930
                            95 | *                BIT 15 TRANSFER TRACE              K1800940
                            96 | *                BIT 14 ARITHMETIC TRACE            K1800950
                            97 | *                BIT 13 EXTENDED PRECISION          K1800960
                            98 | *                BIT 12 LIST SYMBOL TABLE           K1800970
                            99 | *                BIT 11 LIST SUBPROGRAM NAMES       K1800980
                           100 | *                BIT 10 LIST SOURCE PROGRAM         K1800990
                           101 | *                BIT  9 ONE WORD INTEGERS           K1801000
7A32                       102 | IOCS  BSS     1    IOCS CONTROL CARD WORD           K1801010
                           103 | *                BIT 15 CARD                        K1801020
                           104 | *                BIT 14 PAPER TAPE                  K1801030
                           105 | *                BIT 13 TYPEWRITER                  K1801040
                           106 | *                BIT 12 1403 PRINTER                K1801050
                           107 | *                BIT 11 2501 READER                 K1801060
                           108 | *                BIT 10 KEYBOARD                    K1801070
                           109 | *                BIT  9 1442 PUNCH                  K1801080
                           110 | *                BIT  8 DISK                        K1801090
                           111 | *                BIT  7 1132 PRINTER                K1801100
                           112 | *                BIT  3 PLOTTER                     K1801110
7A33                       113 | DFCNT BSS     1                                     K1801120
                           114 | *                                                   K1801130
                           115 | *                                                   K1801140
                           116 | *                  END OF FORTRAN COMMUNICATION     K1801150
                           117 | *                  AREA                             K1801160
                           118 | *                                                   K1801170
7A36                       119 | BPHAR EQU     *+2      BEGIN PHASE AREA             K1801180
7A34 0000                  120 |       DC      0        LOADER WORK AREA             K1801190
7A35 FFD0                  121 |       DC      -48      -PHASE ID FOR SLET LOOKUP    K1801200
7A36 0462                  122 |       DC      NXTPH-*+1  TABLE FOR NEXT PHASE ENTRY K1801210
7A37 0001                  123 |       DC      1        ONE ENTRY TO BE SET BY LDR   K1801220
7A36                       124 |       ORG     *-2                                   K1801230
7A36 6130                  125 | ENT   LDX   1 PHID     GET ID THIS PHASE            K1801240
7A37 6D00 0078             126 |       STX  L1 $PHSE    STORE IN SYSTEM PHASE AREA   K1801250
7A39 C0F3                  127 |       LD      ERROR    IS THERE OVERLAP ERROR       K1801260
7A3A 4C20 7E85             128 |       BSC  L  EXIT,Z   BRANCH IF YES                K1801270
7A3C C0E8                  129 | START LD      EOFS     LOAD END OF STRING ADDR      K1801280
7A3D 90E6                  130 |       S       SOFS     SUBTRACT START OF STRING     K1801290
7A3E 4C00 7C5C             131 |       BSC  L  CONT     CONTINUE PROGRAM INITIALIZE  K1801300
                           132 | *                                                   K1801310
                           133 | *                                                   K1801320
                           134 | *                                                   K1801330
7A40 6580 7C65             135 | P1011 LDX  I1 SOFIS    INITIALIZE STRING I/P PT     K1801340
7A42 6680 7A24             136 |       LDX  I2 SOFS     INITIALIZE STRING O/P PT     K1801350
7A44 72FF                  137 |       MDX   2 -1                                    K1801360
                           138 | *                                                   K1801370
                           139 | *             EXTRACTS THE STMNT ID TYPE            K1801380
                           140 | *             EXTRACTS THE STMNT ID TYPE            K1801390
7A45 7101                  141 | P1021 MDX   1 1        MOVE STRING I/P PT           K1801400
7A46 7201                  142 |       MDX   2 1        MOVE STRING O/P PT           K1801410
7A47 C100                  143 | P1022 LD    1 0        LOAD STMNT ID WORD           K1801420
7A48 E3EE                  144 |       AND   3 HF803-Z  ELIMINATE NORM IN ID WORD    K1801430
7A49 8304                  145 |       A     3 FOUR-Z   ADD ONE TO NORM              K1801440
7A4A D200                  146 |       STO   2 0        PUT ON OUTPUT STRING         K1801450
7A4B E305                  147 |       AND   3 HF800-Z  GET ID TYPE                  K1801460
7A4C D3BE                  148 |       STO   3 STTYP-Z  SAVE ID TYPE                 K1801470
7A4D 6E00 7C58             149 |       STX  L2 OUTID    SAVE ADDR OF O/P ID          K1801480
7A4F 6D00 7C67             150 |       STX  L1 INID     SAVE ADDR OF I/P ID          K1801490
7A51 7101                  151 |       MDX   1 1        MOVE I/P STRING PT           K1801500
7A52 C1FF                  152 |       LD    1 -1       LOAD STMNT ID WORD           K1801510
7A53 4C04 7A56             153 |       BSC  L  P1023,E  BRANCH IF HAVE STMNT NO.     K1801520
7A55 7009                  154 |       MDX     P1031    TEST STMNT TYPE              K1801530
                           155 | *                                                   K1801540
7A56 C304                  156 | P1023 LD    3 FOUR-Z   INCREMENT NORM               K1801550
7A57 8480 7C58             157 |       A    I  OUTID    BY ONE                       K1801560
7A59 D480 7C58             158 |       STO  I  OUTID    PUT BACK ON OUTPUT STRING    K1801570
7A5B 7101                  159 |       MDX   1 1        MOVE I/P PT                  K1801580
7A5C 7201                  160 |       MDX   2 1        MOVE O/P PT                  K1801590
7A5D C1FF                  161 |       LD    1 -1       LOAD STMNT NO.               K1801600
7A5E D200                  162 |       STO   2 0        PUT ON OUTPUT STRING         K1801610
                           163 | *             CHECKS FOR A CALL, IF, ARITHMETIC, OR K1801620
                           164 | *             STMNT FUNCTION STATEMENT              K1801630
7A5F C300                  165 | P1031 LD    3 0                                     K1801640
7A60 D3BD                  166 |       STO   3 MODSW-Z  ZERO MODE SWITCH             K1801650
                           167 | *                                                   K1801660
                           168 | *             TEST IF ARITHMETIC STMNT FUNCTION     K1801670
7A61 C3BE                  169 |       LD    3 STTYP-Z  LOAD STMNT ID TYPE           K1801680
7A62 9315                  170 |       S     3 HD000-Z  IS IT ARITHMETIC STMNT FUNC  K1801690
7A63 4C18 7AA0             171 |       BSC  L  P1052,+- BRANCH IF YES                K1801700
7A65 C3BE                  172 |       LD    3 STTYP-Z  LOAD STMNT ID TYPE           K1801710
7A66 93E1                  173 |       S     3 READ-Z   SUBTRACT READ CONSTANT       K1801720
7A67 4820                  174 |       BSC     Z        SKIP IF READ                 K1801730
7A68 93E5                  175 |       S     3 FIND-Z   TEST FOR FIND STATEMENT      K1801740
7A69 4820                  176 |       BSC     Z        SKIP IF FIND OR READ         K1801750
7A6A 93E7                  177 |       S     3 WRITE-Z  TEST FOR WRITE               K1801760
7A6B 4C20 7A7E             178 |       BSC  L  HERE,Z   BR IF NOT I/O(RD-WRITE-FIND) K1801770
7A6D C100                  179 |       LD    1 0        LOAD 2ND WD I/P STRING       K1801780
7A6E 9318                  180 |       S     3 H0054-Z  IS IT EXPRESSION OPERATOR    K1801790
7A6F 4C20 7A73             181 |       BSC  L  A7A72,Z  BRANCH IF NOT                K1801800
7A71 7101                  182 |       MDX   1 1        MOVE I/P STRING PT           K1801810
7A72 7031                  183 |       MDX     P2011    BR TO CONTINUE PROCESSING    K1801820
7A73 C100                  184 | A7A72 LD    1 0        LOAD WORD                    K1801830
7A74 931C                  185 |       S     3 LIBFR-Z  IS IT LIBF READ              K1801840
7A75 4820                  186 |       BSC     Z        SKIP IF YES                  K1801850
7A76 9316                  187 |       S     3 H0080-Z  IS IT LIBF WRITE             K1801860
7A77 4820                  188 |       BSC     Z        SKIP IF YES                  K1801870
7A78 931D                  189 |       S     3 LIBFF-Z  IS IT LIBF FIND              K1801880
7A79 4C20 7A7E             190 |       BSC  L  HERE,Z   BRANCH IF NOT                K1801890
7A7B 71FF                  191 |       MDX   1 -1       DECREMENT STRING I/P PT      K1801900
7A7C 4C00 7E54             192 |       BSC  L  D5011    CHECK REST OF STMNT          K1801910
                           193 | *                                                   K1801920
7A7E C3BE                  194 | HERE  LD    3 STTYP-Z  LOAD STMNT ID TYPE           K1801930
7A7F 4818                  195 |       BSC     +-       SKIP IF NOT ARITH STMNT      K1801940
7A80 7023                  196 |       MDX     P2011    BRANCH IF ARITHMETIC STMNT   K1801950
7A81 9306                  197 |       S     3 TCALL-Z  IS IT CALL STMNT             K1801960
7A82 4C18 7AA4             198 |       BSC  L  P2011,+- BRANCH IF YES                K1801970
7A84 9307                  199 |       S     3 H4800-Z  IS IT IF STMNT               K1801980
7A85 4C18 7AA4             200 |       BSC  L  P2011,+- BRANCH IF YES                K1801990
                           201 | *                                                   K1802000
                           202 | *             MOVES THE STMNT TO THE O/P STRING     K1802010
                           203 | *             UNALTERED. DETERMINES IF THE LAST     K1802020
                           204 | *             STMNT WAS AN END STMNT                K1802030
7A87 6580 7C67             205 | P1041 LDX  I1 INID     RESET I/P PT                 K1802040
7A89 6680 7C58             206 |       LDX  I2 OUTID    RESET O/P PT                 K1802050
7A8B C100                  207 |       LD    1 0        LOAD STMNT ID WORD           K1802060
7A8C E30B                  208 |       AND   3 H07FC-Z  GET STMNT NORM               K1802070
7A8D D3BF                  209 |       STO   3 NORM-Z   SAVE NORM                    K1802080
7A8E C100                  210 | P1042 LD    1 0        MOVE WORD TO                 K1802090
7A8F D200                  211 |       STO   2 0        OUTPUT STRING                K1802100
7A90 74FC 7C64             212 |       MDX  L  NORM,-4  DECREMENT NORM BY ONE        K1802110
7A92 7008                  213 |       MDX     P1043    CONTINUE LOOP                K1802120
                           214 | *                                                   K1802130
                           215 | *             TEST IF LAST OUTPUT STMNT             K1802140
                           216 | *             WAS END STATEMENT                     K1802150
7A93 C3BE                  217 |       LD    3 STTYP-Z  LOAD STMNT ID TYPE           K1802160
7A94 9308                  218 |       S     3 TEND-Z   IS IT END STMNT              K1802170
7A95 4C20 7A45             219 |       BSC  L  P1021,Z  BRANCH IF NOT                K1802180
                           220 | *                                                   K1802190
7A97 6E00 7A25             221 | P1044 STX  L2 EOFS     NEW END OF STRING ADDR       K1802200
7A99 4C00 7E85             222 |       BSC  L  EXIT     GO TO NEXT PHASE             K1802210
                           223 | *                                                   K1802220
                           224 | *                                                   K1802230
7A9B 7101                  225 | P1043 MDX   1 1        INCREMENT I/P PT             K1802240
7A9C 7201                  226 |       MDX   2 1        INCREMENT O/P PT             K1802250
7A9D 70F0                  227 |       MDX     P1042    CONTINUE LOOP                K1802260
                           228 | *                                                   K1802270
                           229 | *             ARITHMETIC STMNT FUNCTION ENCOUNTERED K1802280
                           230 | *             OUTPUT ARITHMETIC STMNT FUNC NAME     K1802290
                           231 | *             AND DUMMY VARIABLES                   K1802300
                           232 | *                                                   K1802310
7A9E C100                  233 | P1051 LD    1 0        LOAD WORD                    K1802320
7A9F 4368                  234 |       BSI   3 OUTUN-Z  PUT ON OUTPUT STRING         K1802330
7AA0 7101                  235 | P1052 MDX   1 1        MOVE I/P PT                  K1802340
7AA1 C100                  236 |       LD    1 0        LOAD WORD                    K1802350
7AA2 4C28 7A9E             237 |       BSC  L  P1051,+Z BRANCH IF NAME               K1802360
                           238 | *                                                   K1802370
                           239 | *                                                   K1802380
                           240 | *                                                   K1802390
                           241 | *             MOVES THE PT PAST THE PROCESSED PART  K1802400
                           242 | *             OF THE STRING ENTRY. RETAINS THE      K1802410
                           243 | *             PROCESSED PART IN THE STRING          K1802420
                           244 | *             UNALTERED. PICKS UP AT THE NEXT       K1802430
                           245 | *             UNPROCESSED WORD                      K1802440
                           246 | *                                                   K1802450
7AA4 71FE                  247 | P2011 MDX   1 -2       MOVE PT                      K1802460
7AA5 C300                  248 |       LD    3 ZERO-Z   SET OUTPUT SWITCH            K1802470
7AA6 4400 7E21             249 |       BSI  L  FINDN    FIND NEXT UNPROCESSED OPTR   K1802480
                           250 | *                                                   K1802490
7AA8 4C18 7A45             251 |       BSC  L  P1021,+- BRANCH IF SEMI-COLON         K1802500
                           252 | *                                                   K1802510
                           253 | *             NOT IN CARD SYSTEM                    K1802520
                           254 | *                                                   K1802530
7AAA 9400 7E7F             255 |       S    L  EXPRO    IS IT EXPRESSION-OPERATOR    K1802540
7AAC 4C18 7E54             256 |       BSC  L  D5011,+- BRANCH IF YES                K1802550
7AAE C100                  257 |       LD    1 0        LOAD WORD                    K1802560
                           258 | *                                                   K1802570
7AAF 9326                  259 |       S     3 UNARY-Z  IS IT UNARY MINUS            K1802580
7AB0 4C18 7C22             260 |       BSC  L  P6011,+- BRANCH IF YES                K1802590
7AB2 9309                  261 |       S     3 CALLX-Z  IS IT CALL                   K1802600
7AB3 4C18 7BC1             262 |       BSC  L  P5011,+- BRANCH IF YES                K1802610
7AB5 9327                  263 |       S     3 IF-Z     IS IT IF                     K1802620
7AB6 4C18 7B60             264 |       BSC  L  P3011,+- BRANCH IF YES                K1802630
                           265 | *                                                   K1802640
                           266 | *             FIND NEXT NOT-PROCESSED WORD          K1802650
                           267 | *             STARTING AT PTR+2                     K1802660
                           268 | *                                                   K1802670
7AB8 6903                  269 | P2013 STX   1 *+3      FIND NEXT UNPROCESSED WORD   K1802680
7AB9 4400 7E21             270 |       BSI  L  FINDN    DECREMENT PT                 K1802690
7ABB 6500 0000             271 |       LDX  L1 *-*                                   K1802700
                           272 | *                                                   K1802710
7ABD 4C28 7B08             273 |       BSC  L  P2071,+Z BRANCH IF 3RD WORD NOT OPTR  K1802720
7ABF C100                  274 |       LD    1 0        LOAD WORD AT PT              K1802730
7AC0 9309                  275 |       S     3 H000E-Z  IS IT .ASSIGN.               K1802740
7AC1 4C20 7AE2             276 |       BSC  L  P2051,Z  BRANCH IF NOT                K1802750
7AC3 C101                  277 |       LD    1 1        LOAD NEXT WORD               K1802760
7AC4 432A                  278 |       BSI   3 SYMT-Z   GET SYM TBL ID WORD          K1802770
7AC5 100B                  279 |       SLA     11       IS IT GENERATED TEMPORARY    K1802780
7AC6 4810                  280 |       BSC     -        SKIP IF YES                  K1802790
7AC7 7004                  281 |       MDX     P2031    BRANCH IF NO                 K1802800
                           282 | *                                                   K1802810
                           283 | *             MAKE MODE OF GT AGREE WITH MODESW     K1802820
7AC8 C101                  284 |       LD    1 1        LOAD SYM TBL ENTRY NO        K1802830
7AC9 4400 7DEA             285 |       BSI  L  GTMOD    GET MODE OF NAME             K1802840
7ACB 700E                  286 |       MDX     P2033    CLEAR MODE SWITCH            K1802850
                           287 | *                                                   K1802860
                           288 | *             GENERATES THE CODE TO HANDLE MIXED-   K1802870
                           289 | *             MODE ARITHMETIC                       K1802880
7ACC C3B9                  290 | P2031 LD    3 STNA1-Z  LOAD SYM TBL ID WORD         K1802890
7ACD 4810                  291 |       BSC     -        SKIP IF FIXED PT             K1802900
7ACE 7006                  292 |       MDX     P2032    BRANCH IF NOT                K1802910
7ACF C3BD                  293 |       LD    3 MODSW-Z  TEST MODE SWITCH             K1802920
7AD0 4810                  294 |       BSC     -        SKIP IF NOT FIX              K1802930
7AD1 7008                  295 |       MDX     P2033    BRANCH IF FIX                K1802940
7AD2 C3F7                  296 |       LD    3 IFIX-Z   LOAD .CALL IFIX.             K1802950
7AD3 4368                  297 |       BSI   3 OUTUN-Z  OUTPUT CALL                  K1802960
7AD4 7005                  298 |       MDX     P2033    CLEAR MODE SWITCH            K1802970
                           299 | *                                                   K1802980
                           300 | *                                                   K1802990
7AD5 C3BD                  301 | P2032 LD    3 MODSW-Z  TEST MODE SWITCH             K1803000
7AD6 4828                  302 |       BSC     Z+       SKIP IF FIXED                K1803010
7AD7 7002                  303 |       MDX     P2033    BRANCH IF NOT FIXED          K1803020
7AD8 C3FA                  304 |       LD    3 FLT-Z    LOAD .CALL FLOAT.            K1803030
7AD9 4368                  305 |       BSI   3 OUTUN-Z  OUTPUT CALL                  K1803040
                           306 | *                                                   K1803050
                           307 | *             AT THAT POINT MODESWITCH MUST NOT     K1803060
                           308 | *             BE ZERO (ZERO WOULD MEAN AN ASSIGN-   K1803070
                           309 | *             OPERATOR PRECEDED BY NOT FILLING ANY  K1803080
                           310 | *             ACCUMULATOR                           K1803090
                           311 | *             MODESWITCH IS SET ZERO SINCE NEXT     K1803100
                           312 | *             ARITHMETIC IS INDEPENDENT OF MODE     K1803110
7ADA C300                  313 | P2033 LD    3 ZERO-Z   CLEAR                        K1803120
7ADB D3BD                  314 |       STO   3 MODSW-Z  MODE SWITCH                  K1803130
7ADC C100                  315 | P2041 LD    1 0        LOAD WORD                    K1803140
7ADD 4368                  316 |       BSI   3 OUTOP-Z  OUTPUT OPERATOR              K1803150
7ADE C101                  317 |       LD    1 1        LOAD WORD                    K1803160
7ADF 436F                  318 |       BSI   3 OUTNA-Z  OUTPUT NAME                  K1803170
7AE0 7102                  319 |       MDX   1 2        MOVE PT                      K1803180
7AE1 70C2                  320 |       MDX     P2011    FIND NEXT UNPROCESSED WORD   K1803190
                           321 | *                                                   K1803200
                           322 | *                                                   K1803210
                           323 | *             TEST IF WORD AT POINTER IS            K1803220
                           324 | *             .EXPONETIATE. OPERATOR                K1803230
                           325 | *             OR .REVERSE EXPONENTIATE.             K1803240
7AE2 C100                  326 | P2051 LD    1 0        LOAD WORD                    K1803250
7AE3 9314                  327 |       S     3 EXP-Z    IS IT EXPONENTIATE OPTR      K1803260
7AE4 4C18 7ADC             328 |       BSC  L  P2041,+- BRANCH IF YES                K1803270
7AE6 935A                  329 |       S     3 H003E-Z  IS IT REVERSE EXPONENTIATE   K1803280
7AE7 4C18 7ADC             330 |       BSC  L  P2041,+- OPTR - BRANCH IF YES         K1803290
                           331 | *                                                   K1803300
                           332 | *             TESTS TO ASCERTAIN PROPER MODE        K1803310
7AE9 C101                  333 |       LD    1 1        LOAD WORD                    K1803320
7AEA 432A                  334 |       BSI   3 SYMT-Z   GET SYM TBL ID WORD          K1803330
7AEB 4828                  335 |       BSC     Z+       SKIP IF FLOAT                K1803340
7AEC 7008                  336 |       MDX     P2052    BRANCH IF FIX                K1803350
7AED C3BD                  337 |       LD    3 MODSW-Z  TEST MODE SWITCH             K1803360
7AEE 4828                  338 |       BSC     +Z       SKIP IF FIX                  K1803370
7AEF 70EC                  339 |       MDX     P2041    BRANCH IF FLOAT              K1803380
7AF0 C3FA                  340 |       LD    3 FLT-Z    LOAD .CALL FLOAT.            K1803390
7AF1 4368                  341 |       BSI   3 OUTUN-Z  OUTPUT CALL                  K1803400
7AF2 C305                  342 |       LD    3 HF800-Z  SET MODE SWITCH              K1803410
7AF3 D3BD                  343 |       STO   3 MODSW-Z  TO FLOAT                     K1803420
7AF4 70E7                  344 |       MDX     P2041    OUTPUT OPERATOR              K1803430
                           345 | *                                                   K1803440
7AF5 C3BD                  346 | P2052 LD    3 MODSW-Z  TEST MODE SWITCH             K1803450
7AF6 4810                  347 |       BSC     -        SKIP IF FLOAT                K1803460
7AF7 70E4                  348 |       MDX     P2041    BRANCH IF FIXED              K1803470
                           349 | *                                                   K1803480
                           350 | *                                                   K1803490
7AF8 C3F6                  351 | P2061 LD    3 FSTO-Z   LOAD .CALL FSTO.             K1803500
7AF9 4368                  352 |       BSI   3 OUTOP-Z  OUTPUT CALL                  K1803510
7AFA 435C                  353 |       BSI   3 GETGT-Z  GET GENERATED TEMPORARY      K1803520
7AFB 4400 7DEA             354 |       BSI  L  GTMOD    MAKE MODE AGREE              K1803530
7AFD 436F                  355 |       BSI   3 OUTNA-Z  OUTPUT NAME                  K1803540
7AFE C101                  356 |       LD    1 1        LOAD WORD                    K1803550
7AFF 43A3                  357 |       BSI   3 SCKLD-Z  OUTPUT .LOAD.                K1803560
7B00 435C                  358 |       BSI   3 GETGT-Z  GENERATED TEMPORARY          K1803570
7B01 D101                  359 |       STO   1 1        REPLACES NAME                K1803580
7B02 C3FA                  360 |       LD    3 FLT-Z    LOAD .CALL FLT.              K1803590
7B03 4368                  361 |       BSI   3 OUTUN-Z  OUTPUT CALL                  K1803600
7B04 C100                  362 |       LD    1 0        LOAD WORD                    K1803610
7B05 4346                  363 |       BSI   3 REVOP-Z  REVERSE OPERATOR             K1803620
7B06 D100                  364 |       STO   1 0        STORE REVERSED OPERATOR      K1803630
7B07 70D4                  365 |       MDX     P2041    OUTPUT OPERATOR              K1803640
                           366 | *                                                   K1803650
7B08 C305                  367 | P2071 LD    3 HF800-Z  SET MODE SWITCH              K1803660
7B09 D3BD                  368 |       STO   3 MODSW-Z  TO FLOATING PT               K1803670
7B0A C480 7E53             369 |       LD   I  PFIND    LOAD NEXT UNPROCESSED WORD   K1803680
7B0C 432A                  370 |       BSI   3 SYMT-Z   GET SYM TBL ID WORD          K1803690
7B0D 4C10 7B18             371 |       BSC  L  P2081,-  BRANCH IF FLOATING PT        K1803700
7B0F C101                  372 |       LD    1 1        LOAD WORD                    K1803710
7B10 432A                  373 |       BSI   3 SYMT-Z   GET SYM TBL ID WORD          K1803720
7B11 4C10 7B1F             374 |       BSC  L  P2091,-  BRANCH IF FLOATING PT        K1803730
7B13 C301                  375 |       LD    3 ONE-Z    SET MODE SWITCH TO           K1803740
7B14 D3BD                  376 |       STO   3 MODSW-Z  FIXED PT                     K1803750
7B15 C101                  377 |       LD    1 1        OUTPUT FOLLOWING -           K1803760
7B16 43A3                  378 |       BSI   3 SCKLD-Z  LD    PT+1                   K1803770
7B17 703B                  379 |       MDX     P2111    FIND NEXT UNPROCESSED OPTR   K1803780
                           380 | *                                                   K1803790
7B18 C101                  381 | P2081 LD    1 1        LOAD WORD                    K1803800
7B19 432A                  382 |       BSI   3 SYMT-Z   GET SYM TBL ID WORD          K1803810
7B1A 4828                  383 |       BSC     +Z       SKIP IF FLOATING PT          K1803820
7B1B 7033                  384 |       MDX     P2101    BRANCH IF FIXED PT           K1803830
                           385 | *                                                   K1803840
7B1C C101                  386 | P2083 LD    1 1                                     K1803850
7B1D 43A3                  387 |       BSI   3 SCKLD-Z  OUTPUT LOAD INSTRUCTION      K1803860
7B1E 7034                  388 |       MDX     P2111    FIND NEXT UNPROCESSED OPTR   K1803870
                           389 | *                                                   K1803880
7B1F C100                  390 | P2091 LD    1 0        LOAD WORD                    K1803890
7B20 9309                  391 |       S     3 H000E-Z  IS IT ASSIGN                 K1803900
7B21 4820                  392 |       BSC     Z        SKIP IF YES                  K1803910
7B22 7005                  393 |       MDX     P2093    BRANCH IF NOT                K1803920
7B23 C101                  394 |       LD    1 1        LOAD WORD                    K1803930
7B24 43A3                  395 |       BSI   3 SCKLD-Z  OUTPUT LOAD INSTRUCTION      K1803940
7B25 C3F7                  396 |       LD    3 IFIX-Z   CHANGE VAR TO FIXED PT       K1803950
7B26 4368                  397 |       BSI   3 OUTUN-Z  OUTPUT .CALL IFIX.           K1803960
7B27 702B                  398 |       MDX     P2111    GET NEXT UNPROCESSED OPTR    K1803970
                           399 | *                                                   K1803980
7B28 8304                  400 | P2093 A     3 H0004-Z  IS IT EXPRESSION OPERATOR    K1803990
7B29 4818                  401 |       BSC     +-       SKIP IF NOT                  K1804000
7B2A 70F1                  402 |       MDX     P2083    BRANCH IF YES                K1804010
7B2B C100                  403 |       LD    1 0                                     K1804020
7B2C 4346                  404 |       BSI   3 REVOP-Z  REVERSE THE OPERATOR         K1804030
7B2D D100                  405 |       STO   1 0                                     K1804040
7B2E C102                  406 |       LD    1 2        LOAD WORD                    K1804050
7B2F 9307                  407 |       S     3 H4800-Z  IS IT .LDX I1.               K1804060
7B30 4820                  408 |       BSC     Z        SKIP IF YES                  K1804070
7B31 9329                  409 |       S     3 H1300-Z  IS IT .LDX  L1.              K1804080
7B32 4C20 7B47             410 |       BSC  L  P2099,Z  BRANCH IF NOT                K1804090
7B34 C101                  411 |       LD    1 1        LOAD VARIABLE                K1804100
7B35 43A3                  412 |       BSI   3 SCKLD-Z  OUTPUT LOAD INST AND VAR     K1804110
7B36 C3F6                  413 |       LD    3 FSTO-Z   LOAD .CALL FSTO.             K1804120
7B37 4368                  414 |       BSI   3 OUTUN-Z  OUTPUT CALL                  K1804130
7B38 435C                  415 |       BSI   3 GETGT-Z  GET ADDR OF NEXT SYM TBL GT  K1804140
7B39 4400 7DEA             416 |       BSI  L  GTMOD    MAKE MODE OF VAR AGREE       K1804150
7B3B 436F                  417 |       BSI   3 OUTNA-Z  OUTPUT VAR                   K1804160
7B3C 1010                  418 |       SLA     16       CLEAR ACC                    K1804170
7B3D 4400 7E21             419 |       BSI  L  FINDN    FIND NEXT UNPROCESSED PART   K1804180
7B3F 43A3                  420 |       BSI   3 SCKLD-Z  OUTPUT LOAD INST AND VAR     K1804190
7B40 C3FA                  421 |       LD    3 FLT-Z    LOAD .CALL FLOAT.            K1804200
7B41 4368                  422 |       BSI   3 OUTUN-Z  OUTPUT CALL                  K1804210
7B42 C1FC                  423 |       LD    1 -4       LOAD WORD                    K1804220
7B43 4368                  424 |       BSI   3 OUTUN-Z  OUTPUT                       K1804230
7B44 435C                  425 |       BSI   3 GETGT-Z  GET ADDR OF NEXT SYM TBL GT  K1804240
7B45 436F                  426 |       BSI   3 OUTNA-Z  OUTPUT NAME                  K1804250
7B46 7016                  427 |       MDX     P3010    GO GET NEXT UNPROCESSED PART K1804260
7B47 C101                  428 | P2099 LD    1 1        LOAD WORD AT PT + 1          K1804270
7B48 1890                  429 |       SRT     16       MOVE TO EXTENSION            K1804280
7B49 C480 7E53             430 |       LD   I  PFIND    LOAD WORD AT PT + 2          K1804290
7B4B D101                  431 |       STO   1 1        STORE AT PT + 1              K1804300
7B4C 1090                  432 |       SLT     16       PUT WORD ORIGINALLY AT PT+1  K1804310
7B4D D480 7E53             433 |       STO  I  PFIND    IN PFIND (PT + 2)            K1804320
7B4F C101                  434 | P2101 LD    1 1        LOAD WORD                    K1804330
7B50 43A3                  435 |       BSI   3 SCKLD-Z  OUTPUT LOAD INSTRUCTION      K1804340
7B51 C3FA                  436 |       LD    3 FLT-Z    CHANGE WORD TO FLOATING PT   K1804350
7B52 4368                  437 |       BSI   3 OUTUN-Z  OUTPUT .CALL FLT.            K1804360
                           438 | *                                                   K1804370
                           439 | *             FIND AND OUTPUT NEXT NONPROCESSED     K1804380
                           440 | *             OPERATOR, ALSO OUTPUT INTERSPERSED    K1804390
                           441 | *             PROCESSED DATA, IF ANY                K1804400
                           442 | *                                                   K1804410
7B53 6904                  443 | P2111 STX   1 P2112+1  SAVE INPUT PT                K1804420
7B54 C300                  444 |       LD    3 ZERO-Z   SET OUTPUT SWITCH            K1804430
7B55 4400 7E21             445 |       BSI  L  FINDN    FIND NEXT UNPROCESSED OPTR   K1804440
7B57 C400 0000             446 | P2112 LD   L  *-*      LOAD OPERATOR                K1804450
7B59 4368                  447 |       BSI   3 OUTOP-Z  OUTPUT OPERATOR              K1804460
7B5A C480 7E53             448 |       LD   I  PFIND    LOAD NAME                    K1804470
7B5C 436F                  449 |       BSI   3 OUTNA-Z  OUTPUT NAME                  K1804480
7B5D 7101                  450 | P3010 MDX   1 1        MOVE I/P PT                  K1804490
                           451 | *                                                   K1804500
7B5E 4C00 7AA4             452 |       BSC  L  P2011    GET NEXT UNPROCESSED PART    K1804510
                           453 | *                                                   K1804520
                           454 | *             CHECKS FOR AN IF OPTR. GENERATES THE  K1804530
                           455 | *             TRACING CALLS. CHECKS FOR A STMNT     K1804540
                           456 | *             NO. ON THE NEXT STMNT. OPTIMIZES THE  K1804550
                           457 | *             'BSC  L' INST GENERATED TO COMBINE    K1804560
                           458 | *             CONDITIONS                            K1804570
7B60 C101                  459 | P3011 LD    1 1        LOAD WORD                    K1804580
7B61 432A                  460 |       BSI   3 SYMT-Z   GET SYM TBL ID WORD          K1804590
7B62 1005                  461 |       SLA     5        IS IT STMNT NO.              K1804600
7B63 4C28 7B6F             462 |       BSC  L  P301A,+Z BRANCH IF YES                K1804610
                           463 | *                                                   K1804620
7B65 C101                  464 |       LD    1 1        LOAD WORD                    K1804630
7B66 43A3                  465 |       BSI   3 SCKLD-Z  OUTPUT LOAD INSTRUCTION      K1804640
7B67 C301                  466 |       LD    3 ONE-Z    SET MODE SWITCH              K1804650
7B68 D3BD                  467 |       STO   3 MODSW-Z  TO FIXED POINT               K1804660
7B69 C3B9                  468 |       LD    3 STNA1-Z  LOAD SYM TBL ID WORD         K1804670
7B6A 7101                  469 |       MDX   1 1        MOVE INPUT POINTER           K1804680
7B6B 4C28 7B6F             470 |       BSC  L  P301A,Z+ BRANCH IF INTEGER VARIABLE   K1804690
7B6D C305                  471 |       LD    3 HF800-Z  SET MODE SWITCH              K1804700
7B6E D3BD                  472 |       STO   3 MODSW-Z  TO FLOATING POINT            K1804710
                           473 | *                                                   K1804720
                           474 | *                                                   K1804730
7B6F C300                  475 | P301A LD    3 ZERO-Z   ZERO TO                      K1804740
7B70 D3C1                  476 |       STO   3 STNCH-Z  CLEAR STMNT NO. CHECK        K1804750
7B71 7101                  477 |       MDX   1 1        MOVE INPUT PT                K1804760
7B72 C104                  478 |       LD    1 4        LOAD NEXT STMNT ID WORD      K1804770
7B73 108F                  479 |       SLT     15       DOES STMNT HAVE STMNT NO.    K1804780
7B74 4810                  480 |       BSC     -        SKIP IF NEXT STMT HAS NUMBER K1804790
7B75 7002                  481 |       MDX     P3012    BRANCH IF NOT                K1804800
7B76 C105                  482 |       LD    1 5        LOAD STMNT NO.               K1804810
7B77 D3C1                  483 |       STO   3 STNCH-Z  STORE STMNT NO.              K1804820
7B78 C3BD                  484 | P3012 LD    3 MODSW-Z  TEST MODE SWITCH             K1804830
7B79 4810                  485 |       BSC     -        SKIP IF FLOATING POINT       K1804840
7B7A 7002                  486 |       MDX     P3021    BRANCH IF FIXED POINT        K1804850
7B7B C3F5                  487 |       LD    3 LDFAC-Z  LOAD .LD FAC+1.              K1804860
7B7C 4368                  488 |       BSI   3 OUTUN-Z  OUTPUT                       K1804870
7B7D C400 7A31             489 | P3021 LD   L  CCWD                                  K1804880
7B7F 100F                  490 |       SLA     15       IS IF TRACE REQUIRED         K1804890
7B80 4C10 7B8A             491 |       BSC  L  P3022,-  BRANCH IF NOT                K1804900
7B82 C3BD                  492 |       LD    3 MODSW-Z  TEST MODE SWITCH             K1804910
7B83 4C10 7B88             493 |       BSC  L  P3020,-  BRANCH IF FIXED PT           K1804920
7B85 C3F4                  494 |       LD    3 FIF-Z    REPLACE .LD FAC. BY          K1804930
7B86 D200                  495 |       STO   2 0        .CALL FIF. (FLOATING TRACE)  K1804940
7B87 7002                  496 |       MDX     P3022    CHECK BRANCH ADDRESSES       K1804950
7B88 C3F3                  497 | P3020 LD    3 FIIF-Z   LOAD INTEGER IF TRACE CALL   K1804960
7B89 4368                  498 |       BSI   3 OUTUN-Z  OUTPUT CALL                  K1804970
7B8A C100                  499 | P3022 LD    1 0        LOAD IF-NEGATIVE BRANCH ADDR K1804980
7B8B 93C1                  500 |       S     3 STNCH-Z  IS IT NEXT STMNT             K1804990
7B8C 4818                  501 |       BSC     +-       SKIP IF NOT                  K1805000
7B8D 7014                  502 |       MDX     P3041    BRANCH IF YES                K1805010
7B8E C100                  503 |       LD    1 0        IS IF-NEGATIVE BRANCH EQUAL  K1805020
7B8F 9101                  504 |       S     1 1        TO IF-ZERO BRANCH ADDRESS    K1805030
7B90 4820                  505 |       BSC     Z        SKIP IF YES                  K1805040
7B91 7004                  506 |       MDX     P3031    BRANCH IF NOT                K1805050
7B92 C300                  507 |       LD    3 0        LOAD ZERO                    K1805060
7B93 D101                  508 |       STO   1 1        STORE IN IF ZERO WORD        K1805070
7B94 C30C                  509 |       LD    3 BSCL1-Z  LOAD .BSC L  ,+.             K1805080
7B95 7009                  510 |       MDX     P3033    OUTPUT INSTRUCTION           K1805090
                           511 | *                                                   K1805100
                           512 | *                                                   K1805110
7B96 C100                  513 | P3031 LD    1 0        IS IF-NEGATIVE BRANCH EQUAL  K1805120
7B97 9102                  514 |       S     1 2        TO IF-POSITIVE BRANCH ADDR   K1805130
7B98 4820                  515 |       BSC     Z        SKIP IF YES                  K1805140
7B99 7004                  516 |       MDX     P3032    BRANCH IF NOT                K1805150
7B9A C300                  517 |       LD    3 0        LOAD ZERO                    K1805160
7B9B D102                  518 |       STO   1 2        STORE IN IF-POSITIVE WORD    K1805170
7B9C C30D                  519 |       LD    3 BSCL2-Z  LOAD .BSC L  ,Z.             K1805180
7B9D 7001                  520 |       MDX     P3033    OUTPUT INSTRUCTION           K1805190
7B9E C30E                  521 | P3032 LD    3 BSCL3-Z  LOAD .BSC L  ,Z+.            K1805200
7B9F 4368                  522 | P3033 BSI   3 OUTOP-Z  OUTPUT BSC INSTRUCTION       K1805210
7BA0 C100                  523 |       LD    1 0        LOAD BRANCH TO ADDRESS       K1805220
7BA1 436F                  524 |       BSI   3 OUTNA-Z  OUTPUT ADDRESS               K1805230
7BA2 C101                  525 | P3041 LD    1 1        LOAD ZERO-BRANCH ADDRESS     K1805240
7BA3 4818                  526 |       BSC     +-       SKIP IF NOT ZERO             K1805250
7BA4 700F                  527 |       MDX     P3051    BRANCH IF EQUAL TO NEG-ADDR  K1805260
7BA5 93C1                  528 |       S     3 STNCH-Z  IS IT NEXT STMNT             K1805270
7BA6 4818                  529 |       BSC     +-       SKIP IF NOT                  K1805280
7BA7 700C                  530 |       MDX     P3051    BRANCH IF YES                K1805290
7BA8 C101                  531 |       LD    1 1        IS IF-ZERO BRANCH EQUAL TO   K1805300
7BA9 9102                  532 |       S     1 2        IF POSITIVE BRANCH ADDRESS   K1805310
7BAA 4820                  533 |       BSC     Z        SKIP IF YES                  K1805320
7BAB 7004                  534 |       MDX     P3042    BRANCH IF NOT                K1805330
7BAC C300                  535 |       LD    3 0        LOAD ZERO                    K1805340
7BAD D102                  536 |       STO   1 2        STORE IN IF-POSITIVE WORD    K1805350
7BAE C30F                  537 |       LD    3 BSCL4-Z  LOAD .BSC L  ,-.             K1805360
7BAF 7001                  538 |       MDX     P3043    OUTPUT INSTRUCTION           K1805370
                           539 | *                                                   K1805380
7BB0 C310                  540 | P3042 LD    3 BSCL5-Z  LOAD .BSC L  ,+-.            K1805390
7BB1 4368                  541 | P3043 BSI   3 OUTOP-Z  OUTPUT BSC INSTRUCTION       K1805400
7BB2 C101                  542 |       LD    1 1        LOAD ZERO-BRANCH ADDRESS     K1805410
7BB3 436F                  543 |       BSI   3 OUTNA-Z  OUTPUT ADDRESS               K1805420
7BB4 C102                  544 | P3051 LD    1 2        LOAD POSITIVE BRANCH ADDRESS K1805430
7BB5 4818                  545 |       BSC     +-       SKIP IF NOT ZERO             K1805440
7BB6 7007                  546 |       MDX     P3053    BRANCH IF ZERO               K1805450
7BB7 93C1                  547 |       S     3 STNCH-Z  IS IT NEXT STMNT             K1805460
7BB8 4818                  548 |       BSC     +-       SKIP IF NOT                  K1805470
7BB9 7004                  549 |       MDX     P3053    BRANCH IF YES                K1805480
7BBA C3F2                  550 |       LD    3 BSCL6-Z  LOAD .BSC L  ,-Z.            K1805490
7BBB 4368                  551 |       BSI   3 OUTOP-Z  OUTPUT INSTRUCTION           K1805500
7BBC C102                  552 |       LD    1 2        LOAD POSITIVE BRANCH ADDR    K1805510
7BBD 436F                  553 |       BSI   3 OUTNA-Z  OUTPUT ADDRESS               K1805520
7BBE 7103                  554 | P3053 MDX   1 3        MOVE I/P POINTER             K1805530
7BBF 4C00 7A45             555 |       BSC  L  P1021    GET NEXT STMNT               K1805540
                           556 | *                                                   K1805550
                           557 | *             DETECTS A CALL OPTR. SETS THE MODE    K1805560
                           558 | *             SWITCH. IF IT IS AN IFIX OR FLOAT     K1805570
                           559 | *             CALL, CHANGES IT TO A ONE-WD CALL     K1805580
7BC1 C301                  560 | P5011 LD    3 ONE-Z    SET MODE SWITCH              K1805590
7BC2 D3BD                  561 |       STO   3 MODSW-Z  TO FIXED POINT               K1805600
7BC3 C101                  562 |       LD    1 1        LOAD WORD                    K1805610
7BC4 432A                  563 |       BSI   3 SYMT-Z   GET SYM TBL ID WORD          K1805620
7BC5 4828                  564 |       BSC     +Z       SKIP IF FLOATING POINT       K1805630
7BC6 7002                  565 |       MDX     P5012    BRANCH IF FIXED PT           K1805640
7BC7 C305                  566 |       LD    3 HF800-Z  SET MODE SWITCH              K1805650
7BC8 D3BD                  567 |       STO   3 MODSW-Z  TO FLOATING POINT            K1805660
                           568 | *                                                   K1805670
                           569 | *             TEST IF CALL IS .IFIX. OR .FLOAT.     K1805680
                           570 | *             IF SO, CHANGE TO ONE-WORD CALL        K1805690
                           571 | *                                                   K1805700
7BC9 C101                  572 | P5012 LD    1 1        LOAD WORD                    K1805710
7BCA 432A                  573 |       BSI   3 SYMT-Z   GET SYM TBL ID WORD          K1805720
7BCB C335                  574 |       LD    3 SYMT1+1-Z  LOAD ADDR OF ID WORD       K1805730
7BCC 8301                  575 |       A     3 ONE-Z                                 K1805740
7BCD D001                  576 |       STO     P501X+1  GET ADDRESS OF NAME IN ENTRY K1805750
7BCE C400 0000             577 | P501X LD   L  *-*      LOAD FIRST WORD OF NAME      K1805760
7BD0 D3B7                  578 |       STO   3 TEMP-Z   STORE                        K1805770
7BD1 7401 7BCF             579 |       MDX  L  P501X+1,1    GET ADDR OF 2ND WORD     K1805780
7BD3 C480 7BCF             580 |       LD   I  P501X+1  LOAD 2ND WORD                K1805790
7BD5 D3B8                  581 |       STO   3 TEMP-Z+1 STORE                        K1805800
                           582 | *                                                   K1805810
                           583 | *             TEST IF NAME IS .FLOAT.               K1805820
7BD6 CBB7                  584 |       LDD   3 TEMP-Z   LOAD NAME                    K1805830
7BD7 9BFB                  585 |       SD    3 NFLT-Z   IS IT .FLOAT.                K1805840
7BD8 4C20 7BDF             586 |       BSC  L  P5013,Z  BRANCH IF NOT                K1805850
7BDA 18D0                  587 |       RTE     16       CHECK 2ND WORD               K1805860
7BDB 4C20 7BDF             588 |       BSC  L  P5013,Z  BRANCH NOT .FLOAT.           K1805870
                           589 | *                                                   K1805880
                           590 | *             OUTPUT .LOAD., ONEWORD .FLOAT.        K1805890
7BDD C3FA                  591 |       LD    3 FLT-Z    LOAD .CALL FLOAT.            K1805900
7BDE 7008                  592 |       MDX     P5015    OUTPUT CALL                  K1805910
                           593 | *                                                   K1805920
                           594 | *             TEST IF .IFIX.                        K1805930
7BDF CBB7                  595 | P5013 LDD   3 TEMP-Z   LOAD NAME                    K1805940
7BE0 9BFD                  596 |       SD    3 NIFIX-Z  IS IT .IFIX.                 K1805950
7BE1 4C20 7C09             597 |       BSC  L  P5016,Z  BRANCH IF NOT                K1805960
7BE3 18D0                  598 |       RTE     16       CHECK 2ND WORD               K1805970
7BE4 4C20 7C09             599 |       BSC  L  P5016,Z  BRANCH NOT .IFIX.            K1805980
                           600 | *                                                   K1805990
                           601 | *             OUTPUT ONE-WORD .IFIX.                K1806000
7BE6 C3F7                  602 |       LD    3 IFIX-Z   LOAD .CALL IFIX.             K1806010
                           603 | *                                                   K1806020
                           604 | *             2-WD CALL .IFIX. OR .FLOAT. ENCOUNTRD K1806030
7BE7 D3B7                  605 | P5015 STO   3 TEMP-Z   STORE CALL                   K1806040
7BE8 C102                  606 |       LD    1 2        LOAD NEXT WORD               K1806050
7BE9 432A                  607 |       BSI   3 SYMT-Z   GET SYM TBL ID WORD          K1806060
7BEA 1002                  608 |       SLA     2        ISOLATE DIMENSION            K1806070
7BEB 180E                  609 |       SRA     14       INFORMATION                  K1806080
7BEC 4C18 7BF9             610 |       BSC  L  P5017,+- BRANCH NOT DIMENSIONED       K1806090
7BEE C320                  611 |       LD    3 H6000-Z  LOAD NOP                     K1806100
7BEF 4368                  612 |       BSI   3 OUTUN-Z  OUTPUT                       K1806110
7BF0 C3B7                  613 |       LD    3 TEMP-Z   LOAD CALL                    K1806120
7BF1 93F7                  614 |       S     3 IFIX-Z   IS IT IFIX                   K1806130
7BF2 4820                  615 |       BSC     Z        SKIP IF YES                  K1806140
7BF3 C321                  616 |       LD    3 H8380-Z  CREATE PROPER                K1806150
7BF4 83F9                  617 |       A     3 FLD-Z    LOAD INSTRUCTION             K1806160
7BF5 4368                  618 |       BSI   3 OUTUN-Z  OUTPUT INSTRUCTION           K1806170
7BF6 C320                  619 |       LD    3 H6000-Z  LOAD NOP                     K1806180
7BF7 4368                  620 |       BSI   3 OUTUN-Z  OUTPUT                       K1806190
7BF8 7002                  621 |       MDX     P5018    OUTPUT ONE-WORD CALL         K1806200
7BF9 C102                  622 | P5017 LD    1 2        LOAD WORD                    K1806210
7BFA 43A3                  623 |       BSI   3 SCKLD-Z  OUTPUT LOAD INSTRUCTION      K1806220
7BFB C3B7                  624 | P5018 LD    3 TEMP-Z   LOAD ONE-WORD CALL           K1806230
7BFC 4368                  625 |       BSI   3 OUTUN-Z  OUTPUT CALL                  K1806240
                           626 | *                                                   K1806250
                           627 | *             MAKE ENTRY IN SYM TBL A PSEUDO ENTRY  K1806260
                           628 | *             TO AVOID LISTING SUBP NAME TWICE      K1806270
                           629 | *                                                   K1806280
7BFD C101                  630 |       LD    1 1        LOAD WORD                    K1806290
7BFE 432A                  631 |       BSI   3 SYMT-Z   GET SYM TBL ID WORD          K1806300
7BFF 4C10 7C03             632 |       BSC  L  *+2,-    BRANCH IF FLOATING POINT     K1806310
7C01 C328                  633 |       LD    3 H4220-Z  LOAD INTEGER STMNT NO. ID    K1806320
7C02 7001                  634 |       MDX     *+1      PUT IN SYMBOL TABLE          K1806330
7C03 C3DE                  635 |       LD    3 H0220-Z  LOAD REAL STMNT NO. ID       K1806340
7C04 D480 7CDA             636 |       STO  I  SYMT1+1  PUT IN SYM TBL               K1806350
                           637 | *                                                   K1806360
7C06 7103                  638 |       MDX   1 3        MOVE I/P POINTER             K1806370
7C07 4C00 7AA4             639 |       BSC  L  P2011    GET NEXT UNPROCESSED WORD    K1806380
                           640 | *                                                   K1806390
                           641 | *             TWO-WORD CALL OTHER THAN              K1806400
                           642 | *             .FLOAT. OR .IFIX.                     K1806410
                           643 | *                                                   K1806420
7C09 C301                  644 | P5016 LD    3 ONE-Z    LOAD OPTR FOR TWO WORD CALL  K1806430
7C0A 4368                  645 |       BSI   3 OUTUN-Z  OUTPUT CALL                  K1806440
7C0B C101                  646 |       LD    1 1        LOAD WORD                    K1806450
7C0C 4368                  647 |       BSI   3 OUTUN-Z  OUTPUT                       K1806460
7C0D 7102                  648 |       MDX   1 2        MOVE PT TO NEXT WORD         K1806470
7C0E C100                  649 |       LD    1 0        LOAD WORD                    K1806480
7C0F 4C10 7AA4             650 |       BSC  L  P2011,-  BRANCH IF OPERATOR           K1806490
                           651 | *                                                   K1806500
                           652 | *             CHECKS FOR THE EXTERNAL SPECIFICATION K1806510
                           653 | *             GENERATES THE PROPER CALL             K1806520
                           654 | *             OUTPUTS THE COMPLETE CALL AND         K1806530
                           655 | *             ARGUMENTS                             K1806540
7C11 C100                  656 | P5023 LD    1 0        LOAD WORD                    K1806550
7C12 432A                  657 |       BSI   3 SYMT-Z   GET SYM TBL ID WORD          K1806560
7C13 18C1                  658 |       RTE     1                                     K1806570
7C14 4C28 7C1B             659 |       BSC  L  P5024,+Z BRANCH IF CONSTANT           K1806580
7C16 100B                  660 |       SLA     11                                    K1806590
7C17 4C10 7C1B             661 |       BSC  L  P5024,-  BRANCH IF NOT EXTERNAL       K1806600
                           662 | *                                                   K1806610
                           663 | *             NAME IS .EXTERNAL.                    K1806620
                           664 | *             OUTPUT .CALL. OPERATOR (=/0001)       K1806630
                           665 | *                                                   K1806640
7C19 C301                  666 |       LD    3 ONE-Z    LOAD CALL OPERATOR           K1806650
7C1A 4368                  667 |       BSI   3 OUTUN-Z  OUTPUT OPERATOR              K1806660
                           668 | *                                                   K1806670
                           669 | *                                                   K1806680
                           670 | *             OUTPUT NAME AT POINTER                K1806690
                           671 | *                                                   K1806700
7C1B C100                  672 | P5024 LD    1 0        LOAD NAME                    K1806710
7C1C 4368                  673 |       BSI   3 OUTUN-Z  OUTPUT NAME                  K1806720
                           674 | *                                                   K1806730
                           675 | *             TEST IF END OF ARGUMENT LIST          K1806740
                           676 | *             (NEXT WORD AN OPERATOR)               K1806750
                           677 | *                                                   K1806760
7C1D 7101                  678 |       MDX   1 1        MOVE I/P PT                  K1806770
7C1E C100                  679 |       LD    1 0        LOAD WORD                    K1806780
7C1F 4C10 7AA4             680 |       BSC  L  P2011,-  BRANCH IF OPERATOR           K1806790
7C21 70EF                  681 |       MDX     P5023    BRANCH IF NOT                K1806800
                           682 | *                                                   K1806810
                           683 | *                                                   K1806820
                           684 | *             GENERATES THE CALLS OR INSTRUCTIONS   K1806830
                           685 | *             TO HANDLE THE UNARY MINUS             K1806840
                           686 | *                                                   K1806850
7C22 C101                  687 | P6011 LD    1 1        LOAD WORD                    K1806860
7C23 4810                  688 |       BSC     -        SKIP IF NOT OPERATOR         K1806870
7C24 7019                  689 |       MDX     P6024    BRANCH IF OPERATOR           K1806880
7C25 7101                  690 |       MDX   1 1        MOVE I/P POINTER             K1806890
7C26 432A                  691 |       BSI   3 SYMT-Z   GET SYM TBL ID WORD          K1806900
7C27 4810                  692 |       BSC     -        SKIP IF INTEGER NAME         K1806910
7C28 700B                  693 |       MDX     P6021    BRANCH IF REAL NAME          K1806920
7C29 C301                  694 |       LD    3 ONE-Z    SET MODE SWITCH              K1806930
7C2A D3BD                  695 |       STO   3 MODSW-Z  TO FIXED POINT               K1806940
7C2B C3F0                  696 |       LD    3 SLA16-Z  LOAD .SLA  16.               K1806950
7C2C 4368                  697 |       BSI   3 OUTUN-Z  OUTPUT INSTRUCTION           K1806960
7C2D C3E7                  698 |       LD    3 SL-Z     LOAD .S L.                   K1806970
7C2E 4368                  699 |       BSI   3 OUTOP-Z  OUTPUT INSTRUCTION           K1806980
7C2F C100                  700 |       LD    1 0        LOAD NAME                    K1806990
7C30 436F                  701 |       BSI   3 OUTNA-Z  OUTPUT                       K1807000
7C31 7101                  702 | P6012 MDX   1 1        MOVE I/P PT                  K1807010
7C32 4C00 7AA4             703 |       BSC  L  P2011    GET NEXT UNPROCESSED OPER    K1807020
7C34 C305                  704 | P6021 LD    3 HF800-Z  SET MODE SWITCH              K1807030
7C35 D3BD                  705 |       STO   3 MODSW-Z  TO FLOATING POINT            K1807040
7C36 C3F9                  706 |       LD    3 FLD-Z    LOAD .FLD.                   K1807050
7C37 4368                  707 |       BSI   3 OUTOP-Z  OUTPUT                       K1807060
7C38 C100                  708 |       LD    1 0        LOAD NAME                    K1807070
7C39 436F                  709 |       BSI   3 OUTNA-Z  OUTPUT                       K1807080
7C3A C002                  710 | P6022 LD      H1C80    LOAD .CALL RSIGN.            K1807090
7C3B 4368                  711 |       BSI   3 OUTUN-Z  OUTPUT                       K1807100
7C3C 70F4                  712 |       MDX     P6012    PROCESS NEXT WORD            K1807110
7C3D 1C80                  713 | H1C80 DC      /1C80    .CALL RSIGN.                 K1807120
7C3E C3BD                  714 | P6024 LD    3 MODSW-Z  TEST MODE SWITCH             K1807130
7C3F 4808                  715 |       BSC     +        SKIP IF FIXED POINT          K1807140
7C40 70F9                  716 |       MDX     P6022    BRANCH IF NOT                K1807150
7C41 C3F1                  717 |       LD    3 STOFA-Z  LOAD .STO FAC+1.             K1807160
7C42 4368                  718 |       BSI   3 OUTUN-Z  OUTPUT                       K1807170
7C43 C3F0                  719 |       LD    3 SLA16-Z  LOAD .SLA  16.               K1807180
7C44 4368                  720 |       BSI   3 OUTUN-Z  OUTPUT                       K1807190
7C45 C3EF                  721 |       LD    3 SFAC-Z   LOAD .S    FAC+1.            K1807200
7C46 4368                  722 |       BSI   3 OUTUN-Z  OUTPUT                       K1807210
7C47 70E9                  723 |       MDX     P6012    GET NEXT WORD                K1807220
                           724 | *                                                   K1807230
                           725 | *             GENERATES THE CODE FOR A 'LD' INST    K1807240
                           726 | *             IN THE DESIGNATED MODE                K1807250
7C48 0000                  727 | SCKLD DC      0        ENTRY POINT                  K1807260
7C49 D017                  728 |       STO     SCKL3    SAVE ACCUMULATOR             K1807270
7C4A 432A                  729 |       BSI   3 SYMT-Z   GET SYM TBL ID WORD          K1807280
7C4B 4C10 7C50             730 |       BSC  L  SCKL1,-  BRANCH IF REAL VARIABLE      K1807290
7C4D C013                  731 |       LD      SCKL3    LOAD INTEGER                 K1807300
7C4E EBF8                  732 |       OR    3 LDL-Z    COMBINE WITH .LD L.          K1807310
7C4F 7003                  733 |       MDX     SCKL2    OUTPUT INSTRUCTION           K1807320
7C50 C3F9                  734 | SCKL1 LD    3 FLD-Z    LOAD .FLD.                   K1807330
7C51 4368                  735 |       BSI   3 OUTUN-Z  OUTPUT                       K1807340
7C52 C00E                  736 |       LD      SCKL3    LOAD REAL VARIABLE           K1807350
7C53 4368                  737 | SCKL2 BSI   3 OUTUN-Z  OUTPUT                       K1807360
7C54 4C80 7C48             738 |       BSC  I  SCKLD    RETURN                       K1807370
                           739 | *                                                   K1807380
                           740 | *             SUBROUTINE                            K1807390
                           741 | *             INCREMENT NORM IN OUTPUT STATEMENT    K1807400
                           742 | *             AND INCREMENT OUTPUT POINTER          K1807410
                           743 | *                                                   K1807420
7C56 0000                  744 | INCR  DC      0        ENTRY POINT                  K1807430
7C57 7404 0000             745 | NADR  MDX  L  *-*,4    INCREMENT NORM IN O/P STRING K1807440
7C59 7201                  746 |       MDX   2 1        INCREMENT O/P PT             K1807450
7C5A 4C80 7C56             747 |       BSC  I  INCR     RETURN                       K1807460
7C58                       748 | OUTID EQU     NADR+1                                K1807470
                           749 | *                                                   K1807480
                           750 | *                                                   K1807490
7C5C                       751 |       BSS  E  0                                     K1807500
7C5C 0000                  752 | TEMP  DC      0        TEMPORARY                    K1807510
7C5D 0000                  753 |       DC      0        STORAGE                      K1807520
7C5E                       754 |       BSS  E  0                                     K1807530
7C5E 0000                  755 | STNA1 DC      0        STORAGE FOR                  K1807540
7C5F 0000                  756 |       DC      0        PROGRAM NAME                 K1807550
7C60 0000                  757 | TEMP2 DC      0        TEMPORARY STORAGE            K1807560
7C61 0000                  758 | SCKL3 DC      0        TEMPORARY STORAGE            K1807570
7C62 0000                  759 | MODSW DC      0        MODE SWITCH                  K1807580
7C63 0000                  760 | STTYP DC      0        STMNT ID TYPE                K1807590
7C64 0000                  761 | NORM  DC      0        STMNT NORM                   K1807600
7C65 0000                  762 | SOFIS DC      0        START OF I/P STRING - 1      K1807610
7C66 0000                  763 | STNCH DC      0        STORAGE FOR STMNT NO.        K1807620
7C67 0000                  764 | INID  DC      0        INPUT STMNT ID WORD ADDR     K1807630
7C68 0000                  765 | SSOST DC      0        STORED START OF SYM TBL      K1807640
7C69 0000                  766 | GTMO3 DC      0        TEMPORARY                    K1807650
                           767 | *                                                   K1807660
                           768 | *                                                   K1807670
7C5C                       769 |       ORG     TEMP                                  K1807680
7C5C 6700 7CA5             770 | CONT  LDX  L3 ZERO     LOAD INDEX REGISTER 3        K1807690
7C5E 8301                  771 |       A     3 ONE-Z    ADD 1 TO GET SIZE OF STRING  K1807700
7C5F D0FD                  772 |       STO     MOVCT    SAVE SIZE                    K1807710
7C60 6580 7A2A             773 |       LDX  I1 EOFST    INITIALIZE LOOP O/P PT       K1807720
7C62 71F6                  774 |       MDX   1 -10                                   K1807730
7C63 6680 7A25             775 |       LDX  I2 EOFS     INITIALIZE LOOP I/P PT       K1807740
                           776 | *                                                   K1807750
                           777 | *             TEST IF OVERLAP ERROR                 K1807760
7C65 69F6                  778 |       STX   1 TEMP     SAVE END OF SYM TBL ADDR     K1807770
7C66 C400 7A25             779 |       LD   L  EOFS     LOAD END OF STRING ADDR      K1807780
7C68 90F3                  780 |       S       TEMP     SUBTRACT END OF SYM TBL ADDR K1807790
7C69 4C28 7C6F             781 |       BSC  L  MOVST,+Z BRANCH NO OVERLAP ERROR      K1807800
7C6B 7401 7A2D             782 |       MDX  L  ERROR,1  SET OVERLAP ERROR INDICATOR  K1807810
7C6D 4C00 7E85             783 |       BSC  L  EXIT     GO TO NEXT PHASE             K1807820
                           784 | *                                                   K1807830
                           785 | *             MOVES THE STRING NEXT TO THE SYM TBL  K1807840
7C6F C200                  786 | MOVST LD    2 0        MOVE WORD NEXT               K1807850
7C70 D100                  787 |       STO   1 0        TO SYMBOL TABLE              K1807860
7C71 72FF                  788 |       MDX   2 -1       MOVE POINTERS                K1807870
7C72 71FF                  789 |       MDX   1 -1                                    K1807880
7C73 74FF 7C5D             790 |       MDX  L  MOVCT,-1 SKIP IF FINISHED MOVE        K1807890
7C75 70F9                  791 |       MDX     MOVST    CONTINUE LOOP                K1807900
                           792 | *                                                   K1807910
                           793 | *                                                   K1807920
                           794 | *                                                   K1807930
                           795 | *                                                   K1807940
7C76 6D00 7C65             796 |       STX  L1 SOFIS    STORE ADDR OF I/P STRING - 1 K1807950
7C78 C400 7A26             797 |       LD   L  SOFST    INSERT STORED START          K1807960
7C7A D3C3                  798 |       STO   3 SSOST-Z  OF SYM TBL ADDR              K1807970
7C7B 4C00 7A40             799 |       BSC  L  P1011    BRANCH TO MAIN PROGRAM       K1807980
                           800 | *                                                   K1807990
7C5D                       801 | MOVCT EQU     TEMP+1   COUNTER                      K1808000
                           802 | *                                                   K1808010
                           803 | *                                                   K1808020
7C7D 0000                  804 | FAXB  DC      /0000    SYM TBL ADDR OF 2-WORD CALL  K1808030
                           805 | *                      (INITIAL VALUE = ZERO)       K1808040
7C7E 0000                  806 | FAXBX DC      /0000    SYM TBL ADDR OF 2-WORD CALL  K1808050
                           807 | *                      (INITIAL VALUE = ZERO)       K1808060
                           808 | *                                                   K1808070
7C7F 000C                  809 | H000C DC      /000C    MULTIPLY OPERATOR            K1808080
7C80 0780                  810 | FDVR  DC      /0780    .CALL FDVR.                  K1808090
7C81 557E                  811 | DFAC  DC      /557E    .D  FAC+1.                   K1808100
7C82 0680                  812 | FSBR  DC      /0680    .CALL FSBR.                  K1808110
7C83 0220                  813 | H0220 DC      /0220    FORMAT STMNT NO. ID          K1808120
7C84 0980                  814 | FIXI  DC      /0980    .CALL FIXI.                  K1808130
7C85 0880                  815 | FAXI  DC      /0880    .CALL FAXI.                  K1808140
7C86 9000                  816 | STOL  DC      /9000    .STO L.                      K1808150
7C86                       817 | H9000 EQU     STOL                                  K1808160
7C87 0A80                  818 | FARIT DC      /0A80    .CALL FARIT.                 K1808170
7C88 0B80                  819 | IARIT DC      /0B80    .CALL IARIT.                 K1808180
7C89 A800                  820 | DL    DC      /A800    .D L.                        K1808190
7C8A 5800                  821 | SRT16 DC      /5800    .SRT  16.                    K1808200
                           822 | *                                                   K1808210
                           823 | *             THE FOLLOWING 7 CONSTANTS             K1808220
                           824 | *             MUST FOLLOW EACH OTHER AND RETAIN     K1808230
                           825 | *             THEIR GIVEN ORDER                     K1808240
                           826 | *                                                   K1808250
7C8B 9800                  827 | AL    DC      /9800    .A L.                        K1808260
7C8C A000                  828 | SL    DC      /A000    .S L.                        K1808270
7C8D 0080                  829 | FADD  DC      /0080    .CALL FADD.                  K1808280
7C8E 0180                  830 | FSUB  DC      /0180    .CALL FSUB.                  K1808290
7C8F 0380                  831 | FDIV  DC      /0380    .CALL FDIV.                  K1808300
7C90 0000                  832 |       DC      0        NOT USED BUT NEEDED FOR TBL  K1808310
7C91 0280                  833 | FMPY  DC      /0280    .CALL FMPY.                  K1808320
                           834 | *                                                   K1808330
                           835 | *                                                   K1808340
7C92 0036                  836 | H0036 DC      /0036    .REVERSE SUB.                K1808350
7C93 F803                  837 | HF803 DC      /F803    MASK TO ELIMINATE NORM       K1808360
7C94 547E                  838 | SFAC  DC      /547E    .S  FAC+1.                   K1808370
7C95 5900                  839 | SLA16 DC      /5900    .SLA 16.                     K1808380
7C96 537E                  840 | STOFA DC      /537E    .STO  FAC+1.                 K1808390
7C97 5030                  841 | BSCL6 DC      /5030    .BSC L ,Z-.                  K1808400
7C98 0E80                  842 | FIIF  DC      /0E80    .CALL FIIF. (FIX IF TRACE)   K1808410
7C99 0F00                  843 | FIF   DC      /0F00    .CALL FIF.  (FLT IF TRACE)   K1808420
7C9A 527E                  844 | LDFAC DC      /527E    .LD  FAC+1.                  K1808430
7C9B 0580                  845 | FSTO  DC      /0580    .CALL FSTO.                  K1808440
7C9C 0C80                  846 | IFIX  DC      /0C80    .CALL IFIX.                  K1808450
7C9D 8800                  847 | LDL   DC      /8800    .LD L.                       K1808460
7C9D                       848 | H8800 EQU     LDL                                   K1808470
7C9E 0480                  849 | FLD   DC      /0480    .CALL FLD.                   K1808480
7C9F 0D00                  850 | FLT   DC      /0D00    .CALL FLOAT.                 K1808490
                           851 | *                                                   K1808500
                           852 | *             FOLLOWING TWO ENTRIES ARE USED        K1808510
                           853 | *             AS DOUBLE-LENGTH WORDS                K1808520
                           854 | *                                                   K1808530
7CA0                       855 |       BSS  E  0                                     K1808540
7CA0 8C9A                  856 | NFLT  DC      /8C9A    NAME                         K1808550
7CA1 E063                  857 |       DC      /E063    .FLOAT.                      K1808560
7CA2 9231                  858 | NIFIX DC      /9231    NAME                         K1808570
7CA3 99C0                  859 |       DC      /99C0    .IFIX.                       K1808580
                           860 | *                                                   K1808590
7CA4 3000                  861 | H3000 DC      /3000    MASK FOR DIMENSION TEST.     K1808600
7CA5 0000                  862 | ZERO  DC      0        ZERO                  00     K1808610
7CA5                       863 | Z     EQU     ZERO                                  K1808620
7CA6 0001                  864 | ONE   DC      1        ONE                          K1808630
7CA7 0002                  865 | TWO   DC      2        TWO                          K1808640
7CA8 0003                  866 | THREE DC      3        THREE                        K1808650
7CA9 0004                  867 | FOUR  DC      /0004    FOUR                         K1808660
7CA9                       868 | H0004 EQU     FOUR                                  K1808670
7CAA F800                  869 | HF800 DC      /F800    ID TYPE MASK                 K1808680
7CAB 3000                  870 | TCALL DC      /3000    CALL ID TYPE                 K1808690
7CAC 4800                  871 | H4800 DC      /4800    .LDX I1.                     K1808700
7CAD 1000                  872 | TEND  DC      /1000    END ID TYPE                  K1808710
7CAE 000E                  873 | H000E DC      /000E    ASSIGN OPERATOR              K1808720
7CAF 800C                  874 | H800C DC      /800C    VARIABLE TEST MASK           K1808730
                           875 | *             BITS FOR CONST,GENTEMP,SPECGENT       K1808740
7CB0 07FC                  876 | H07FC DC      /07FC    MASK TO GET NORM             K1808750
7CB1 5008                  877 | BSCL1 DC      /5008    .BSC L ,+.                   K1808760
7CB2 5020                  878 | BSCL2 DC      /5020    .BSC L ,Z.                   K1808770
7CB3 5028                  879 | BSCL3 DC      /5028    .BSC L ,Z+.                  K1808780
7CB4 5010                  880 | BSCL4 DC      /5010    .BSC L ,-                    K1808790
7CB5 5018                  881 | BSCL5 DC      /5018    .BSC L ,+-.                  K1808800
7CB6 07FF                  882 | H07FF DC      /07FF    MASK TO GET SYM TBL ADDR     K1808810
7CB7 17FD                  883 | STLEN DC      /17FD     MAXIMUM LENGTH OF      2-11 K1808812
                           884 | *                       *SYMBOL TABLE          2-11 K1808814
7CB8 8000                  885 | H8000 DC      /8000    SIGN BIT MASK                K1808820
7CB9 000A                  886 | EXP   DC      /000A    EXPONENTE OPERATOR           K1808830
7CBA D000                  887 | HD000 DC      /D000    ARITHMETIC STMNT FUNC ID     K1808840
7CBB 0080                  888 | H0080 DC      /0080    SUBPROGRAM ID WORD           K1808850
7CBC 0028                  889 | H0028 DC      /0028    REFERENCED GENERATED TEMP ID K1808860
7CBD 0054                  890 | H0054 DC      /0054    EXPRESSION OPERATOR          K1808870
7CBE 5980                  891 | H5980 DC      /5980    .SLT 16.                     K1808880
7CBF B000                  892 | HB000 DC      /B000    .M L.                        K1808890
7CC0 4000                  893 | H4000 DC      /4000    END STMNT ID WORD            K1808900
7CC1 2180                  894 | LIBFR DC      /2180    .LIBF READ.                  K1808910
7CC2 0480                  895 | LIBFF DC      /0480    .LIBF WRITE.                 K1808920
7CC3 4028                  896 | H4028 DC      /4028    INTEGER, DEFINED VAR, GT ID  K1808930
7CC4 1900                  897 | H1900 DC      /1900    .CALL SUBSCR.                K1808940
7CC5 6000                  898 | H6000 DC      /6000    CONSTANT FOR DIMENSION TEST  K1808950
7CC6 8380                  899 | H8380 DC      /8380    CONSTANT                     K1808960
7CC7 4800                  900 | MDXL1 DC      /6100-/1900  .MDX  L1.                K1808970
7CC8 FA00                  901 | LDXL  DC      /5B00-/6100  .LDX  L.                 K1808980
7CC9 ED00                  902 | LDXI  DC      /4800-/5B00  .LDX  I.                 K1808990
7CCA 1A00                  903 | STXL1 DC      /6200-/4800  .STX  L1.                K1809000
7CCB 0020                  904 | UNARY DC      /0020    UNARY MINUS                  K1809010
7CAE                       905 | CALLX EQU     H000E                                 K1809020
7CCC FFE6                  906 | IF    DC      /0014-/002E  IF OPERATOR              K1809030
7CCD 4220                  907 | H4220 DC      /4220    INTEGER STMNT NO.            K1809040
7CCE 1300                  908 | H1300 DC      /1300    .LDX L1.                     K1809050
7C86                       909 | READ  EQU     H9000                                 K1809060
7C8C                       910 | WRITE EQU     SL                                    K1809070
7C8A                       911 | FIND  EQU     SRT16                                 K1809080
                           912 | *                                                   K1809090
                           913 | *             GETS THE SYM TBL ID WORD OF THE       K1809100
                           914 | *             VARIABLE NAME.                        K1809110
7CCF 0000                  915 | SYMT  DC      0        ENTRY POINT                  K1809120
7CD0 E311                  916 |       AND   3 H07FF-Z  GET NO. OF ENTRY RELATIVE TO K1809130
7CD1 9301                  917 |       S     3 ONE-Z    START OF SYMBOL TABLE        K1809140
7CD2 D007                  918 |       STO     SYMT1+1  SAVE NUMBER                  K1809150
7CD3 C400 7A26             919 |       LD   L  SOFST    GET ADDRESS OF ENTRY BY      K1809160
7CD5 9004                  920 |       S       SYMT1+1  SUBTRACTING 3 TIMES ENTRY    K1809170
7CD6 9003                  921 |       S       SYMT1+1  NO. FROM START OF STRING     K1809180
7CD7 9002                  922 |       S       SYMT1+1  ADDRESS                      K1809190
7CD8 D001                  923 |       STO     SYMT1+1  STORE ADDR OF ID WORD        K1809200
7CD9 C400 0000             924 | SYMT1 LD   L  *-*      LOAD SYM TBL ID WORD         K1809210
7CDB 18DF                  925 |       RTE     31       ROTATE WORD                  K1809220
7CDC DBB9                  926 |       STD   3 STNA1-Z  STORE ROTATED WORD           K1809230
7CDD 4C80 7CCF             927 |       BSC  I  SYMT     RETURN                       K1809240
                           928 | *                                                   K1809250
                           929 | *             GETS THE NAME OF THE NEXT NEW         K1809260
                           930 | *             SYMBOL TABLE ENTRY                    K1809270
                           931 | *                                                   K1809280
7CDF 0000                  932 | STENT DC      0        ENTRY POINT                  K1809290
7CE0 74FD 7A2A             933 |       MDX  L  EOFST,-3 MOVE END OF SYM TBL ADDR     K1809300
7CE2 C400 7A26             934 |       LD   L  SOFST    LOAD START OF SYM TBL ADDR   K1809310
7CE4 9400 7A2A             935 |       S    L  EOFST    GET NEW SIZE OF SYM TBL      K1809320
7CE6 1890                  936 |       SRT     16       POSITION FOR DIVIDE          K1809330
7CE7 AB03                  937 |       D     3 THREE-Z  GET NO. OF TABLE ENTRY       K1809340
7CE8 EB13                  938 |       OR    3 H8000-Z  PUT IN SIGN BIT FOR NAME     K1809350
7CE9 4C80 7CDF             939 |       BSC  I  STENT    RETURN                       K1809360
                           940 | *                                                   K1809370
                           941 | *             CHANGES THE SUBTRACT, DIVIDE, AND     K1809380
                           942 | *             EXPONENTIATE OPTRS INTO REVERSE       K1809390
                           943 | *             OPTRS WHERE NEEDED                    K1809400
                           944 | *                                                   K1809410
7CEB 0000                  945 | REVOP DC      0        ENTRY POINT                  K1809420
7CEC D3BB                  946 |       STO   3 TEMP2-Z  SAVE OPERATOR                K1809430
7CED 935A                  947 |       S     3 H003E-Z  HAS OPERATOR BEEN REVERSED   K1809440
7CEE 4C30 7CFB             948 |       BSC  L  REV2,-Z  BRANCH IF YES                K1809450
7CF0 800F                  949 |       A       H0038    IS OPERATOR MINUS            K1809460
7CF1 4818                  950 |       BSC     +-       SKIP IF NOT                  K1809470
7CF2 7006                  951 |       MDX     REV1     BRANCH IF YES                K1809480
7CF3 9302                  952 |       S     3 TWO-Z    IS OPERATOR DIVIDE           K1809490
7CF4 4818                  953 |       BSC     +-       SKIP IF NOT                  K1809500
7CF5 7003                  954 |       MDX     REV1     BRANCH IF YES                K1809510
7CF6 9302                  955 |       S     3 TWO-Z    IS OPERATOR EXPONENT         K1809520
7CF7 4820                  956 |       BSC     Z        SKIP IF YES                  K1809530
7CF8 7003                  957 |       MDX     REV3     BRANCH IF NOT                K1809540
                           958 | *                                                   K1809550
7CF9 C3BB                  959 | REV1  LD    3 TEMP2-Z  LOAD OPERATOR                K1809560
7CFA 8004                  960 |       A       H003E    ADD REVERSE CONSTANT         K1809570
7CFB D3BB                  961 | REV2  STO   3 TEMP2-Z  STORE REVERSED OPTR          K1809580
7CFC C3BB                  962 | REV3  LD    3 TEMP2-Z  LOAD OPERATOR                K1809590
7CFD 4C80 7CEB             963 |       BSC  I  REVOP    RETURN                       K1809600
7CFF 003E                  964 | H003E DC      /003E    REVERSING CONSTANT           K1809610
7D00 0038                  965 | H0038 DC      /0038    MINUS TEST CONSTANT          K1809620
                           966 | *                                                   K1809630
                           967 | *             COMPUTES THE GT SYM TBL ADDR          K1809640
7D01 0000                  968 | GETGT DC      0        ENTRY POINT                  K1809650
7D02 C367                  969 |       LD    3 NXTGT-Z  IS NEXT GT COMPUTED          K1809660
7D03 4CA0 7D01             970 |       BSC  I  GETGT,Z  RETURN IF YES                K1809670
                           971 | *                                                   K1809680
                           972 | *                                                   K1809690
7D05 433A                  973 | CMPGT BSI   3 STENT-Z  GET SYM TBL ADDR FOR NEXT GT K1809700
7D06 D367                  974 |       STO   3 NXTGT-Z  STORE ADDR                   K1809710
                           975 | *                                                   K1809720
                           976 | *             MAKE THE ENTRY A GENER TEMP ENTRY     K1809730
                           977 | *             IN SYM T                              K1809740
                           978 | *                                                   K1809750
7D07 432A                  979 |       BSI   3 SYMT-Z   GET ADDRESS FOR NEXT ENTRY   K1809760
7D08 C317                  980 |       LD    3 H0028-Z  LOAD SYM TBL ID WORD         K1809770
7D09 D480 7CDA             981 |       STO  I  SYMT1+1  PUT IN SYM TBL               K1809780
7D0B 70F6                  982 |       MDX     GETGT+1  RETURN                       K1809790
7D0C 0000                  983 | NXTGT DC      0        NEXT AVAILABLE GT            K1809800
                           984 | *                                                   K1809810
                           985 | *                                                   K1809820
                           986 | *************************************************** K1809830
                           987 | *             FOLLOWING SUBROUTINE PUTS THE CON-  * K1809840
                           988 | *             TENTS OF A-REGISTER INTO OUTPUT     * K1809850
                           989 | *             STRING AND PERFORMS HOUSEKEEPING OF * K1809860
                           990 | *             OUTPUT STRING POINTER. (OUTPUT      * K1809870
                           991 | *             POINTER IS INDEX REGISTER 2)  SUB-  * K1809880
                           992 | *             ROUTINE HAS THREE ENTRY POINTS. USE * K1809890
                           993 | *             OF FIRST MOVES THE CONTENTS OF A-RE-* K1809900
                           994 | *             GISTER UNALTERED AS ONE WORD INTO   * K1809910
                           995 | *             OUTPUT STRING. USING OTHER ENTRIES  * K1809920
                           996 | *             (.NAME. AND .OPERATOR.-ENTRIES) MAY * K1809930
                           997 | *             RESULT IN PACKED OUTPUT (OPERATOR   * K1809940
                           998 | *             AND NAME IN THE SAME WORD). SOME    * K1809950
                           999 | *             OPERATORS ARE CONVERTED INTO SEVERAL* K1809960
                          1000 | *             WORDS OF OUTPUT. THE SUBROUTINE ALSO* K1809970
                          1001 | *             PERFORMS PARTS OF THE CONTROLS  THAT* K1809980
                          1002 | *             ARE REQUIRED FOR MIXED MODE ARITH-  * K1809990
                          1003 | *             METIC AND MAY GENERATE CODES REPRE- * K1810000
                          1004 | *             SENTING .CALL FLT. OR .CALL IFIX.   * K1810010
                          1005 | *************************************************** K1810020
                          1006 | *************************************************** K1810030
                          1007 | *             ADDS A WORD TO THE STMNT STRING FROM  K1810040
                          1008 | *             THE ACCUMULATOR                       K1810050
                          1009 | *************************************************** K1810060
7D0D 0000                 1010 | OUTUN DC      0        ENTRY POINT                  K1810070
7D0E D201                 1011 | OUT12 STO   2 1        PUT WORD ON OUTPUT STRING    K1810080
7D0F 43B1                 1012 |       BSI   3 INCR-Z   INCREMENT O/P PT AND NORM    K1810090
7D10 4C80 7D0D            1013 | OUT13 BSC  I  OUTUN    RETURN                       K1810100
                          1014 | *************************************************** K1810110
                          1015 | *             OUTPUT AND COUNT                    * K1810120
                          1016 | *             ENTRY = OPERATOR                    * K1810130
                          1017 | *************************************************** K1810140
                          1018 | *                                                   K1810150
                          1019 | *             SAME AS UNALTERED ARGUMENT ENTRY      K1810160
                          1020 | *                                                   K1810170
7D0D                      1021 | OUTOP EQU     OUTUN                                 K1810180
                          1022 | *                                                   K1810190
7D12 0000                 1023 | CWORD DC      0        CODEWORD             117     K1810200
7D13 0000                 1024 | NAME  DC      0        STORED NAME          119     K1810210
                          1025 | *                                                   K1810220
                          1026 | *************************************************** K1810230
                          1027 | *             ADDS A NAME TO THE STMNT STRING       K1810240
                          1028 | *             PACKED INTO ONE WORD WITH AN OPTR     K1810250
                          1029 | *************************************************** K1810260
7D14 0000                 1030 | OUTNA DC      0        ENTRY POINT                  K1810270
7D15 D0FD                 1031 | OUT31 STO     NAME     STORE OUTPUT WORD            K1810280
7D16 C0FD                 1032 |       LD      OUTNA    LOAD RETURN ADDRESS          K1810290
7D17 D0F5                 1033 |       STO     OUTUN    STORE IN OUTUN               K1810300
7D18 C200                 1034 |       LD    2 0        LOAD LAST O/P WORD           K1810310
7D19 D0F8                 1035 |       STO     CWORD    SAVE WORD                    K1810320
                          1036 | *                                                   K1810330
                          1037 | *             TEST IF END OF ARITH STMNT FUNC       K1810340
                          1038 | *             (IDENTIFIED BY OPTR = .ASSIGN.        K1810350
                          1039 | *             AND NAME = .ARITH STMNT FUNC.         K1810360
                          1040 | *                                                   K1810370
7D1A 9309                 1041 |       S     3 H000E-Z  IS IT ASSIGN OPERATOR        K1810380
7D1B 4C20 7D2A            1042 |       BSC  L  OUT33,Z  BRANCH IF NOT                K1810390
7D1D C0F5                 1043 |       LD      NAME     LOAD WORD TO BE OUTPUT       K1810400
7D1E 432A                 1044 |       BSI   3 SYMT-Z   GET SYM TBL ID WORD          K1810410
7D1F 1006                 1045 |       SLA     6        IS IT STMNT FUNCTION         K1810420
7D20 4C10 7D2A            1046 |       BSC  L  OUT33,-  BRANCH IF NOT                K1810430
                          1047 | *                                                   K1810440
                          1048 | *             IS IT END OF AN ARITH STMNT FUNC      K1810450
                          1049 | *             STATEMENT                             K1810460
                          1050 | *             DELETE LAST OUTPUT OPERATOR           K1810470
                          1051 | *                                                   K1810480
7D22 C480 7C58            1052 |       LD   I  NADR+1   LOAD STMNT ID WORD           K1810490
7D24 9304                 1053 |       S     3 FOUR-Z   DECREMENT NORM               K1810500
7D25 D480 7C58            1054 |       STO  I  NADR+1   PUT BACK ON STRING           K1810510
7D27 72FF                 1055 |       MDX   2 -1       DECREMENT O/P PT             K1810520
7D28 4C80 7D14            1056 |       BSC  I  OUTNA    RETURN                       K1810530
                          1057 | *                                                   K1810540
7D2A C0E7                 1058 | OUT33 LD      CWORD    LOAD LAST O/P WORD           K1810550
7D2B 1808                 1059 |       SRA     8                                     K1810560
7D2C 4818                 1060 |       BSC     +-       SKIP IF NO REDEFINITION      K1810570
7D2D 7009                 1061 |       MDX     OUT51    BRANCH TO REDEFINE CODE WORD K1810580
7D2E C0E3                 1062 | OUT41 LD      CWORD    LOAD CODE WORD               K1810590
7D2F 4828                 1063 |       BSC     +Z       SKIP IF NOT PACKED O/P       K1810600
7D30 7003                 1064 |       MDX     OUT44    BRANCH TO PACKED OUTPUT      K1810610
                          1065 | *                                                   K1810620
                          1066 | *             NONPACKED                             K1810630
                          1067 | *             ENTRY IF A-REG = CODEWORD VALUE       K1810640
                          1068 | *                                                   K1810650
7D31 D200                 1069 | OUT43 STO   2 0        STORE CODE WORD              K1810660
7D32 C0E0                 1070 |       LD      NAME     LOAD NAME                    K1810670
7D33 70DA                 1071 |       MDX     OUT12    OUTPUT NAME                  K1810680
                          1072 | *             PACKED                                K1810690
                          1073 | *             A-REG IS ASSUMED = CODEWORD VALUE     K1810700
7D34 E8DE                 1074 | OUT44 OR      NAME     PACK CODE WORD AND NAME      K1810710
7D35 D200                 1075 |       STO   2 0        PUT ON O/P STRING            K1810720
7D36 70D9                 1076 |       MDX     OUT13    RETURN                       K1810730
                          1077 | *                                                   K1810740
7D37 C0DB                 1078 | OUT51 LD      NAME     GET SYM TBL ID               K1810750
7D38 432A                 1079 |       BSI   3 SYMT-Z   WORD FOR FUTURE USE          K1810760
7D39 C0D8                 1080 |       LD      CWORD    LOAD CODE WORD               K1810770
7D3A 9309                 1081 |       S     3 H000E-Z  IS IT ASSIGN OPERATOR        K1810780
7D3B 4C18 7D6B            1082 |       BSC  L  OUT91,+- BRANCH IF YES                K1810790
7D3D 4830                 1083 |       BSC     -Z       SKIP IF LESS THAN ASSIGN     K1810800
7D3E 7020                 1084 |       MDX     OUT61    BRANCH IF NOT                K1810810
7D3F C0D2                 1085 |       LD      CWORD    LOAD CODE WORD               K1810820
7D40 1801                 1086 |       SRA     1        COMPUTE ADDR TO              K1810830
7D41 801B                 1087 |       A       ADRC1    GET OPERATOR                 K1810840
7D42 D00E                 1088 |       STO     OUT53+1  STORE ADDR                   K1810850
7D43 901A                 1089 |       S       ADRC2    IS IT EXPONENT OPERATOR      K1810860
7D44 4C18 7DA4            1090 |       BSC  L  OUTC4,+- BRANCH IF NOT                K1810870
7D46 C3B9                 1091 |       LD    3 STNA1-Z  LOAD SUM TBL ID WORD OF NAME K1810880
7D47 4C10 7D58            1092 |       BSC  L  OUT55,-  BRANCH IF FLOATING POINT     K1810890
                          1093 | *                                                   K1810900
                          1094 | *             NAME IS INTEGER NAME                  K1810910
7D49 C0C8                 1095 |       LD      CWORD    LOAD OPERATOR                K1810920
7D4A 93DA                 1096 |       S     3 H000C-Z  IS IT MULTIPLY OPERATOR      K1810930
7D4B 4C18 7D53            1097 |       BSC  L  OUT54,+- BRANCH IF YES                K1810940
7D4D 8304                 1098 |       A     3 H0004-Z  IS IT DIVIDE OPERATOR        K1810950
7D4E 4C18 7D66            1099 |       BSC  L  OUT85,+- BRANCH IF YES                K1810960
7D50 C400 0000            1100 | OUT53 LD   L  *-*      LOAD OPERATOR                K1810970
7D52 70E1                 1101 |       MDX     OUT44    PACK AND OUTPUT              K1810980
                          1102 | *                                                   K1810990
                          1103 | *             ENTRY FOR INTEGER MULTIPLY            K1811000
7D53 C36E                 1104 | OUT54 LD    3 NAME-Z   LOAD NAME                    K1811010
7D54 EB1A                 1105 |       OR    3 HB000-Z  PACK WITH MULTIPLY OPTR      K1811020
7D55 D200                 1106 |       STO   2 0        PUT ON STRING                K1811030
7D56 C319                 1107 |       LD    3 H5980-Z  LOAD .SLT  16.               K1811040
7D57 70B6                 1108 |       MDX     OUT12    OUTPUT INSTRUCTION           K1811050
                          1109 | *                                                   K1811060
                          1110 | *             ENTRY FOR OBTAINING .CALL FADD.,      K1811070
                          1111 | *             .CALL FSUB., .CALL FDIV.              K1811080
                          1112 | *                                                   K1811090
7D58 7402 7D51            1113 | OUT55 MDX  L  OUT53+1,FADD-AL   MODIFY ADDRESS      K1811100
7D5A C480 7D51            1114 |       LD   I  OUT53+1  LOAD OPERATOR                K1811110
7D5C 70D4                 1115 |       MDX     OUT43    OUTPUT OPERATOR, NAME        K1811120
                          1116 | *                                                   K1811130
7D5D 7C89                 1117 | ADRC1 DC      AL-2     ADDRESS CONSTANT             K1811140
7D5E 7C8E                 1118 | ADRC2 DC      AL+3     ADDRESS CONSTANT             K1811150
                          1119 | *                                                   K1811160
7D5F 93ED                 1120 | OUT61 S     3 H0036-Z  IS IT REVERSE SUBTRACT       K1811170
7D60 4C18 7DCC            1121 |       BSC  L  OUTF1,+- BRANCH IF YES                K1811180
7D62 9302                 1122 |       S     3 TWO-Z    IS IT REVERSE DIVIDE         K1811190
7D63 4C18 7DDA            1123 |       BSC  L  OUTG1,+- BRANCH                       K1811200
7D65 701E                 1124 |       MDX     OUTB1    MUST BE REVERSE EXPONENTIATE K1811210
                          1125 | *                                                   K1811220
7D66 C3E5                 1126 | OUT85 LD    3 SRT16-Z  LOAD .SRT 16.                K1811230
7D67 D200                 1127 |       STO   2 0        PUT ON O/P STRING            K1811240
7D68 43B1                 1128 |       BSI   3 INCR-Z   INCREMENT STMNT NORM, O/P PT K1811250
7D69 C3E4                 1129 |       LD    3 DL-Z     LOAD .D L.                   K1811260
7D6A 70C9                 1130 |       MDX     OUT44    OUTPUT OPERATOR, NAME        K1811270
                          1131 | *                                                   K1811280
                          1132 | *             ASSIGN                                K1811290
7D6B C400 7A31            1133 | OUT91 LD   L  CCWD                                  K1811300
7D6D 100E                 1134 |       SLA     14       IS ARITHMETIC TRACE NEEDED   K1811310
7D6E 4810                 1135 |       BSC     -        SKIP IF YES                  K1811320
7D6F 700C                 1136 |       MDX     OUT95    BRANCH IF NOT                K1811330
7D70 CBB9                 1137 |       LDD   3 STNA1-Z  LOAD SYM TBL ID WORD         K1811340
7D71 18C1                 1138 |       RTE     1        PUT ENTIRE WORD IN ACC       K1811350
7D72 E30A                 1139 |       AND   3 H800C-Z  IS IT VARIABLE NAME          K1811360
7D73 4820                 1140 |       BSC     Z        SKIP IF YES                  K1811370
7D74 7007                 1141 |       MDX     OUT95    BRANCH IF NOT                K1811380
7D75 C3B9                 1142 |       LD    3 STNA1-Z  LOAD SYM TBL ID WORD         K1811390
7D76 4810                 1143 |       BSC     -        SKIP IF INTEGER NAME         K1811400
7D77 7002                 1144 |       MDX     OUT93    BRANCH IF NOT                K1811410
7D78 C3E3                 1145 |       LD    3 IARIT-Z  LOAD .CALL IARIT.            K1811420
7D79 70B7                 1146 |       MDX     OUT43    OUTPUT CALL, NAME.           K1811430
7D7A C3E2                 1147 | OUT93 LD    3 FARIT-Z  L/AD .CALL FARIT.            K1811440
7D7B 70B5                 1148 |       MDX     OUT43    OUTPUT CALL, NAME            K1811450
                          1149 | *                                                   K1811460
7D7C C3B9                 1150 | OUT95 LD    3 STNA1-Z  LOAD SYM TBL ID WORD         K1811470
7D7D 4810                 1151 |       BSC     -        SKIP IF INTEGER NAME         K1811480
7D7E 7003                 1152 |       MDX     OUTA1    BRANCH IF NOT                K1811490
7D7F 1003                 1153 |       SLA     3                                     K1811500
7D80 C3E1                 1154 |       LD    3 STOL-Z   LOAD .STO L.                 K1811510
7D81 70B2                 1155 |       MDX     OUT44    OUTPUT OPTR, NAME            K1811520
7D82 C3F6                 1156 | OUTA1 LD    3 FSTO-Z   LOAD .CALL FSTO.             K1811530
7D83 70AD                 1157 |       MDX     OUT43    OUTPUT OPTR, WORD            K1811540
                          1158 | *                                                   K1811550
                          1159 | *             REV. EXPON.                           K1811560
7D84 C3BD                 1160 | OUTB1 LD    3 MODSW-Z  TEST MODE SWITCH             K1811570
7D85 4C28 7D8A            1161 |       BSC  L  OUTB2,Z+ BRANCH IF FLOATING POINT     K1811580
                          1162 | *                                                   K1811590
                          1163 | *             MODE = FIX                            K1811600
7D87 435C                 1164 |       BSI   3 GETGT-Z  GET GENERATED TEMPORARY      K1811610
7D88 EBE1                 1165 |       OR    3 H9000-Z  COMBINE WITH .STO L.         K1811620
7D89 7004                 1166 |       MDX     OUTB3    OUTPUT                       K1811630
                          1167 | *                                                   K1811640
                          1168 | *             MODE = FLOAT                          K1811650
7D8A C3F6                 1169 | OUTB2 LD    3 FSTO-Z   LOAD .CALL FSTO.             K1811660
7D8B D200                 1170 |       STO   2 0        OUTPUT CALL                  K1811670
7D8C 43B1                 1171 |       BSI   3 INCR-Z   MOVE PT, INCREMENT NORM      K1811680
7D8D 435C                 1172 |       BSI   3 GETGT-Z  GET GENERATED TEMPORARY      K1811690
7D8E D200                 1173 | OUTB3 STO   2 0        PUT ON O/P STRING            K1811700
                          1174 | *                                                   K1811710
                          1175 | *             MAKE GT-MODE AGREE WITH MODESWITCH    K1811720
7D8F 4400 7DEA            1176 |       BSI  L  GTMOD                                 K1811730
                          1177 | *                                                   K1811740
7D91 43B1                 1178 |       BSI   3 INCR-Z   MOVE O/P PT, INCREMENT NORM  K1811750
                          1179 | *                                                   K1811760
                          1180 | *                                                   K1811770
7D92 C301                 1181 |       LD    3 ONE-Z    SET MODE SWITCH              K1811780
7D93 D3BD                 1182 |       STO   3 MODSW-Z  TO FIXED POINT               K1811790
7D94 C36E                 1183 |       LD    3 NAME-Z   OUTPUT                       K1811800
7D95 EBF8                 1184 |       OR    3 H8800-Z  .LD L  NAME.                 K1811810
7D96 D200                 1185 |       STO   2 0        PUT ON OUTPUT STRING         K1811820
7D97 432A                 1186 |       BSI   3 SYMT-Z   WAS NAME FIXED PT            K1811830
7D98 4C28 7DA1            1187 |       BSC  L  OUTC1,Z+ BRANCH IF YES                K1811840
                          1188 | *                                                   K1811850
                          1189 | *             CHANGE MODESWITCH AND                 K1811860
                          1190 | *             REPLACE OUTPUT BY FLOATING ARITHM     K1811870
                          1191 | *                                                   K1811880
7D9A C305                 1192 |       LD    3 HF800-Z  SET MODE SWITCH              K1811890
7D9B D3BD                 1193 |       STO   3 MODSW-Z  TO FLOATING POINT            K1811900
7D9C C3F9                 1194 |       LD    3 FLD-Z    LOAD .CALL FLD.              K1811910
7D9D D200                 1195 |       STO   2 0        PUT ON O/P STRING            K1811920
7D9E 43B1                 1196 |       BSI   3 INCR-Z   MOVE O/P PT, INCREMENT NORM  K1811930
7D9F C36E                 1197 |       LD    3 NAME-Z   LOAD NAME                    K1811940
7DA0 D200                 1198 |       STO   2 0        PUT ON O/P STRING            K1811950
7DA1 43B1                 1199 | OUTC1 BSI   3 INCR-Z   MOVE O/P PT, INCREMENT NORM  K1811960
7DA2 435C                 1200 | OUTC3 BSI   3 GETGT-Z  REPLACE STORED NAME BY       K1811970
7DA3 D36E                 1201 |       STO   3 NAME-Z   GENERATED TEMPORARY          K1811980
                          1202 | *                                                   K1811990
                          1203 | *             OPERTR. EXP                           K1812000
7DA4 C3BD                 1204 | OUTC4 LD    3 MODSW-Z  TEST MODE SWITCH             K1812010
7DA5 4808                 1205 |       BSC     +        SKIP IF FIXED PT             K1812020
7DA6 701F                 1206 |       MDX     OUTD5    BRANCH IF NOT                K1812030
7DA7 C36E                 1207 |       LD    3 NAME-Z   LOAD NAME                    K1812040
7DA8 432A                 1208 |       BSI   3 SYMT-Z   GET SYM TBL ID WORD          K1812050
7DA9 4810                 1209 |       BSC     -        SKIP IF INTEGER NAME         K1812060
7DAA 7003                 1210 |       MDX     OUTD1    BRANCH IF NOT                K1812070
7DAB C3DF                 1211 |       LD    3 FIXI-Z   LOAD .CALL FIXI.             K1812080
7DAC 4C00 7D31            1212 | OUTC5 BSC  L  OUT43    OUTPUT CALL, NAME            K1812090
                          1213 | *                                                   K1812100
7DAE C3FA                 1214 | OUTD1 LD    3 FLT-Z    LOAD .CALL FLT.              K1812110
7DAF D200                 1215 |       STO   2 0        PUT ON O/P STRING            K1812120
7DB0 43B1                 1216 |       BSI   3 INCR-Z   MOVE O/P PT, INCREMENT NORM  K1812130
7DB1 C305                 1217 |       LD    3 HF800-Z  SET MOD SWITCH               K1812140
7DB2 D3BD                 1218 |       STO   3 MODSW-Z  TO FLOATING PT               K1812150
                          1219 | *                                                   K1812160
7DB3 C302                 1220 | OUTD2 LD    3 TWO-Z    MAKE CODE WORD IN O/P STRING K1812170
7DB4 D200                 1221 |       STO   2 0        INTO A 2-WORD CALL OPTR      K1812180
                          1222 | *                                                   K1812190
                          1223 | *             TEST IF NAME DIMENSIONED              K1812200
7DB5 C36E                 1224 |       LD    3 NAME-Z   LOAD NAME                    K1812210
7DB6 432A                 1225 |       BSI   3 SYMT-Z   GET SYM TBL ID WORD          K1812220
7DB7 E3FF                 1226 |       AND   3 H3000-Z  IS IT DIMENSIONED            K1812230
7DB8 4C18 7DBE            1227 |       BSC  L  OUTD3,+- BRANCH IF NOT                K1812240
                          1228 | *                                                   K1812250
                          1229 | *             OUTPUT 2-WD CALL FAXBX                K1812260
7DBA C3D9                 1230 |       LD    3 FAXBX-Z  LOAD .CALL FAXBX.            K1812270
7DBB 4418 7E14            1231 |       BSI  L  CAXBX,+- BRANCH TO MAKE SYM TBL ENTRY K1812280
                          1232 | *                      IF NOT THERE ALREADY         K1812290
7DBD 7003                 1233 |       MDX     OUTD4    MOVE PT                      K1812300
                          1234 | *                                                   K1812310
                          1235 | *             OUTPUT 2-WD CALL .FAXB.               K1812320
7DBE C3D8                 1236 | OUTD3 LD    3 FAXB-Z   LOAD .CALL FABX.             K1812330
7DBF 4418 7DF8            1237 |       BSI  L  CAXB,+-  BRANCT TO MAKE SYM TBL ENTRY K1812340
                          1238 | *                      IF NOT THERE ALREADY         K1812350
                          1239 | *                                                   K1812360
7DC1 D201                 1240 | OUTD4 STO   2 1        OUTPUT WORD                  K1812370
7DC2 43B1                 1241 |       BSI   3 INCR-Z   MOVE O/P PT, INCREMENT NORM  K1812380
                          1242 | *                                                   K1812390
7DC3 C36E                 1243 |       LD    3 NAME-Z   LOAD NAME                    K1812400
7DC4 4C00 7D0E            1244 | OUTDX BSC  L  OUT12    OUTPUT NAME                  K1812410
                          1245 | *                                                   K1812420
7DC6 C36E                 1246 | OUTD5 LD    3 NAME-Z   LOAD NAME                    K1812430
7DC7 432A                 1247 |       BSI   3 SYMT-Z   GET SYM TBL ID WORD          K1812440
7DC8 4810                 1248 |       BSC     -        SKIP IF INTEGER              K1812450
7DC9 70E9                 1249 |       MDX     OUTD2    BRANCH IF NOT                K1812460
                          1250 | *                                                   K1812470
7DCA C3E0                 1251 |       LD    3 FAXI-Z   LOAD .CALL FAXI.             K1812480
7DCB 70E0                 1252 |       MDX     OUTC5    OUTPUT CALL                  K1812490
                          1253 | *                                                   K1812500
                          1254 | *             REVERSE SUB                           K1812510
7DCC C3B9                 1255 | OUTF1 LD    3 STNA1-Z  LOAD SYM TBL ID WORD         K1812520
7DCD 4810                 1256 |       BSC     -        SKIP IF INTEGER              K1812530
7DCE 7009                 1257 |       MDX     OUTF4    BRANCH IF NOT                K1812540
7DCF C3F1                 1258 |       LD    3 STOFA-Z  LOAD .STO FAC+1.             K1812550
7DD0 D200                 1259 |       STO   2 0        PUT ON O/P STRING            K1812560
7DD1 C36E                 1260 |       LD    3 NAME-Z   LOAD NAME                    K1812570
7DD2 E311                 1261 |       AND   3 H07FF-Z  GET SYM TBL ENTRY NO         K1812580
7DD3 83F8                 1262 |       A     3 LDL-Z    COMBINE WITH .LD L.          K1812590
7DD4 D201                 1263 |       STO   2 1        PUT ON O/P STRING            K1812600
7DD5 43B1                 1264 |       BSI   3 INCR-Z   MOVE O/P PT, INCREMENT NORM  K1812610
7DD6 C3EF                 1265 |       LD    3 SFAC-Z   LOAD .S FAC+1.               K1812620
7DD7 70EC                 1266 |       MDX     OUTDX    OUTPUT                       K1812630
                          1267 | *                                                   K1812640
7DD8 C3DD                 1268 | OUTF4 LD    3 FSBR-Z   LOAD.CALL FSBR.              K1812650
7DD9 70D2                 1269 |       MDX     OUTC5    OUTPUT                       K1812660
                          1270 | *                                                   K1812670
                          1271 | *             REVERSE DIVIDE                        K1812680
7DDA C3B9                 1272 | OUTG1 LD    3 STNA1-Z  LOAD SYM TBL ID WORD         K1812690
7DDB 4810                 1273 |       BSC     -        SKIP IF INTEGER              K1812700
7DDC 700B                 1274 |       MDX     OUTG4    BRANCH IF NOT                K1812710
7DDD C3F1                 1275 |       LD    3 STOFA-Z  LOAD .STO FAC+1.             K1812720
7DDE D200                 1276 |       STO   2 0        OUTPUT                       K1812730
7DDF C36E                 1277 |       LD    3 NAME-Z   LOAD NAME                    K1812740
7DE0 EBF8                 1278 |       OR    3 LDL-Z    COMBINE WITH .LD L.          K1812750
7DE1 D201                 1279 |       STO   2 1        PUT ON O/P STRING            K1812760
7DE2 C3E5                 1280 |       LD    3 SRT16-Z  LOAD .SRT 16.                K1812770
7DE3 D202                 1281 |       STO   2 2        PUT ON O/P STRING            K1812780
7DE4 43B1                 1282 |       BSI   3 INCR-Z   INCREMENT NORM, MOVE O/P PT  K1812790
7DE5 43B1                 1283 |       BSI   3 INCR-Z   INCREMENT NORM, MOVE O/P PT  K1812800
7DE6 C3DC                 1284 |       LD    3 DFAC-Z   LOAD .D  FAC+1.              K1812810
7DE7 70DC                 1285 |       MDX     OUTDX    OUTPUT                       K1812820
                          1286 | *                                                   K1812830
7DE8 C3DB                 1287 | OUTG4 LD    3 FDVR-Z   LOAD .CALL FDVR.             K1812840
7DE9 70C2                 1288 |       MDX     OUTC5    OUTPUT                       K1812850
                          1289 | *                                                   K1812860
                          1290 | *             MAKES THE MODE OF THE GT AGREE WITH   K1812870
                          1291 | *             THE CURRENT MODE OF THE MODE SW       K1812880
                          1292 | *                                                   K1812890
7DEA 0000                 1293 | GTMOD DC      0        ENTRY POINT                  K1812900
7DEB D3C4                 1294 |       STO   3 GTMO3-Z  SAVE WORD                    K1812910
7DEC 432A                 1295 |       BSI   3 SYMT-Z   GET SYM TBL ID WORD          K1812920
7DED C3BD                 1296 |       LD    3 MODSW-Z  TEST MODE                    K1812930
7DEE 4C08 7DF2            1297 |       BSC  L  GTMO1,+  RANCH IF FLOATING PT         K1812940
7DF0 C31E                 1298 |       LD    3 H4028-Z  SET ID WORD TO FIXED PT      K1812950
7DF1 7001                 1299 |       MDX     GTMO2    PUT IN TABLE                 K1812960
7DF2 C317                 1300 | GTMO1 LD    3 H0028-Z  SET ID WORD TO FLOATING PT   K1812970
7DF3 D480 7CDA            1301 | GTMO2 STO  I  SYMT1+1  STORE IN TABLE               K1812980
7DF5 C3C4                 1302 |       LD    3 GTMO3-Z  RESTORE ACCUMULATOR          K1812990
7DF6 4C80 7DEA            1303 |       BSC  I  GTMOD    RETURN                       K1813000
                          1304 | *                                                   K1813010
                          1305 | *                                                   K1813020
                          1306 | *             MAKES THE SYM TBL ENTRY FOR THE       K1813030
                          1307 | *             SUBROUTINE NAMES FAXB AND EAXB SINCE  K1813040
                          1308 | *             THEY ARE 2-WORD CALLS                 K1813050
                          1309 | *                                                   K1813060
7DF8 0000                 1310 | CAXB  DC      0        ENTRY POINT                  K1813070
                          1311 | *                                                   K1813080
                          1312 | *             GET NAM+ OF NEXT SYMT ENTRY           K1813090
                          1313 | *             AND STORE                             K1813100
                          1314 | *                                                   K1813110
7DF9 433A                 1315 |       BSI   3 STENT-Z  GET NEXT SYM TBL ENTRY NO.   K1813120
7DFA D3D8                 1316 |       STO   3 FAXB-Z   SAVE ENTRY NO.               K1813130
7DFB D018                 1317 |       STO     CAXBX    SAVE ENTRY NO.               K1813140
                          1318 | *                                                   K1813150
7DFC C81F                 1319 |       LDD     NAME1    GET EBC-NAME .FABX.          K1813160
7DFD DBB7                 1320 | CAXB1 STD   3 TEMP-Z   STORE NAME                   K1813170
                          1321 | *                                                   K1813180
                          1322 | *             MAKE SYMBOL TABLE ID-WD ENTRY         K1813190
7DFE 6D00 7E10            1323 |       STX  L1 CAXB3+1  SAVE I/P PT                  K1813200
7E00 6580 7A2A            1324 |       LDX  I1 EOFST    LOAD XR1 WITH END OF STRING  K1813210
7E02 C316                 1325 |       LD    3 H0080-Z  MAKE ID WORD A SUBPROGRAM    K1813220
7E03 D103                 1326 |       STO   1 3        PUT IN SYM TBL               K1813230
                          1327 | *                                                   K1813240
                          1328 | *             IF EXTENDED PREC, CHANGE              K1813250
                          1329 | *             NAME                                  K1813260
                          1330 | *                                                   K1813270
7E04 C400 7A31            1331 |       LD   L  CCWD                                  K1813280
7E06 100D                 1332 |       SLA     13       IS THERE STANDARD PRECISION  K1813290
7E07 4C10 7E0B            1333 |       BSC  L  CAXB2,-  BRANCH IFYES                 K1813300
                          1334 | *                                                   K1813310
                          1335 | *             CHANGE NAME TO BEGIN WITH .E.         K1813320
7E09 C016                 1336 |       LD      NAME3    CHANGE .FAXB.                K1813330
7E0A D3B7                 1337 |       STO   3 TEMP-Z   TO .EAXB.                    K1813340
                          1338 | *                                                   K1813350
7E0B CBB7                 1339 | CAXB2 LDD   3 TEMP-Z   LOAD NAME                    K1813360
7E0C D104                 1340 |       STO   1 4        PUT 1ST WORD IN SYM TBL      K1813370
7E0D 18D0                 1341 |       RTE     16                                    K1813380
7E0E D105                 1342 |       STO   1 5        PUT 2ND WORD IN SYM TBL      K1813390
                          1343 | *                                                   K1813400
7E0F 6500 0000            1344 | CAXB3 LDX  L1 *-*      RESTORE I/P PT               K1813410
7E11 C002                 1345 |       LD      CAXBX    LOAD SUBPROGRAM NAME         K1813420
7E12 4C80 7DF8            1346 |       BSC  I  CAXB     RETURN                       K1813430
                          1347 | *                                                   K1813440
                          1348 | *                                                   K1813450
                          1349 | *             MAKES THE SYM TBL ENTRY FOR THE       K1813460
                          1350 | *             SUBROUTINE NAMES FAXBX AND EAXBX      K1813470
                          1351 | *             SINCE THEY ARE 2-WD CALLS             K1813480
                          1352 | *                                                   K1813490
7E14 0000                 1353 | CAXBX DC      0        ENTRY POINT                  K1813500
7E15 C0FE                 1354 |       LD      CAXBX    MOVE RETURN ADDR SO CAN USE  K1813510
7E16 D0E1                 1355 |       STO     CAXB     .CALL FABX. SUBROUTINE       K1813520
7E17 433A                 1356 |       BSI   3 STENT-Z  GET NEXT SYM TBL ENTRY NO.   K1813530
7E18 D0FB                 1357 |       STO     CAXBX    STORE                        K1813540
7E19 D3D9                 1358 |       STO   3 FAXBX-Z  STORE                        K1813550
7E1A C803                 1359 |       LDD     NAME2    LOAD EBC-NAME .FAXBX.        K1813560
7E1B 70E1                 1360 |       MDX     CAXB1    PUT IN SYM TBL               K1813570
                          1361 | *                                                   K1813580
                          1362 | *             CONSTANTS                             K1813590
7E1C                      1363 |       BSS  E  0                                     K1813600
7E1C 8C0C                 1364 | NAME1 DC      /8C0C    EBC-NAME                     K1813610
7E1D F080                 1365 |       DC      /F080    .FAXB.                       K1813620
7E1E 8C0C                 1366 | NAME2 DC      /8C0C    EBC-NAME                     K1813630
7E1F F0A7                 1367 |       DC      /F0A7    .FAXBX.                      K1813640
7E20 8A0C                 1368 | NAME3 DC      /8A0C    EBC-NAME .EAX.               K1813650
                          1369 | *                                                   K1813660
                          1370 | *                                                   K1813670
                          1371 | *             LOCATES THE NEXT OPTR NOT YET         K1813680
                          1372 | *             PROCESSED                             K1813690
                          1373 | *                                                   K1813700
7E21 0000                 1374 | FINDN DC      0        ENTRY POINT                  K1813710
7E22 D3B7                 1375 |       STO   3 TEMP-Z   STORE O/P SWITCH             K1813720
7E23 7102                 1376 |       MDX   1 2        INITIALIZE POINTER           K1813730
7E24 692E                 1377 |       STX   1 PFIND    SAVE I/P PT                  K1813740
7E25 C480 7E53            1378 | FINDA LD   I  PFIND    LOAD WORD IN STMNT           K1813750
7E27 931F                 1379 |       S     3 H1900-Z  IS WORD .CALL SUBSCR.        K1813760
7E28 4C18 7E3E            1380 |       BSC  L  MVSUB,+- BRANCH IF YES                K1813770
7E2A 9322                 1381 |       S     3 MDXL1-Z  IS IT .MDX L1.               K1813780
7E2B 4C18 7E3A            1382 |       BSC  L  MV3,+-   BRANCH IF YES                K1813790
7E2D 9323                 1383 |       S     3 LDXL-Z   IS IT .LDX L1.               K1813800
7E2E 4C18 7E3B            1384 |       BSC  L  MV2,+-   BRANCH IF YES                K1813810
7E30 9324                 1385 |       S     3 LDXI-Z   IS IT .LDX I1.               K1813820
7E31 4C18 7E3B            1386 |       BSC  L  MV2,+-   BRANCH IF YES                K1813830
7E33 9325                 1387 |       S     3 STXL1-Z  IS IT .STX L1.               K1813840
7E34 4C18 7E3B            1388 |       BSC  L  MV2,+-   BRANCH IF YES                K1813850
7E36 C480 7E53            1389 |       LD   I  PFIND    RESTORE WORD                 K1813860
7E38 4C80 7E21            1390 |       BSC  I  FINDN    RETURN                       K1813870
                          1391 | *                                                   K1813880
7E3A 400C                 1392 | MV3   BSI     MOVE1    MOVE WORD TO O/P STRING      K1813890
7E3B 400B                 1393 | MV2   BSI     MOVE1    MOVE WORD TO O/P STRING      K1813900
7E3C 400A                 1394 | MV1   BSI     MOVE1    MOVE WORD TO O/P STRING      K1813910
7E3D 70E7                 1395 |       MDX     FINDA    RETURN                       K1813920
7E3E 4008                 1396 | MVSUB BSI     MOVE1    MOVE WORD TO O/P STRING      K1813930
7E3F 4007                 1397 |       BSI     MOVE1    MOVE WORD TO O/P STRING      K1813940
7E40 4006                 1398 | MVS1  BSI     MOVE1    MOVE WORD TO O/P STRING      K1813950
7E41 4005                 1399 |       BSI     MOVE1    MOVE WORD TO O/P STRING      K1813960
7E42 C480 7E53            1400 |       LD   I  PFIND    LOAD WORD                    K1813970
7E44 4C10 7E40            1401 |       BSC  L  MVS1,-   BRANCH IF NOT TAGGED         K1813980
7E46 70F5                 1402 |       MDX     MV1      MOVE WORD, RETURN            K1813990
                          1403 | *                                                   K1814000
7E47 0000                 1404 | MOVE1 DC      0        ENTRY POINT                  K1814010
7E48 C3B7                 1405 |       LD    3 TEMP-Z   TEST SWITCH                  K1814020
7E49 4C20 7E4F            1406 |       BSC  L  MOVEX,Z  BRANCH NOT OUTPUT            K1814030
7E4B C480 7E53            1407 |       LD   I  PFIND    LOAD WORD                    K1814040
7E4D 4368                 1408 |       BSI   3 OUTUN-Z  PUT ON O/P STRING            K1814050
7E4E 7101                 1409 |       MDX   1 1        MOVE I/P PT                  K1814060
7E4F 7401 7E53            1410 | MOVEX MDX  L  PFIND,1  MOVE SUBROUTINE PT           K1814070
7E51 4C80 7E47            1411 |       BSC  I  MOVE1    RETURN                       K1814080
                          1412 | *                                                   K1814090
7E53 0000                 1413 | PFIND DC      0        POINTER IN SUBROUTINE        K1814100
                          1414 | *                                                   K1814110
                          1415 | *                                                   K1814120
                          1416 | *             NOT IN CARD SYSTEM                    K1814130
                          1417 | *                                                   K1814140
                          1418 | *                                                   K1814150
                          1419 | *             OUTPUTS DISK READ/WRITE STMNTS        K1814160
                          1420 | *                                                   K1814170
7E54 C480 7C67            1421 | D5011 LD   I  INID     LOAD STMNT ID WORD           K1814180
7E56 E30B                 1422 |       AND   3 H07FC-Z  GET NORM                     K1814190
7E57 1802                 1423 |       SRA     2        RIGHT JUSTIFY                K1814200
7E58 83C2                 1424 |       A     3 INID-Z   GET ADDR OF NEXT STMNT       K1814210
7E59 9301                 1425 |       S     3 ONE-Z    SUBTRACT ONE                 K1814220
7E5A D028                 1426 |       STO     NXTID    SAVE ADDRESS                 K1814230
7E5B C103                 1427 |       LD    1 3        LOAD WORD                    K1814240
7E5C 432A                 1428 |       BSI   3 SYMT-Z   GET SYM TBL ID WORD          K1814250
7E5D 4C10 7E69            1429 |       BSC  L  D5021,-  BRANCH IF NOT INTEGER        K1814260
                          1430 | *                                                   K1814270
                          1431 | *             OUTPUT REST OF READ/WRITE             K1814280
                          1432 | *             STATEMENT                             K1814290
                          1433 | *                                                   K1814300
7E5F 7101                 1434 | D5013 MDX   1 1        MOVE I/P PT                  K1814310
7E60 C100                 1435 |       LD    1 0        LOAD WORD                    K1814320
7E61 4368                 1436 |       BSI   3 OUTUN-Z  PUT ON O/P STRING            K1814330
7E62 6921                 1437 |       STX   1 TSX1     STORE I/P PT                 K1814340
7E63 C020                 1438 |       LD      TSX1     TEST FOR END                 K1814350
7E64 901E                 1439 |       S       NXTID    OF STMNT                     K1814360
7E65 4C10 7A45            1440 |       BSC  L  P1021,-  BRANCH IF END OF STMNT       K1814370
7E67 4C00 7E5F            1441 |       BSC  L  D5013    CONTINUE O/P                 K1814380
                          1442 | *                                                   K1814390
                          1443 | *             ERROR ENCOUNTERED                     K1814400
                          1444 | *             EXPRESSION NOT INTEGER                K1814410
                          1445 | *             IN READ/WRITE STMT                    K1814420
                          1446 | *                                                   K1814430
7E69 6680 7C58            1447 | D5021 LDX  I2 OUTID    RESET O/P PT                 K1814440
7E6B 6580 7C67            1448 |       LDX  I1 INID     RESET I/P PT                 K1814450
7E6D C012                 1449 |       LD      HA008    LOAD ERROR STMNT ID WORD     K1814460
7E6E D200                 1450 |       STO   2 0        PUT ON O/P STRING            K1814470
7E6F C100                 1451 |       LD    1 0        LOAD STMNT ID WORD           K1814480
7E70 100F                 1452 |       SLA     15       DOES STMNT HAVE STMNT NO.    K1814490
7E71 4C10 7E78            1453 |       BSC  L  D5023,-  BRANCH IF NOT                K1814500
7E73 C00D                 1454 |       LD      HA00D    REPLACE ERROR ID WORD WITH   K1814510
7E74 D200                 1455 |       STO   2 0        ERROR WORD WITH STMNT NO.    K1814520
7E75 C101                 1456 |       LD    1 1        LOAD STMNT NO.               K1814530
7E76 D201                 1457 |       STO   2 1        PUT ON O/P STRING            K1814540
7E77 7201                 1458 |       MDX   2 1        MOVE O/P PT                  K1814550
7E78 C009                 1459 | D5023 LD      ERNO     LOAD ERROR NO.               K1814560
7E79 D201                 1460 |       STO   2 1        PUT ON O/P STRING            K1814570
7E7A 7201                 1461 |       MDX   2 1        MOVE O/P PT                  K1814580
7E7B 6580 7E83            1462 |       LDX  I1 NXTID    MOVE I/P PT TO NEXT STMNT    K1814590
                          1463 | *                                                   K1814600
7E7D 4C00 7A45            1464 |       BSC  L  P1021    PROCESS NEXT STMNT           K1814610
                          1465 | *                                                   K1814620
7E7F 0054                 1466 | EXPRO DC      /0054    EXPRESSION OPERATOR          K1814630
7E80 A008                 1467 | HA008 DC      /A008    ERROR STMNT ID WORD          K1814640
7E81 A00D                 1468 | HA00D DC      /A00D    ERROR ID WITH STMNT NO.      K1814650
7E82 0049                 1469 | ERNO  DC      73       ERROR NO. 73                 K1814660
7E83 0000                 1470 | NXTID DC      0        ADDR OF NEXT I/P STMNT - 1   K1814670
7E84 0000                 1471 | TSX1  DC      0                                     K1814680
                          1472 | *                                                   K1814690
                          1473 | *                                                   K1814700
                          1474 | *             BR TO LOADER TO LOAD NEST PHASE       K1814710
                          1475 | *                                                   K1814720
7E85 C400 7A26            1476 | EXIT  LD   L  SOFST     LD START OF S.T. ADDR  2-11 K1814721
7E87 9400 7CB7            1477 |       S    L  STLEN     SUB MAX S/T LENGTH     2-11 K1814723
7E89 9400 7A2A            1478 |       S    L  EOFST     SUB ACTUAL LIMIT       2-11 K1814725
7E8B 4C08 7E92            1479 |       BSC  L  EXIT1,+   IF ACTUAL EXCEEDS MAX, 2-11 K1814726
7E8D C400 7A2D            1480 |       LD   L  ERROR     LOAD ERROR INDICATOR   2-11 K1814727
7E8F E807                 1481 |       OR      ERR8      *SET ERROR BIT         2-11 K1814728
7E90 D400 7A2D            1482 |       STO  L  ERROR     * AND RESTORE          2-11 K1814729
7E92 6580 7E99            1483 | EXIT1 LDX  I1 NXTPH+1   LOAD PARAM FOR READING 2-11 K1814730
7E94 C805                 1484 |       LDD     NXTPH+2  NEXT PHASE                   K1814740
7E95 4C00 7FBC            1485 |       BSC  L  ROL      GO TO READ NEXT PHASE        K1814750
7E97 0080                 1486 | ERR8  DC      128       TO SET ERROR BIT ON    2-11 K1814755
7E98                      1487 |       BSS  E  0                                     K1814760
7E98 0031                 1488 | NXTPH DC      49       ID OF NEXT PHASE             K1814770
7E99 0000                 1489 |       DC      *-*      CORE ADDRESS NEXT PHASE      K1814780
7E9A 0000                 1490 |       DC      *-*      WORD COUNT NEXT PHASE        K1814790
7E9B 0000                 1491 |       DC      *-*      SECTOR ADDRESS NEXT PHASE    K1814800
                          1492 | *                                                   K1814810
                          1493 | *                                                   K1814820
7E9C                      1494 |       BSS     153       PATCH AREA             2-11 K1814830
7F35 0000                 1495 |       DC       0                                    K1814840
7F36                      1496 |       END     BPHAR-2                               K1814850
 
There were no errors in this assembly
 
=== CROSS REFERENCES ==========================================================
Name  Val   Defd  Referenced
$PHSE 0078    73  126
A7A72 7A73   184  181
ADRC1 7D5D  1117 1087
ADRC2 7D5E  1118 1089
AL    7C8B   827 1113 1117 1118
BPHAR 7A36   119 1496
BSCL1 7CB1   877  509
BSCL2 7CB2   878  519
BSCL3 7CB3   879  521
BSCL4 7CB4   880  537
BSCL5 7CB5   881  540
BSCL6 7C97   841  550
CALLX 7CAE   905  261
CAXB  7DF8  1310 1237 1346 1355
CAXB1 7DFD  1320 1360
CAXB2 7E0B  1339 1333
CAXB3 7E0F  1344 1323
CAXBX 7E14  1353 1231 1317 1345 1354 1357
CCWD  7A31    94  489 1133 1331
CMPGT 7D05   973
COMON 7A2B    87
CONT  7C5C   770  131
CSIZE 7A2C    88
CWORD 7D12  1023 1035 1058 1062 1080 1085 1095
D5011 7E54  1421  192  256
D5013 7E5F  1434 1441
D5021 7E69  1447 1429
D5023 7E78  1459 1453
DFAC  7C81   811 1284
DFCNT 7A33   113
DL    7C89   820 1129
ENT   7A36   125
EOFS  7A25    81  129  221  775  779
EOFST 7A2A    86  773  933  935 1324 1478
ERNO  7E82  1469 1459
ERR8  7E97  1486 1481
ERROR 7A2D    89  127  782 1480 1482
EXIT  7E85  1476  128  222  783
EXIT1 7E92  1483 1479
EXP   7CB9   886  327
EXPRO 7E7F  1466  255
FADD  7C8D   829 1113
FARIT 7C87   818 1147
FAXB  7C7D   804 1236 1316
FAXBX 7C7E   806 1230 1358
FAXI  7C85   815 1251
FDIV  7C8F   831
FDVR  7C80   810 1287
FIF   7C99   843  494
FIIF  7C98   842  497
FIND  7C8A   911  175
FINDA 7E25  1378 1395
FINDN 7E21  1374  249  270  419  445 1390
FIXI  7C84   814 1211
FLD   7C9E   849  617  706  734 1194
FLT   7C9F   850  304  340  360  421  436  591 1214
FMPY  7C91   833
FNAME 7A2E    91
FOUR  7CA9   867  145  156  868 1053
FSBR  7C82   812 1268
FSTO  7C9B   845  351  413 1156 1169
FSUB  7C8E   830
GETGT 7D01   968  353  358  415  425  970  982 1164 1172 1200
GTMO1 7DF2  1300 1297
GTMO2 7DF3  1301 1299
GTMO3 7C69   766 1294 1302
GTMOD 7DEA  1293  285  354  416 1176 1303
H0004 7CA9   868  400 1098
H000C 7C7F   809 1096
H000E 7CAE   873  275  391  905 1041 1081
H0028 7CBC   889  980 1300
H0036 7C92   836 1120
H0038 7D00   965  949
H003E 7CFF   964  329  947  960
H0054 7CBD   890  180
H0080 7CBB   888  187 1325
H0220 7C83   813  635
H07FC 7CB0   876  208 1422
H07FF 7CB6   882  916 1261
H1300 7CCE   908  409
H1900 7CC4   897 1379
H1C80 7C3D   713  710
H3000 7CA4   861 1226
H4000 7CC0   893
H4028 7CC3   896 1298
H4220 7CCD   907  633
H4800 7CAC   871  199  407
H5980 7CBE   891 1107
H6000 7CC5   898  611  619
H8000 7CB8   885  938
H800C 7CAF   874 1139
H8380 7CC6   899  616
H8800 7C9D   848 1184
H9000 7C86   817  909 1165
HA008 7E80  1467 1449
HA00D 7E81  1468 1454
HB000 7CBF   892 1105
HD000 7CBA   887  170
HERE  7A7E   194  178  190
HF800 7CAA   869  147  342  367  471  566  704 1192 1217
HF803 7C93   837  144
IARIT 7C88   819 1145
IF    7CCC   906  263
IFIX  7C9C   846  296  396  602  614
INCR  7C56   744  747 1012 1128 1171 1178 1196 1199 1216 1241 1264 1282 1283
INID  7C67   764  150  205 1421 1424 1448
IOCS  7A32   102
LDFAC 7C9A   844  487
LDL   7C9D   847  732  848 1262 1278
LDXI  7CC9   902 1385
LDXL  7CC8   901 1383
LIBFF 7CC2   895  189
LIBFR 7CC1   894  185
MDXL1 7CC7   900 1381
MEMRY 8000    70   71   72
MODSW 7C62   759  166  293  301  314  337  343  346  368  376  467  472  484
                  492  561  567  695  705  714 1160 1182 1193 1204 1218 1296
MOVCT 7C5D   801  772  790
MOVE1 7E47  1404 1392 1393 1394 1396 1397 1398 1399 1411
MOVEX 7E4F  1410 1406
MOVST 7C6F   786  781  791
MV1   7E3C  1394 1402
MV2   7E3B  1393 1384 1386 1388
MV3   7E3A  1392 1382
MVS1  7E40  1398 1401
MVSUB 7E3E  1396 1380
NADR  7C57   745  748 1052 1054
NAME  7D13  1024 1031 1043 1070 1074 1078 1104 1183 1197 1201 1207 1224 1243
                 1246 1260 1277
NAME1 7E1C  1364 1319
NAME2 7E1E  1366 1359
NAME3 7E20  1368 1336
NFLT  7CA0   856  585
NIFIX 7CA2   858  596
NORM  7C64   761  209  212
NXTGT 7D0C   983  969  974
NXTID 7E83  1470 1426 1439 1462
NXTPH 7E98  1488  122 1483 1484
ONE   7CA6   864  375  466  560  575  644  666  694  771  917 1181 1425
OUT12 7D0E  1011 1071 1108 1244
OUT13 7D10  1013 1076
OUT31 7D15  1031
OUT33 7D2A  1058 1042 1046
OUT41 7D2E  1062
OUT43 7D31  1069 1115 1146 1148 1157 1212
OUT44 7D34  1074 1064 1101 1130 1155
OUT51 7D37  1078 1061
OUT53 7D50  1100 1088 1113 1114
OUT54 7D53  1104 1097
OUT55 7D58  1113 1092
OUT61 7D5F  1120 1084
OUT85 7D66  1126 1099
OUT91 7D6B  1133 1082
OUT93 7D7A  1147 1144
OUT95 7D7C  1150 1136 1141
OUTA1 7D82  1156 1152
OUTB1 7D84  1160 1124
OUTB2 7D8A  1169 1161
OUTB3 7D8E  1173 1166
OUTC1 7DA1  1199 1187
OUTC3 7DA2  1200
OUTC4 7DA4  1204 1090
OUTC5 7DAC  1212 1252 1269 1288
OUTD1 7DAE  1214 1210
OUTD2 7DB3  1220 1249
OUTD3 7DBE  1236 1227
OUTD4 7DC1  1240 1233
OUTD5 7DC6  1246 1206
OUTDX 7DC4  1244 1266 1285
OUTF1 7DCC  1255 1121
OUTF4 7DD8  1268 1257
OUTG1 7DDA  1272 1123
OUTG4 7DE8  1287 1274
OUTID 7C58   748  149  157  158  206 1447
OUTNA 7D14  1030  318  355  417  426  449  524  543  553  701  709 1032 1056
OUTOP 7D0D  1021  316  352  447  522  541  551  699  707
OUTUN 7D0D  1010  234  297  305  341  361  397  414  422  424  437  488  498
                  612  618  620  625  645  647  667  673  697  711  718  720
                  722  735  737 1013 1021 1033 1408 1436
OVERL 7A24    71   74
P1011 7A40   135  799
P1021 7A45   141  219  251  555 1440 1464
P1022 7A47   143
P1023 7A56   156  153
P1031 7A5F   165  154
P1041 7A87   205
P1042 7A8E   210  227
P1043 7A9B   225  213
P1044 7A97   221
P1051 7A9E   233  237
P1052 7AA0   235  171
P2011 7AA4   247  183  196  198  200  320  452  639  650  680  703
P2013 7AB8   269
P2031 7ACC   290  281
P2032 7AD5   301  292
P2033 7ADA   313  286  295  298  303
P2041 7ADC   315  328  330  339  344  348  365
P2051 7AE2   326  276
P2052 7AF5   346  336
P2061 7AF8   351
P2071 7B08   367  273
P2081 7B18   381  371
P2083 7B1C   386  402
P2091 7B1F   390  374
P2093 7B28   400  393
P2099 7B47   428  410
P2101 7B4F   434  384
P2111 7B53   443  379  388  398
P2112 7B57   446  443
P3010 7B5D   450  427
P3011 7B60   459  264
P3012 7B78   484  481
P301A 7B6F   475  462  470
P3020 7B88   497  493
P3021 7B7D   489  486
P3022 7B8A   499  491  496
P3031 7B96   513  506
P3032 7B9E   521  516
P3033 7B9F   522  510  520
P3041 7BA2   525  502
P3042 7BB0   540  534
P3043 7BB1   541  538
P3051 7BB4   544  527  530
P3053 7BBE   554  546  549
P5011 7BC1   560  262
P5012 7BC9   572  565
P5013 7BDF   595  586  588
P5015 7BE7   605  592
P5016 7C09   644  597  599
P5017 7BF9   622  610
P5018 7BFB   624  621
P501X 7BCE   577  576  579  580
P5023 7C11   656  681
P5024 7C1B   672  659  661
P6011 7C22   687  260
P6012 7C31   702  712  723
P6021 7C34   704  693
P6022 7C3A   710  716
P6024 7C3E   714  689
PFIND 7E53  1413  369  430  433  448 1377 1378 1389 1400 1407 1410
PHID  0030    75  125
READ  7C86   909  173
REV1  7CF9   959  951  954
REV2  7CFB   961  948
REV3  7CFC   962  957
REVOP 7CEB   945  363  404  963
ROL   7FBC    72 1485
SCKL1 7C50   734  730
SCKL2 7C53   737  733
SCKL3 7C61   758  728  731  736
SCKLD 7C48   727  357  378  387  395  412  420  435  465  623  738
SFAC  7C94   838  721 1265
SL    7C8C   828  698  910
SLA16 7C95   839  696  719
SOFGT 7A29    85
SOFIS 7C65   762  135  796
SOFNS 7A27    83
SOFS  7A24    80  130  136
SOFST 7A26    82  797  919  934 1476
SOFXT 7A28    84
SORF  7A30    93
SRT16 7C8A   821  911 1126 1280
SSOST 7C68   765  798
START 7A3C   129
STENT 7CDF   932  939  973 1315 1356
STLEN 7CB7   883 1477
STNA1 7C5E   755  290  468  926 1091 1137 1142 1150 1255 1272
STNCH 7C66   763  476  483  500  528  547
STOFA 7C96   840  717 1258 1275
STOL  7C86   816  817 1154
STTYP 7C63   760  148  169  172  194  217
STXL1 7CCA   903 1387
SYMT  7CCF   915  278  334  370  373  382  460  563  573  607  631  657  691
                  729  927  979 1044 1079 1186 1208 1225 1247 1295 1428
SYMT1 7CD9   924  574  636  918  920  921  922  923  981 1301
TCALL 7CAB   870  197
TEMP  7C5C   752  578  581  584  595  605  613  624  769  778  780  801 1320
                 1337 1339 1375 1405
TEMP2 7C60   757  946  959  961  962
TEND  7CAD   872  218
THREE 7CA8   866  937
TSX1  7E84  1471 1437 1438
TWO   7CA7   865  952  955 1122 1220
UNARY 7CCB   904  259
WRITE 7C8C   910  177
Z     7CA5   863  144  145  147  148  156  166  169  170  172  173  175  177
                  180  185  187  189  194  197  199  208  209  217  218  234
                  248  259  261  263  275  278  290  293  296  297  301  304
                  305  313  314  316  318  327  329  334  337  340  341  342
                  343  346  351  352  353  355  357  358  360  361  363  367
                  368  370  373  375  376  378  382  387  391  395  396  397
                  400  404  407  409  412  413  414  415  417  420  421  422
                  424  425  426  435  436  437  444  447  449  460  465  466
                  467  468  471  472  475  476  483  484  487  488  492  494
                  497  498  500  509  519  521  522  524  528  537  540  541
                  543  547  550  551  553  560  561  563  566  567  573  574
                  575  578  581  584  585  591  595  596  602  605  607  611
                  612  613  614  616  617  618  619  620  623  624  625  631
                  633  635  644  645  647  657  666  667  673  691  694  695
                  696  697  698  699  701  704  705  706  707  709  711  714
                  717  718  719  720  721  722  729  732  734  735  737  771
                  798  916  917  926  937  938  946  947  952  955  959  961
                  962  969  973  974  979  980 1012 1041 1044 1053 1079 1081
                 1091 1096 1098 1104 1105 1107 1120 1122 1126 1128 1129 1137
                 1139 1142 1145 1147 1150 1154 1156 1160 1164 1165 1169 1171
                 1172 1178 1181 1182 1183 1184 1186 1192 1193 1194 1196 1197
                 1199 1200 1201 1204 1207 1208 1211 1214 1216 1217 1218 1220
                 1224 1225 1226 1230 1236 1241 1243 1246 1247 1251 1255 1258
                 1260 1261 1262 1264 1265 1268 1272 1275 1277 1278 1280 1282
                 1283 1284 1287 1294 1295 1296 1298 1300 1302 1315 1316 1320
                 1325 1337 1339 1356 1358 1375 1379 1381 1383 1385 1387 1405
                 1408 1422 1424 1425 1428 1436
ZERO  7CA5   862  248  313  444  475  770  863