KFORPH02

Table Of Contents
  • [00004] 1130 FORTRAN COMPILER PHASE 2
kforph02.lst
ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov  1 19:25:06 2020
 
Source File: \kforph02.asm 
1130 FORTRAN COMPILER PHASE 2
 
                             2 | *************************************************** K0200020
                             3 | *             PDUMP PROCESSING INCLUDED           * K0200030
                             4 | *************************************************** K0200040
                             5 | *************************************************** K0200050
                             6 | *STATUS - VERSION 2, MODIFICATION LEVEL 11        * K0200060
                             7 | *                                                 * K0200070
                             8 | *FUNCTION/OPERATION-                              * K0200080
                             9 | *   * DETERMINES THE STMNT TYPE FOR EACH STMNT,   * K0200090
                            10 | *     INSERTS THE TYPE CODE INTO THE STMNT ID WORD* K0200100
                            11 | *   * PLACES THE TERMINAL CHARACTER AT THE END OF * K0200110
                            12 | *     EACH STATEMENT                              * K0200120
                            13 | *   * CONVERTS SUBPROGRAM NAMES LONGER THAN FIVE  * K0200130
                            14 | *     CHARACTERS TO FIVE-CHARACTER NAMES          * K0200140
                            15 | *   * CONVERTS FORTRAN-SUPPLIED SUBPROGRAM NAMES  * K0200150
                            16 | *     ACCORDING TO THE SPECIFIED PRECISION        * K0200160
                            17 | *                                                 * K0200170
                            18 | *ENTRY POINTS-                                    * K0200180
                            19 | *   START-PHASE 2 IS READ INTO CORE BY PHASE 1    * K0200190
                            20 | *         AND EXECUTION BEGUN AT LOCATION START   * K0200200
                            21 | *                                                 * K0200210
                            22 | *INPUT-                                           * K0200220
                            23 | *   NONE IN THE USUAL SENSE. HOWEVER, THE STMNT   * K0200230
                            24 | *   STRING SCANNED BY THE COMPILER MAY BE         * K0200240
                            25 | *   CONSIDERED INPUT                              * K0200250
                            26 | *                                                 * K0200260
                            27 | *OUTPUT-                                          * K0200270
                            28 | *   NONE IN THE USUAL SENSE. HOWEVER, THE STMNT   * K0200280
                            29 | *   STRING ALTERED BY THE COMPILER MAY BE         * K0200290
                            30 | *   CONSIDERED OUTPUT                             * K0200300
                            31 | *                                                 * K0200310
                            32 | *EXTERNAL ROUTINES-N/A                            * K0200320
                            33 | *                                                 * K0200330
                            34 | *EXITS-                                           * K0200340
                            35 | *   NORMAL-                                       * K0200350
                            36 | *      PHASE EXITS NORMALLY IF NO ERRORS ARE      * K0200360
                            37 | *      FOUND. PHASE 3 IS LOADED AND EXECUTED.     * K0200370
                            38 | *   ERROR-                                        * K0200380
                            39 | *      THE OVERFLOW OF COMPILER PROCESSING IS NOT * K0200390
                            40 | *      INTERRUPTED WHEN AN ERROR IS ENCOUNTERED.  * K0200400
                            41 | *      AN ERROR STMNT REPLACES THE FAULTY STMNT   * K0200410
                            42 | *      ON THE STRING AND STMNT SCANNING PROCESS   * K0200420
                            43 | *      CONTINUES. AN EXCEPTION OCCURS IN THE CASE * K0200430
                            44 | *      OF AN OVERLAP ERROR. COMPILATION IS        * K0200440
                            45 | *      ABORTED AND CONTROL IS PASSED FROM PHASE   * K0200450
                            46 | *      TO SUCCEEDING PHASE UNTIL AN OUTPUT PHASE  * K0200460
                            47 | *      IS REACHED WHICH CAN PRINT AN ERROR MESSAGE* K0200470
                            48 | *      THE ERROR DETECTED BY PHASE 2 IS 4.        * K0200480
                            49 | *                                                 * K0200490
                            50 | *TABLES/WORK AREAS-                               * K0200500
                            51 | *   NONE EXCEPT STATEMENT STRING AREA, SYMBOL     * K0200510
                            52 | *   TABLE, AND FORTRAN COMMUNICATION AREA         * K0200520
                            53 | *                                                 * K0200530
                            54 | *ATTRIBUTES-N/A                                   * K0200540
                            55 | *                                                 * K0200550
                            56 | *NOTES-                                           * K0200560
                            57 | *   THE SWITCHES USED IN PHASE 2 FOLLOW. IF NON-  * K0200570
                            58 | *   ZERO, THE SWITCH IS TRANSFER=T. IF ZERO, THE  * K0200580
                            59 | *   SWITCH IS NORMAL=N.                           * K0200590
                            60 | *      * SW1-REAL OR INTEGER INDICATOR            * K0200600
                            61 | *            T#STATEMENT IS REAL OR INTEGER       * K0200610
                            62 | *      * SW2-DO INDICATOR                         * K0200620
                            63 | *            T#STATEMENT IS DO                    * K0200630
                            64 | *      * SW3-WHICH HALF OF WORD IS CHARACTER      * K0200640
                            65 | *            T#RIGHT HALF                         * K0200650
                            66 | *      * SW4-CONTENTS OF 'NAMS'                   * K0200660
                            67 | *            T#CHARACTER IN NAMS                  * K0200670
                            68 | *      * SW5-TYPE OF ARGUMENT TO MAKE CHARACTER   * K0200680
                            69 | *            T#OPERATOR                           * K0200690
                            70 | *      * SW6-POSITION IN STATEMENT                * K0200700
                            71 | *            T#END OF STATEMENT                   * K0200710
                            72 | *      * SW7-DATA INDICATOR                       * K0200720
                            73 | *            T#STATEMENT IS DATA                  * K0200730
                            74 | *      * SW8-QUOTE ENCOUNTERED                    * K0200740
                            75 | *            N#NOT ENCOUNTERED                    * K0200750
                            76 | *      * SW9-OUTPUT WHICH HALF OF WORD            * K0200760
                            77 | *            N#LEFT HALF                          * K0200770
                            78 | *            T#RIGHT HALF                         * K0200780
                            79 | *                                                 * K0200790
                            80 | *************************************************** K0200800
                            81 |       ABS                                           K0200810
                            82 | *                                                   K0200820
                            83 | *                       SYSTEM EQUATES              K0200830
8000                        84 | MEMRY EQU     /8000                                 K0200840
7A23                        85 | OVERL EQU     MEMRY-1501 START OF FCOM              K0200850
7FBC                        86 | ROL   EQU     MEMRY-68   LOCN OF RTN TO READ NXT PH K0200860
0078                        87 | $PHSE EQU     /78        NO. OF PHASE NOW IN CORE   K0200870
7A23                        88 |       ORG     OVERL                                 K0200880
0020                        89 | PHID  EQU     32         ID NUMBER THIS PHASE       K0200890
                            90 | *                                                   K0200900
                            91 | *                  FORTRAN COMMUNICATION AREA       K0200910
7A23                        92 | ORG   BSS     1    ORIGIN ADDRESS               2-5 K0200915
7A24                        93 | SOFS  BSS     1    START OF STRING                  K0200920
7A25                        94 | EOFS  BSS     1    END OF STRING                    K0200930
7A26                        95 | SOFST BSS     1    START OF SYMBOL TABLE            K0200940
7A27                        96 | SOFNS BSS     1    START OF NON-STATEMENT NUMBERS   K0200950
7A28                        97 | SOFXT BSS     1    START OF SUBSCRIPT TEMPORARIES   K0200960
7A29                        98 | SOFGT BSS     1    START OF GENERATED TEMPORARIES   K0200970
7A2A                        99 | EOFST BSS     1    END OF SYMBOL TABLE              K0200980
7A2B                       100 | COMON BSS     1    NEXT AVAILABLE COMMON            K0200990
7A2C                       101 | CSIZE BSS     1    SIZE OF COMMON                   K0201000
7A2D                       102 | ERROR BSS     1    OVERLAP ERROR                    K0201010
7A2E                       103 | FNAME BSS     1    PROGRAM NAME                     K0201020
7A2F                       104 |       BSS     1                                     K0201030
7A30                       105 | SORF  BSS     1    SUBROUTINE(-) OR FUNCTION(+)     K0201040
7A31                       106 | CCWD  BSS     1    CONTROL CARD WORD                K0201050
                           107 | *                BIT 15 TRANSFER TRACE              K0201060
                           108 | *                BIT 14 ARITHMETIC TRACE            K0201070
                           109 | *                BIT 13 EXTENDED PRECISION          K0201080
                           110 | *                BIT 12 LIST SYMBOL TABLE           K0201090
                           111 | *                BIT 11 LIST SUBPROGRAM NAMES       K0201100
                           112 | *                BIT 10 LIST SOURCE PROGRAM         K0201110
                           113 | *                BIT  8 ORIGIN                      K0201120
7A32                       114 | IOCS  BSS     1    IOCS CONTROL CARD WORD           K0201130
                           115 | *                BIT 15 CARD                        K0201140
                           116 | *                BIT 14 PAPER TAPE                  K0201150
                           117 | *                BIT 13 TYPEWRITER                  K0201160
                           118 | *                BIT 12 1403 PRINTER                K0201170
                           119 | *                BIT 11 2501 READER                 K0201180
                           120 | *                BIT 10 KEYBOARD                    K0201190
                           121 | *                BIT  9 1442 PUNCH                  K0201200
                           122 | *                BIT  8 DISK                        K0201210
                           123 | *                BIT  7 1132 PRINTER                K0201220
                           124 | *                BIT  3 PLOTTER                     K0201230
                           125 | *                                                   K0201240
7A33                       126 | DFCNT BSS     1                                     K0201250
                           127 | *                                                   K0201260
                           128 | *                                                   K0201270
                           129 | *                  END OF FORTRAN COMMUNICATION     K0201280
                           130 | *                  AREA                             K0201290
                           131 | *                                                   K0201300
                           132 | *                                                   K0201310
7A36                       133 | BPHAR EQU     *+2                                   K0201320
7A34 0000                  134 |       DC      0          LOADER WORK AREA           K0201330
7A35 FFE0                  135 |       DC      -32        -PHASE ID FOR SLET LOOKUP  K0201340
7A36 000C                  136 |       DC      NXTPH-*+1  TABLE FOR NEXT PHASE ENTRY K0201350
7A37 0001                  137 |       DC      1          ONE ENTRY TO BE SET BY LDR K0201360
7A36                       138 |       ORG     *-2                                   K0201370
7A36 6120                  139 | START LDX   1 PHID       GET PHASE ID NUMBER        K0201380
7A37 6D00 0078             140 |       STX  L1 $PHSE      STORE IN CORE PHASE LOC    K0201390
                           141 | *                                                   K0201400
                           142 | *                  CHECKS THE FORTRAN COMMUNICATION K0201410
                           143 | *                  AREA ERROR WORD FOR AN OVERLAP   K0201420
                           144 | *                  CONDITION                        K0201430
7A39 C0F3                  145 |       LD      ERROR      IS THERE OVERLAP ERROR     K0201440
7A3A 4C18 7EB5             146 |       BSC  L  ORGCK,+-  BRANCH IF NOT          2-11 K0201450
                           147 | *                                                   K0201460
                           148 | *                  TRANSFERS TO THE ROL ROUTINE     K0201470
                           149 | *                  TO LOAD THE NEXT PHASE           K0201480
7A3C 6580 7A43             150 | WAIT  LDX  I1 NXTPH+1    LOAD PARAM FOR READING     K0201490
7A3E C805                  151 |       LDD     NXTPH+2    NEXT PHASE                 K0201500
7A3F 4C00 7FBC             152 |       BSC  L  ROL        GO TO READ NEXT PHASE      K0201510
7A42                       153 |       BSS  E  0                                     K0201520
7A42 0021                  154 | NXTPH DC      33         ID OF NEXT PHASE           K0201530
7A43                       155 |       BSS     3          LOADER TBL FOR NEXT PHASE  K0201540
                           156 | *                                                   K0201550
                           157 | *                  MOVES THE ENTIRE STATEMENT       K0201560
                           158 | *                  STRING NEXT TO THE SYM TBL       K0201570
7A46 C0DE                  159 | BACK  LD      EOFS       LOAD END OF STRING ADDRESS K0201580
7A47 90DC                  160 |       S       SOFS       SUBTRACT START OF STRING   K0201590
7A48 D001                  161 |       STO     *+1        TO GET SIZE OF STRING - 1  K0201600
7A49 6700 0000             162 |       LDX  L3 *-*        LOAD SIZE IN XR3           K0201610
7A4B 7301                  163 |       MDX   3 1          GET SIZE OF STRING         K0201620
                           164 | *                                                   K0201630
7A4C 6680 7A25             165 |       LDX  I2 EOFS       INITIALIZE POINTERS FOR    K0201640
7A4E 6580 7A2A             166 |       LDX  I1 EOFST      MOVING STRING UP TO SYMBOL K0201650
7A50 C200                  167 |       LD    2 0          TABLE                      K0201660
                           168 | *                                                   K0201670
7A51 D102                  169 |       STO   1 +2         MOVE WORD FROM STRING TO   K0201680
7A52 71FF                  170 |       MDX   1 -1         SYMBOL TABLE - MOVE        K0201690
7A53 72FF                  171 |       MDX   2 -1         POINTERS - DECREMENT       K0201700
7A54 73FF                  172 |       MDX   3 -1         COUNTER OF RANGE OF LOOP   K0201710
7A55 70FA                  173 |       MDX     *-6        CONTINUE LOOP              K0201720
                           174 | *                                                   K0201730
7A56 7103                  175 |       MDX   1 3          RESET INPUT POINTER        K0201740
7A57 6680 7A24             176 |       LDX  I2 SOFS       RESET OUTPUT POINTER       K0201750
7A59 4C00 7E02             177 |       BSC  L  CQCT       CHECK FOR NONPROCESS,PUNCH K0201760
                           178 | *                                                   K0201770
                           179 | *                  MOVES STMNTS FROM THE INPUT      K0201780
                           180 | *                  STRING TO THE OUTPUT STRING      K0201790
7A5B C100                  181 | MOVE  LD    1 0          LOAD STATEMENT ID WORD     K0201800
7A5C E06C                  182 |       AND     S07FC      ZERO ALL BUT NORM          K0201810
7A5D 1802                  183 |       SRA     2          MOVE NORM TO RIGHT         K0201820
7A5E D06B                  184 |       STO     XTE1       SET NORM COUNTER           K0201830
                           185 | *                                                   K0201840
7A5F C100                  186 | MXS   LD    1 0          LOAD ID WORD               K0201850
7A60 4400 7C01             187 |       BSI  L  PUT        PUT ON OUTPUT STRING       K0201860
7A62 7101                  188 |       MDX   1 1          MOVE INPUT POINTER         K0201870
7A63 74FF 7ACA             189 |       MDX  L  XTE1,-1    DECREMENT NORM COUNTER     K0201880
7A65 70F9                  190 |       MDX     MXS        CONTINUE LOOP              K0201890
                           191 | *                                                   K0201900
                           192 | *                  MOVE TO NEXT STATEMENT           K0201910
7A66 6500 0000             193 | MOVE1 LDX  L1 *-*        MOVE INPUT POINTER TO      K0201920
7A67                       194 | IDSV  EQU     *-1        NEXT STATEMENT             K0201930
                           195 | *                                                   K0201940
                           196 | *                  INITIALIZES FOR A SCAN OF        K0201950
                           197 | *                  THE STMNT STRING                 K0201960
7A68 C100                  198 | ZAO   LD    1 0          LOAD STATEMENT ID WORD     K0201970
7A69 1005                  199 |       SLA     5          SHIFT TO GET NORM          K0201980
7A6A 1807                  200 |       SRA     7                                     K0201990
7A6B D001                  201 |       STO     *+1                                   K0202000
7A6C 6700 0000             202 | ZA0A  LDX  L3 *-*        SAVE NORM IN XR3           K0202010
7A6E 69F8                  203 |       STX   1 IDSV       SAVE INPUT POINTER         K0202020
                           204 | *                                                   K0202030
7A6F C0FD                  205 |       LD      ZA0A+1     ADD NORM TO POINTER TO GET K0202040
7A70 80F6                  206 |       A       IDSV       ADDRESS OF NEXT STATEMENT  K0202050
7A71 D0F5                  207 |       STO     IDSV                                  K0202060
                           208 | *                                                   K0202070
7A72 C100                  209 |       LD    1 0          LOAD ID WORD               K0202080
7A73 4804                  210 |       BSC     E          DOES STMNT HAVE STMNT NO.  K0202090
7A74 73FE                  211 |       MDX   3 -2         YES, MODIFY NORM CTR       K0202100
                           212 | *                                                   K0202110
7A75 73FF                  213 |       MDX   3 -1         MODIFY CTR SO HAVE SIZE OF K0202120
7A76 1000                  214 |       NOP                STMNT WITHOUT ID WORD AND  K0202130
7A77 6F00 7BC3             215 |       STX  L3 NCNT       STATEMENT NUMBER           K0202140
                           216 | *                                                   K0202150
7A79 6F00 7BC4             217 |       STX  L3 NCNTS      SAVE MODIFIED NORM         K0202160
                           218 | *                                                   K0202170
                           219 | *                  CHECK FOR SPECIAL END INDICATOR  K0202180
7A7B C100                  220 | ZA1   LD    1 0          LOAD STATEMENT ID WORD     K0202190
7A7C 180B                  221 |       SRA     11         GET ID TYPE CODE           K0202200
7A7D 904D                  222 |       S       ENDC       CHECK FOR END TYPE CODE    K0202210
7A7E 4C20 7A8E             223 |       BSC  L  ZA1B,Z     BRANCH IF NOT END          K0202220
                           224 | *                                                   K0202230
                           225 | *                                                   K0202240
7A80 C400 7BC6             226 |       LD   L  ERID       LOAD ERROR STMNT ID WORD   K0202250
7A82 4400 7C01             227 |       BSI  L  PUT        PUT WORD ON OUTPUT STRING  K0202260
7A84 C043                  228 |       LD      ERNO2      LOAD ERROR NUMBER          K0202270
7A85 4400 7C01             229 |       BSI  L  PUT        PUT NO. ON OUTPUT STRING   K0202280
                           230 | *                                                   K0202290
                           231 | *                  PLACES THE END STMNT ID WORD     K0202300
                           232 | *                  ON THE STRING                    K0202310
7A87 6E00 7A25             233 | ZA1A  STX  L2 EOFS       SET END OF STRING ADDRESS  K0202320
7A89 C042                  234 |       LD      S1000      LOAD END STMNT ID WORD     K0202330
7A8A 4400 7C01             235 |       BSI  L  PUT        PUT WORD ON OUTPUT STRING  K0202340
7A8C 4C00 7D9C             236 |       BSC  L  CALLC      GO TO PHASE EXIT           K0202350
                           237 | *                                                   K0202360
                           238 | *                  CHECKS FOR ARITHMETIC STMNTS     K0202370
7A8E 903E                  239 | ZA1B  S       ATHC       HAS STMNT BEEN CLASSIFIED  K0202380
7A8F 4C20 7A5B             240 |       BSC  L  MOVE,Z     YES, GO CHECK STMNT        K0202390
                           241 | *                                                   K0202400
                           242 | *                  INITIALIZE GET SUBROUTINE        K0202410
7A91 693C                  243 |       STX   1 IDSV1      SAVE INPUT POINTER         K0202420
7A92 C100                  244 |       LD    1 0          LOAD STMNT ID WORD         K0202430
7A93 4804                  245 |       BSC     E          HAS STMNT NO.              K0202440
7A94 7102                  246 |       MDX   1 2          YES, MOVE POINTER OVER NO. K0202450
7A95 7101                  247 |       MDX   1 1          MOVE POINTER TO FIRST WORD K0202460
7A96 6923                  248 |       STX   1 IDSA1      AFTER ID - SAVE ADDRESS    K0202470
                           249 | *                                                   K0202480
7A97 1010                  250 |       SLA     16                                    K0202490
7A98 D400 7B66             251 |       STO  L  SW3        CLEAR SWITCH 3             K0202500
7A9A D400 7BC5             252 |       STO  L  SW6        CLEAR SWITCH 6             K0202510
7A9C D03A                  253 |       STO     SW7        CLEAR SWITCH 7             K0202520
7A9D D03A                  254 |       STO     SW8        CLEAR SWITCH 8             K0202530
7A9E D03A                  255 |       STO     SW9        CLEAR SWITCH 9             K0202540
                           256 | *                                                   K0202550
                           257 | *                                                   K0202560
                           258 | *                  CHECKS THE ARITHMETIC STMNT      K0202570
                           259 | *                  FOR THE VARIOUS TYPES OF OPTRS   K0202580
7A9F 4400 7B9B             260 | ZA2   BSI  L  GET1       GET CHAR FROM INPUT STRING K0202590
7AA1 D03B                  261 |       STO     X          SAVE CHARACTER             K0202600
                           262 | *                                                   K0202610
                           263 | *                                                   K0202620
7AA2 903B                  264 |       S       SLHHS      IS CHARACTER SLASH         K0202630
7AA3 4C18 7ADF             265 |       BSC  L  ZA5,+-     BRANCH IF YES              K0202640
                           266 | *                                                   K0202650
                           267 | *                                                   K0202660
7AA5 C037                  268 |       LD      X                                     K0202670
7AA6 9028                  269 |       S       EQUC       IS CHARACTER EQUAL SIGN    K0202680
7AA7 4C18 7AAD             270 |       BSC  L  ZA3,+-     BRANCH IF YES              K0202690
                           271 | *                                                   K0202700
                           272 | *                                                   K0202710
7AA9 C033                  273 |       LD      X          IS CHARACTER ZERO          K0202720
7AAA 4C20 7A9F             274 |       BSC  L  ZA2,Z      BRANCH IF NOT              K0202730
7AAC 7032                  275 |       MDX     ZA5        BRANCH - END OF STMNT      K0202740
                           276 | *                                                   K0202750
                           277 | *                                                   K0202760
7AAD 4400 7B9B             278 | ZA3   BSI  L  GET1       GET CHAR FROM INPUT STRING K0202770
7AAF D02D                  279 |       STO     X          SAVE CHARACTER             K0202780
                           280 | *                                                   K0202790
                           281 | *                                                   K0202800
7AB0 901F                  282 |       S       CMAC       IS CHARACTER COMMA         K0202810
7AB1 4C18 7ADF             283 |       BSC  L  ZA5,+-     BRANCH IF YES              K0202820
                           284 | *                                                   K0202830
                           285 | *                                                   K0202840
7AB3 901D                  286 |       S       LPC        IS CHAR LEFT PARENTHESIS   K0202850
7AB4 4C18 7AB9             287 |       BSC  L  ZA4,+-     BRANCH IF YES              K0202860
                           288 | *                                                   K0202870
                           289 | *                                                   K0202880
7AB6 C026                  290 |       LD      X                                     K0202890
7AB7 4C20 7AAD             291 |       BSC  L  ZA3,Z      BRANCH IF NOT END OF STMNT K0202900
                           292 | *                                                   K0202910
                           293 | *                  INITIALIZE  GET SUBROUTINE       K0202920
7AB9 6500 0000             294 | ZA4   LDX  L1 *-*        LOAD STATEMENT ID WORD     K0202930
7ABA                       295 | IDSA1 EQU     *-1                                   K0202940
7ABB D400 7B66             296 |       STO  L  SW3        CLEAR SWITCH 3             K0202950
7ABD D400 7B67             297 |       STO  L  SW4        CLEAR SWITCH 4             K0202960
7ABF D400 7BC5             298 |       STO  L  SW6        CLEAR SWITCH 6             K0202970
7AC1 C400 7BC4             299 |       LD   L  NCNTS      RESET NORM TO              K0202980
7AC3 D400 7BC3             300 |       STO  L  NCNT       ORIGINAL VALUE             K0202990
                           301 | *                                                   K0203000
                           302 | *                  PUT ARITHMETIC ID WORD IN IDWD   K0203010
7AC5 1010                  303 |       SLA     16         GET ARITHMETIC ID WORD     K0203020
7AC6 D00B                  304 |       STO     IDWD       STORE IN ID WORD           K0203030
7AC7 7049                  305 |       MDX     ZA6        GO PUT ON OUTPUT STRING    K0203040
                           306 | *                                                   K0203050
                           307 | *                  CONSTANTS                        K0203060
7AC8 0003                  308 | ERNO2 DC      3          ERROR NO. 3                K0203070
7AC9 07FC                  309 | S07FC DC      /07FC      NORM MASK                  K0203080
7ACA 0000                  310 | XTE1  DC      0          NORM COUNTER               K0203090
7ACB 0002                  311 | ENDC  DC      /02        END STMNT ID TYPE          K0203100
7ACC 1004                  312 | S1000 DC      /1004      END STMNT ID WORD          K0203110
7ACD FFFE                  313 | ATHC  DC      /00-/02    ARITHMETIC STMNT ID TYPE   K0203120
7ACE 0000                  314 | IDSV1 DC      0          INPUT POINTER              K0203130
7ACF 007E                  315 | EQUC  DC      /7E        EQUAL SIGN                 K0203140
7AD0 006B                  316 | CMAC  DC      /6B        COMMA                      K0203150
7AD1 FFE2                  317 | LPC   DC      /4D-/6B    LEFT PARENTHESIS           K0203160
7AD2 0000                  318 | IDWD  DC      0          ID WORD                    K0203170
7AD3 4800                  319 | REALC DC      /4800      REAL STMNT ID TYPE         K0203180
7AD4 0800                  320 | INTC  DC      /5000-/4800   INTEGER STMNT ID TYPE   K0203190
7AD5 0800                  321 | DOC   DC      /5800-/5000   DO STMNT ID TYPE        K0203200
7AD6 0008                  322 | EIGHT DC      8          EIGHT                      K0203210
7AD7 0000                  323 | SW7   DC      *-*        SWITCH 7                   K0203220
7AD8 0000                  324 | SW8   DC      *-*        SWITCH 8                   K0203230
7AD9 0000                  325 | SW9   DC      *-*        SWITCH 9                   K0203240
7ADA 0000                  326 | SW10  DC      *-*        PDUMP SWITCH               K0203250
7ADB 0000                  327 | SW1   DC      0          SWITCH 1                   K0203260
7ADC 0000                  328 | SW2   DC      0          SWITCH 2                   K0203270
7ADD 0000                  329 | X     DC      0          TEMPORARY STORAGE          K0203280
7ADE 0061                  330 | SLHHS DC      /61        SLASH                      K0203290
                           331 | *                                                   K0203300
                           332 | *                                                   K0203310
7ADF 6580 7ABA             333 | ZA5   LDX  I1 IDSA1      SET POINTER AT STMNT ID    K0203320
7AE1 1010                  334 |       SLA     16                                    K0203330
7AE2 D400 7B66             335 |       STO  L  SW3        CLEAR SWITCH 3             K0203340
7AE4 D400 7B67             336 |       STO  L  SW4        CLEAR SWITCH 4             K0203350
7AE6 D400 7BC5             337 |       STO  L  SW6        CLEAR SWITCH 6             K0203360
7AE8 C400 7BC4             338 |       LD   L  NCNTS      RESET NORM TO              K0203370
7AEA D400 7BC3             339 |       STO  L  NCNT       ORIGINAL VALUE             K0203380
                           340 | *                                                   K0203390
                           341 | *                                                   K0203400
7AEC 4400 7BCC             342 |       BSI  L  GETID      GET ID TYPE                K0203410
                           343 | *                                                   K0203420
                           344 | *                                                   K0203430
7AEE C0E3                  345 |       LD      IDWD       LOAD ID WORD               K0203440
7AEF 9400 7D48             346 |       S    L  ID4B+2     IS DATA STATEMENT          K0203450
7AF1 4C20 7AF5             347 |       BSC  L  *+2,Z      BRANCH IF NO               K0203460
7AF3 6C00 7AD7             348 |       STX  L0 SW7        SET DATA STMNT INDICATOR   K0203470
                           349 | *                                                   K0203480
                           350 | *                                                   K0203490
7AF5 C0DC                  351 |       LD      IDWD       LOAD ID WORD               K0203500
7AF6 9400 7D59             352 |       S    L  ID7+2      IS END STATEMENT           K0203510
7AF8 4C18 7A87             353 |       BSC  L  ZA1A,+-    BRANCH IF YES              K0203520
7AFA C0D7                  354 |       LD      IDWD      LOAD ID WORD            2-1 K0203530
7AFB 9400 7D8A             355 |       S    L  ID17+3    SUBTRACT RETURN ID      2-1 K0203540
7AFD EC00 7BC5             356 |       OR   L  SW6       OR END OF STATEMENT INDR2-1 K0203550
7AFF 4C18 7C11             357 |       BSC  L  ER,+-     BR TO ERROR IF RETURN   2-1 K0203560
                           358 | *                       AND NOT END OF STATEMENT2-1 K0203570
                           359 | *                                                   K0203580
                           360 | *                  CALL PDUMP                       K0203590
7B01 C0D0                  361 |       LD      IDWD       LOAD ID WORD               K0203600
7B02 9400 7D39             362 |       S    L  ID1L+5     TEST FOR PDUMP             K0203610
7B04 4C20 7B11             363 |       BSC  L  ZA6,Z      BRANCH IF NOT              K0203620
7B06 C400 7D3C             364 | ZA51  LD   L  ID2+2      SET ID TO CALL             K0203630
7B08 D0C9                  365 |       STO     IDWD                                  K0203640
7B09 68D0                  366 |       STX     SW10       SET PDUMP SWITCH           K0203650
                           367 | *                                                   K0203660
                           368 | *             RESET POINTERS BACK TO NAME           K0203670
                           369 | *                                                   K0203680
7B0A 71FE                  370 |       MDX   1 -2         RESET INPUT STRING POINTER K0203690
7B0B 1010                  371 |       SLA     16                                    K0203700
7B0C D059                  372 |       STO     SW3        RESET LEFT-RIGHT SWITCH    K0203710
7B0D 7402 7BC3             373 |       MDX  L  NCNT,2     RESET WORD COUNTERS        K0203720
7B0F 7402 7BC4             374 |       MDX  L  NCNTS,2    *                          K0203730
                           375 | *                                                   K0203740
                           376 | *                                                   K0203750
                           377 | *                  PUT ID WORD ON THE NEW STRING    K0203760
7B11 6E00 7B87             378 | ZA6   STX  L2 IDSV2      STORE OUTPUT POINTER       K0203770
7B13 6780 7ACE             379 |       LDX  I3 IDSV1      LOAD ADDR OF STMNT ID WD   K0203780
7B15 C300                  380 |       LD    3 0                                     K0203790
7B16 E8BB                  381 |       OR      IDWD                                  K0203800
7B17 4400 7C01             382 |       BSI  L  PUT        PLACE ID WORD ON STRING    K0203810
                           383 | *                                                   K0203820
7B19 C300                  384 |       LD    3 0          LOAD ID WORD               K0203830
7B1A 4804                  385 |       BSC     E          HAS STMNT NO.              K0203840
7B1B 7001                  386 |       MDX     *+1        YES, GO PUT NO. ON STRING  K0203850
7B1C 7006                  387 |       MDX     *+6        NO, GO SCAN BODY OF STMNT  K0203860
                           388 | *                                                   K0203870
7B1D C301                  389 |       LD    3 1          LOAD 1ST WORD OF STMNT NO. K0203880
7B1E 4400 7C01             390 |       BSI  L  PUT        PUT ON OUTPUT STRING       K0203890
7B20 C302                  391 |       LD    3 2          LOAD 2ND WORD OF STMNT NO. K0203900
7B21 4400 7C01             392 |       BSI  L  PUT        PUT ON OUTPUT STRING       K0203910
                           393 | *                                                   K0203920
                           394 | *                  INITIALIZE TO SCAN BODY OF STATE K0203930
7B23 1010                  395 |       SLA     16         CLEAR SWITCHES             K0203940
7B24 D0B6                  396 |       STO     SW1                                   K0203950
7B25 D0B6                  397 |       STO     SW2                                   K0203960
7B26 D01A                  398 |       STO     FCNT                                  K0203970
                           399 | *                                                   K0203980
                           400 | *                  IS IDWD REAL OR INTEGER          K0203990
7B27 C0AA                  401 |       LD      IDWD       LOAD ID WORD               K0204000
7B28 90AA                  402 |       S       REALC      IS IT REAL                 K0204010
7B29 4C18 7B2E             403 |       BSC  L  *+3,+-     BRANCH IF YES              K0204020
7B2B 90A8                  404 |       S       INTC       IS IT INTEGER              K0204030
7B2C 4C20 7B30             405 |       BSC  L  ZA7,Z      BRANCH IF NOT              K0204040
                           406 | *                                                   K0204050
                           407 | *                  TAG SW1                          K0204060
7B2E 68AC                  408 |       STX   0 SW1        SET REAL/INTEGER INDICATOR K0204070
7B2F 7004                  409 |       MDX     ZA8        GO GET NEXT CHARACTER      K0204080
                           410 | *                                                   K0204090
                           411 | *                                                   K0204100
7B30 90A4                  412 | ZA7   S       DOC        IS IT DO STMNT             K0204110
7B31 4C20 7B34             413 |       BSC  L  ZA8,Z      BRANCH IF NOT              K0204120
                           414 | *                                                   K0204130
                           415 | *                  TAG SW2                          K0204140
7B33 68A8                  416 |       STX   0 SW2        SET DO INDICATOR           K0204150
                           417 | *                                                   K0204160
                           418 | *                                                   K0204170
7B34 4400 7B9B             419 | ZA8   BSI  L  GET1       GET CHAR FROM INPUT STRING K0204180
7B36 D0A6                  420 |       STO     X          STORE CHAR                 K0204190
                           421 | *                                                   K0204200
                           422 | *                                                   K0204210
7B37 C0A3                  423 |       LD      SW1        IS IT REAL/INTEGER STMNT   K0204220
7B38 4C18 7B4E             424 |       BSC  L  ZA11,+-    BRANCH IF NOT              K0204230
                           425 | *                                                   K0204240
                           426 | *                                                   K0204250
7B3A C006                  427 |       LD      FCNT       LOAD FUNCTION LETTER CTR   K0204260
7B3B 909A                  428 |       S       EIGHT      ALL LETTERS COMPARED       K0204270
7B3C 4C18 7B48             429 |       BSC  L  ZA9,+-     YES, GO PUT ON ISOLATOR    K0204280
                           430 | *                                                   K0204290
                           431 | *                                                   K0204300
7B3E 7401 7B41             432 |       MDX  L  FCNT,1     MODIFY FUNCTION LETTER CTR K0204310
                           433 | *                                                   K0204320
                           434 | *                  ISOLATES THE WORD FUNCTION IN    K0204330
                           435 | *                  A TYPE STMNT ON THE STRING       K0204340
7B40 6700 0000             436 |       LDX  L3 *-*        LOAD XR3 WITH              K0204350
7B41                       437 | FCNT  EQU     *-1        FUNCTION LETTER COUNTER    K0204360
                           438 | *                                                   K0204370
7B42 C700 7B67             439 |       LD   L3 FUNT-1     LOAD LETTER FROM TABLE     K0204380
7B44 9098                  440 |       S       X          DOES IT MATCH STRING CHAR  K0204390
7B45 4C18 7B5D             441 |       BSC  L  ZA12,+-    BRANCH IF YES              K0204400
7B47 7003                  442 |       MDX     ZA10       GO NORMALIZE SWITCH 1      K0204410
                           443 | *                                                   K0204420
                           444 | *                                                   K0204430
7B48 C027                  445 | ZA9   LD      COLON      LOAD COLON                 K0204440
7B49 4400 7C30             446 |       BSI  L  MAKE       CONVERT CHAR FOR OUTPUT    K0204450
                           447 | *                                                   K0204460
                           448 | *                  NORMALIZE SW1                    K0204470
7B4B 1010                  449 | ZA10  SLA     16                                    K0204480
7B4C D08E                  450 |       STO     SW1        CLEAR REAL/INTEGER SWITCH  K0204490
7B4D 700F                  451 |       MDX     ZA12       GO TEST FOR LAST CHAR      K0204500
                           452 | *                                                   K0204510
                           453 | *                  ISOLATES STMNT NUMBERS IN        K0204520
                           454 | *                  DO STATEMENTS                    K0204530
7B4E C08D                  455 | ZA11  LD      SW2        IS IT DO STMNT             K0204540
7B4F 4C18 7B5D             456 |       BSC  L  ZA12,+-    BRANCH IF NOT              K0204550
                           457 | *                                                   K0204560
                           458 | *                  IS X NUMERIC                     K0204570
7B51 C08B                  459 |       LD      X          LOAD CHARACTER             K0204580
7B52 100B                  460 |       SLA     11         SHIFT LEFT 11              K0204590
7B53 4C10 7B57             461 |       BSC  L  *+2,-      FIRST TEST FOR NUMERIC     K0204600
7B55 4C02 7B5D             462 |       BSC  L  ZA12,C     SECOND TEST-BRANCH NUMERIC K0204610
                           463 | *                                                   K0204620
                           464 | *                                                   K0204630
7B57 C018                  465 |       LD      COLON      LOAD COLON                 K0204640
7B58 4400 7C30             466 |       BSI  L  MAKE       CONVERT CHAR FOR OUTPUT    K0204650
                           467 | *                                                   K0204660
                           468 | *                  NORMALIZE SW2                    K0204670
7B5A 1010                  469 |       SLA     16                                    K0204680
7B5B D400 7ADC             470 |       STO  L  SW2        CLEAR DO INDICATOR         K0204690
                           471 | *                                                   K0204700
                           472 | *                                                   K0204710
7B5D C400 7ADD             473 | ZA12  LD   L  X          LOAD CHARACTER             K0204720
7B5F 4C18 7B77             474 |       BSC  L  ZA13,+-    BRANCH IF FINISHED STMNT   K0204730
                           475 | *                                                   K0204740
                           476 | *                                                   K0204750
7B61 C400 7ADD             477 |       LD   L  X          LOAD CHARACTER             K0204760
7B63 4400 7C30             478 |       BSI  L  MAKE       CONVERT CHAR FOR OUTPUT    K0204770
7B65 70CE                  479 |       MDX     ZA8        CONTINUE CHECK LOOP        K0204780
                           480 | *                                                   K0204790
                           481 | *                  CONSTANTS                        K0204800
7B66 0000                  482 | SW3   DC      0          SWITCH 3                   K0204810
7B67 0000                  483 | SW4   DC      0          SWITCH 4                   K0204820
7B68 00C6                  484 | FUNT  DC      /C6        F                          K0204830
7B69 00E4                  485 |       DC      /E4        U                          K0204840
7B6A 00D5                  486 |       DC      /D5        N                          K0204850
7B6B 00C3                  487 |       DC      /C3        C                          K0204860
7B6C 00E3                  488 |       DC      /E3        T                          K0204870
7B6D 00C9                  489 |       DC      /C9        I                          K0204880
7B6E 00D6                  490 |       DC      /D6        O                          K0204890
7B6F 00D5                  491 |       DC      /D5        N                          K0204900
7B70 003A                  492 | COLON DC      /3A        COLON                      K0204910
7B71 0000                  493 | QSX1  DC      0          TEMPORARY STORAGE          K0204920
7B72 F803                  494 | SF803 DC      /F803      CLEAR NORM MASK            K0204930
7B73 00FF                  495 | SFF   DC      /FF        CLEAR LEFT 8 BITS MASK     K0204940
7B74 001E                  496 | SEMI  DC      /1E        SEMI-COLON                 K0204950
7B75 D808                  497 | PDMP  DC      /D808      DUMMY ZERO VARIABLE TO     K0204960
7B76 5F00                  498 |       DC      /5F00      TERMINATE PDUMP CALL       K0204970
                           499 | *                                                   K0204980
                           500 | *                                                   K0204990
                           501 | *                  PLACES THE STMNT TERMINATOR      K0205000
                           502 | *                  (SEMI-COLON) AT THE END OF THE   K0205010
                           503 | *                  STATEMENT                        K0205020
7B77 C0FC                  504 | ZA13  LD      SEMI       LOAD SEMI-COLON            K0205030
7B78 4400 7C30             505 |       BSI  L  MAKE       CONVERT CHAR FOR OUTPUT    K0205040
                           506 | *                                                   K0205050
                           507 | *                                                   K0205060
7B7A C400 7AD2             508 |       LD   L  IDWD       LOAD ID WORD               K0205070
7B7C 9400 7D45             509 |       S    L  ID4+4      IS CONTINUE STMNT          K0205080
7B7E 4C20 7B81             510 |       BSC  L  QZA1,Z     BRANCH IF NO               K0205090
                           511 | *                                                   K0205100
                           512 | *                                                   K0205110
7B80 72FF                  513 |       MDX   2 -1         DECREMENT OUTPUT POINTER   K0205120
                           514 | *                                                   K0205130
                           515 | *                  INSERT THE STATEMENT NORM        K0205140
                           516 | *                  STMNT ID WORD                    K0205150
7B81 6AEF                  517 | QZA1  STX   2 QSX1       STORE OUTPUT POINTER       K0205160
7B82 C0EE                  518 |       LD      QSX1                                  K0205170
7B83 9003                  519 |       S       IDSV2      SUBTRACT START ADDRESS TO  K0205180
7B84 1002                  520 |       SLA     2          GET NORM - MOVE IN ID WORD K0205190
7B85 D0EB                  521 |       STO     QSX1                                  K0205200
                           522 | *                                                   K0205210
7B86 C400 0000             523 |       LD   L  *-*        LOAD STATEMENT             K0205220
7B87                       524 | IDSV2 EQU     *-1        ID WORD                    K0205230
                           525 | *                                                   K0205240
7B88 E0E9                  526 |       AND     SF803      ZERO NORM                  K0205250
7B89 E8E7                  527 |       OR      QSX1       INSERT NEW NORM            K0205260
7B8A D480 7B87             528 |       STO  I  IDSV2      PUT BACK ON STRING         K0205270
7B8C C400 7ADA             529 |       LD   L  SW10       TEST FOR PDUMP CALL        K0205280
7B8E 4C18 7A66             530 |       BSC  L  MOVE1,+-   BRANCH IF NO CALL          K0205290
7B90 C0E4                  531 |       LD      PDMP       OUTPUT INTERNAL FORMAT ID  K0205300
7B91 4400 7C01             532 |       BSI  L  PUT                                   K0205310
7B93 C0E2                  533 |       LD      PDMP+1     OUTPUT ZERO CONSTANT       K0205320
7B94 4400 7C01             534 |       BSI  L  PUT                                   K0205330
7B96 1010                  535 |       SLA     16                                    K0205340
7B97 D400 7ADA             536 |       STO  L  SW10       CLEAR PDUMP SWITCH         K0205350
7B99 4C00 7A66             537 |       BSC  L  MOVE1      GO TO NEXT STATEMENT       K0205360
                           538 | *                                                   K0205370
                           539 | *                                                   K0205380
                           540 | *                  GETS A CHAR FROM THE I/P STRING  K0205390
7B9B 0000                  541 | GET1  DC      0          RETURN ADDRESS             K0205400
7B9C C400 7B66             542 |       LD   L  SW3        IS CHAR IN RIGHT HALF      K0205410
7B9E 4C20 7BA8             543 |       BSC  L  GXY1,Z     BRANCH IF NOT              K0205420
                           544 | *                                                   K0205430
                           545 | *                                                   K0205440
7BA0 C024                  546 |       LD      SW6        IS IT END OF STMNT         K0205450
7BA1 4C20 7BB8             547 |       BSC  L  GXY4,Z     BRANCH IF NOT              K0205460
                           548 | *                                                   K0205470
                           549 | *                  TAG SW3                          K0205480
7BA3 6C00 7B66             550 |       STX  L0 SW3        SET RIGHT HALF INDICATOR   K0205490
                           551 | *                                                   K0205500
                           552 | *                  GET LEFT CHARACTER               K0205510
7BA5 C100                  553 |       LD    1 0          LOAD WORD FROM STRING      K0205520
7BA6 1808                  554 |       SRA     8          UNPACK - GET LEFT HALF     K0205530
7BA7 7011                  555 |       MDX     GXY3       GO TO RETURN               K0205540
                           556 | *                                                   K0205550
                           557 | *                                                   K0205560
7BA8 1010                  558 | GXY1  SLA     16                                    K0205570
7BA9 D400 7B66             559 |       STO  L  SW3        CLEAR RIGHT HALF INDICATOR K0205580
                           560 | *                                                   K0205590
                           561 | *                  GET RIGHT CHARACTER              K0205600
7BAB C100                  562 |       LD    1 0          LOAD INPUT WORD            K0205610
7BAC E400 7B73             563 |       AND  L  SFF        UNPACK - GET RIGHT CHAR    K0205620
                           564 | *                                                   K0205630
                           565 | *                                                   K0205640
7BAE 7101                  566 | GXY2  MDX   1 1          MOVE POINTER               K0205650
                           567 | *                                                   K0205660
                           568 | *                                                   K0205670
7BAF 74FF 7BC3             569 |       MDX  L  NCNT,-1    DECREMENT NORM COUNTER     K0205680
                           570 | *                                                   K0205690
                           571 | *                                                   K0205700
7BB1 7007                  572 |       MDX     GXY3       BRANCH TO RETURN           K0205710
                           573 | *                                                   K0205720
                           574 | *                                                   K0205730
7BB2 6812                  575 |       STX   0 SW6        SET END OF STMNT SW        K0205740
                           576 | *                                                   K0205750
                           577 | *                  BLANK CHARACTER                  K0205760
7BB3 9017                  578 | GXY5  S       S0040      IS LAST CHAR BLANK         K0205770
7BB4 4C18 7BB9             579 |       BSC  L  GXY3,+-    BRANCH IF YES              K0205780
7BB6 8014                  580 |       A       S0040      SET LAST CHAR TO BLANK     K0205790
7BB7 7001                  581 |       MDX     GXY3       BRANCH TO RETURN           K0205800
                           582 | *                                                   K0205810
                           583 | *                                                   K0205820
7BB8 1010                  584 | GXY4  SLA     16         SET END OF STMNT INDICATOR K0205830
                           585 | *                                                   K0205840
                           586 | *                                                   K0205850
7BB9 4C80 7B9B             587 | GXY3  BSC  I  GET1       RETURN                     K0205860
                           588 | *                                                   K0205870
                           589 | *                                                   K0205880
                           590 | *                  GETS TWO CHARACTERS FROM THE     K0205890
                           591 | *                  INPUT STRING                     K0205900
7BBB 0000                  592 | GET2  DC      0          RETURN ADDRESS             K0205910
7BBC C008                  593 |       LD      SW6        IS IT END OF STMNT         K0205920
7BBD 4C20 7BB8             594 |       BSC  L  GXY4,Z     BRANCH IF YES              K0205930
                           595 | *                                                   K0205940
                           596 | *                  GET BOTH CHARACTERS              K0205950
7BBF C0FB                  597 |       LD      GET2       LOAD RETURN ADDRESS        K0205960
7BC0 D0DA                  598 |       STO     GET1       STORE IN GET1              K0205970
7BC1 C100                  599 |       LD    1 0          LOAD WORD IN STMNT         K0205980
7BC2 70EB                  600 |       MDX     GXY2       GO TO MOVE POINTER         K0205990
                           601 | *                                                   K0206000
                           602 | *                  CONSTANTS                        K0206010
7BC3 0000                  603 | NCNT  DC      0          NORM COUNTER               K0206020
7BC4 0000                  604 | NCNTS DC      0          SAVE ORIGINAL NORM         K0206030
7BC5 0000                  605 | SW6   DC      0          SWITCH 6                   K0206040
7BC6 A008                  606 | ERID  DC      /A008      ERROR STMNT ID WORD        K0206050
7BC7 0009                  607 | NINE  DC      9          NINE                       K0206060
7BC8 0000                  608 | CHAR  DC      0          CHARACTER COUNTER          K0206070
7BC9 0004                  609 | ERNO  DC      4          ERROR NO. 4                K0206080
7BCA 0000                  610 | OVLPC DC      0          OVERLAY TEST WORD          K0206090
7BCB 0040                  611 | S0040 DC      /0040      EBC BLANK                  K0206100
                           612 | *                                                   K0206110
                           613 | *                                                   K0206120
7BCC 0000                  614 | GETID DC      0          RETURN ADDRESS             K0206130
7BCD 6700 7CE9             615 |       LDX  L3 TWONT-2    INITIALIZE TABLE POINTER   K0206140
                           616 | *                                                   K0206150
                           617 | *                                                   K0206160
                           618 | *                  INITIALIZES FOR A STATEMENT      K0206170
                           619 | *                  TYPE CODE TABLE SEARCH           K0206180
                           620 | *                  GETS THE STMNT TYPE CODE         K0206190
                           621 | *                  STORES IT IN THE ID WORD         K0206200
7BCF 7302                  622 | GTID1 MDX   3 2          MODIFY POINTER             K0206210
                           623 | *                                                   K0206220
                           624 | *                                                   K0206230
7BD0 C300                  625 |       LD    3 0          LOAD WORD FROM TABLE       K0206240
7BD1 4C18 7C11             626 |       BSC  L  ER,+-      BRANCH IF END OF TABLE     K0206250
                           627 | *                                                   K0206260
                           628 | *                                                   K0206270
7BD3 9100                  629 |       S     1 0          DOES MATCH WORD IN STRING  K0206280
7BD4 4C20 7BCF             630 |       BSC  L  GTID1,Z    CONTINUE LOOP IF NOT       K0206290
                           631 | *                                                   K0206300
                           632 | *                  GET CORRECT NAME TABLE           K0206310
7BD6 C301                  633 |       LD    3 1          LOAD ADDR OF NAME TABLE    K0206320
7BD7 D002                  634 |       STO     *+2                                   K0206330
7BD8 6B21                  635 |       STX   3 GTID4+3    SAVE TABLE POINTER         K0206340
7BD9 6700 0000             636 |       LDX  L3 *-*        ADDR OF NAME TABLE         K0206350
                           637 | *                                                   K0206360
                           638 | *                  INITIALIZE TO SCAN NAME TABLE    K0206370
7BDB 691C                  639 |       STX   1 GTID4+1    SAVE INPUT POINTER         K0206380
7BDC 7101                  640 |       MDX   1 1          MOVE INPUT POINTER         K0206390
                           641 | *                                                   K0206400
                           642 | *                  PUT CHARACTER COUNT IN CHAR      K0206410
7BDD C300                  643 |       LD    3 0          LOAD CHARACTER COUNT       K0206420
7BDE D0E9                  644 |       STO     CHAR       SAVE                       K0206430
                           645 | *                                                   K0206440
                           646 | *                                                   K0206450
7BDF 4C18 7BEE             647 |       BSC  L  GTID3,+-   BRANCH IF ZERO             K0206460
                           648 | *                                                   K0206470
                           649 | *                                                   K0206480
7BE1 74FF 7BC8             650 | GTID2 MDX  L  CHAR,-1    DECREMENT COUNT            K0206490
                           651 | *                                                   K0206500
                           652 | *                                                   K0206510
7BE3 7002                  653 |       MDX     GTID6      GET NEXT WORD FROM STRING  K0206520
                           654 | *                                                   K0206530
                           655 | *                                                   K0206540
7BE4 40B6                  656 |       BSI     GET1       GET CHAR FROM INPUT STRING K0206550
7BE5 7001                  657 |       MDX     GTID5      SEE IF CHARACTERS MATCH    K0206560
                           658 | *                                                   K0206570
                           659 | *                                                   K0206580
7BE6 40D4                  660 | GTID6 BSI     GET2       GET NEXT WORD IN STMNT     K0206590
                           661 | *                                                   K0206600
                           662 | *                                                   K0206610
7BE7 9301                  663 | GTID5 S     3 1          DOES WORD MATCH            K0206620
7BE8 4C20 7BF7             664 |       BSC  L  GTID4,Z    BRANCH IF NO               K0206630
                           665 | *                                                   K0206640
                           666 | *                                                   K0206650
7BEA 7301                  667 |       MDX   3 1          MOVE TABLE POINTER         K0206660
                           668 | *                                                   K0206670
                           669 | *                                                   K0206680
7BEB 74FF 7BC8             670 |       MDX  L  CHAR,-1    DECREMENT CHARACTER COUNT  K0206690
                           671 | *                                                   K0206700
                           672 | *                                                   K0206710
7BED 70F3                  673 |       MDX     GTID2      GO TO DECREMENT COUNT      K0206720
                           674 | *                                                   K0206730
                           675 | *                                                   K0206740
7BEE C301                  676 | GTID3 LD    3 1          LOAD STMNT ID WORD         K0206750
7BEF D400 7AD2             677 |       STO  L  IDWD       SAVE                       K0206760
                           678 | *                                                   K0206770
                           679 | *                                                   K0206780
7BF1 74FF 7BC3             680 |       MDX  L  NCNT,-1    MODIFY NORM COUNT          K0206790
7BF3 7001                  681 |       MDX     *+1        SKIP SET SWITCH            K0206800
7BF4 68D0                  682 |       STX   0 SW6        SET END OF STMNT SWITCH    K0206810
                           683 | *                                                   K0206820
                           684 | *                                                   K0206830
7BF5 4C80 7BCC             685 |       BSC  I  GETID      RETURN                     K0206840
                           686 | *                                                   K0206850
                           687 | *                                                   K0206860
7BF7 6500 0000             688 | GTID4 LDX  L1 *-*        RESTORE INDEX 1            K0206870
7BF9 6700 0000             689 |       LDX  L3 *-*        RESTORE INDEX 3            K0206880
7BFB C0C8                  690 |       LD      NCNTS      RESET NORM TO              K0206890
7BFC D0C6                  691 |       STO     NCNT       ORIGINAL VALUE             K0206900
                           692 | *                                                   K0206910
                           693 | *                                                   K0206920
7BFD 1010                  694 |       SLA     16                                    K0206930
7BFE D400 7B66             695 |       STO  L  SW3        CLEAR RIGHT HALF INDICATOR K0206940
7C00 70CE                  696 |       MDX     GTID1      START COMPARE AGAIN        K0206950
                           697 | *************************************************** K0206960
                           698 | *             THIS SUBROUTINE PUTS THE WORD THAT    K0206970
                           699 | *             IS IN THE ACCUMULATOR ON THE          K0206980
                           700 | *             OUTPUT STRING. ENTRY IS A BSI         K0206990
                           701 | *             INSTRUCTION TO THE LABEL (PUT).       K0207000
                           702 | *             THE OUTPUT STRING POINTER (XR2) IS    K0207010
                           703 | *             INCREMENTED BY ONE UPON EXITING.      K0207020
                           704 | *************************************************** K0207030
                           705 | *                                                   K0207040
                           706 | *                  PUT WORD ON STRING               K0207050
                           707 | *                                                   K0207060
7C01 0000                  708 | PUT   DC      0          RETURN ADDRESS             K0207070
7C02 D200                  709 |       STO   2 0          PUT WORD ON OUTPUT STRING  K0207080
                           710 | *                                                   K0207090
                           711 | *                                                   K0207100
7C03 7201                  712 |       MDX   2 1          MOVE OUTPUT STRING POINTER K0207110
                           713 | *                                                   K0207120
                           714 | *                  OVERLAP ERROR                    K0207130
7C04 6AC5                  715 |       STX   2 OVLPC      STORE OUTPUT POINTER       K0207140
7C05 C0C4                  716 |       LD      OVLPC                                 K0207150
7C06 9020                  717 |       S       THREE      SUBTRACT THREE             K0207160
7C07 9400 7A2A             718 |       S    L  EOFST      SUBTRACT END OF SYMBOL TBL K0207170
7C09 4C28 7C0F             719 |       BSC  L  RTN,+Z     BRANCH IF NO OVERLAP       K0207180
                           720 | *                                                   K0207190
                           721 | *                  SET UP OVERLAP ERROR             K0207200
7C0B 7401 7A2D             722 |       MDX  L  ERROR,1    SET OVERLAP ERROR          K0207210
7C0D 4C00 7A3C             723 |       BSC  L  WAIT       EXIT FROM PHASE            K0207220
                           724 | *                                                   K0207230
                           725 | *                                                   K0207240
7C0F 4C80 7C01             726 | RTN   BSC  I  PUT        RETURN                     K0207250
                           727 | *                                                   K0207260
                           728 | *                  PUT OUT ERROR NO. 4              K0207270
7C11 C0B4                  729 | ER    LD      ERID       LOAD ERROR STMNT ID WORD   K0207280
7C12 40EE                  730 |       BSI     PUT        PUT ON OUTPUT STRING       K0207290
7C13 C480 7ACE             731 |       LD   I  IDSV1      LOAD STMNT ID WORD         K0207300
7C15 4C04 7C1D             732 |       BSC  L  ER1,E      BRANCH IF HAVE STMNT NO.   K0207310
7C17 C0B1                  733 | ER2   LD      ERNO       LOAD ERROR NUMBER          K0207320
7C18 40E8                  734 |       BSI     PUT        PUT ON OUTPUT STRING       K0207330
7C19 6304                  735 |       LDX   3 4                                     K0207340
7C1A 6BAE                  736 |       STX   3 ERNO       RESTORE ERROR NO. TO 4     K0207350
7C1B 4C00 7A66             737 |       BSC  L  MOVE1      GO TO NEXT STATEMENT       K0207360
                           738 | *                                                   K0207370
7C1D C2FF                  739 | ER1   LD    2 -1         LOAD OUTPUT STMNT ID WORD  K0207380
7C1E 80A8                  740 |       A       NINE       ADD TWO TO NORM, SET STMNT K0207390
7C1F D2FF                  741 |       STO   2 -1         NO. BIT ON, O/P ON STRING  K0207400
                           742 | *                                                   K0207410
7C20 6780 7ACE             743 |       LDX  I3 IDSV1      LOAD STMNT ADDR IN XR3     K0207420
7C22 C301                  744 |       LD    3 1          LOAD FIRST WORD OF NUMBER  K0207430
7C23 40DD                  745 |       BSI     PUT        PUT ON OUTPUT STRING       K0207440
                           746 | *                                                   K0207450
7C24 C302                  747 |       LD    3 2          LOAD 2ND WORD OF STMNT NO. K0207460
7C25 40DB                  748 |       BSI     PUT        PUT ON OUTPUT STRING       K0207470
7C26 70F0                  749 |       MDX     ER2        PUT ERROR NO. ON STRING    K0207480
                           750 | *                                                   K0207490
                           751 | *                  CONSTANTS                        K0207500
7C27 0003                  752 | THREE DC      3          THREE                      K0207510
7C28 0000                  753 | SVV1  DC      0          SAVE WORD                  K0207520
7C29 0000                  754 | SW5   DC      0          SWITCH 5                   K0207530
7C2A 0001                  755 | S0001 DC      /0001      ONE                        K0207540
7C2B 003F                  756 | S003F DC      /003F      NORM MASK                  K0207550
7C2C 007D                  757 | QUOTE DC      /7D        QUOTE                      K0207560
7C2E                       758 |       BSS  E  0                                     K0207570
7C2E 0000                  759 | NAMS  DC      0          TWO WORD AREA FOR 1130     K0207580
7C2F 0000                  760 |       DC      0          SYMBOL TABLE NAME          K0207590
                           761 | *                                                   K0207600
                           762 | *                  STORES NAME IN NAME CODE         K0207610
                           763 | *                  STORES OPTR IN ONE WORD ON       K0207620
                           764 | *                  THE STRING                       K0207630
                           765 | *                                                   K0207640
7C30 0000                  766 | MAKE  DC      0          RETURN ADDRESS             K0207650
7C31 D0F6                  767 |       STO     SVV1       STORE WORD                 K0207660
                           768 | *                                                   K0207670
7C32 9400 7B74             769 |       S    L  SEMI      IS IT SEMICOLON         2-5 K0207672
7C34 4C20 7C38             770 |       BSC  L  MAKE0,Z   NO  - CONTINUE          2-5 K0207674
7C36 D400 7AD8             771 |       STO  L  SW8       YES - RESET SWITCH 8    2-5 K0207676
                           772 | *                                                   K0207680
7C38 C400 7AD8             773 | MAKE0 LD   L  SW8        HAS QUOTE BEEN ENCOUNTERED K0207690
7C3A 4C20 7C8F             774 |       BSC  L  MAKE7,Z    BRANCH IF YES              K0207700
7C3C C0EB                  775 |       LD      SVV1       LOAD WORD                  K0207710
7C3D 1008                  776 |       SLA     8          GET RIGHT CHAR             K0207720
7C3E 4C10 7C58             777 |       BSC  L  MAKE1,-    BRANCH IF SPECIAL OPERATOR K0207730
                           778 | *                                                   K0207740
                           779 | *                                                   K0207750
7C40 1010                  780 |       SLA     16                                    K0207760
7C41 D0E7                  781 |       STO     SW5        CLEAR ARGUMENT TYPE SW     K0207770
                           782 | *                                                   K0207780
                           783 | *                                                   K0207790
7C42 C400 7B67             784 |       LD   L  SW4        IS THERE CHAR IN NAMS      K0207800
7C44 4C20 7C4B             785 |       BSC  L  MAKE4,Z    BRANCH IF YES              K0207810
                           786 | *                                                   K0207820
                           787 | *                  INITIALIZE NAMS                  K0207830
7C46 1090                  788 | MAKE3 SLT     16         CLEAR EXTENSION            K0207840
7C47 C0E2                  789 |       LD      S0001      LOAD NAMS FULL INDICATOR   K0207850
7C48 D8E5                  790 |       STD     NAMS       STORE IN NAMS              K0207860
                           791 | *                                                   K0207870
                           792 | *                                                   K0207880
7C49 6C00 7B67             793 |       STX  L0 SW4        SET CHAR IN NAMS SW        K0207890
                           794 | *                                                   K0207900
                           795 | *                  IS NAMS FULL                     K0207910
7C4B C0E3                  796 | MAKE4 LD      NAMS+1     LOAD 2ND WORD OF NAMS      K0207920
7C4C 1081                  797 |       SLT     1          SHIFT TO SEE IF FULL       K0207930
7C4D 4C28 7C5D             798 |       BSC  L  MAKE2,+Z   BRANCH IF FULL             K0207940
                           799 | *                                                   K0207950
                           800 | *                  ADD ARGUMENT TO NAMS             K0207960
7C4F C8DE                  801 |       LDD     NAMS       LOAD NAME                  K0207970
7C50 18DA                  802 |       RTE     26         CLEAR SPACE FOR NEXT CHAR  K0207980
7C51 D0DC                  803 |       STO     NAMS       STORE                      K0207990
7C52 C0D5                  804 |       LD      SVV1       LOAD WORD                  K0208000
7C53 E0D7                  805 |       AND     S003F      CLEAR EXTRA BITS           K0208010
7C54 E8D9                  806 |       OR      NAMS       COMBINE WITH NAMS          K0208020
7C55 D8D8                  807 |       STD     NAMS       SAVE NEW NAMS              K0208030
                           808 | *                                                   K0208040
                           809 | *                                                   K0208050
7C56 4C80 7C30             810 | MAKE5 BSC  I  MAKE       RETURN                     K0208060
                           811 | *                                                   K0208070
                           812 | *                                                   K0208080
7C58 68D0                  813 | MAKE1 STX   0 SW5        SET SWITCH TO OPERATOR     K0208090
                           814 | *                                                   K0208100
                           815 | *                                                   K0208110
7C59 C400 7B67             816 |       LD   L  SW4        IS THERE CHAR IN NAMS      K0208120
7C5B 4C18 7C8F             817 |       BSC  L  MAKE7,+-   BRANCH IF NO               K0208130
                           818 | *                                                   K0208140
                           819 | *                  NORMALIZE NAMS                   K0208150
7C5D C8D0                  820 | MAKE2 LDD     NAMS       LOAD NAMS                  K0208160
7C5E 18D0                  821 |       RTE     16         ROTATE NAME                K0208170
7C5F 1081                  822 |       SLT     1          MOVE CHAR FROM EXTENSION   K0208180
                           823 | *                        TO ACCUMULATOR             K0208190
7C60 4C10 7C5F             824 |       BSC  L  *-3,-      BRANCH IF SPECIAL OPERATOR K0208200
7C62 D8CB                  825 |       STD     NAMS       STORE NAME                 K0208210
                           826 | *                                                   K0208220
                           827 | *                                                   K0208230
7C63 409D                  828 |       BSI     PUT        PUT FIRST WORD ON STRING   K0208240
7C64 C8C9                  829 |       LDD     NAMS       LOAD NAME                  K0208250
7C65 1883                  830 |       SRT     3          PUT FIRST HALF OF 3RD CHAR K0208260
7C66 1010                  831 |       SLA     16         INTO EXTENSION-MOVE ENTIRE K0208270
7C67 1086                  832 |       SLT     6          CHAR TO ACC FOR TESTING    K0208280
7C68 4C18 7C6E             833 |       BSC  L  *+4,+-     BRANCH IF ONE WORD NAME    K0208290
7C6A C8C3                  834 |       LDD     NAMS       LOAD NAMS                  K0208300
7C6B 180F                  835 |       SRA     15         MOVE BIT TO RIGHT-MOST POS K0208310
7C6C 108F                  836 |       SLT     15         MOVE EXTENSION TO ACC      K0208320
7C6D 4093                  837 |       BSI     PUT        PUT ON OUTPUT STRING       K0208330
                           838 | *                                                   K0208340
                           839 | *                  GET MODE OF NAMS                 K0208350
7C6E 6700 8C00             840 |       LDX  L3 /8C00      LOAD FLOATING POINT MODE   K0208360
7C70 C400 7A31             841 |       LD   L  CCWD       TEST EXTENDED PRECISION    K0208370
7C72 100D                  842 |       SLA     13         BIT OF CONTROL CARD WORD   K0208380
7C73 4C10 7C77             843 |       BSC  L  *+2,-      BRANCH IF  STANDARD PREC   K0208390
7C75 6700 8A00             844 |       LDX  L3 /8A00      LOAD EXTENSION PRECISION   K0208400
                           845 | *                        MODE                       K0208410
7C77 6B72                  846 |       STX   3 NAMED      STORE MODE                 K0208420
                           847 | *                                                   K0208430
                           848 | *                  FIND NAME TO TRANSLATE           K0208440
7C78 6324                  849 |       LDX   3 36         INITIALIZE COUNTER         K0208450
7C79 C2FE                  850 | EXFN1 LD    2 -2         LOAD WORD TO BE TRANSLATED K0208460
7C7A 9700 7CC2             851 |       S    L3 FUNEX-4    MATCH ENTRY IN TABLE       K0208470
7C7C 4C20 7C8A             852 |       BSC  L  EXFN2,Z    BRANCH IF NOT              K0208480
                           853 | *                                                   K0208490
7C7E C2FF                  854 |       LD    2 -1         LOAD 2ND WORD              K0208500
7C7F 9700 7CC3             855 |       S    L3 FUNEX-3    MATCH ENTRY IN TABLE       K0208510
7C81 4C20 7C8A             856 |       BSC  L  EXFN2,Z    BRANCH IF NOT              K0208520
                           857 | *                                                   K0208530
7C83 CF00 7CC4             858 |       LDD  L3 FUNEX-2    LOAD FUNCTION NAME         K0208540
7C85 E864                  859 |       OR      NAMED      ADD MODE TO NAME           K0208550
7C86 D2FE                  860 |       STO   2 -2         STORE IN OUTPUT STRING     K0208560
7C87 18D0                  861 |       RTE     16         LOAD 2ND WORD              K0208570
7C88 D2FF                  862 |       STO   2 -1         PUT ON OUTPUT STRING       K0208580
7C89 7002                  863 |       MDX     *+2        GO TEST SWITCH 5           K0208590
7C8A 73FC                  864 | EXFN2 MDX   3 -4         MODIFY COUNTER             K0208600
7C8B 70ED                  865 |       MDX     EXFN1      CONTINUE LOOP              K0208610
                           866 | *                                                   K0208620
                           867 | *                                                   K0208630
7C8C C09C                  868 |       LD      SW5        IS ARGUMENT OPERATOR       K0208640
7C8D 4C18 7C46             869 |       BSC  L  MAKE3,+-   BRANCH IF NO               K0208650
                           870 | *                                                   K0208660
                           871 | *                                                   K0208670
7C8F C098                  872 | MAKE7 LD      SVV1       LOAD WORD                  K0208680
7C90 909B                  873 |       S       QUOTE      IS IT QUOTE                K0208690
7C91 4C20 7CA2             874 |       BSC  L  MAKE9,Z    BRANCH IF NO               K0208700
                           875 | *                                                   K0208710
                           876 | *                                                   K0208720
7C93 C400 7AD7             877 |       LD   L  SW7        IS IT DATA STMNT           K0208730
7C95 4820                  878 |       BSC     Z                                     K0208740
7C96 902D                  879 |       S       QUMSC                                 K0208750
7C97 4C18 7CBA             880 |       BSC  L  MAKE6,+-   BRANCH IF NO               K0208760
                           881 | *                                                   K0208770
                           882 | *                                                   K0208780
7C99 1010                  883 |       SLA     16                                    K0208790
7C9A D400 7AD9             884 |       STO  L  SW9        SET LEFT HALF SWITCH       K0208800
                           885 | *                                                   K0208810
                           886 | *                                                   K0208820
7C9C C000                  887 |       LD      *                                     K0208830
7C9D F400 7AD8             888 |       EOR  L  SW8        REVERSE QUOTE INDICATOR    K0208840
7C9F D400 7AD8             889 |       STO  L  SW8                                   K0208850
7CA1 7018                  890 |       MDX     MAKE6      PUT CHAR ON OUTPUT STRING  K0208860
                           891 | *                                                   K0208870
                           892 | *                                                   K0208880
7CA2 C400 7AD8             893 | MAKE9 LD   L  SW8        WAS QUOTE ENCOUNTERED      K0208890
7CA4 4C18 7CBA             894 |       BSC  L  MAKE6,+-   BRANCH IF NOT              K0208900
                           895 | *                                                   K0208910
                           896 | *                                                   K0208920
7CA6 C400 7AD9             897 |       LD   L  SW9        OUTPUT RIGHT HALF OF WORD  K0208930
7CA8 4C20 7CB2             898 |       BSC  L  MAKE8,Z    BRANCH IF YES              K0208940
                           899 | *                                                   K0208950
                           900 | *                                                   K0208960
7CAA C400 7C28             901 |       LD   L  SVV1       LOAD WORD                  K0208970
7CAC 1008                  902 |       SLA     8          SHIFT TO LEFT              K0208980
7CAD 4400 7C01             903 |       BSI  L  PUT        PUT ON OUTPUT STRING       K0208990
                           904 | *                                                   K0209000
                           905 | *                                                   K0209010
7CAF 6C00 7AD9             906 |       STX  L0 SW9        SET SW TO O/P RIGHT HALF   K0209020
7CB1 700E                  907 |       MDX     MAKEA      GO NORMALIZE SWITCH 4      K0209030
                           908 | *                                                   K0209040
                           909 | *                                                   K0209050
7CB2 C2FF                  910 | MAKE8 LD    2 -1         LOAD WORD FROM OUTPUT      K0209060
7CB3 EC00 7C28             911 |       OR   L  SVV1       PUT IN RIGHT CHAR          K0209070
7CB5 D2FF                  912 |       STO   2 -1         PUT BACK ON OUTPUT STRING  K0209080
                           913 | *                                                   K0209090
                           914 | *                                                   K0209100
7CB6 1010                  915 |       SLA     16                                    K0209110
7CB7 D400 7AD9             916 |       STO  L  SW9        SET SW TO O/P LEFT HALF    K0209120
7CB9 7006                  917 |       MDX     MAKEA      GO NORMALIZE SWITCH 4      K0209130
                           918 | *                                                   K0209140
                           919 | *                                                   K0209150
7CBA C400 7C28             920 | MAKE6 LD   L  SVV1       LOAD WORD                  K0209160
7CBC E400 7C2B             921 |       AND  L  S003F      GET NECESSARY BITS         K0209170
7CBE 4400 7C01             922 |       BSI  L  PUT        PUT ON OUTPUT STRING       K0209180
                           923 | *                                                   K0209190
                           924 | *                                                   K0209200
7CC0 1010                  925 | MAKEA SLA     16                                    K0209210
7CC1 D400 7B67             926 |       STO  L  SW4        CLEAR CHAR IN NAMS SW      K0209220
7CC3 7092                  927 |       MDX     MAKE5      RETURN                     K0209230
                           928 | *                                                   K0209240
7CC4 FFA1                  929 | QUMSC DC      /1E-/7D    QUOTE - SEMICOLON          K0209250
                           930 | *                                                   K0209260
                           931 | *                  FUNCTIONAL EXCHANGE TABLE        K0209270
7CC6                       932 |       BSS  E  0                                     K0209280
7CC6 C44A                  933 | FUNEX DC      /C44A      -SI-                       K0209290
7CC7 D000                  934 |       DC      /D000      -N -                       K0209300
7CC8 0111                  935 |       DC      /0111      - S-                       K0209310
7CC9 9540                  936 |       DC      /9540      -IN-                       K0209320
7CCA 86B4                  937 |       DC      /86B4      -CO-                       K0209330
7CCB A000                  938 |       DC      /A000      -S -                       K0209340
7CCC 001A                  939 |       DC      /001A      - C-                       K0209350
7CCD E880                  940 |       DC      /E880      -OS-                       K0209360
7CCE 8318                  941 |       DC      /8318      -AT-                       K0209370
7CCF 9540                  942 |       DC      /9540      -AN-                       K0209380
7CD0 000C                  943 |       DC      /000C      -AT-                       K0209390
7CD1 B055                  944 |       DC      /B055      -AN-                       K0209400
7CD2 C4C3                  945 |       DC      /C4C3      -SQ-                       K0209410
7CD3 98C0                  946 |       DC      /98C0      -RT-                       K0209420
7CD4 0113                  947 |       DC      /0113      -SQ-                       K0209430
7CD5 8663                  948 |       DC      /8663      -RT-                       K0209440
7CD6 829A                  949 |       DC      /829A      -AL-                       K0209450
7CD7 E1C0                  950 |       DC      /E1C0      -OG-                       K0209460
7CD8 000A                  951 |       DC      /000A      -AL-                       K0209470
7CD9 B587                  952 |       DC      /B587      -OG-                       K0209480
7CDA 8B3A                  953 |       DC      /8B3A      -EX-                       K0209490
7CDB F000                  954 |       DC      /F000      -D -                       K0209500
7CDC 002C                  955 |       DC      /002C      - E-                       K0209510
7CDD F5C0                  956 |       DC      /F5C0      -XP-                       K0209520
7CDE C448                  957 |       DC      /C448      -SI-                       K0209530
7CDF F540                  958 |       DC      /F540      -GN-                       K0209540
7CE0 0111                  959 |       DC      /0111      -SI-                       K0209550
7CE1 91D5                  960 |       DC      /91D5      -GN-                       K0209560
7CE2 C60A                  961 |       DC      /C60A      -TA-                       K0209570
7CE3 D200                  962 |       DC      /D200      -NH-                       K0209580
7CE4 0118                  963 |       DC      /0118      -TA-                       K0209590
7CE5 9548                  964 |       DC      /9548      -NH-                       K0209600
7CE6 8214                  965 |       DC      /8214      -AB-                       K0209610
7CE7 A000                  966 |       DC      /A000      -S -                       K0209620
7CE8 0008                  967 |       DC      /0008      - A-                       K0209630
7CE9 A880                  968 |       DC      /A880      -BS-                       K0209640
7CEA 0000                  969 | NAMED DC      0          USEFUL CONSTANT            K0209650
                           970 | *                                                   K0209660
                           971 | *                  TABLE CONTAINING THE FIRST TWO   K0209670
                           972 | *                  CHARS OF THE FORTRAN STMNT       K0209680
                           973 | *                  NAMES AND THE ADDRESSES OF THE   K0209690
                           974 | *                  REMAINING NAME CHARACTERS        K0209700
                           975 | *                                                   K0209710
7CEB C4D6                  976 | TWONT DC      /C4D6      DO                         K0209720
7CEC 7D55                  977 |       DC      ID6        ADDRESS                    K0209730
7CED C7D6                  978 |       DC      /C7D6      GO TO                      K0209740
7CEE 7D73                  979 |       DC      ID11       ADDRESS                    K0209750
7CEF C9C6                  980 |       DC      /C9C6      IF                         K0209760
7CF0 7D76                  981 |       DC      ID12       ADDRESS                    K0209770
7CF1 D9C5                  982 |       DC      /D9C5      READ                       K0209780
7CF2 7D81                  983 |       DC      ID15       ADDRESS                    K0209790
7CF3 E6D9                  984 |       DC      /E6D9      WRITE                      K0209800
7CF4 7D98                  985 |       DC      ID21       ADDRESS                    K0209810
7CF5 C3C1                  986 |       DC      /C3C1      CALL EXIT                  K0209820
7CF6 7D2A                  987 |       DC      ID1J       ADDRESS                    K0209830
7CF7 C3C1                  988 |       DC      /C3C1      CALL LINK                  K0209840
7CF8 7D2F                  989 |       DC      ID1K       ADDRESS                    K0209850
7CF9 C3C1                  990 |       DC      /C3C1      CALL PDUMP                 K0209860
7CFA 7D34                  991 |       DC      ID1L       ADDRESS                    K0209870
7CFB C3C1                  992 |       DC      /C3C1      CALL                       K0209880
7CFC 7D3A                  993 |       DC      ID2        ADDRESS                    K0209890
7CFD C6C9                  994 |       DC      /C6C9      FIND                       K0209900
7CFE 7D6B                  995 |       DC      ID9S       ADDRESS                    K0209910
7CFF C4C9                  996 |       DC      /C4C9      DIMENSION                  K0209920
7D00 7D4F                  997 |       DC      ID5        ADDRESS                    K0209930
7D01 C3D6                  998 |       DC      /C3D6      COMMON                     K0209940
7D02 7D3D                  999 |       DC      ID3        ADDRESS                    K0209950
7D03 C5D8                 1000 |       DC      /C5D8      EQUIVALENCE                K0209960
7D04 7D5F                 1001 |       DC      ID9        ADDRESS                    K0209970
7D05 C9D5                 1002 |       DC      /C9D5      INTEGER                    K0209980
7D06 7D78                 1003 |       DC      ID13       ADDRESS                    K0209990
7D07 D9C5                 1004 |       DC      /D9C5      REAL                       K0210000
7D08 7D84                 1005 |       DC      ID16       ADDRESS                    K0210010
7D09 C5E7                 1006 |       DC      /C5E7      EXTERNAL                   K0210020
7D0A 7D66                 1007 |       DC      ID9J       ADDRESS                    K0210030
7D0B C3D6                 1008 |       DC      /C3D6      CONTINUE                   K0210040
7D0C 7D41                 1009 |       DC      ID4        ADDRESS                    K0210050
7D0D D7C1                 1010 |       DC      /D7C1      PAUSE                      K0210060
7D0E 7D7D                 1011 |       DC      ID14       ADDRESS                    K0210070
7D0F D9C5                 1012 |       DC      /D9C5      RETURN                     K0210080
7D10 7D87                 1013 |       DC      ID17       ADDRESS                    K0210090
7D11 E2E3                 1014 |       DC      /E2E3      STOP                       K0210100
7D12 7D8F                 1015 |       DC      ID19       ADDRESS                    K0210110
7D13 D9C5                 1016 |       DC      /D9C5      REWIND                     K0210120
7D14 7D8B                 1017 |       DC      ID18       ADDRESS                    K0210130
7D15 C2C1                 1018 |       DC      /C2C1      BACKSPACE                  K0210140
7D16 7D24                 1019 |       DC      ID1        ADDRESS                    K0210150
7D17 C5D5                 1020 |       DC      /C5D5      END FILE                   K0210160
7D18 7D5A                 1021 |       DC      ID8        ADDRESS                    K0210170
7D19 C4C5                 1022 |       DC      /C4C5      DEFINE FILE                K0210180
7D1A 7D49                 1023 |       DC      ID4J       ADDRESS                    K0210190
7D1B C5D5                 1024 |       DC      /C5D5      END                        K0210200
7D1C 7D57                 1025 |       DC      ID7        ADDRESS                    K0210210
7D1D C6E4                 1026 |       DC      /C6E4      FUNCTION                   K0210220
7D1E 7D6E                 1027 |       DC      ID10       ADDRESS                    K0210230
7D1F E2E4                 1028 |       DC      /E2E4      SUBROUTINE                 K0210240
7D20 7D92                 1029 |       DC      ID20       ADDRESS                    K0210250
7D21 C4C1                 1030 |       DC      /C4C1      DATA                       K0210260
7D22 7D46                 1031 |       DC      ID4B       ADDRESS                    K0210270
7D23 0000                 1032 |       DC      0          USEFUL CONSTANT            K0210280
                          1033 | *                                                   K0210290
                          1034 | *                  BODY NAME TABLE                  K0210300
                          1035 | *                                                   K0210310
                          1036 | *                  BACKSPACE                        K0210320
7D24 0007                 1037 | ID1   DC      7          COUNT                      K0210330
7D25 C3D2                 1038 |       DC      /C3D2      CK                         K0210340
7D26 E2D7                 1039 |       DC      /E2D7      SP                         K0210350
7D27 C1C3                 1040 |       DC      /C1C3      AC                         K0210360
7D28 00C5                 1041 |       DC      /00C5      E                          K0210370
7D29 0800                 1042 |       DC      /0800      ID WORD                    K0210380
                          1043 | *                                                   K0210390
                          1044 | *                   CALL EXIT                       K0210400
7D2A 0006                 1045 | ID1J  DC      6          COUNT                      K0210410
7D2B D3D3                 1046 |       DC      /D3D3      LL                         K0210420
7D2C C5E7                 1047 |       DC      /C5E7      EX                         K0210430
7D2D C9E3                 1048 |       DC      /C9E3      IT                         K0210440
7D2E E002                 1049 |       DC      /E002      ID WORD                    K0210450
                          1050 | *                                                   K0210460
                          1051 | *                  CALL LINK                        K0210470
7D2F 0006                 1052 | ID1K  DC      6          COUNT                      K0210480
7D30 D3D3                 1053 |       DC      /D3D3      LL                         K0210490
7D31 D3C9                 1054 |       DC      /D3C9      LI                         K0210500
7D32 D5D2                 1055 |       DC      /D5D2      NK                         K0210510
7D33 E000                 1056 |       DC      /E000      ID WORD                    K0210520
                          1057 | *                                                   K0210530
                          1058 | *                  CALL PDUMP                       K0210540
7D34 0007                 1059 | ID1L  DC      7          COUNT                      K0210550
7D35 D3D3                 1060 |       DC      /D3D3      LL                         K0210560
7D36 D7C4                 1061 |       DC      /D7C4      PD                         K0210570
7D37 E4D4                 1062 |       DC      /E4D4      UM                         K0210580
7D38 00D7                 1063 |       DC      /00D7      P                          K0210590
7D39 E003                 1064 |       DC      /E003      ID WORD                    K0210600
                          1065 | *                                                   K0210610
                          1066 | *                  CALL                             K0210620
7D3A 0002                 1067 | ID2   DC      2          COUNT                      K0210630
7D3B D3D3                 1068 |       DC      /D3D3      LL                         K0210640
7D3C 3000                 1069 |       DC      /3000      ID WORD                    K0210650
                          1070 | *                                                   K0210660
                          1071 | *                  COMMON                           K0210670
7D3D 0004                 1072 | ID3   DC      4          COUNT                      K0210680
7D3E D4D4                 1073 |       DC      /D4D4      MM                         K0210690
7D3F D6D5                 1074 |       DC      /D6D5      ON                         K0210700
7D40 3800                 1075 |       DC      /3800      ID WORD                    K0210710
                          1076 | *                                                   K0210720
                          1077 | *                  CONTINUE                         K0210730
7D41 0006                 1078 | ID4   DC      6          COUNT                      K0210740
7D42 D5E3                 1079 |       DC      /D5E3      NT                         K0210750
7D43 C9D5                 1080 |       DC      /C9D5      IN                         K0210760
7D44 E4C5                 1081 |       DC      /E4C5      UE                         K0210770
7D45 B000                 1082 |       DC      /B000      ID WORD                    K0210780
                          1083 | *                                                   K0210790
                          1084 | *                       DATA                        K0210800
7D46 0002                 1085 | ID4B  DC      2          COUNT                      K0210810
7D47 E3C1                 1086 |       DC      /E3C1      TA                         K0210820
7D48 F800                 1087 |       DC      /F800      ID WORD                    K0210830
                          1088 | *                                                   K0210840
                          1089 | *                 DEFINE FILE                       K0210850
7D49 0008                 1090 | ID4J  DC      8          COUNT                      K0210860
7D4A C6C9                 1091 |       DC      /C6C9      FI                         K0210870
7D4B D5C5                 1092 |       DC      /D5C5      NE                         K0210880
7D4C C6C9                 1093 |       DC      /C6C9      FI                         K0210890
7D4D D3C5                 1094 |       DC      /D3C5      LE                         K0210900
7D4E F000                 1095 |       DC      /F000      ID WORD                    K0210910
                          1096 | *                                                   K0210920
                          1097 | *                  DIMENSION                        K0210930
7D4F 0007                 1098 | ID5   DC      7          COUNT                      K0210940
7D50 D4C5                 1099 |       DC      /D4C5      ME                         K0210950
7D51 D5E2                 1100 |       DC      /D5E2      NS                         K0210960
7D52 C9D6                 1101 |       DC      /C9D6      IO                         K0210970
7D53 00D5                 1102 |       DC      /00D5      N                          K0210980
7D54 4000                 1103 |       DC      /4000      ID WORD                    K0210990
                          1104 | *                                                   K0211000
                          1105 | *                  DO                               K0211010
7D55 0000                 1106 | ID6   DC      0          COUNT                      K0211020
7D56 5800                 1107 |       DC      /5800      ID WORD                    K0211030
                          1108 | *                                                   K0211040
                          1109 | *                  END                              K0211050
7D57 0002                 1110 | ID7   DC      2          COUNT                      K0211060
7D58 C440                 1111 |       DC      /C440      D                          K0211070
7D59 1000                 1112 |       DC      /1000      ID WORD                    K0211080
                          1113 | *                                                   K0211090
                          1114 | *                  ENDFILE                          K0211100
7D5A 0005                 1115 | ID8   DC      5          COUNT                      K0211110
7D5B C4C6                 1116 |       DC      /C4C6      DF                         K0211120
7D5C C9D3                 1117 |       DC      /C9D3      IL                         K0211130
7D5D 00C5                 1118 |       DC      /00C5      E                          K0211140
7D5E 1800                 1119 |       DC      /1800      ID WORD                    K0211150
                          1120 | *                                                   K0211160
                          1121 | *                  EQUIVALENCE                      K0211170
7D5F 0009                 1122 | ID9   DC      9          COUNT                      K0211180
7D60 E4C9                 1123 |       DC      /E4C9      UI                         K0211190
7D61 E5C1                 1124 |       DC      /E5C1      VA                         K0211200
7D62 D3C5                 1125 |       DC      /D3C5      LE                         K0211210
7D63 D5C3                 1126 |       DC      /D5C3      NC                         K0211220
7D64 00C5                 1127 |       DC      /00C5      E                          K0211230
7D65 A800                 1128 |       DC      /A800      ID WORD                    K0211240
                          1129 | *                                                   K0211250
                          1130 | *             EXTERNAL                              K0211260
7D66 0006                 1131 | ID9J  DC      6          COUNT                      K0211270
7D67 E3C5                 1132 |       DC      /E3C5      TE                         K0211280
7D68 D9D5                 1133 |       DC      /D9D5      RN                         K0211290
7D69 C1D3                 1134 |       DC      /C1D3      AL                         K0211300
7D6A C800                 1135 |       DC      /C800      ID WORD                    K0211310
                          1136 | *                                                   K0211320
                          1137 | *                  FIND                             K0211330
7D6B 0002                 1138 | ID9S  DC      2          COUNT                      K0211340
7D6C D5C4                 1139 |       DC      /D5C4      ND                         K0211350
7D6D E800                 1140 |       DC      /E800      ID WORD                    K0211360
                          1141 | *                                                   K0211370
                          1142 | *                  FUNCTION                         K0211380
7D6E 0006                 1143 | ID10  DC      6          COUNT                      K0211390
7D6F D5C3                 1144 |       DC      /D5C3      NC                         K0211400
7D70 E3C9                 1145 |       DC      /E3C9      TI                         K0211410
7D71 D6D5                 1146 |       DC      /D6D5      ON                         K0211420
7D72 6800                 1147 |       DC      /6800      ID WORD                    K0211430
                          1148 | *                                                   K0211440
                          1149 | *                  GOTO                             K0211450
7D73 0002                 1150 | ID11  DC      2          COUNT                      K0211460
7D74 E3D6                 1151 |       DC      /E3D6      TO                         K0211470
7D75 7000                 1152 |       DC      /7000      ID WORD                    K0211480
                          1153 | *                                                   K0211490
                          1154 | *                  IF                               K0211500
7D76 0000                 1155 | ID12  DC      0          COUNT                      K0211510
7D77 7800                 1156 |       DC      /7800      ID WORD                    K0211520
                          1157 | *                                                   K0211530
                          1158 | *                  INTEGER                          K0211540
7D78 0005                 1159 | ID13  DC      5          COUNT                      K0211550
7D79 E3C5                 1160 |       DC      /E3C5      TE                         K0211560
7D7A C7C5                 1161 |       DC      /C7C5      GE                         K0211570
7D7B 00D9                 1162 |       DC      /00D9      R                          K0211580
7D7C 5000                 1163 |       DC      /5000      ID WORD                    K0211590
                          1164 | *                                                   K0211600
                          1165 | *                  PAUSE                            K0211610
7D7D 0003                 1166 | ID14  DC      3          COUNT                      K0211620
7D7E E4E2                 1167 |       DC      /E4E2      US                         K0211630
7D7F 00C5                 1168 |       DC      /00C5      E                          K0211640
7D80 9800                 1169 |       DC      /9800      ID WORD                    K0211650
                          1170 | *                                                   K0211660
                          1171 | *                  READ  COUNT                      K0211670
7D81 0002                 1172 | ID15  DC      2                                     K0211680
7D82 C1C4                 1173 |       DC      /C1C4      AD                         K0211690
7D83 9000                 1174 |       DC      /9000      ID WORD                    K0211700
                          1175 | *                                                   K0211710
                          1176 | *                  REAL                             K0211720
7D84 0002                 1177 | ID16  DC      2          COUNT                      K0211730
7D85 C1D3                 1178 |       DC      /C1D3      AL                         K0211740
7D86 4800                 1179 |       DC      /4800      ID WORD                    K0211750
                          1180 | *                                                   K0211760
                          1181 | *                  RETURN                           K0211770
7D87 0004                 1182 | ID17  DC      4          COUNT                      K0211780
7D88 E3E4                 1183 |       DC      /E3E4      TU                         K0211790
7D89 D9D5                 1184 |       DC      /D9D5      RN                         K0211800
7D8A 8000                 1185 |       DC      /8000      ID WORD                    K0211810
                          1186 | *                                                   K0211820
                          1187 | *                  REWIND                           K0211830
7D8B 0004                 1188 | ID18  DC      4          COUNT                      K0211840
7D8C E6C9                 1189 |       DC      /E6C9      WI                         K0211850
7D8D D5C4                 1190 |       DC      /D5C4      ND                         K0211860
7D8E 2800                 1191 |       DC      /2800      ID WORD                    K0211870
                          1192 | *                                                   K0211880
                          1193 | *                  STOP                             K0211890
7D8F 0002                 1194 | ID19  DC      2          COUNT                      K0211900
7D90 D6D7                 1195 |       DC      /D6D7      OP                         K0211910
7D91 B800                 1196 |       DC      /B800      ID WORD                    K0211920
                          1197 | *                                                   K0211930
                          1198 | *                  SUBROUTINE                       K0211940
7D92 0008                 1199 | ID20  DC      8          COUNT                      K0211950
7D93 C2D9                 1200 |       DC      /C2D9      BR                         K0211960
7D94 D6E4                 1201 |       DC      /D6E4      OU                         K0211970
7D95 E3C9                 1202 |       DC      /E3C9      TI                         K0211980
7D96 D5C5                 1203 |       DC      /D5C5      NE                         K0211990
7D97 2000                 1204 |       DC      /2000      ID WORD                    K0212000
                          1205 | *                                                   K0212010
                          1206 | *                  WRITE                            K0212020
7D98 0003                 1207 | ID21  DC      3          COUNT                      K0212030
7D99 C9E3                 1208 |       DC      /C9E3      IT                         K0212040
7D9A 00C5                 1209 |       DC      /00C5      E                          K0212050
7D9B 8800                 1210 |       DC      /8800      ID WORD                    K0212060
                          1211 | *                                                   K0212070
                          1212 | *                  RE-INITIALIZE                    K0212080
7D9C 6580 7A24            1213 | CALLC LDX  I1 SOFS       INITIALIZE INPUT POINTER   K0212090
                          1214 | *                                                   K0212100
                          1215 | *                  CHECKS FOR THE PRESENCE OF AN    K0212110
                          1216 | *                  END STATEMENT                    K0212120
7D9E 691C                 1217 | ENDD  STX   1 IDSVV      STORE INPUT POINTER        K0212130
7D9F C100                 1218 |       LD    1 0          LOAD STMNT ID WORD         K0212140
7DA0 9400 7ACC            1219 |       S    L  S1000      IS IT END STMNT            K0212150
7DA2 4C18 7A3C            1220 |       BSC  L  WAIT,+-    BRANCH IF YES              K0212160
                          1221 | *                                                   K0212170
                          1222 | *                  CALL STATEMENT                   K0212180
7DA4 C100                 1223 |       LD    1 0          LOAD STMNT ID WORD         K0212190
7DA5 E016                 1224 |       AND     IDTPE      GET ID TYPE                K0212200
7DA6 1802                 1225 |       SRA     2          SHIFT RIGHT TWO            K0212210
7DA7 9015                 1226 |       S       CALL1      IS IT CALL STMNT           K0212220
7DA8 4C20 7DF6            1227 |       BSC  L  MOVIE,Z    BRANCH IF NOT              K0212230
                          1228 | *                                                   K0212240
                          1229 | *                                                   K0212250
7DAA C100                 1230 |       LD    1 0          LOAD STMNT ID WORD         K0212260
7DAB 4804                 1231 |       BSC     E          HAS STMNT NO.              K0212270
7DAC 7102                 1232 |       MDX   1 2          YES - MOVE PT OVER NO.     K0212280
7DAD 7101                 1233 |       MDX   1 1          MOVE INPUT POINTER         K0212290
                          1234 | *                                                   K0212300
                          1235 | *                  CHECKS FOR THE NAME SSWTCH       K0212310
7DAE C100                 1236 | IDAHO LD    1 0          LOAD FIRST WORD IN BODY    K0212320
7DAF 900E                 1237 |       S       SENC       IS IT SS                   K0212330
7DB0 4C20 7DCA            1238 |       BSC  L  XYZ,Z      BRANCH IF NOT              K0212340
7DB2 C101                 1239 |       LD    1 1          LOAD 2ND WORD OF BODY      K0212350
7DB3 900B                 1240 |       S       SENC1      IS IT WT                   K0212360
7DB4 4820                 1241 |       BSC     Z          SKIP IF YES                K0212370
7DB5 7014                 1242 |       MDX     XYZ        GO TO NEXT COMPARE         K0212380
7DB6 C102                 1243 |       LD    1 2          LOAD 3RD WORD OF BODY      K0212390
7DB7 9008                 1244 |       S       SENC2      IS IT CH                   K0212400
7DB8 4820                 1245 |       BSC     Z          SKIP IF YES                K0212410
7DB9 7010                 1246 |       MDX     XYZ        GO TO NEXT COMPARE         K0212420
7DBA 7029                 1247 |       MDX     XXYZ       GO TO CONVERT TO 5 CHAR    K0212430
                          1248 | *                                                   K0212440
                          1249 | *             CONSTANTS                             K0212450
7DBB 0000                 1250 | IDSVV DC      0          INPUT POINTER              K0212460
7DBC F800                 1251 | IDTPE DC      /F800      ID MASK                    K0212470
7DBD 0C00                 1252 | CALL1 DC      /0C00      CALL STMNT ID TYPE         K0212480
7DBE C514                 1253 | SENC  DC      /C514      SS                         K0212490
7DBF E8C3                 1254 | SENC1 DC      /E8C3      WT                         K0212500
7DC0 9000                 1255 | SENC2 DC      /9000      CH                         K0212510
7DC1 0000                 1256 | NAME  DC      0          INPUT POINTER              K0212520
7DC2 AD28                 1257 | OVER  DC      /AD28      OV                         K0212530
7DC3 D646                 1258 | OVER1 DC      /D646      ER                         K0212540
7DC4 A600                 1259 | OVER2 DC      /A600      FL                         K0212550
7DC5 C499                 1260 | SENL  DC      /C499      SL                         K0212560
7DC6 98C5                 1261 | SENL1 DC      /98C5      IT                         K0212570
7DC7 C600                 1262 | SENL2 DC      /C600      ET                         K0212580
7DC8 98E3                 1263 | SENL3 DC      /98E3      T                          K0212590
7DC9 0004                 1264 | S0004 DC      4          NORM OF ONE                K0212600
                          1265 | *                                                   K0212610
                          1266 | *                  CHECKS FOR THE NAME OVERFL       K0212620
7DCA C100                 1267 | XYZ   LD    1 0          LOAD 1ST WORD IN BODY      K0212630
7DCB 90F6                 1268 |       S       OVER       IS IT OV                   K0212640
7DCC 4C20 7DD6            1269 |       BSC  L  XYZ1,Z     BRANCH IF NOT              K0212650
7DCE C101                 1270 |       LD    1 1          LOAD 2ND WORD IN BODY      K0212660
7DCF 90F3                 1271 |       S       OVER1      IS IT ER                   K0212670
7DD0 4C20 7DD6            1272 |       BSC  L  XYZ1,Z     BRANCH IF NOT              K0212680
7DD2 C102                 1273 |       LD    1 2          LOAD 3RD WORD IN BODY      K0212690
7DD3 90F0                 1274 |       S       OVER2      IS IT FL                   K0212700
7DD4 4C18 7DE4            1275 |       BSC  L  XXYZ,+-    BRANCH IF YES              K0212710
                          1276 | *                                                   K0212720
                          1277 | *                  CHECKS FOR THE NAME SLITET       K0212730
7DD6 C100                 1278 | XYZ1  LD    1 0          LOAD 1ST WORD IN BODY      K0212740
7DD7 90ED                 1279 |       S       SENL       IS IT SL                   K0212750
7DD8 4C20 7DF6            1280 |       BSC  L  MOVIE,Z    BRANCH IF NOT              K0212760
7DDA C101                 1281 |       LD    1 1          LOAD 2ND WORD IN BODY      K0212770
7DDB 90EA                 1282 |       S       SENL1      IS IT IT                   K0212780
7DDC 4820                 1283 |       BSC     Z          SKIP IF YES                K0212790
7DDD 7018                 1284 |       MDX     MOVIE      GO TO NEXT STMNT           K0212800
7DDE C102                 1285 |       LD    1 2          LOAD 3RD WORD IN BODY      K0212810
7DDF 90E7                 1286 |       S       SENL2      IS IT ET                   K0212820
7DE0 4820                 1287 |       BSC     Z          SKIP IF YES                K0212830
7DE1 7014                 1288 |       MDX     MOVIE      GO TO NEXT STMNT           K0212840
7DE2 C0E5                 1289 |       LD      SENL3      LOAD NEW WORD FOR SLITET   K0212850
7DE3 D101                 1290 |       STO   1 1          STORE END                  K0212860
                          1291 | *                                                   K0212870
                          1292 | *                  CLOSES THE STRING BY ONE WORD    K0212880
                          1293 | *                  AND ADJUSTS THE STMNT NORM       K0212890
7DE4 7102                 1294 | XXYZ  MDX   1 2          MOVE INPUT POINTER         K0212900
7DE5 69DB                 1295 |       STX   1 NAME       SAVE INPUT POINTER         K0212910
7DE6 C400 7A25            1296 |       LD   L  EOFS       LOAD END OF STRING ADDRESS K0212920
7DE8 90D8                 1297 |       S       NAME       SUBTRACT INPUT POINTER TO  K0212930
7DE9 D001                 1298 |       STO     *+1        GET RANGE OF LOOP          K0212940
7DEA 6700 0000            1299 |       LDX  L3 0          LOAD XR3 WITH RANGE        K0212950
7DEC C101                 1300 |       LD    1 1          MOVE WORD DOWN             K0212960
7DED D100                 1301 |       STO   1 0          ONE POSITION               K0212970
7DEE 7101                 1302 |       MDX   1 1          MOVE POINTER               K0212980
7DEF 73FF                 1303 |       MDX   3 -1         DECREMENT RANGE            K0212990
7DF0 70FB                 1304 |       MDX     *-5        CONTINUE LOOP              K0213000
                          1305 | *                                                   K0213010
                          1306 | *                  ADJUST NORM                      K0213020
7DF1 6580 7DBB            1307 |       LDX  I1 IDSVV      RESTORE INPUT POINTER      K0213030
7DF3 C100                 1308 |       LD    1 0          LOAD STMNT ID WORD         K0213040
7DF4 90D4                 1309 |       S       S0004      DECREMENT NORM BY ONE      K0213050
7DF5 D100                 1310 |       STO   1 0          PUT NORM BACK ON STRING    K0213060
                          1311 | *                                                   K0213070
                          1312 | *                  UPDATES THE STRING I/P PT (XR1)  K0213080
                          1313 | *                  TO MOVE TO THE NEXT STMNT        K0213090
7DF6 6580 7DBB            1314 | MOVIE LDX  I1 IDSVV      RESTORE INPUT POINTER      K0213100
7DF8 C100                 1315 |       LD    1 0          LOAD STMNT ID WORD         K0213110
7DF9 1005                 1316 |       SLA     5          SHIFT TO GET NORM          K0213120
7DFA 1807                 1317 |       SRA     7                                     K0213130
7DFB 80BF                 1318 |       A       IDSVV      ADD INPUT POINTER TO GET   K0213140
7DFC D001                 1319 |       STO     NXID+1     ADDRESS OF NEXT STMNT      K0213150
7DFD 6500 0000            1320 | NXID  LDX  L1 0          RESET INPUT POINTER        K0213160
7DFF 709E                 1321 |       MDX     ENDD       GO CHECK FOR STMNT TYPE    K0213170
                          1322 | *                                                   K0213180
                          1323 | *             PROCESS IOCS WORD AND SET DEVICE      K0213190
                          1324 | *             INITIALIZATION ROUTINES               K0213200
                          1325 | *                                                   K0213210
7E00 0007                 1326 | H7    DC      /7         MASK FOR BITS 14,15,16     K0213220
7E01 7F7F                 1327 | RDB   DC      /7F7F      MASK FOR DISK IOCS WORD    K0213230
                          1328 | *                                                   K0213240
                          1329 | *             SETUP PRECISION AND TEST FOR ONE WD   K0213250
                          1330 | *             INTEGERS                              K0213260
7E02                      1331 | CQCT  EQU     *          ENTRY POINT                K0213270
7E02 C400 7A32            1332 |       LD   L  IOCS       SEE IF IOCS ROUTINES       K0213280
                          1333 | *                                                   K0213290
7E04 D034                 1334 |       STO     IOCST      SAVE IOCS WD TEMP STO      K0213300
                          1335 | *                                                   K0213310
7E05 C400 7A31            1336 |       LD   L  CCWD       PUT ONE WORD INTEGER       K0213320
7E07 1887                 1337 |       SRT     7          FLAG IN EXTENSION          K0213330
7E08 C400 7A31            1338 |       LD   L  CCWD       EXTENDED PRECISION FLAG    K0213340
7E0A 100D                 1339 |       SLA     13         CLEAR ACC - PUT EXTENDED   K0213350
7E0B 180F                 1340 |       SRA     15         PRECISION FLAG IN BIT 15   K0213360
7E0C 1081                 1341 |       SLT     1                                     K0213370
7E0D F02C                 1342 |       EOR     PX5        REVERSE INTEGER FLAG       K0213380
7E0E EC00 7E94            1343 |       OR   L  FIO+1      PUT IN                     K0213390
7E10 D400 7E94            1344 |       STO  L  FIO+1      FIO CALL                   K0213400
7E12 E0ED                 1345 |       AND     H7         GET PRECISION BITS         K0213410
7E13 EC00 7EAA            1346 |       OR   L  FIOCL      PUT OUT AS PRECISION DC    K0213420
7E15 D01F                 1347 |       STO     SUFIO+1    STORE IN DISK              K0213430
7E16 D021                 1348 |       STO     SDFIO+1    ROUTINE CALLS              K0213440
                          1349 | *                                                   K0213450
                          1350 | *             CHECK FOR UNFORMATTED DISK I/O        K0213460
7E17 C021                 1351 |       LD      IOCST      LOAD IOCS WD               K0213470
7E18 1001                 1352 |       SLA     1          SHIFT BIT TO SIGN          K0213480
7E19 4C10 7E22            1353 |       BSC  L  SDF,-      BR IF NOT REQUESTED        K0213490
7E1B 63FD                 1354 |       LDX   3 -3         INITIALIZE COUNTER         K0213500
7E1C C700 7E36            1355 |       LD   L3 SUFIO+2    LOAD WORD OF CALL          K0213510
7E1E 4400 7C01            1356 |       BSI  L  PUT        OUTPUT WORD                K0213520
7E20 7301                 1357 |       MDX   3 1          INCREMENT COUNTER          K0213530
7E21 70FA                 1358 |       MDX     *-6        CONTINUE LOOP              K0213540
                          1359 | *                                                   K0213550
                          1360 | *                                                   K0213560
                          1361 | *                      CHECK FOR DISK               K0213570
                          1362 | *                                                   K0213580
7E22 C016                 1363 | SDF   LD      IOCST      LOAD IOCS WORD             K0213590
7E23 1008                 1364 |       SLA     8                                     K0213600
7E24 4C10 7E3C            1365 |       BSC  L  PFIOC,-    BRANCH IF NO DISK REQUEST  K0213610
                          1366 | *                                                   K0213620
                          1367 | *             PUT SDFIO CALL ON STRING              K0213630
                          1368 | *                                                   K0213640
7E26 63FD                 1369 |       LDX   3 -3         INITIALIZE COUNTER         K0213650
7E27 C700 7E39            1370 |       LD   L3 SDFIO+2    LOAD WORD OF CALL          K0213660
7E29 4400 7C01            1371 |       BSI  L  PUT        PUT CALL TO SDFIO          K0213670
7E2B 7301                 1372 |       MDX   3 1          INCREMENT COUNTER          K0213680
7E2C 70FA                 1373 |       MDX     *-6        CONTINUE LOOP              K0213690
7E2D C400 7A32            1374 |       LD   L  IOCS       TST IOCS WD FOR OTHER DEVC K0213700
7E2F E0D1                 1375 |       AND     RDB        OTHER THAN DISK            K0213710
7E30 4C18 7A68            1376 |       BSC  L  ZAO,+-     BRANCH IF NO OTHER CALLS   K0213720
7E32 7009                 1377 |       MDX     PFIOC      CHECK OTHER DEVICES        K0213730
7E33 D80C                 1378 |       DC      /D80C      SUFIO CALL ID WORD         K0213740
7E34 1D80                 1379 | SUFIO DC      /1D80      LIBF SUFIO CODE            K0213750
7E35 0000                 1380 |       DC      *-*        PRECISION                  K0213760
7E36 D80C                 1381 |       DC      /D80C      SDFIO CALL ID WORD         K0213770
7E37 2100                 1382 | SDFIO DC      /2100      LIBF SDFIO                 K0213780
7E38 0000                 1383 |       DC      *-*        PRECISION                  K0213790
7E39 0000                 1384 | IOCST DC      *-*        TEMP STG FOR IOCS WD       K0213800
7E3A 0001                 1385 | PX5   DC      1          USEFUL CONSTANT            K0213810
                          1386 | *                                                   K0213820
                          1387 | *             CHECK OTHER DEVICES SPECIFIED BY IOCS K0213830
                          1388 | *             WORD AND SET UP STRING                K0213840
                          1389 | *                                                   K0213850
7E3B BF7F                 1390 | UDTST DC      /BF7F      MASK FOR NON-DISK IOCS     K0213860
                          1391 | *                                                   K0213870
7E3C C0FC                 1392 | PFIOC LD      IOCST      TEST IF ANY NON-DISK I/O   K0213880
7E3D E0FD                 1393 |       AND     UDTST      *                          K0213890
7E3E 4C18 7A68            1394 |       BSC  L  ZAO,+-     BRANCH IF NOT              K0213900
                          1395 | *                                                   K0213910
7E40 C0F8                 1396 |       LD      IOCST      KEYBOARD TEST              K0213920
7E41 100A                 1397 |       SLA     10                                    K0213930
7E42 4C28 7E46            1398 |       BSC  L  *+2,+Z     BRANCH IF KEYBOARD REQUEST K0213940
7E44 C865                 1399 |       LDD     FIOCL      NO KEYBOARD                K0213950
7E45 D85A                 1400 |       STD     FIO+13     SET FLAG                   K0213960
7E46 C0F2                 1401 |       LD      IOCST      PAPER TAPE TEST            K0213970
7E47 100E                 1402 |       SLA     14                                    K0213980
7E48 4C28 7E4C            1403 |       BSC  L  *+2,+Z     BRANCH IF PAPER TAPE       K0213990
7E4A C85F                 1404 |       LDD     FIOCL      NO PAPET TAPE              K0214000
7E4B D850                 1405 |       STD     FIO+9      SET FLAG                   K0214010
7E4C C0EC                 1406 |       LD      IOCST      PLOTTER                    K0214020
7E4D 1003                 1407 |       SLA     3                                     K0214030
7E4E 4C28 7E52            1408 |       BSC  L  *+2,+Z     BRANCH IF PLOTTER          K0214040
7E50 C859                 1409 |       LDD     FIOCL      SET FLAG                   K0214050
7E51 D850                 1410 |       STD     FIO+15     NO PLOTTER                 K0214060
7E52 C0E6                 1411 |       LD      IOCST      1132 PRINTER TEST          K0214070
7E53 1007                 1412 |       SLA     7                                     K0214080
7E54 4C28 7E58            1413 |       BSC  L  *+2,+Z     BRANCH IF PRINTER          K0214090
7E56 C853                 1414 |       LDD     FIOCL      SET FLAG                   K0214100
7E57 D842                 1415 |       STD     FIO+7      NO 1132 PRINTER            K0214110
7E58 C0E0                 1416 |       LD      IOCST      1403 PRINTER TEST          K0214120
7E59 100C                 1417 |       SLA     12                                    K0214130
7E5A 4C28 7E5E            1418 |       BSC  L  *+2,+Z     BRANCH IF REQUIRED         K0214140
7E5C C84D                 1419 |       LDD     FIOCL      SET FLAG                   K0214150
7E5D D840                 1420 |       STD     FIO+11     NO 1403 PRINTER            K0214160
7E5E C0DA                 1421 |       LD      IOCST      TYPEWRITER TEST            K0214170
7E5F 100D                 1422 |       SLA     13                                    K0214180
7E60 4C10 7E69            1423 |       BSC  L  NTP,-      BRANCH IF TYPEWRITER       K0214190
7E62 C03D                 1424 |       LD      FIO+13     TEST IF KEYBOARD REQUESTED K0214200
7E63 F046                 1425 |       EOR     FIOCL      *                          K0214210
7E64 4C18 7E6B            1426 |       BSC  L  T2501,+-   BRANCH IF NOT              K0214220
7E66 C039                 1427 |       LD      FIO+13     INSERT .LIBF TYPEZ.        K0214230
7E67 D02E                 1428 |       STO     FIO+3      *INSTEAD OF .LIBF WRTYZ.   K0214240
7E68 7002                 1429 |       MDX     T2501      CONTINUE                   K0214250
7E69 C840                 1430 | NTP   LDD     FIOCL      SET FLAG                   K0214260
7E6A D82B                 1431 |       STD     FIO+3      NO TYPEWRITER              K0214270
7E6B C0CD                 1432 | T2501 LD      IOCST      2501 CARD READER           K0214280
7E6C 100B                 1433 |       SLA     11                                    K0214290
7E6D 4C28 7E71            1434 |       BSC  L  *+2,+Z     BRANCH IF 2501             K0214300
7E6F C83A                 1435 |       LDD     FIOCL      SET FLAG                   K0214310
7E70 D833                 1436 |       STD     FIO+17     NO 2501 CARD READER        K0214320
7E71 C0C7                 1437 |       LD      IOCST      1442 CARD READ/PUNCH       K0214330
7E72 100F                 1438 |       SLA     15                                    K0214340
7E73 4C28 7E77            1439 |       BSC  L  *+2,+Z     BRANCH IF 1442 RD/PUNCH    K0214350
7E75 C834                 1440 |       LDD     FIOCL      SET FLAG                   K0214360
7E76 D821                 1441 |       STD     FIO+5      NO 1442 CARD RD/PUNCH      K0214370
7E77 C0C1                 1442 |       LD      IOCST      1442 PUNCH ONLY            K0214380
7E78 1009                 1443 |       SLA     9                                     K0214390
7E79 4C28 7E7D            1444 |       BSC  L  *+2,+Z     BRANCH IF 1442 PUNCH ONLY  K0214400
7E7B C82E                 1445 |       LDD     FIOCL      SET FLAG                   K0214410
7E7C D829                 1446 |       STD     FIO+19     NO 1442 PUNCH              K0214420
                          1447 | *                                                   K0214430
                          1448 | *             SET TRACE DEVICE INDICATOR IN FIO     K0214440
                          1449 | *             CALLING SEQUENCE                      K0214450
                          1450 | *                                                   K0214460
7E7D C0BB                 1451 |       LD      IOCST      PICK UP IOCS WORD          K0214470
7E7E 1884                 1452 |       SRT     4          PUT 1403 INDICATOR IN EXT  K0214480
7E7F 100B                 1453 |       SLA     11         PUT 1132 INDICATOR IN SIGN K0214490
7E80 18D0                 1454 |       RTE     16         EXCHANGE ACC AND EXT       K0214500
7E81 4C28 7E88            1455 |       BSC  L  PFIO1,+Z   BRANCH IF 1403 PRINTER     K0214510
7E83 18D0                 1456 |       RTE     16         TEST 1132 PRINTER BIT      K0214520
7E84 4C10 7E8C            1457 |       BSC  L  PFIO2,-    BRANCH IF NO 1132 PRINTER  K0214530
7E86 C008                 1458 |       LD      H0040      GET 1132 PRINTER FLAG      K0214540
7E87 7001                 1459 |       MDX     *+1                                   K0214550
7E88 C007                 1460 | PFIO1 LD      H0060      GET 1403 PRINTER FLAG      K0214560
7E89 E80A                 1461 |       OR      FIO+1      INSERT TRACE DEVICE AS     K0214570
7E8A D009                 1462 |       STO     FIO+1      *PART OF SFIO CALLING SEQ  K0214580
7E8B 7020                 1463 |       MDX     PTFIO      BRANCH TO PUT FIO ON STRNG K0214590
                          1464 | *                                                   K0214600
7E8C C001                 1465 | PFIO2 LD      H0020      GET CONSOLE PRINTER FLAG   K0214610
7E8D 70FB                 1466 |       MDX     PFIO1+1    GO INSERT                  K0214620
                          1467 | *                                                   K0214630
7E8E 0020                 1468 | H0020 DC      /0020      MASK FOR C.P. TRACE DEVICE K0214640
7E8F 0040                 1469 | H0040 DC      /0040      MASK FOR 1132 TRACE DEVICE K0214650
7E90 0060                 1470 | H0060 DC      /0060      MASK FOR 1403 TRACE DEVICE K0214660
                          1471 | *                                                   K0214670
                          1472 | *             FIO TABLE                             K0214680
7E92                      1473 |       BSS  E  0                                     K0214690
7E92 D860                 1474 |       DC      /D860      FIO ID WORD                K0214700
7E93 1580                 1475 | FIO   DC      /1580      LIBF FIO                   K0214710
7E94 5F04                 1476 |       DC      /5F04      TRACE - PRECISION          K0214720
                          1477 | *                                                   K0214730
                          1478 | *             BITS 8-10 INDICATE ERROR DEVICE       K0214740
                          1479 | *             1 = TYPEWRITER                        K0214750
                          1480 | *             3 = 1132 PRINTER                      K0214760
                          1481 | *             5 = 1403 PRINTER                      K0214770
                          1482 | *                                                   K0214780
7E95 5F16                 1483 |       DC      /5F16      2*NO. OF UNITS +2     22   K0214790
                          1484 | *                                                   K0214800
7E96 0D80                 1485 |       DC      /0D80      LIBF WRTYZ  TYPEWRITER     K0214810
7E97 5F00                 1486 |       DC      /5F00                                 K0214820
7E98 1000                 1487 |       DC      /1000      LIBF CARDZ  1442 RD/PNCH   K0214830
7E99 5F00                 1488 |       DC      /5F00                                 K0214840
7E9A 1080                 1489 |       DC      /1080      LIBF PRNTZ  1132 PRINTER   K0214850
7E9B 5F00                 1490 |       DC      /5F00                                 K0214860
7E9C 1100                 1491 |       DC      /1100      LIBF PHPTZ  PAPER TAPE     K0214870
7E9D 5F00                 1492 |       DC      /5F00                                 K0214880
7E9E 1980                 1493 |       DC      /1980      LIBF PRNZ   1403 PRINTER   K0214890
7E9F 5F00                 1494 |       DC      /5F00                                 K0214900
7EA0 0E00                 1495 |       DC      /0E00      LIBF TYPEZ  KEYBOARD       K0214910
7EA1 5F00                 1496 |       DC      /5F00                                 K0214920
7EA2 1180                 1497 |       DC      /1180      LIBF WCHRI  PLOTTER        K0214930
7EA3 5F00                 1498 |       DC      /5F00                                 K0214940
7EA4 1380                 1499 |       DC      /1380      LIBF READZ  2510 CD READER K0214950
7EA5 5F00                 1500 |       DC      /5F00                                 K0214960
7EA6 2700                 1501 |       DC      /2700      LIBF PNCHZ  1442 PNCH ONLY K0214970
7EA7 5F00                 1502 |       DC      /5F00                                 K0214980
7EA8 0480                 1503 |       DC      /0480      LIBF FLD                   K0214990
7EA9 0580                 1504 |       DC      /0580      LIBF FSTO                  K0215000
7EAA 5F00                 1505 | FIOCL DC      /5F00      BLANK                      K0215010
7EAB 5F00                 1506 |       DC      /5F00      BLANK                      K0215020
7EAC 63E8                 1507 | PTFIO LDX   3 -24        PUT FIO ON STRING          K0215030
7EAD C700 7EAA            1508 |       LD   L3 FIO+23     LOOP THROUGH ENTRIES       K0215040
7EAF 4400 7C01            1509 |       BSI  L  PUT        BRANCH TO SUBROUTINES      K0215050
7EB1 7301                 1510 |       MDX   3 1                                     K0215060
7EB2 70FA                 1511 |       MDX     PTFIO+1    END OF LOOP                K0215070
7EB3 4C00 7A68            1512 |       BSC  L  ZAO        RETURN TO PROCESSING       K0215080
                          1513 | *                                              2-11 K0215081
                          1514 | * CHECK IF ORIGIN SPECIFIED, AND MAKE EVEN     2-11 K0215082
                          1515 | *                                              2-11 K0215083
7EB5 C400 7A31            1516 | ORGCK LD   L  CCWD      FETCH CONTROL CARD IND 2-11 K0215084
7EB7 100D                 1517 |       SLA     13        EXTEND. PRECISION SPEC 2-11 K0215085
7EB8 4C28 7A46            1518 |       BSC  L  BACK,+Z   BR IF YES              2-11 K0215086
7EBA C400 7A23            1519 |       LD   L  ORG       LOAD ORIGIN ADDRESS    2-11 K0215087
7EBC 4C18 7A46            1520 |       BSC  L  BACK,+-   BR IF ZERO             2-11 K0215088
7EBE 4804                 1521 |       BSC     E         SKIP IF ORG ADDR EVEN  2-11 K0215089
7EBF 8004                 1522 |       A       ORG01     ADD 1 TO MAKE EVEN     2-11 K0215090
7EC0 D400 7A23            1523 |       STO  L  ORG       SAVE IN COMMUNICATIONS 2-11 K0215091
7EC2 4C00 7A46            1524 |       BSC  L  BACK      *AREA, AND CONTINUE    2-11 K0215092
                          1525 | *                                                   K0215093
7EC4 0001                 1526 | ORG01 DC      1         CONSTANT OF 1          2-11 K0215094
                          1527 | *                                                   K0215095
7EC5                      1528 |       BSS     /7F35-*   PATCH AREA                  K0215100
7F35 0000                 1529 |       DC      0                                     K0215110
7F36                      1530 |       END     BPHAR-2                               K0215120
 
There were no errors in this assembly
 
=== CROSS REFERENCES ==========================================================
Name  Val   Defd  Referenced
$PHSE 0078    87  140
ATHC  7ACD   313  239
BACK  7A46   159 1518 1520 1524
BPHAR 7A36   133 1530
CALL1 7DBD  1252 1226
CALLC 7D9C  1213  236
CCWD  7A31   106  841 1336 1338 1516
CHAR  7BC8   608  644  650  670
CMAC  7AD0   316  282
COLON 7B70   492  445  465
COMON 7A2B   100
CQCT  7E02  1331  177
CSIZE 7A2C   101
DFCNT 7A33   126
DOC   7AD5   321  412
EIGHT 7AD6   322  428
ENDC  7ACB   311  222
ENDD  7D9E  1217 1321
EOFS  7A25    94  159  165  233 1296
EOFST 7A2A    99  166  718
EQUC  7ACF   315  269
ER    7C11   729  357  626
ER1   7C1D   739  732
ER2   7C17   733  749
ERID  7BC6   606  226  729
ERNO  7BC9   609  733  736
ERNO2 7AC8   308  228
ERROR 7A2D   102  145  722
EXFN1 7C79   850  865
EXFN2 7C8A   864  852  856
FCNT  7B41   437  398  427  432
FIO   7E93  1475 1343 1344 1400 1405 1410 1415 1420 1424 1427 1428 1431 1436
                 1441 1446 1461 1462 1508
FIOCL 7EAA  1505 1346 1399 1404 1409 1414 1419 1425 1430 1435 1440 1445
FNAME 7A2E   103
FUNEX 7CC6   933  851  855  858
FUNT  7B68   484  439
GET1  7B9B   541  260  278  419  587  598  656
GET2  7BBB   592  597  660
GETID 7BCC   614  342  685
GTID1 7BCF   622  630  696
GTID2 7BE1   650  673
GTID3 7BEE   676  647
GTID4 7BF7   688  635  639  664
GTID5 7BE7   663  657
GTID6 7BE6   660  653
GXY1  7BA8   558  543
GXY2  7BAE   566  600
GXY3  7BB9   587  555  572  579  581
GXY4  7BB8   584  547  594
GXY5  7BB3   578
H0020 7E8E  1468 1465
H0040 7E8F  1469 1458
H0060 7E90  1470 1460
H7    7E00  1326 1345
ID1   7D24  1037 1019
ID10  7D6E  1143 1027
ID11  7D73  1150  979
ID12  7D76  1155  981
ID13  7D78  1159 1003
ID14  7D7D  1166 1011
ID15  7D81  1172  983
ID16  7D84  1177 1005
ID17  7D87  1182  355 1013
ID18  7D8B  1188 1017
ID19  7D8F  1194 1015
ID1J  7D2A  1045  987
ID1K  7D2F  1052  989
ID1L  7D34  1059  362  991
ID2   7D3A  1067  364  993
ID20  7D92  1199 1029
ID21  7D98  1207  985
ID3   7D3D  1072  999
ID4   7D41  1078  509 1009
ID4B  7D46  1085  346 1031
ID4J  7D49  1090 1023
ID5   7D4F  1098  997
ID6   7D55  1106  977
ID7   7D57  1110  352 1025
ID8   7D5A  1115 1021
ID9   7D5F  1122 1001
ID9J  7D66  1131 1007
ID9S  7D6B  1138  995
IDAHO 7DAE  1236
IDSA1 7ABA   295  248  333
IDSV  7A67   194  203  206  207
IDSV1 7ACE   314  243  379  731  743
IDSV2 7B87   524  378  519  528
IDSVV 7DBB  1250 1217 1307 1314 1318
IDTPE 7DBC  1251 1224
IDWD  7AD2   318  304  345  351  354  361  365  381  401  508  677
INTC  7AD4   320  404
IOCS  7A32   114 1332 1374
IOCST 7E39  1384 1334 1351 1363 1392 1396 1401 1406 1411 1416 1421 1432 1437
                 1442 1451
LPC   7AD1   317  286
MAKE  7C30   766  446  466  478  505  810
MAKE0 7C38   773  770
MAKE1 7C58   813  777
MAKE2 7C5D   820  798
MAKE3 7C46   788  869
MAKE4 7C4B   796  785
MAKE5 7C56   810  927
MAKE6 7CBA   920  880  890  894
MAKE7 7C8F   872  774  817
MAKE8 7CB2   910  898
MAKE9 7CA2   893  874
MAKEA 7CC0   925  907  917
MEMRY 8000    84   85   86
MOVE  7A5B   181  240
MOVE1 7A66   193  530  537  737
MOVIE 7DF6  1314 1227 1280 1284 1288
MXS   7A5F   186  190
NAME  7DC1  1256 1295 1297
NAMED 7CEA   969  846  859
NAMS  7C2E   759  790  796  801  803  806  807  820  825  829  834
NCNT  7BC3   603  215  300  339  373  569  680  691
NCNTS 7BC4   604  217  299  338  374  690
NINE  7BC7   607  740
NTP   7E69  1430 1423
NXID  7DFD  1320 1319
NXTPH 7A42   154  136  150  151
ORG   7A23    92 1519 1523
ORG01 7EC4  1526 1522
ORGCK 7EB5  1516  146
OVER  7DC2  1257 1268
OVER1 7DC3  1258 1271
OVER2 7DC4  1259 1274
OVERL 7A23    85   88
OVLPC 7BCA   610  715  716
PDMP  7B75   497  531  533
PFIO1 7E88  1460 1455 1466
PFIO2 7E8C  1465 1457
PFIOC 7E3C  1392 1365 1377
PHID  0020    89  139
PTFIO 7EAC  1507 1463 1511
PUT   7C01   708  187  227  229  235  382  390  392  532  534  726  730  734
                  745  748  828  837  903  922 1356 1371 1509
PX5   7E3A  1385 1342
QSX1  7B71   493  517  518  521  527
QUMSC 7CC4   929  879
QUOTE 7C2C   757  873
QZA1  7B81   517  510
RDB   7E01  1327 1375
REALC 7AD3   319  402
ROL   7FBC    86  152
RTN   7C0F   726  719
S0001 7C2A   755  789
S0004 7DC9  1264 1309
S003F 7C2B   756  805  921
S0040 7BCB   611  578  580
S07FC 7AC9   309  182
S1000 7ACC   312  234 1219
SDF   7E22  1363 1353
SDFIO 7E37  1382 1348 1370
SEMI  7B74   496  504  769
SENC  7DBE  1253 1237
SENC1 7DBF  1254 1240
SENC2 7DC0  1255 1244
SENL  7DC5  1260 1279
SENL1 7DC6  1261 1282
SENL2 7DC7  1262 1286
SENL3 7DC8  1263 1289
SF803 7B72   494  526
SFF   7B73   495  563
SLHHS 7ADE   330  264
SOFGT 7A29    98
SOFNS 7A27    96
SOFS  7A24    93  160  176 1213
SOFST 7A26    95
SOFXT 7A28    97
SORF  7A30   105
START 7A36   139
SUFIO 7E34  1379 1347 1355
SVV1  7C28   753  767  775  804  872  901  911  920
SW1   7ADB   327  396  408  423  450
SW10  7ADA   326  366  529  536
SW2   7ADC   328  397  416  455  470
SW3   7B66   482  251  296  335  372  542  550  559  695
SW4   7B67   483  297  336  784  793  816  926
SW5   7C29   754  781  813  868
SW6   7BC5   605  252  298  337  356  546  575  593  682
SW7   7AD7   323  253  348  877
SW8   7AD8   324  254  771  773  888  889  893
SW9   7AD9   325  255  884  897  906  916
T2501 7E6B  1432 1426 1429
THREE 7C27   752  717
TWONT 7CEB   976  615
UDTST 7E3B  1390 1393
WAIT  7A3C   150  723 1220
X     7ADD   329  261  268  273  279  290  420  440  459  473  477
XTE1  7ACA   310  184  189
XXYZ  7DE4  1294 1247 1275
XYZ   7DCA  1267 1238 1242 1246
XYZ1  7DD6  1278 1269 1272
ZA0A  7A6C   202  205
ZA1   7A7B   220
ZA10  7B4B   449  442
ZA11  7B4E   455  424
ZA12  7B5D   473  441  451  456  462
ZA13  7B77   504  474
ZA1A  7A87   233  353
ZA1B  7A8E   239  223
ZA2   7A9F   260  274
ZA3   7AAD   278  270  291
ZA4   7AB9   294  287
ZA5   7ADF   333  265  275  283
ZA51  7B06   364
ZA6   7B11   378  305  363
ZA7   7B30   412  405
ZA8   7B34   419  409  413  479
ZA9   7B48   445  429
ZAO   7A68   198 1376 1394 1512