KFORPH16

Table Of Contents
  • [00004] 1130 FORTRAN COMPILER PHASE 16
kforph16.lst
ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov  1 19:25:06 2020
 
Source File: \kforph16.asm 
1130 FORTRAN COMPILER PHASE 16
 
                             2 | *************************************************** K1600020
                             3 | *STATUS - VERSION 2, MODIFICATION 11              * K1600030
                             4 | *                                                 * K1600040
                             5 | *FUNCTION/OPERATION-                              * K1600050
                             6 | *   * CONVERTS ALL READ, WRITE, FIND, IF, GOTO,   * K1600060
                             7 | *     CALL, STATEMENT FUNCTION, AND ARITHMETIC    * K1600070
                             8 | *     STATEMENTS INTO MODIFIED POLISH NOTATION.   * K1600080
                             9 | *   * ESTABLISHES THE ORDER OF ARITHMETIC         * K1600090
                            10 | *     OPERATIONAL PERFORMANCE.                    * K1600100
                            11 | *   * SETS UP THE ARGUMENTS FOR SUBROUTINE CALLS  * K1600110
                            12 | *     TO BE GENERATED.                            * K1600120
                            13 | *                                                 * K1600130
                            14 | *ENTRY POINTS-                                    * K1600140
                            15 | *   ENQ- ENTERED VIA CALL TO THE ROL SUBROUTINE   * K1600150
                            16 | *        FROM THE PREVIOUS PHASE.                 * K1600160
                            17 | *                                                 * K1600170
                            18 | *INPUT-                                           * K1600180
                            19 | *   NONE IN THE USUAL SENSE.  HOWEVER THE STMNT   * K1600190
                            20 | *   STRING AND SYMBOL TABLE SCANNED BY THE        * K1600200
                            21 | *   COMPILER MAY BE CONSIDERED INPUT              * K1600210
                            22 | *                                                 * K1600220
                            23 | *OUTPUT-                                          * K1600230
                            24 | *   MODIFICATION OF THE STRING AND SYMBOL TABLE   * K1600240
                            25 | *   MAY BE CONSIDERED OUTPUT                      * K1600250
                            26 | *                                                 * K1600260
                            27 | *EXTERNAL REFERENCES                              * K1600270
                            28 | *   $PHSE                                         * K1600280
                            29 | *                                                 * K1600290
                            30 | *EXITS-                                           * K1600300
                            31 | *   EXIT IS MADE TO THE NEXT PHASE VIA A CALL TO  * K1600310
                            32 | *   THE ROL SUBROUTINE.                           * K1600320
                            33 | *                                                 * K1600330
                            34 | *TABLES/WORK AREAS-                               * K1600340
                            35 | *   STATEMENT STRING                              * K1600350
                            36 | *   SYMBOL TABLE                                  * K1600360
                            37 | *   FCOM                                          * K1600370
                            38 | *                                                 * K1600380
                            39 | *ATTRIBUTES                                       * K1600390
                            40 | *   N/A                                           * K1600400
                            41 | *                                                 * K1600410
                            42 | *NOTES-                                           * K1600420
                            43 | *   THE SWITCHES USED IN THIS PHASE FOLLOW.       * K1600430
                            44 | *   IF NON-ZERO, THE SWITCH IS TRANSFER=T         * K1600440
                            45 | *   IF ZERO, THE SWITCH IS NORMAL=N               * K1600450
                            46 | *   SWITCH SW1 GENERATE TEMPORARIES               * K1600460
                            47 | *     T = GENERATED TEMPORARIES REQUESTED         * K1600470
                            48 | *   SWITCH SW2 FAC IN OUTPUT EXPRESSION           * K1600480
                            49 | *     T = FAC INCLUDED IN OUTPUT EXPRESSION       * K1600490
                            50 | *   SWITCH SW3 FAC CHECK                          * K1600500
                            51 | *     T = FAC IS ON STRING                        * K1600510
                            52 | *                                                 * K1600520
                            53 | *   ERRORS DETECTED IN THIS PHASE - 64            * K1600530
                            54 | *************************************************** K1600540
                            55 |       ABS                                           K1600550
                            56 | *                                                   K1600560
                            57 | *                       SYSTEM EQUATES              K1600570
8000                        58 | MEMRY EQU     /8000                                 K1600580
7A24                        59 | OVERL EQU     MEMRY-1500 START OF FCOM              K1600590
7FBC                        60 | ROL   EQU     MEMRY-68   LOCN OF RTN TO READ NXT PH K1600600
0078                        61 | $PHSE EQU     /78        NO. OF PHASE NOW IN CORE   K1600610
7A24                        62 |       ORG     OVERL                                 K1600620
002E                        63 | PHID  EQU     46         ID NUMBER THIS PHASE       K1600630
                            64 | *                                                   K1600640
                            65 | *                  FORTRAN COMMUNICATION AREA       K1600650
7A24                        66 | SOFS  BSS     1    START OF STRING                  K1600660
7A25                        67 | EOFS  BSS     1    END OF STRING                    K1600670
7A26                        68 | SOFST BSS     1    START OF SYMBOL TABLE            K1600680
7A27                        69 | SOFNS BSS     1    START OF NON-STATEMENT NUMBERS   K1600690
7A28                        70 | SOFXT BSS     1    START OF SUBSCRIPT TEMPORARIES   K1600700
7A29                        71 | SOFGT BSS     1    START OF GENERATED TEMPORARIES   K1600710
7A2A                        72 | EOFST BSS     1    END OF SYMBOL TABLE              K1600720
7A2B                        73 | COMON BSS     1    NEXT AVAILABLE COMMON            K1600730
7A2C                        74 | CSIZE BSS     1    SIZE OF COMMON                   K1600740
7A2D                        75 | ERROR BSS     1    OVERLAP ERROR                    K1600750
7A2E                        76 | FNAME BSS     1         PROGRAM NAME                K1600760
7A2F                        77 |       BSS     1                                     K1600770
7A30                        78 | SORF  BSS     1    SUBROUTINE(-) OR FUNCTION(+)     K1600780
7A31                        79 | CCWD  BSS     1    CONTROL CARD WORD                K1600790
                            80 | *                BIT 15 TRANSFER TRACE              K1600800
                            81 | *                BIT 14 ARITHMETIC TRACE            K1600810
                            82 | *                BIT 13 EXTENDED PRECISION          K1600820
                            83 | *                BIT 12 LIST SYMBOL TABLE           K1600830
                            84 | *                BIT 11 LIST SUBPROGRAM NAMES       K1600840
                            85 | *                BIT 10 LIST SOURCE PROGRAM         K1600850
                            86 | *                BIT  9 ONE WORD INTEGERS           K1600860
7A32                        87 | IOCS  BSS     1    IOCS CONTROL CARD WORD           K1600870
                            88 | *                BIT 15 CARD                        K1600880
                            89 | *                BIT 14 PAPER TAPE                  K1600890
                            90 | *                BIT 13 TYPEWRITER                  K1600900
                            91 | *                BIT 12 1403 PRINTER                K1600910
                            92 | *                BIT 11 2501 READER                 K1600920
                            93 | *                BIT 10 KEYBOARD                    K1600930
                            94 | *                BIT  9 1442 PUNCH                  K1600940
                            95 | *                BIT  8 DISK                        K1600950
                            96 | *                BIT  7 1132 PRINTER                K1600960
                            97 | *                BIT  3 PLOTTER                     K1600970
7A33                        98 | DFCNT BSS     1                                     K1600980
                            99 | *                                                   K1600990
                           100 | *                                                   K1601000
                           101 | *                  END OF FORTRAN COMMUNICATION     K1601010
                           102 | *                  AREA                             K1601020
                           103 | *************************************************** K1601030
                           104 | *             THE SWITCHES USED IN PHASE 17 FOLLOW  K1601040
                           105 | *             IF NON ZERO, THE SWITCH IS TRANSFER=T K1601050
                           106 | *             IF ZERO, THE SWITCH IS NORMAL=N       K1601060
                           107 | *             SWITCH SW1  GENERATE TEMPORARIES      K1601070
                           108 | *               T= GENERATE TEMPORARIES OF REQUIRED K1601080
                           109 | *             SWITCH SW2  FAC IN OUTPUT EXPRESSION  K1601090
                           110 | *               T= FAC INCLUDED IN OUTPUT EXPRESS   K1601100
                           111 | *             SWITCH SW3  FAC CHECK                 K1601110
                           112 | *               T= FAC IS ON STRING                 K1601120
                           113 | *                                                   K1601130
                           114 | *                                                   K1601140
7A36                       115 | BPHAR EQU     *+2       BEGIN PH AREA               K1601150
7A34 0000                  116 |       DC      0          LOADER WORK AREA.          K1601160
7A35 FFD2                  117 |       DC      -46        -PHASE ID FOR SLET LOOKUP  K1601170
7A36 0020                  118 |       DC      NXTPH-*+1  TABLE FOR NEXT PHASE ENTRY K1601180
7A37 0001                  119 |       DC      1          ONE ENTRY TO BE SET BY LDR K1601190
7A36                       120 |       ORG     *-2                                   K1601200
7A36 612E                  121 | ENQ   LDX   1 PHID       GET ID THIS PHASE          K1601210
7A37 6D00 0078             122 |       STX  L1 $PHSE      STORE IN SYSTEM PHASE AREA K1601220
                           123 | *                                                   K1601230
                           124 | *             CHECK FOR OVERLAP                     K1601240
                           125 | *                                                   K1601250
7A39 C0F3                  126 |       LD      ERROR                                 K1601260
7A3A 4C20 7A51             127 |       BSC  L  GOSS,Z                                K1601270
                           128 | *                                                   K1601280
                           129 | *                  INITIALIZE PHASE                 K1601290
7A3C 6580 7A24             130 |       LDX  I1 SOFS                                  K1601300
7A3E C0EB                  131 |       LD      EOFST                                 K1601310
7A3F D0E9                  132 |       STO     SOFGT                                 K1601320
7A40 C0E9                  133 | RST   LD      EOFST                                 K1601330
7A41 D02E                  134 |       STO     ROFGT                                 K1601340
                           135 | *                                                   K1601350
                           136 | *                  STATEMENT TO BE SCANNED          K1601360
7A42 C100                  137 | SETUP LD    1 0                                     K1601370
7A43 180B                  138 |       SRA     11                                    K1601380
7A44 D028                  139 |       STO     XTMP1                                 K1601390
7A45 6308                  140 |       LDX   3 TYTBE-TYTB+1                          K1601400
7A46 C026                  141 |       LD      XTMP1                                 K1601410
7A47 9700 7A64             142 |       S    L3 TYTB-1                                K1601420
7A49 4C18 7A71             143 |       BSC  L  SCANI,+-                              K1601430
7A4B 73FF                  144 |       MDX   3 -1                                    K1601440
7A4C 70F9                  145 |       MDX     *-7                                   K1601450
                           146 | *                                                   K1601460
                           147 | *                  END STATEMENT                    K1601470
7A4D C01F                  148 |       LD      XTMP1                                 K1601480
7A4E 901F                  149 |       S       ENST                                  K1601490
7A4F 4C20 7A5A             150 |       BSC  L  NEXTS,Z                               K1601500
                           151 | *                                                   K1601510
                           152 | *                  READ AND GO TO NEXT PHASE        K1601520
7A51 6580 7A57             153 | GOSS  LDX  I1 NXTPH+1    LOAD PARAM FOR READING     K1601530
7A53 C804                  154 |       LDD     NXTPH+2    NEXT PHASE                 K1601540
7A54 4C00 7FBC             155 |       BSC  L  ROL        GO TO READ NEXT PHASE      K1601550
7A56                       156 |       BSS  E  0                                     K1601560
7A56 002F                  157 | NXTPH DC      47         ID OF NEXT PHASE           K1601570
7A57                       158 |       BSS     3          LOADER TABLE FOR NEXT PHS  K1601580
                           159 | *                                                   K1601590
                           160 | *                  MOVE TO NEXT STATEMENT           K1601600
7A5A C100                  161 | NEXTS LD    1 0                                     K1601610
7A5B E013                  162 |       AND     S07FC                                 K1601620
7A5C 1802                  163 |       SRA     2                                     K1601630
7A5D D001                  164 |       STO     *+1                                   K1601640
7A5E 7500 0000             165 |       MDX  L1 *-*                                   K1601650
                           166 | *                                                   K1601660
                           167 | *                  WAS LAST STATEMENT ASF           K1601670
7A60 C00C                  168 |       LD      XTMP1                                 K1601680
7A61 9004                  169 |       S       ASF                                   K1601690
7A62 4C18 7A40             170 |       BSC  L  RST,+-                                K1601700
7A64 70DD                  171 |       MDX     SETUP                                 K1601710
                           172 | *                                                   K1601720
                           173 | *                  TABLE OF TYPES TO BE SCANNED     K1601730
7A65 0000                  174 | TYTB  DC      /00       ARITHMETIC                  K1601740
7A66 001A                  175 | ASF   DC      /1A       ARITH STATEMENT FUNCTION    K1601750
7A67 0006                  176 |       DC      /06       CALL                        K1601760
7A68 000E                  177 |       DC      /0E       GO TO                       K1601770
7A69 000F                  178 |       DC      /0F       IF                          K1601780
7A6A 001D                  179 |       DC      /1D       FIND                        K1601790
7A6B 0011                  180 |       DC      /11       WRITE                       K1601800
7A6C 0012                  181 | TYTBE DC      /12       READ                        K1601810
                           182 | *                                                   K1601820
                           183 | *                  CONSTANTS                        K1601830
7A6D 0000                  184 | XTMP1 DC      0         TEMPERARY                   K1601840
7A6E 0002                  185 | ENST  DC      /02       END                         K1601850
7A6F 07FC                  186 | S07FC DC      /07FC                                 K1601860
7A70 0000                  187 | ROFGT DC      0                                     K1601870
                           188 | *                                                   K1601880
                           189 | *                  INITIALIZE FOR SCAN              K1601890
7A71 6D00 7B00             190 | SCANI STX  L1 IDSV1                                 K1601900
7A73 C100                  191 |       LD    1 0                                     K1601910
7A74 4804                  192 |       BSC     E                                     K1601920
7A75 7101                  193 |       MDX   1 1                                     K1601930
7A76 7102                  194 |       MDX   1 2                                     K1601940
7A77 6D00 7B2A             195 |       STX  L1 SNDOP                                 K1601950
7A79 1010                  196 |       SLA     16                                    K1601960
7A7A C480 7B00             197 |       LD   I  IDSV1                                 K1601970
7A7C 4802                  198 |       BSC     C                                     K1601980
7A7D 903D                  199 |       S       TS4                                   K1601990
7A7E E0F0                  200 |       AND     S07FC                                 K1602000
7A7F 1802                  201 |       SRA     2                                     K1602010
7A80 D00E                  202 |       STO     STNOM                                 K1602020
7A81 D038                  203 |       STO     INORM                                 K1602030
7A82 6700 7C43             204 |       LDX  L3 PNT                                   K1602040
7A84 6B31                  205 |       STX   3 OUTPT                                 K1602050
7A85 6700 7DD2             206 |       LDX  L3 PDL-2                            2-11 K1602060
7A87 6B2D                  207 |       STX   3 PUSHD                                 K1602070
7A88 1010                  208 |       SLA     16                                    K1602080
7A89 D400 7C25             209 |       STO  L  SW3                                   K1602090
                           210 | *                                                   K1602100
                           211 | *                                                   K1602110
                           212 | *             RESET GTS                             K1602120
                           213 | *                                                   K1602130
7A8B C0E4                  214 |       LD      ROFGT                                 K1602140
7A8C D400 7BB1             215 |       STO  L  XOFGT                                 K1602150
                           216 | *                  NORM LESS THAN 4                 K1602160
                           217 | *                                                   K1602170
7A8E 6700 0000             218 | CKNM  LDX  L3 *-*                                   K1602180
7A8F                       219 | STNOM EQU     CKNM+1                                K1602190
7A90 73FD                  220 |       MDX   3 -3                                    K1602200
7A91 7001                  221 |       MDX     ADV                                   K1602210
7A92 7055                  222 |       MDX     PTPOL                                 K1602220
                           223 | *                                                   K1602230
                           224 | *                  MOVE POINTER (1                  K1602240
7A93 7101                  225 | ADV   MDX   1 1                                     K1602250
                           226 | *                                                   K1602260
                           227 | *                  BOTH SYMBOLS OPERATORS           K1602270
7A94 C100                  228 | NAME  LD    1 0                                     K1602280
7A95 E9FE                  229 |       OR    1 -2                                    K1602290
7A96 4C28 7A93             230 |       BSC  L  ADV,+Z                                K1602300
                           231 | *                                                   K1602310
                           232 | *                  DO OPERATORS FORCE               K1602320
7A98 C100                  233 | FORCE LD    1 0                                     K1602330
7A99 D005                  234 |       STO     ROP+1                                 K1602340
7A9A C1FE                  235 |       LD    1 -2                                    K1602350
7A9B D007                  236 |       STO     LOP+1                                 K1602360
7A9C 6700 7DD5             237 |       LDX  L3 FTAB                                  K1602370
7A9E C700 0000             238 | ROP   LD   L3 *-*                                   K1602380
7AA0 E013                  239 |       AND     S00FF                                 K1602390
7AA1 D011                  240 |       STO     XTE1                                  K1602400
7AA2 C700 0000             241 | LOP   LD   L3 *-*                                   K1602410
7AA4 1808                  242 |       SRA     8                                     K1602420
7AA5 900D                  243 |       S       XTE1                                  K1602430
7AA6 4C30 7A93             244 |       BSC  L  ADV,Z-                                K1602440
                           245 | *                                                   K1602450
                           246 | *                  INTERPRETER                      K1602460
7AA8 7780 7AA3             247 |       MDX  I3 LOP+1                                 K1602470
7AAA C301                  248 |       LD    3 1                                     K1602480
7AAB D001                  249 |       STO     *+1                                   K1602490
7AAC 6600 0000             250 |       LDX  L2 *-*                                   K1602500
7AAE 7001                  251 |       MDX     *+1                                   K1602510
7AAF 7202                  252 | RETRR MDX   2 2                                     K1602520
7AB0 C201                  253 |       LD    2 1                                     K1602530
7AB1 4E80 0000             254 |       BSC  I2 0                                     K1602540
                           255 | *                                                   K1602550
                           256 | *                  CONSTANTS                        K1602560
7AB3 0000                  257 | XTE1  DC      0         TEMPERARY                   K1602570
7AB3                       258 | XRR2  EQU     XTE1                                  K1602580
7AB4 00FF                  259 | S00FF DC      /00FF                                 K1602590
7AB5 0000                  260 | PUSHD DC      0                                     K1602600
7AB6 0000                  261 | OUTPT DC      0                                     K1602610
7AB7 A008                  262 | ERID  DC      /A008                                 K1602620
7AB8 0005                  263 | FIVE  DC      5                                     K1602630
7AB9 0040                  264 | ERNO  DC      64                                    K1602640
7ABA 0000                  265 | INORM DC      0                                     K1602650
7ABB 0004                  266 | TS4   DC      4                                     K1602660
                           267 | *                                                   K1602670
                           268 | *                  CHECK OVERLAP IN OUTPUT AREA     K1602680
7ABC C0F8                  269 | OVCHK LD      PUSHD                                 K1602690
7ABD 90F8                  270 |       S       OUTPT                                 K1602700
7ABE 4C30 7BC3             271 |       BSC  L  RETRN,-Z                              K1602710
                           272 | *                                                   K1602720
                           273 | *                  PUT ERROR ON STRING              K1602730
7AC0 6580 7B00             274 | BADST LDX  I1 IDSV1                                 K1602740
7AC2 C100                  275 |       LD    1 0                                     K1602750
7AC3 4C04 7AC8             276 |       BSC  L  *+3,E                                 K1602760
7AC5 C0F1                  277 |       LD      ERID                                  K1602770
7AC6 D100                  278 |       STO   1 0                                     K1602780
7AC7 7006                  279 |       MDX     *+6                                   K1602790
7AC8 C0EE                  280 |       LD      ERID                                  K1602800
7AC9 80EE                  281 |       A       FIVE                                  K1602810
7ACA D100                  282 |       STO   1 0                                     K1602820
7ACB 7101                  283 |       MDX   1 1                                     K1602830
7ACC 7401 7ABA             284 |       MDX  L  INORM,1                               K1602840
7ACE C0EA                  285 |       LD      ERNO                                  K1602850
7ACF D101                  286 |       STO   1 1                                     K1602860
7AD0 7101                  287 |       MDX   1 1                                     K1602870
                           288 | *                                                   K1602880
                           289 | *                  CLOSE UP THE STRING              K1602890
7AD1 6680 7B00             290 |       LDX  I2 IDSV1                                 K1602900
7AD3 7680 7ABA             291 |       MDX  I2 INORM                                 K1602910
7AD5 6ADD                  292 |       STX   2 XRR2                                  K1602920
7AD6 C400 7A25             293 |       LD   L  EOFS                                  K1602930
7AD8 90DA                  294 |       S       XRR2                                  K1602940
7AD9 D001                  295 |       STO     *+1                                   K1602950
7ADA 6700 0000             296 |       LDX  L3 *-*                                   K1602960
7ADC 7301                  297 |       MDX   3 1                                     K1602970
7ADD C200                  298 |       LD    2 0                                     K1602980
7ADE D101                  299 |       STO   1 1                                     K1602990
7ADF 7101                  300 |       MDX   1 1                                     K1603000
7AE0 7201                  301 |       MDX   2 1                                     K1603010
7AE1 73FF                  302 |       MDX   3 -1                                    K1603020
7AE2 70FA                  303 |       MDX     *-6                                   K1603030
7AE3 6D00 7A25             304 |       STX  L1 EOFS                                  K1603040
7AE5 6580 7B00             305 |       LDX  I1 IDSV1                                 K1603050
7AE7 7019                  306 |       MDX     QLZQ                                  K1603060
                           307 | *                                                   K1603070
                           308 | *                  CALCULATE THE STATEMENT NORM     K1603080
7AE8 74FE 7ABA             309 | PTPOL MDX  L  INORM,-2                              K1603090
                           310 | *                                                   K1603100
                           311 | *                  IS MOVEMENT NECESSARY            K1603110
7AEA C019                  312 |       LD      CPNT                                  K1603120
7AEB 90CA                  313 |       S       OUTPT                                 K1603130
7AEC D00B                  314 |       STO     CNT                                   K1603140
7AED 80CC                  315 |       A       INORM                                 K1603150
7AEE D014                  316 |       STO     AMOUT                                 K1603160
7AEF 4C28 7B05             317 |       BSC  L  OPEN,Z+                               K1603170
7AF1 4C20 7B29             318 |       BSC  L  CLOSE,Z                               K1603180
                           319 | *                                                   K1603190
                           320 | *                  PLACE POLISH TABLE ON STRING     K1603200
7AF3 6600 7C43             321 | MOVE  LDX  L2 PNT                                   K1603210
7AF5 6580 7B2A             322 |       LDX  I1 SNDOP                                 K1603220
7AF7 6700 0000             323 |       LDX  L3 *-*                                   K1603230
7AF8                       324 | CNT   EQU     *-1                                   K1603240
7AF9 C200                  325 |       LD    2 0                                     K1603250
7AFA D1FF                  326 |       STO   1 -1                                    K1603260
7AFB 7101                  327 |       MDX   1 1                                     K1603270
7AFC 7201                  328 |       MDX   2 1                                     K1603280
7AFD 7301                  329 |       MDX   3 1                                     K1603290
7AFE 70FA                  330 |       MDX     *-6                                   K1603300
7AFF 6500 0000             331 |       LDX  L1 *-*                                   K1603310
7B00                       332 | IDSV1 EQU     *-1                                   K1603320
7B01 4C00 7A5A             333 | QLZQ  BSC  L  NEXTS                                 K1603330
                           334 | *                                                   K1603340
                           335 | *                  CONSTANTS                        K1603350
7B03 0000                  336 | AMOUT DC      0                                     K1603360
7B04 7C43                  337 | CPNT  DC      PNT                                   K1603370
                           338 | *                                                   K1603380
                           339 | *                  CAN STRING BE OPENED             K1603390
7B05 C400 7A2A             340 | OPEN  LD   L  EOFST                                 K1603400
7B07 9400 7A25             341 |       S    L  EOFS                                  K1603410
7B09 80F9                  342 |       A       AMOUT                                 K1603420
7B0A 4C28 7B3F             343 |       BSC  L  OVERS,+Z                              K1603430
                           344 | *                                                   K1603440
                           345 | *                  OPEN STRING                      K1603450
7B0C 6580 7A25             346 |       LDX  I1 EOFS                                  K1603460
7B0E C400 7A25             347 |       LD   L  EOFS                                  K1603470
7B10 9019                  348 |       S       SNDOP                                 K1603480
7B11 D001                  349 |       STO     *+1                                   K1603490
7B12 6700 0000             350 |       LDX  L3 *-*                                   K1603500
7B14 C400 7A25             351 |       LD   L  EOFS                                  K1603510
7B16 90EC                  352 |       S       AMOUT                                 K1603520
7B17 D400 7A25             353 |       STO  L  EOFS                                  K1603530
7B19 6680 7A25             354 |       LDX  I2 EOFS                                  K1603540
7B1B C100                  355 |       LD    1 0                                     K1603550
7B1C D200                  356 |       STO   2 0                                     K1603560
7B1D 71FF                  357 |       MDX   1 -1                                    K1603570
7B1E 72FF                  358 |       MDX   2 -1                                    K1603580
7B1F 73FF                  359 |       MDX   3 -1                                    K1603590
7B20 70FA                  360 |       MDX     *-6                                   K1603600
                           361 | *                                                   K1603610
                           362 | *                  CORRECT NORM                     K1603620
7B21 C480 7B00             363 | CRTNM LD   I  IDSV1                                 K1603630
7B23 1882                  364 |       SRT     2                                     K1603640
7B24 90DE                  365 |       S       AMOUT                                 K1603650
7B25 1082                  366 |       SLT     2                                     K1603660
7B26 D480 7B00             367 |       STO  I  IDSV1                                 K1603670
7B28 70CA                  368 |       MDX     MOVE                                  K1603680
                           369 | *                                                   K1603690
                           370 | *                  CLOSE STRING                     K1603700
7B29 6600 0000             371 | CLOSE LDX  L2 *-*                                   K1603710
7B2A                       372 | SNDOP EQU     *-1                                   K1603720
7B2B C0FE                  373 |       LD      SNDOP                                 K1603730
7B2C 80D6                  374 |       A       AMOUT                                 K1603740
7B2D D001                  375 |       STO     *+1                                   K1603750
7B2E 6500 0000             376 |       LDX  L1 *-*                                   K1603760
7B30 C400 7A25             377 |       LD   L  EOFS                                  K1603770
7B32 90FC                  378 |       S       *-4                                   K1603780
7B33 D001                  379 |       STO     *+1                                   K1603790
7B34 6700 0000             380 |       LDX  L3 *-*                                   K1603800
7B36 C101                  381 |       LD    1 1                                     K1603810
7B37 D201                  382 |       STO   2 1                                     K1603820
7B38 7101                  383 |       MDX   1 1                                     K1603830
7B39 7201                  384 |       MDX   2 1                                     K1603840
7B3A 73FF                  385 |       MDX   3 -1                                    K1603850
7B3B 70FA                  386 |       MDX     *-6                                   K1603860
7B3C 6E00 7A25             387 |       STX  L2 EOFS                                  K1603870
7B3E 70E2                  388 |       MDX     CRTNM                                 K1603880
                           389 | *                                                   K1603890
                           390 | *                  SET UP OVERLAP ERROR             K1603900
7B3F 7401 7A2D             391 | OVERS MDX  L  ERROR,1                               K1603910
7B41 4C00 7A51             392 |       BSC  L  GOSS                                  K1603920
                           393 | *************************************************** K1603930
                           394 | *                                                 * K1603940
                           395 | *                  INTERPRETER STRING PACKAGE     * K1603950
                           396 | *                                                 * K1603960
                           397 | *************************************************** K1603970
                           398 | *                  PLACE OPERAND ON STRING AT XR1-1 K1603980
                           399 | *                  IF OPERAN OPERAND IS FAC (/8000) K1603990
                           400 | *                  TAG SW3 AND SAVE ADDRESS OF FAC  K1604000
                           401 | *                  ON THE STRING                    K1604010
                           402 | *                                                   K1604020
7B43 D1FF                  403 | PLACE STO   1 -1                                    K1604030
7B44 9009                  404 |       S       FACNY                                 K1604040
7B45 4C20 7BC3             405 |       BSC  L  RETRN,Z                               K1604050
7B47 6C00 7C25             406 |       STX  L0 SW3                                   K1604060
7B49 6D00 7C1E             407 |       STX  L1 FACSV                                 K1604070
7B4B 74FF 7C1E             408 |       MDX  L  FACSV,-1                              K1604080
7B4D 7075                  409 |       MDX     RETRN                                 K1604090
7B4E 8000                  410 | FACNY DC      /8000                                 K1604100
                           411 | *                                                   K1604110
                           412 | *                  MOVE THE POINTER BY ADDING THE   K1604120
                           413 | *                  OPERAND TO IX1.                  K1604130
                           414 | *                                                   K1604140
7B4F D001                  415 | MVPT  STO     *+1                                   K1604150
7B50 7500 0000             416 |       MDX  L1 *-*                                   K1604160
7B52 7070                  417 |       MDX     RETRN                                 K1604170
                           418 | *                                                   K1604180
                           419 | *                  INSERT STOP CODE ON PUSH DOWN    K1604190
                           420 | *                  LIST.                            K1604200
                           421 | *                                                   K1604210
7B53 74FF 7AB5             422 | STOPI MDX  L  PUSHD,-1                              K1604220
7B55 1010                  423 |       SLA     16                                    K1604230
7B56 D480 7AB5             424 |       STO  I  PUSHD                                 K1604240
7B58 72FF                  425 |       MDX   2 -1                                    K1604250
7B59 4C00 7ABC             426 |       BSC  L  OVCHK                                 K1604260
                           427 | *                                                   K1604270
                           428 | *                  DELET THE STOP CODE FROM THE     K1604280
                           429 | *                  PUSH DOWN LIST.                  K1604290
                           430 | *                                                   K1604300
7B5B 7401 7AB5             431 | STOPD MDX  L  PUSHD,1                               K1604310
7B5D 72FF                  432 |       MDX   2 -1                                    K1604320
7B5E 7064                  433 |       MDX     RETRN                                 K1604330
                           434 | *                                                   K1604340
                           435 | *                  MOVE PUSH DOWN LIST TO THE       K1604350
                           436 | *                  OUTPUT BUFFER UNTILL A STOP      K1604360
                           437 | *                  CODE IS INCOUNTERED.             K1604370
                           438 | *                                                   K1604380
7B5F 72FF                  439 | PTO   MDX   2 -1                                    K1604390
7B60 C480 7AB5             440 |       LD   I  PUSHD                                 K1604400
7B62 4C18 7BC3             441 |       BSC  L  RETRN,+-                              K1604410
7B64 D480 7AB6             442 |       STO  I  OUTPT                                 K1604420
7B66 7401 7AB5             443 |       MDX  L  PUSHD,1                               K1604430
7B68 7401 7AB6             444 |       MDX  L  OUTPT,1                               K1604440
7B6A 70F5                  445 |       MDX     PTO+1                                 K1604450
                           446 | *                                                   K1604460
                           447 | *                  DELET THE NUMBER OF SYMBOLS      K1604470
                           448 | *                  SPECIFIED BY THE OPERAND FROM    K1604480
                           449 | *                  THE STRING. THE OPERAND IS       K1604490
                           450 | *                  ALWAYS NEGATIVE. THE SPECIAL     K1604500
                           451 | *                  STRING NORM WILL BE CORRECTED.   K1604510
                           452 | *                  THE ADDRESS OF FAC WILL BE       K1604520
                           453 | *                  ADJUSTED IF FAC ON THE STRING    K1604530
                           454 | *                  IS MOVED.                        K1604540
                           455 | *                                                   K1604550
7B6B D004                  456 | DELET STO     *+4                                   K1604560
7B6C 6901                  457 |       STX   1 *+1                                   K1604570
7B6D 6700 0000             458 |       LDX  L3 *-*                                   K1604580
7B6F 7700 0000             459 |       MDX  L3 *-*                                   K1604590
7B71 6B11                  460 |       STX   3 DEND+1                                K1604600
7B72 C100                  461 | DELOP LD    1 0                                     K1604610
7B73 D300                  462 |       STO   3 0                                     K1604620
7B74 7101                  463 |       MDX   1 1                                     K1604630
7B75 7301                  464 |       MDX   3 1                                     K1604640
7B76 4C20 7B72             465 |       BSC  L  DELOP,Z                               K1604650
7B78 C400 7C1E             466 |       LD   L  FACSV                                 K1604660
7B7A 90F3                  467 |       S       DELET+3                               K1604670
7B7B 4C28 7B82             468 |       BSC  L  *+5,Z+                                K1604680
7B7D C400 7C1E             469 |       LD   L  FACSV                                 K1604690
7B7F 80F0                  470 |       A       DELET+5                               K1604700
7B80 D400 7C1E             471 |       STO  L  FACSV                                 K1604710
7B82 6500 0000             472 | DEND  LDX  L1 *-*                                   K1604720
7B84 C400 7A8F             473 |       LD   L  STNOM                                 K1604730
7B86 80E9                  474 |       A       DELOP-2                               K1604740
7B87 D400 7A8F             475 |       STO  L  STNOM                                 K1604750
7B89 7039                  476 |       MDX     RETRN                                 K1604760
                           477 | *                                                   K1604770
                           478 | *                  PLACE THOSE STRING ELEMENTS      K1604780
                           479 | *                  SPECIFIED BY THE SUBSTRING       K1604790
                           480 | *                  ON THE PUSH DOWN LIST            K1604800
                           481 | *                  IF FAC IS PUSHED DOWN A G.T.     K1604810
                           482 | *                  IS GENERATED                     K1604820
                           483 | *                                                   K1604830
7B8A D001                  484 | PUSH  STO     *+1                                   K1604840
7B8B 6780 0000             485 |       LDX  I3 *-*                                   K1604850
7B8D D003                  486 |       STO     PUSH1+1                               K1604860
7B8E 7401 7B91             487 |       MDX  L  PUSH1+1,1                             K1604870
7B90 C400 0000             488 | PUSH1 LD   L  *-*                                   K1604880
7B92 D001                  489 |       STO     *+1                                   K1604890
7B93 C500 0000             490 |       LD   L1 *-*                                   K1604900
7B95 74FF 7AB5             491 |       MDX  L  PUSHD,-1                              K1604910
7B97 D480 7AB5             492 | PUSH2 STO  I  PUSHD                                 K1604920
7B99 9400 7C2C             493 |       S    L  CONS3                                 K1604930
7B9B 4C18 7BA0             494 |       BSC  L  PUSH3,+-                              K1604940
7B9D 73FF                  495 |       MDX   3 -1                                    K1604950
7B9E 70EF                  496 |       MDX     PUSH1-2                               K1604960
7B9F 7023                  497 |       MDX     RETRN                                 K1604970
7BA0 C400 7C2E             498 | PUSH3 LD   L  CONS5                                 K1604980
7BA2 D480 7AB6             499 |       STO  I  OUTPT                                 K1604990
7BA4 7401 7AB6             500 |       MDX  L  OUTPT,1                               K1605000
7BA6 4005                  501 |       BSI     COMGT                                 K1605010
7BA7 D480 7AB6             502 |       STO  I  OUTPT                                 K1605020
7BA9 7401 7AB6             503 |       MDX  L  OUTPT,1                               K1605030
7BAB 70EB                  504 |       MDX     PUSH2                                 K1605040
                           505 | *                                                   K1605050
                           506 | *                       COMPUTE GT FOR FAC          K1605060
7BAC 0000                  507 | COMGT DC      0                                     K1605070
7BAD 1010                  508 |       SLA     16                                    K1605080
7BAE D076                  509 |       STO     SW3                                   K1605090
7BAF C07D                  510 |       LD      CONS4                                 K1605100
7BB0 D400 0000             511 |       STO  L  *-*                                   K1605110
7BB1                       512 | XOFGT EQU     *-1                                   K1605120
7BB2 74FD 7BB1             513 |       MDX  L  XOFGT,-3                              K1605130
7BB4 C0FC                  514 |       LD      XOFGT                                 K1605140
7BB5 9400 7A2A             515 |       S    L  EOFST                                 K1605150
7BB7 4C10 7BBB             516 |       BSC  L  *+2,-                                 K1605160
7BB9 74FD 7A2A             517 |       MDX  L  EOFST,-3                              K1605170
7BBB C400 7A26             518 |       LD   L  SOFST                                 K1605180
7BBD 90F3                  519 |       S       XOFGT                                 K1605190
7BBE 1890                  520 |       SRT     16                                    K1605200
7BBF A86B                  521 |       D       CONS2                                 K1605210
7BC0 E86B                  522 |       OR      CONS3                                 K1605220
7BC1 4C80 7BAC             523 |       BSC  I  COMGT                                 K1605230
                           524 | *                                                   K1605240
                           525 | *                  RETERN                           K1605250
7BC3 4C00 7AAF             526 | RETRN BSC  L  RETRR                                 K1605260
                           527 | *                                                   K1605270
                           528 | *                  OUTPUT UNDER CONTROL OF A SUB-   K1605280
                           529 | *                  STRING. IF ENTRY IS TO LABEL     K1605290
                           530 | *                  OUTFC THE OUTPUT ROUTINE WILL    K1605300
                           531 | *                  GENERATE TEMPERARIES WHEN        K1605310
                           532 | *                  NECESSARY.                       K1605320
                           533 | *                                                   K1605330
7BC5 6301                  534 | OUTFC LDX   3 1                                     K1605340
7BC6 7001                  535 |       MDX     OUT+1                                 K1605350
7BC7 6300                  536 | OUT   LDX   3 0                                     K1605360
7BC8 6B5A                  537 |       STX   3 SW1                                   K1605370
7BC9 6300                  538 |       LDX   3 0                                     K1605380
7BCA 6B59                  539 |       STX   3 SW2                                   K1605390
7BCB 6B5A                  540 |       STX   3 SWCAL                                 K1605400
7BCC D001                  541 |       STO     *+1                                   K1605410
7BCD 6780 0000             542 |       LDX  I3 *-*                                   K1605420
7BCF D003                  543 |       STO     OUT1+1                                K1605430
7BD0 7401 7BD3             544 |       MDX  L  OUT1+1,1                              K1605440
7BD2 C400 0000             545 | OUT1  LD   L  *-*                                   K1605450
7BD4 D004                  546 |       STO     *+4                                   K1605460
7BD5 C04D                  547 |       LD      SW1                                   K1605470
7BD6 F0EE                  548 |       EOR     OUTFC                                 K1605480
7BD7 1010                  549 |       SLA     16                                    K1605490
7BD8 C500 0000             550 |       LD   L1 *-*                                   K1605500
7BDA D480 7AB6             551 |       STO  I  OUTPT                                 K1605510
7BDC 4C02 7BFA             552 |       BSC  L  NOREV+2,C                             K1605520
7BDE 904D                  553 |       S       CONS3                                 K1605530
7BDF 4C20 7BFA             554 |       BSC  L  NOREV+2,Z                             K1605540
7BE1 6842                  555 |       STX   0 SW2                                   K1605550
7BE2 74FF 7AB6             556 |       MDX  L  OUTPT,-1                              K1605560
7BE4 C480 7AB6             557 |       LD   I  OUTPT                                 K1605570
7BE6 4C10 7BFA             558 |       BSC  L  NOREV+2,-                             K1605580
7BE8 74FF 7AB6             559 |       MDX  L  OUTPT,-1                              K1605590
7BEA C480 7AB6             560 |       LD   I  OUTPT                                 K1605600
7BEC 903A                  561 |       S       CALOP                                 K1605610
7BED 4818                  562 |       BSC     +-                                    K1605620
7BEE 6837                  563 |       STX   0 SWCAL                                 K1605630
7BEF 9038                  564 |       S       SREV1                                 K1605640
7BF0 4C28 7BF8             565 |       BSC  L  NOREV,+Z                              K1605650
7BF2 9036                  566 |       S       SREV2                                 K1605660
7BF3 4C30 7BF8             567 |       BSC  L  NOREV,-Z                              K1605670
7BF5 8034                  568 |       A       SREV3                                 K1605680
7BF6 D480 7AB6             569 |       STO  I  OUTPT                                 K1605690
7BF8 7401 7AB6             570 | NOREV MDX  L  OUTPT,1                               K1605700
7BFA 7401 7AB6             571 |       MDX  L  OUTPT,1                               K1605710
7BFC 73FF                  572 |       MDX   3 -1                                    K1605720
7BFD 70D2                  573 |       MDX     OUT1-2                                K1605730
7BFE C024                  574 |       LD      SW1                                   K1605740
7BFF 4C18 7ABC             575 |       BSC  L  OVCHK,+-                              K1605750
7C01 C023                  576 |       LD      SW3                                   K1605760
7C02 4C18 7ABC             577 |       BSC  L  OVCHK,+-                              K1605770
7C04 C021                  578 |       LD      SWCAL                                 K1605780
7C05 4C18 7C0F             579 |       BSC  L  LOP2,+-                               K1605790
7C07 40A4                  580 |       BSI     COMGT                                 K1605800
7C08 D480 7AB6             581 |       STO  I  OUTPT                                 K1605810
7C0A 7401 7AB6             582 |       MDX  L  OUTPT,1                               K1605820
7C0C 7403 7BB1             583 |       MDX  L  XOFGT,3                               K1605830
7C0E 7003                  584 |       MDX     LOP3                                  K1605840
7C0F C014                  585 | LOP2  LD      SW2                                   K1605850
7C10 4C20 7ABC             586 |       BSC  L  OVCHK,Z                               K1605860
7C12 7402 7AB6             587 | LOP3  MDX  L  OUTPT,2                               K1605870
7C14 6780 7AB6             588 |       LDX  I3 OUTPT                                 K1605880
7C16 C3FD                  589 | LOP1  LD    3 -3                                    K1605890
7C17 73FF                  590 |       MDX   3 -1                                    K1605900
7C18 D300                  591 |       STO   3 0                                     K1605910
7C19 4C28 7C16             592 |       BSC  L  LOP1,+Z                               K1605920
7C1B 4090                  593 |       BSI     COMGT                                 K1605930
7C1C D3FF                  594 |       STO   3 -1                                    K1605940
7C1D D400 0000             595 |       STO  L  *-*                                   K1605950
7C1E                       596 | FACSV EQU     *-1                                   K1605960
7C1F C00E                  597 |       LD      CONS5                                 K1605970
7C20 D3FE                  598 |       STO   3 -2                                    K1605980
7C21 4C00 7ABC             599 |       BSC  L  OVCHK                                 K1605990
7C23 0000                  600 | SW1   DC      0                                     K1606000
7C24 0000                  601 | SW2   DC      0                                     K1606010
7C25 0000                  602 | SW3   DC      0                                     K1606020
7C26 0000                  603 | SWCAL DC      0                                     K1606030
7C27 002E                  604 | CALOP DC      /2E                                   K1606040
7C28 FFD8                  605 | SREV1 DC      /06-/2E                               K1606050
7C29 0004                  606 | SREV2 DC      /0A-/06                               K1606060
7C2A 0048                  607 | SREV3 DC      /0A+/44-/06                           K1606070
7C2B 0003                  608 | CONS2 DC      3                                     K1606080
7C2C 8000                  609 | CONS3 DC      /8000                                 K1606090
7C2D 0008                  610 | CONS4 DC      /0008     GENERATED TEMPERARY ID      K1606100
7C2E 000E                  611 | CONS5 DC      /0E       #                           K1606110
7C2F 0000                  612 | XR1   DC      0                                     K1606120
7C30 0024                  613 | SEND  DC      /24       S)                          K1606130
                           614 | *                                                   K1606140
                           615 | *                       END                         K1606150
7C31 71FF                  616 | END   MDX   1 -1                                    K1606160
7C32 69FC                  617 |       STX   1 XR1                                   K1606170
7C33 C0FB                  618 |       LD      XR1                                   K1606180
7C34 9400 7B2A             619 |       S    L  SNDOP                                 K1606190
7C36 4C10 7C3A             620 |       BSC  L  *+2,-                                 K1606200
7C38 6580 7B2A             621 |       LDX  I1 SNDOP                                 K1606210
7C3A 4C00 7A8E             622 |       BSC  L  CKNM                                  K1606220
                           623 | *                                                   K1606230
                           624 | *             HANDLE SUBSCRIPTING BY                K1606240
                           625 | *             FORCING OUT COMPLETE LIST             K1606250
                           626 | *                                                   K1606260
7C3C 72F8                  627 | SUBSC MDX   2 -8                                    K1606270
7C3D C100                  628 |       LD    1 0                                     K1606280
7C3E 90F1                  629 |       S       SEND                                  K1606290
7C3F 4C20 7AAF             630 |       BSC  L  RETRR,Z                               K1606300
7C41 7207                  631 |       MDX   2 7                                     K1606310
7C42 7080                  632 |       MDX     RETRN                                 K1606320
                           633 | *                                                   K1606330
                           634 | *                  POLISH AND PUSH DOWN LISTS       K1606340
7C43                       635 | PNT   BSS     401                                   K1606350
7DD4 0000                  636 | PDL   DC      0                                     K1606360
                           637 | *                                                   K1606370
                           638 | *                  FORCING TABLE                    K1606380
7DD5 3C3C                  639 | FTAB  DC      /3C3C     SEMI-COLON                  K1606390
7DD6 7AC0                  640 |       DC      BADST                                 K1606400
7DD7 0132                  641 |       DC      /0132     )                           K1606410
7DD8 7AC0                  642 |       DC      BADST                                 K1606420
7DD9 0A0A                  643 |       DC      /0A0A     +                           K1606430
7DDA 7E07                  644 |       DC      CD1                                   K1606440
7DDB 0A0A                  645 |       DC      /0A0A     -                           K1606450
7DDC 7E07                  646 |       DC      CD1                                   K1606460
7DDD 0505                  647 |       DC      /0505     /                           K1606470
7DDE 7E07                  648 |       DC      CD1                                   K1606480
7DDF 0504                  649 |       DC      /0504     **                          K1606490
7DE0 7E07                  650 |       DC      CD1                                   K1606500
7DE1 0505                  651 |       DC      /0505     *                           K1606510
7DE2 7E07                  652 |       DC      CD1                                   K1606520
7DE3 3B3C                  653 |       DC      /3B3C     =                           K1606530
7DE4 7E07                  654 |       DC      CD1                                   K1606540
7DE5 3101                  655 |       DC      /3101     (                           K1606550
7DE6 7E0E                  656 |       DC      CD2                                   K1606560
7DE7 3130                  657 |       DC      /3130     ,                           K1606570
7DE8 7E17                  658 |       DC      CD3                                   K1606580
7DE9 3101                  659 |       DC      /3101     IF                          K1606590
7DEA 7E3F                  660 |       DC      CD8                                   K1606600
7DEB 3101                  661 |       DC      /3101     GOT                         K1606610
7DEC 7E24                  662 |       DC      CD5                                   K1606620
7DED 2A01                  663 |       DC      /2A01      (0                         K1606630
7DEE 7E2A                  664 |       DC      CD6                                   K1606640
7DEF 2A01                  665 |       DC      /2A01      (1                         K1606650
7DF0 7E2A                  666 |       DC      CD6                                   K1606660
7DF1 2A01                  667 |       DC      /2A01      (2                         K1606670
7DF2 7E2A                  668 |       DC      CD6                                   K1606680
7DF3 2A01                  669 |       DC      /2A01      (3                         K1606690
7DF4 7E2A                  670 |       DC      CD6                                   K1606700
7DF5 0501                  671 |       DC      /0501     U-                          K1606710
7DF6 7E38                  672 |       DC      CD7                                   K1606720
7DF7 3131                  673 |       DC      /3131    RG                           K1606730
7DF8 7E4F                  674 |       DC      CD10                                  K1606740
7DF9 3131                  675 |       DC      /3131     S)                          K1606750
7DFA 7AC0                  676 |       DC      BADST                                 K1606760
7DFB 3001                  677 |       DC      /3001     I/O                         K1606770
7DFC 7E5A                  678 |       DC      CD11                                  K1606780
7DFD 3030                  679 |       DC      /3030     LIST                        K1606790
7DFE 7E64                  680 |       DC      CD12                                  K1606800
7DFF 3101                  681 |       DC      /3101    DOA                          K1606810
7E00 7E45                  682 |       DC      CD9                                   K1606820
7E01 3B01                  683 |       DC      /3B01     ASF                         K1606830
7E02 7E6B                  684 |       DC      CD13                                  K1606840
7E03 0201                  685 |       DC      /0201       C                         K1606850
7E04 7E1C                  686 |       DC      CD4                                   K1606860
7E05 3001                  687 |       DC      /3001     DI/O                        K1606870
7E06 7E5A                  688 |       DC      CD11                                  K1606880
                           689 | *                                                   K1606890
                           690 | *                  CODE1                            K1606900
7E07 7BC5                  691 | CD1   DC      OUTFC                                 K1606910
7E08 7E73                  692 |       DC      SUB1                                  K1606920
7E09 7B6B                  693 |       DC      DELET                                 K1606930
7E0A FFFE                  694 |       DC      -2                                    K1606940
7E0B 7B43                  695 |       DC      PLACE                                 K1606950
7E0C 8000                  696 |       DC      /8000     FAC                         K1606960
7E0D 7C31                  697 |       DC      END                                   K1606970
                           698 | *                                                   K1606980
                           699 | *                  CODE2                            K1606990
7E0E 7B4F                  700 | CD2   DC      MVPT                                  K1607000
7E0F FFFF                  701 |       DC      -1                                    K1607010
7E10 7B6B                  702 |       DC      DELET                                 K1607020
7E11 FFFF                  703 |       DC      -1                                    K1607030
7E12 7B4F                  704 |       DC      MVPT                                  K1607040
7E13 0002                  705 |       DC      2                                     K1607050
7E14 7B6B                  706 |       DC      DELET                                 K1607060
7E15 FFFF                  707 |       DC      -1                                    K1607070
7E16 7C31                  708 |       DC      END                                   K1607080
                           709 | *                                                   K1607090
                           710 | *                  CODE 3                           K1607100
7E17 7B8A                  711 | CD3   DC      PUSH                                  K1607110
7E18 7E77                  712 |       DC      SUB2                                  K1607120
7E19 7B6B                  713 |       DC      DELET                                 K1607130
7E1A FFFE                  714 |       DC      -2                                    K1607140
7E1B 7C31                  715 |       DC      END                                   K1607150
                           716 | *                                                   K1607160
                           717 | *                  CODE4                            K1607170
7E1C 7BC5                  718 | CD4   DC      OUTFC                                 K1607180
7E1D 7E73                  719 |       DC      SUB1                                  K1607190
7E1E 7B5F                  720 |       DC      PTO                                   K1607200
7E1F 7B6B                  721 |       DC      DELET                                 K1607210
7E20 FFFE                  722 |       DC      -2                                    K1607220
7E21 7B43                  723 |       DC      PLACE                                 K1607230
7E22 8000                  724 |       DC      /8000     FAC                         K1607240
7E23 7C31                  725 |       DC      END                                   K1607250
                           726 | *                                                   K160726-
                           727 | *                  CODE 5                           K1607270
7E24 7BC7                  728 | CD5   DC      OUT                                   K1607280
7E25 7E77                  729 |       DC      SUB2                                  K1607290
7E26 7B5F                  730 |       DC      PTO                                   K1607300
7E27 7B6B                  731 |       DC      DELET                                 K1607310
7E28 FFFF                  732 |       DC      -1                                    K1607320
7E29 7C31                  733 |       DC      END                                   K1607330
                           734 | *                                                   K1607340
                           735 | *                  CODE 6                           K1607350
7E2A 7BC7                  736 | CD6   DC      OUT                                   K1607360
7E2B 7E79                  737 |       DC      SUB3                                  K1607370
7E2C 7B6B                  738 |       DC      DELET                                 K1607380
7E2D FFFE                  739 |       DC      -2                                    K1607390
7E2E 7B4F                  740 |       DC      MVPT                                  K1607400
7E2F 0002                  741 |       DC      2                                     K1607410
7E30 7BC7                  742 |       DC      OUT                                   K1607420
7E31 7E77                  743 |       DC      SUB2                                  K1607430
7E32 7C3C                  744 |       DC      SUBSC                                 K1607440
7E33 7B4F                  745 |       DC      MVPT                                  K1607450
7E34 0001                  746 |       DC      1                                     K1607460
7E35 7B6B                  747 |       DC      DELET                                 K1607470
7E36 FFFD                  748 |       DC      -3                                    K1607480
7E37 7C31                  749 |       DC      END                                   K1607490
                           750 | *                                                   K1607500
                           751 | *                  CODE 7                           K1607510
7E38 7BC5                  752 | CD7   DC      OUTFC                                 K1607520
7E39 7E79                  753 |       DC      SUB3                                  K1607530
7E3A 7B6B                  754 |       DC      DELET                                 K1607540
7E3B FFFF                  755 |       DC      -1                                    K1607550
7E3C 7B43                  756 |       DC      PLACE                                 K1607560
7E3D 8000                  757 |       DC      /8000     FAC                         K1607570
7E3E 7C31                  758 |       DC      END                                   K1607580
                           759 | *                                                   K1607590
                           760 | *             CODE 8                                K1607600
7E3F 7BC5                  761 | CD8   DC      OUTFC                                 K1607610
7E40 7E79                  762 |       DC      SUB3                                  K1607620
7E41 7B5F                  763 |       DC      PTO                                   K1607630
7E42 7B6B                  764 |       DC      DELET                                 K1607640
7E43 FFFF                  765 |       DC      -1                                    K1607650
7E44 7C31                  766 |       DC      END                                   K1607660
                           767 | *                                                   K1607670
                           768 | *             CODE 9                                K1607680
7E45 7BC7                  769 | CD9   DC      OUT                                   K1607690
7E46 7E73                  770 |       DC      SUB1                                  K1607700
7E47 7B8A                  771 |       DC      PUSH                                  K1607710
7E48 7E7C                  772 |       DC      SUB5                                  K1607720
7E49 7B4F                  773 |       DC      MVPT                                  K1607730
7E4A 0001                  774 |       DC      1                                     K1607740
7E4B 7B6B                  775 |       DC      DELET                                 K1607750
7E4C FFFC                  776 |       DC      -4                                    K1607760
7E4D 7B53                  777 |       DC      STOPI                                 K1607770
7E4E 7C31                  778 |       DC      END                                   K1607780
                           779 | *                                                   K1607790
                           780 | *             CODE 10                               K1607800
                           781 | *                                                   K1607810
7E4F 7B43                  782 | CD10  DC      PLACE                                 K1607820
7E50 004A                  783 |       DC      /4A       DOT                         K1607830
7E51 7BC7                  784 |       DC      OUT                                   K1607840
7E52 7E77                  785 |       DC      SUB2                                  K1607850
7E53 7B5B                  786 |       DC      STOPD                                 K1607860
7E54 7B5F                  787 |       DC      PTO                                   K1607870
7E55 7B4F                  788 |       DC      MVPT                                  K1607880
7E56 0001                  789 |       DC      1                                     K1607890
7E57 7B6B                  790 |       DC      DELET                                 K1607900
7E58 FFFD                  791 |       DC      -3                                    K1607910
7E59 7C31                  792 |       DC      END                                   K1607920
                           793 | *                                                   K1607930
                           794 | *                  CODE 11                          K1607940
7E5A 7BC7                  795 | CD11  DC      OUT                                   K1607950
7E5B 7E79                  796 |       DC      SUB3                                  K1607960
7E5C 7B5F                  797 |       DC      PTO                                   K1607970
7E5D 7B6B                  798 |       DC      DELET                                 K1607980
7E5E FFFE                  799 |       DC      -2                                    K1607990
7E5F 7B4F                  800 |       DC      MVPT                                  K1608000
7E60 0001                  801 |       DC      +1                                    K1608010
7E61 7B43                  802 |       DC      PLACE                                 K1608020
7E62 0028                  803 |       DC      /28     LIST                          K1608030
7E63 7C31                  804 |       DC      END                                   K1608040
                           805 | *                                                   K1608050
                           806 | *                  CODE 12                          K1608060
7E64 7BC7                  807 | CD12  DC      OUT                                   K1608070
7E65 7E79                  808 |       DC      SUB3                                  K1608080
7E66 7B4F                  809 |       DC      MVPT                                  K1608090
7E67 0001                  810 |       DC      +1                                    K1608100
7E68 7B6B                  811 |       DC      DELET                                 K1608110
7E69 FFFE                  812 |       DC      -2                                    K1608120
7E6A 7C31                  813 |       DC      END                                   K1608130
                           814 | *                                                   K1608140
                           815 | *                       CODE 13                     K1608150
7E6B 7BC7                  816 | CD13  DC      OUT                                   K1608160
7E6C 7E73                  817 |       DC      SUB1                                  K1608170
7E6D 7B5F                  818 |       DC      PTO                                   K1608180
7E6E 7B6B                  819 |       DC      DELET                                 K1608190
7E6F FFFE                  820 |       DC      -2                                    K1608200
7E70 7B4F                  821 |       DC      MVPT                                  K1608210
7E71 0001                  822 |       DC      +1                                    K1608220
7E72 7C31                  823 |       DC      END                                   K1608230
                           824 | *                                                   K1608240
                           825 | *                  SUBSTRING 1                      K1608250
7E73 0003                  826 | SUB1  DC      3                                     K1608260
7E74 FFFE                  827 |       DC      -2                                    K1608270
7E75 FFFD                  828 |       DC      -3                                    K1608280
7E76 FFFF                  829 |       DC      -1                                    K1608290
                           830 | *                                                   K1608300
                           831 | *                  SUBSTRING 2                      K1608310
7E77 0001                  832 | SUB2  DC      1                                     K1608320
7E78 FFFF                  833 |       DC      -1                                    K1608330
                           834 | *                                                   K1608340
                           835 | *                  SUBSTRING 3                      K1608350
7E79 0002                  836 | SUB3  DC      2                                     K1608360
7E7A FFFE                  837 |       DC      -2                                    K1608370
7E7B FFFF                  838 |       DC      -1                                    K1608380
                           839 | *                                                   K1608390
                           840 | *             SUB STRING 5                          K1608400
7E7C 0001                  841 | SUB5  DC      1                                     K1608410
7E7D FFFD                  842 |       DC      -3                                    K1608420
7E7E                       843 |       BSS     183        PATCH AREA             2-1 K1608430
7F35 0000                  844 |       DC      0                                     K1608440
7F36                       845 |       END     BPHAR-2                               K1608450
 
There were no errors in this assembly
 
=== CROSS REFERENCES ==========================================================
Name  Val   Defd  Referenced
$PHSE 0078    61  122
ADV   7A93   225  221  230  244
AMOUT 7B03   336  316  342  352  365  374
ASF   7A66   175  169
BADST 7AC0   274  640  642  676
BPHAR 7A36   115  845
CALOP 7C27   604  561
CCWD  7A31    79
CD1   7E07   691  644  646  648  650  652  654
CD10  7E4F   782  674
CD11  7E5A   795  678  688
CD12  7E64   807  680
CD13  7E6B   816  684
CD2   7E0E   700  656
CD3   7E17   711  658
CD4   7E1C   718  686
CD5   7E24   728  662
CD6   7E2A   736  664  666  668  670
CD7   7E38   752  672
CD8   7E3F   761  660
CD9   7E45   769  682
CKNM  7A8E   218  219  622
CLOSE 7B29   371  318
CNT   7AF8   324  314
COMGT 7BAC   507  501  523  580  593
COMON 7A2B    73
CONS2 7C2B   608  521
CONS3 7C2C   609  493  522  553
CONS4 7C2D   610  510
CONS5 7C2E   611  498  597
CPNT  7B04   337  312
CRTNM 7B21   363  388
CSIZE 7A2C    74
DELET 7B6B   456  467  470  693  702  706  713  721  731  738  747  754  764
                  775  790  798  811  819
DELOP 7B72   461  465  474
DEND  7B82   472  460
DFCNT 7A33    98
END   7C31   616  697  708  715  725  733  749  758  766  778  792  804  813
                  823
ENQ   7A36   121
ENST  7A6E   185  149
EOFS  7A25    67  293  304  341  346  347  351  353  354  377  387
EOFST 7A2A    72  131  133  340  515  517
ERID  7AB7   262  277  280
ERNO  7AB9   264  285
ERROR 7A2D    75  126  391
FACNY 7B4E   410  404
FACSV 7C1E   596  407  408  466  469  471
FIVE  7AB8   263  281
FNAME 7A2E    76
FORCE 7A98   233
FTAB  7DD5   639  237
GOSS  7A51   153  127  392
IDSV1 7B00   332  190  197  274  290  305  363  367
INORM 7ABA   265  203  284  291  309  315
IOCS  7A32    87
LOP   7AA2   241  236  247
LOP1  7C16   589  592
LOP2  7C0F   585  579
LOP3  7C12   587  584
MEMRY 8000    58   59   60
MOVE  7AF3   321  368
MVPT  7B4F   415  700  704  740  745  773  788  800  809  821
NAME  7A94   228
NEXTS 7A5A   161  150  333
NOREV 7BF8   570  552  554  558  565  567
NXTPH 7A56   157  118  153  154
OPEN  7B05   340  317
OUT   7BC7   536  535  728  736  742  769  784  795  807  816
OUT1  7BD2   545  543  544  573
OUTFC 7BC5   534  548  691  718  752  761
OUTPT 7AB6   261  205  270  313  442  444  499  500  502  503  551  556  557
                  559  560  569  570  571  581  582  587  588
OVCHK 7ABC   269  426  575  577  586  599
OVERL 7A24    59   62
OVERS 7B3F   391  343
PDL   7DD4   636  206
PHID  002E    63  121
PLACE 7B43   403  695  723  756  782  802
PNT   7C43   635  204  321  337
PTO   7B5F   439  445  720  730  763  787  797  818
PTPOL 7AE8   309  222
PUSH  7B8A   484  711  771
PUSH1 7B90   488  486  487  496
PUSH2 7B97   492  504
PUSH3 7BA0   498  494
PUSHD 7AB5   260  207  269  422  424  431  440  443  491  492
QLZQ  7B01   333  306
RETRN 7BC3   526  271  405  409  417  433  441  476  497  632
RETRR 7AAF   252  526  630
ROFGT 7A70   187  134  214
ROL   7FBC    60  155
ROP   7A9E   238  234
RST   7A40   133  170
S00FF 7AB4   259  239
S07FC 7A6F   186  162  200
SCANI 7A71   190  143
SEND  7C30   613  629
SETUP 7A42   137  171
SNDOP 7B2A   372  195  322  348  373  619  621
SOFGT 7A29    71  132
SOFNS 7A27    69
SOFS  7A24    66  130
SOFST 7A26    68  518
SOFXT 7A28    70
SORF  7A30    78
SREV1 7C28   605  564
SREV2 7C29   606  566
SREV3 7C2A   607  568
STNOM 7A8F   219  202  473  475
STOPD 7B5B   431  786
STOPI 7B53   422  777
SUB1  7E73   826  692  719  770  817
SUB2  7E77   832  712  729  743  785
SUB3  7E79   836  737  753  762  796  808
SUB5  7E7C   841  772
SUBSC 7C3C   627  744
SW1   7C23   600  537  547  574
SW2   7C24   601  539  555  585
SW3   7C25   602  209  406  509  576
SWCAL 7C26   603  540  563  578
TS4   7ABB   266  199
TYTB  7A65   174  140  142
TYTBE 7A6C   181  140
XOFGT 7BB1   512  215  513  514  519  583
XR1   7C2F   612  617  618
XRR2  7AB3   258  292  294
XTE1  7AB3   257  240  243  258
XTMP1 7A6D   184  139  141  148  168