KFORPH07

Table Of Contents
  • [00004] 1130 FORTRAN COMPILER PHASE 7
kforph07.lst
ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov  1 19:25:06 2020
 
Source File: \kforph07.asm 
1130 FORTRAN COMPILER PHASE 7
 
                             2 | *************************************************** K0700020
                             3 | *                                                 * K0700030
                             4 | *STATUS - VERSION 2, MODIFICATION 11              * K0700040
                             5 | *                                                 * K0700050
                             6 | *FUNCTION/OPERATION ANALYSES AND MODIFIES THE     * K0700060
                             7 | *   FOLLOWING STATEMENTS...                       * K0700070
                             8 | *   *DEFINE FILE- DECODES STATEMENT, CHECKS FOR   * K0700080
                             9 | *   SYNTAX ERRORS AND DUPLICATE FILE NUMBERS      * K0700090
                            10 | *   OUTPUTS SEVEN WORD FILE TABLE INTO STATEMENT  * K0700100
                            11 | *   STRING AND MAKES ENTRY OF FILE NUMBER IN      * K0700110
                            12 | *   SYMBOL TABLE                                  * K0700120
                            13 | *   *CALL EXIT- DECODES AND CHECKS FOR SYNTAX ERR * K0700130
                            14 | *   SETS UP NEW CODE AND INSERTS IN STRING        * K0700140
                            15 | *   *CALL LINK- DECODES AND CHECKS FOR SYNTAX ERR * K0700150
                            16 | *   SETS UP NEW CODES AND INSERTS IN STRING       * K0700160
                            17 | *   ALL OTHER STATEMENTS ARE MOVED FROM THE INPUT * K0700170
                            18 | *   STRING TO THE OUTPUT STRING.                  * K0700180
                            19 | *                                                 * K0700190
                            20 | *ENTRY POINTS - THE ONLY ENTRY POINT IS AT BPHAR  * K0700200
                            21 | *   AND IS REACHED BY A CALL TO THE ROL ROUTINE BY* K0700210
                            22 | *   THE PREVIOUS PHASE                            * K0700220
                            23 | *                                                 * K0700230
                            24 | *INPUT-THE STATEMENT STRING AND SYMBOL TABLE BEING* K0700240
                            25 | *   PROCESSED BY THE COMPILER                     * K0700250
                            26 | *                                                 * K0700260
                            27 | *OUTPUT-THE MODIFIED STATEMENT STRING AND SYMBOL  * K0700270
                            28 | *   TABLE AS PROCESSED BY THIS PHASE              * K0700280
                            29 | *                                                 * K0700290
                            30 | *EXTERNAL REFERENCES- ROL, THE ROUTINE NEEDED TO  * K0700300
                            31 | *   READ IN THE NEXT PHASE OF THE COMPILER        * K0700310
                            32 | *                                                 * K0700320
                            33 | *EXITS-NORMAL-IF NO ERRORS ARE FOUND, THE PHASE   * K0700330
                            34 | *   PROCESSES NORMALLY AND EXITS BY A CALL        * K0700340
                            35 | *   TO THE ROL ROUTINE                            * K0700350
                            36 | *                                                 * K0700360
                            37 | *EXITS-ERRORS-WHEN AN ERROR IS ENCOUNTERED, THE   * K0700370
                            38 | *   STATEMENT IS REPLACED BY THE ERROR ID CODE AND* K0700380
                            39 | *   ERROR NUMBER. WHEN AN OVERLAP OF STRING AND   * K0700390
                            40 | *   SYMBOL TABLE OCCURS PROCESSING IS DISCONTINUED* K0700400
                            41 | *   AND PROCESSING CONTINUES TO NEXT PHASE        * K0700410
                            42 | *   ERRORS DETECTED BY THIS PHASE ARE 71 AND 72.  * K0700420
                            43 | *                                                 * K0700430
                            44 | *TABLES/WORK AREAS-STRING,SYMBOL TABLE,FORTRAN    * K0700440
                            45 | *   COMMUNICATION AREA                            * K0700450
                            46 | *                                                 * K0700460
                            47 | *ATTRIBUTES-NONE.                                 * K0700470
                            48 | *                                                 * K0700480
                            49 | *NOTES                                            * K0700490
                            50 | *   7 WORD DEFINE FILE TABLE CREATED BY DEFN FILE * K0700500
                            51 | *   WORD 1 FILE NUMBER                            * K0700510
                            52 | *   WORD 2 NUMBER OF RECORDS                      * K0700520
                            53 | *   WORD 3 RECORD LENGTH IN WORDS                 * K0700530
                            54 | *   WORD 4 ADDRESS OF ASSOCIATED VARIABLE         * K0700540
                            55 | *   WORD 5 ZEROS                                  * K0700550
                            56 | *   WORD 6 NUMBER OF RECORDS PER SECTOR           * K0700560
                            57 | *   WORD 7 NUMBER OF DISK BLOCKS PER FILE         * K0700570
                            58 | *                                                 * K0700580
                            59 | *************************************************** K0700590
                            60 |       ABS                                           K0700600
                            61 | *                                                   K0700610
                            62 | *                       SYSTEM EQUATES              K0700620
8000                        63 | MEMRY EQU     /8000                                 K0700630
7A24                        64 | OVERL EQU     MEMRY-1500 START OF FCOM              K0700640
7FBC                        65 | ROL   EQU     MEMRY-68   LOCN OF RTN TO READ NXT PH K0700650
0078                        66 | $PHSE EQU     /78        NO. OF PHASE NOW IN CORE   K0700660
7A24                        67 |       ORG     OVERL                                 K0700670
0025                        68 | PHID  EQU     37         ID NUMBER THIS PHASE       K0700680
                            69 | *                                                   K0700690
                            70 | *                  FORTRAN COMMUNICATION AREA       K0700700
7A24                        71 | SOFS  BSS     1    START OF STRING                  K0700710
7A25                        72 | EOFS  BSS     1    END OF STRING                    K0700720
7A26                        73 | SOFST BSS     1    START OF SYMBOL TABLE            K0700730
7A27                        74 | SOFNS BSS     1    START OF NON-STATEMENT NUMBERS   K0700740
7A28                        75 | SOFXT BSS     1    START OF SUBSCRIPT TEMPORARIES   K0700750
7A29                        76 | SOFGT BSS     1    START OF GENERATED TEMPORARIES   K0700760
7A2A                        77 | EOFST BSS     1    END OF SYMBOL TABLE              K0700770
7A2B                        78 | COMON BSS     1    NEXT AVAILABLE COMMON            K0700780
7A2C                        79 | CSIZE BSS     1    SIZE OF COMMON                   K0700790
7A2D                        80 | ERROR BSS     1    OVERLAP ERROR                    K0700800
7A2E                        81 | FNAME BSS     1         PROGRAM NAME                K0700810
7A2F                        82 |       BSS     1                                     K0700820
7A30                        83 | SORF  BSS     1    SUBROUTINE(-) OR FUNCTION(+)     K0700830
7A31                        84 | CCWD  BSS     1    CONTROL CARD WORD                K0700840
                            85 | *                BIT 15 TRANSFER TRACE              K0700850
                            86 | *                BIT 14 ARITHMETIC TRACE            K0700860
                            87 | *                BIT 13 EXTENDED PRECISION          K0700870
                            88 | *                BIT 12 LIST SYMBOL TABLE           K0700880
                            89 | *                BIT 11 LIST SUBPROGRAM NAMES       K0700890
                            90 | *                BIT 10 LIST SOURCE PROGRAM         K0700900
                            91 | *                BIT  9 ONE WORD INTEGERS           K0700910
7A32                        92 | IOCS  BSS     1    IOCS CONTROL CARD WORD           K0700920
                            93 | *                BIT 15 CARD                        K0700930
                            94 | *                BIT 14 PAPER TAPE                  K0700940
                            95 | *                BIT 13 TYPEWRITER                  K0700950
                            96 | *                BIT 12 1403 PRINTER                K0700960
                            97 | *                BIT 11 2501 READER                 K0700970
                            98 | *                BIT 10 KEYBOARD                    K0700980
                            99 | *                BIT  9 1442 PUNCH                  K0700990
                           100 | *                BIT  8 DISK                        K0701000
                           101 | *                BIT  7 1132 PRINTER                K0701010
                           102 | *                BIT  3 PLOTTER                     K0701020
7A33                       103 | DFCNT BSS     1                                     K0701030
                           104 | *                                                   K0701040
                           105 | *                                                   K0701050
                           106 | *                  END OF FORTRAN COMMUNICATION     K0701060
                           107 | *                  AREA                             K0701070
                           108 | *************************************************** K0701080
7A36                       109 | BPHAR EQU     *+2                                   K0701090
7A34 0000                  110 |       DC      0          LOADER WORK AREA           K0701100
7A35 FFDB                  111 |       DC      -37        -PHASE ID FOR SLET LOOKUP  K0701110
7A36 01AA                  112 |       DC      NXTPH-*+1  TABLE FOR NEXT PHASE ENTRY K0701120
7A37 0001                  113 |       DC      1          ONE ENTRY TO BE SET BY LDR K0701130
7A36                       114 |       ORG     *-2                                   K0701140
                           115 | *                                                   K0701150
                           116 | *                       INITIALIZE PHASE            K0701160
                           117 | *                                                   K0701170
7A36 6125                  118 | PHST  LDX   1 PHID       LOAD ID NUMBER THIS PHASE  K0701180
7A37 6D00 0078             119 |       STX  L1 $PHSE      STORE IN SYS PHASE AREA    K0701190
7A39 6580 7A24             120 |       LDX  I1 SOFS      INITIALIZE INPUT STRING PT  K0701200
7A3B 6680 7A24             121 |       LDX  I2 SOFS      INITIALIZE OUTPUT STRING PT K0701210
                           122 | *                                                   K0701220
                           123 | *                       CHECK FOR OVERLAP ERROR     K0701230
7A3D C0EF                  124 |       LD      ERROR     LOAD OVERLAP ERROR WD       K0701240
7A3E 4C20 7BDB             125 |       BSC  L  EXIT,Z    BRANCH IF SO                K0701250
                           126 | *                                                   K0701260
                           127 | *                       INITIALIZE FOR STATEMENT    K0701270
7A40 6700 7BBE             128 | CK1   LDX  L3 V         SET INDEX FOR CONSTANTS     K0701280
7A42 691B                  129 |       STX   1 IDSV1     STRING ADDR. I/P STRING     K0701290
7A43 6E00 7B6B             130 |       STX  L2 IDSV2     STRING ADDR. O/P STRING     K0701300
7A45 C100                  131 |       LD    1 0         PICK UP ID WORD FROM STRNG  K0701310
7A46 D39A                  132 |       STO   3 ORIG-V    SAVE IN TEMP. STO           K0701320
7A47 E381                  133 |       AND   3 HF803-V   MASK OUT STMNT NORM         K0701330
7A48 43A8                  134 |       BSI   3 OUT-V     STORE IN O/P STRING         K0701340
7A49 C1FF                  135 |       LD    1 -1        PICK UP MASKED ID WORD      K0701350
7A4A 100F                  136 |       SLA     15        TEST BIT 15 FOR STMNT NO.   K0701360
7A4B 4C10 7A4F             137 |       BSC  L  *+2,-     BR IF NO STMNT NO.          K0701370
7A4D C100                  138 |       LD    1 0         STMNT NO. FOUND             K0701380
7A4E 43A8                  139 |       BSI   3 OUT-V     MOVE STMNT NO. TO STRING    K0701390
                           140 | *                                                   K0701400
                           141 | *                       TEST FOR DEFINE FILE STMNT  K0701410
7A4F C39A                  142 |       LD    3 ORIG-V    GET STRING ID WD -TEMP STO  K0701420
7A50 E382                  143 |       AND   3 HF802-V   MASK OUT STATEMENT NORM     K0701430
7A51 939D                  144 |       S     3 DFILE-V   TEST FOR DEFINE FILE ID     K0701440
7A52 4C18 7AA7             145 |       BSC  L  DF1,+-    BRANCH IF YES.              K0701450
                           146 | *                                                   K0701460
                           147 | *                       TEST FOR CALL EXIT STMNT    K0701470
7A54 939E                  148 |       S     3 CEXIT-V   TEST FOR CALL EXIT ID       K0701480
7A55 4C18 7A6F             149 |       BSC  L  CE1,+-    BRANCH IF YES               K0701490
                           150 | *                                                   K0701500
                           151 | *                       TEST FOR CALL LINK STMNT    K0701510
7A57 939F                  152 |       S     3 CLINK-V   TEST FOR CALL LINK ID       K0701520
7A58 4C18 7A7D             153 |       BSC  L  CL1,+-    BRANCH IF YES.              K0701530
                           154 | *                                                   K0701540
                           155 | *                       END STATEMENT               K0701550
7A5A 93A0                  156 |       S     3 ENDCN-V   TEST FOR END ID             K0701560
7A5B 4C18 7BD8             157 |       BSC  L  ED1,+-    BRANCH IF YES               K0701570
                           158 | *                                                   K0701580
                           159 | *                       MOVE TO NEXT STATEMENT      K0701590
7A5D 6500 0000             160 |       LDX  L1 *-*       GET I/P STRING ADDR.        K0701600
7A5E                       161 | IDSV1 EQU     *-1                                   K0701610
7A5F 6680 7B6B             162 |       LDX  I2 IDSV2     GET O/P STRING ADDR         K0701620
7A61 C39A                  163 |       LD    3 ORIG-V    GET STMNT ID WORD           K0701630
7A62 D100                  164 |       STO   1 0         STORE STMNT ID BACK IN I/P  K0701640
7A63 1005                  165 |       SLA     5         SHIFT OFF ALL BITS BUT      K0701650
7A64 1807                  166 |       SRA     7         STATEMENT NORM              K0701660
7A65 D001                  167 |       STO     *+1                                   K0701670
7A66 6700 0000             168 |       LDX  L3 *-*       GET NO WDS THIS STMNT       K0701680
7A68 C100                  169 |       LD    1 0         MOVE STATEMENT FROM I/P     K0701690
7A69 D200                  170 |       STO   2 0         TO O/P STRING               K0701700
7A6A 7101                  171 |       MDX   1 1         INCR. I/P COUNTER           K0701710
7A6B 7201                  172 |       MDX   2 1         INCR. O/P COUNTER           K0701720
7A6C 73FF                  173 |       MDX   3 -1        CONTINUE UNTIL ALL WDS IN   K0701730
7A6D 70FA                  174 |       MDX     *-6       STATEMENT MOVED             K0701740
7A6E 70D1                  175 |       MDX     CK1       GET NEXT STATEMENT          K0701750
                           176 | *                                                   K0701760
                           177 | *************************************************** K0701770
                           178 | *                                                   K0701780
                           179 | *             PROCESS CALL EXIT STATEMENT           K0701790
                           180 | *             CHECK FOR SYNTAX ERROR                K0701800
                           181 | *             DELETE INTERPHASE COMM BIT IN ID WORD K0701810
                           182 | *             ADD 2 FLAG WORDS(HEX 5F00) TO STRING  K0701820
                           183 | *             TO INDICATE CALL EXIT                 K0701830
                           184 | *                                                   K0701840
                           185 | *                       CALL EXIT STATEMENT         K0701850
                           186 | *                 REMOVE BIT 14 OF ID WORD          K0701860
7A6F C480 7B6B             187 | CE1   LD   I  IDSV2     GET ID WD FROM STRING       K0701870
7A71 E380                  188 |       AND   3 HFFFD-V   MASK OUT BIT 14             K0701880
7A72 D480 7B6B             189 |       STO  I  IDSV2     SAVE BACK IN ID WORD        K0701890
                           190 | *                                                   K0701900
                           191 | *                                                   K0701910
                           192 | *                       SEMI-COLON                  K0701920
7A74 C100                  193 |       LD    1 0         GET 1ST DATA WD IN STMT     K0701930
7A75 93A1                  194 |       S     3 SEMI-V    TEST FOR SEMI-COLON         K0701940
7A76 4C18 7A7A             195 |       BSC  L  CE3,+-    BRANCH IF SEMI-COLON        K0701950
                           196 | *                                                   K0701960
                           197 | *                       PUT ERROR NO. 3             K0701970
7A78 C391                  198 | ER3   LD    3 D0003-V   SYNTAX ERROR CODE           K0701980
7A79 43E6                  199 |       BSI   3 ERR-1-V   BRANCH TO OUTPUT ERROR.     K0701990
                           200 | *                                                   K0702000
                           201 | *                                                   K0702010
                           202 | *                       RESHAPE CALL EXIT           K0702020
7A7A C388                  203 | CE3   LD    3 H6338-V   OUTPUT CALL EXIT            K0702030
7A7B 43A8                  204 |       BSI   3 OUT-V     BRANCH TO ADD TO STRING     K0702040
7A7C 70C3                  205 |       MDX     CK1       BRANCH TO HANDLE NXT STMNT  K0702050
                           206 | *                                                   K0702060
                           207 | *************************************************** K0702070
                           208 | *                                                   K0702080
                           209 | *             PROCESS CALL LINK STATEMENT           K0702090
                           210 | *             CHECKS SYNTAX AND RESHAPES STATEMENT  K0702100
                           211 | *             BY ADDING THE WORD (HEX) 5B00 BEFORE  K0702110
                           212 | *             EACH OF THE TWO PACKED NAME WORDS     K0702120
                           213 | *                                                   K0702130
                           214 | *                       LEFT PARENTHESIS            K0702140
7A7D C100                  215 | CL1   LD    1 0         PICK UP WD. IN I/P STRING   K0702150
7A7E 93A2                  216 |       S     3 LPAR-V    TEST FOR LEFT PARENTHESES   K0702160
7A7F 4C20 7A78             217 |       BSC  L  ER3,Z     BRANCH TO ERROR IF NOT      K0702170
                           218 | *                                                   K0702180
                           219 | *                                                   K0702190
                           220 | *                       MOVE POINTER                K0702200
7A81 7101                  221 |       MDX   1 1                                     K0702210
                           222 | *                                                   K0702220
                           223 | *                       FIRST WORD OF NAME ALPHA    K0702230
7A82 C100                  224 |       LD    1 0                                     K0702240
7A83 4C10 7A78             225 |       BSC  L  ER3,-     BRANCH IF OPERATOR          K0702250
7A85 1002                  226 |       SLA     2                                     K0702260
7A86 4C10 7A8A             227 |       BSC  L  *+2,-     BRANCH IF ALPHABETIC        K0702270
7A88 4C02 7A78             228 |       BSC  L  ER3,C     BRANCH IF NUMERIC           K0702280
                           229 | *                                                   K0702290
                           230 | *                       OUTPUT FIRST WORD OF NAME   K0702300
7A8A C100                  231 |       LD    1 0         LOAD WD FROM INPUT STRING   K0702310
7A8B 43A8                  232 |       BSI   3 OUT-V     BRANCH TO PUT WORD O/P STRI K0702320
                           233 | *                                                   K0702330
                           234 | *                       OUTPUT BLANK SECOND WORD    K0702340
7A8C C386                  235 |       LD    3 H8000-V   LOAD CONSTANT BLANK         K0702350
7A8D 43A8                  236 |       BSI   3 OUT-V     BRANCH TO O/P SUBROUTINE    K0702360
                           237 | *                                                   K0702370
                           238 | *                       TWO WORD NAME               K0702380
7A8E C1FF                  239 |       LD    1 -1                                    K0702390
7A8F 4C10 7A93             240 |       BSC  L  CL2,-     BRANCH IF NO                K0702400
                           241 | *                                                   K0702410
                           242 | *                       PUT OUT SECOND WORD OF NAME K0702420
7A91 D2FF                  243 |       STO   2 -1                                    K0702430
                           244 | *                                                   K0702440
                           245 | *                       MOVE POINTER                K0702450
7A92 7101                  246 |       MDX   1 1                                     K0702460
                           247 | *                                                   K0702470
                           248 | *                       RIGHT PARENTHESIS           K0702480
7A93 C1FF                  249 | CL2   LD    1 -1                                    K0702490
7A94 93A3                  250 |       S     3 RPAR-V                                K0702500
7A95 4C20 7A78             251 |       BSC  L  ER3,Z     BRANCH IF NOT R PAR         K0702510
                           252 | *                                                   K0702520
7A97 C100                  253 |       LD    1 0                                     K0702530
7A98 93A1                  254 |       S     3 SEMI-V     TEST FOR SEMI-COLON        K0702540
7A99 4C20 7A78             255 |       BSC  L  ER3,Z      BR TO ERROR IF NOT FOUND   K0702550
                           256 | *                       RESHAPE CALL LINK           K0702560
7A9B C2FF                  257 |       LD    2 -1        MOVE SECOND WORD OF NAME    K0702570
7A9C D201                  258 |       STO   2 +1        TWO LOCS                    K0702580
7A9D C2FE                  259 |       LD    2 -2        MOVE FIRST WORD OF NAME     K0702590
7A9E D2FF                  260 |       STO   2 -1        ONE LOCATION                K0702600
7A9F C38A                  261 |       LD    3 H5B00-V   INSERT HEX CONST 5B00       K0702610
7AA0 D2FE                  262 |       STO   2 -2        BEFORE FIRST AND 2ND NAMES  K0702620
7AA1 D200                  263 |       STO   2 0                                     K0702630
7AA2 43A8                  264 |       BSI   3 OUT-V     INCR.XR1, XR2, AND NORM     K0702640
7AA3 C200                  265 |       LD    2 0                                     K0702650
7AA4 43A8                  266 |       BSI   3 OUT-V     INCR XR1, XR2, AND NORM     K0702660
                           267 | *                                                   K0702670
                           268 | *                       MOVE POINTER                K0702680
7AA5 71FF                  269 |       MDX   1 -1        I/P STRING TOO FAR          K0702690
                           270 | *                                                   K0702700
                           271 | *                       SEMICOLON                   K0702710
7AA6 7099                  272 |       MDX     CK1        GO PROCESS NEXT STATEMENT  K0702720
                           273 | *                                                   K0702730
                           274 | *************************************************** K0702740
                           275 | *             DEFINE FILE STATEMENT                 K0702750
                           276 | *             CHECK SYNTAX OF STATEMENT             K0702760
                           277 | *             CHECK FOR DUPLICATE FILE NOS.         K0702770
                           278 | *             OUTPUT 7 WORD FILE DESCRIPTION TABLE  K0702780
                           279 | *                                                   K0702790
                           280 | *                                                   K0702800
                           281 | *                       TEST FOR SUBPROGRAM         K0702810
                           282 | *                       DEFN FILE ILLEGAL IN SUBP   K0702820
7AA7 C400 7A30             283 | DF1   LD   L  SORF      GET SUBPROGRAM INDICATOR    K0702830
7AA9 4C20 7B3C             284 |       BSC  L  ER72,Z    BRANCH ERROR IF SUBPROGRAM  K0702840
                           285 | *                                                   K0702850
                           286 | *                       CLEAR FCT                   K0702860
7AAB D397                  287 |       STO   3 FCT-V     PUT ZERO FROM ACC IN FCT    K0702870
                           288 | *                                                   K0702880
                           289 | *                       COLLECT VALID CONSTANT      K0702890
7AAC 43B0                  290 | DF5   BSI   3 COLL-V    FROM NEXT 2 WDS (FILE NO.)  K0702900
7AAD 7407 7B55             291 |       MDX  L  FCT,7     INCREMENT FILE COUNT        K0702910
                           292 | *                                                   K0702920
                           293 | *                       CHECK DUPLICATE OR          K0702930
                           294 | *                       EXCESSIVE DEFINE FILES.     K0702940
                           295 | *                                                   K0702950
7AAF 4300                  296 |       BSI   3 FILES-V                               K0702960
                           297 | *                                                   K0702970
                           298 | *                       OUTPUT FILE NUMBER          K0702980
7AB0 43A8                  299 |       BSI   3 OUT-V     IN BINARY                   K0702990
                           300 | *                                                   K0703000
                           301 | *                       LEFT PARENTHESIS            K0703010
7AB1 C100                  302 |       LD    1 0         GET NEXT WD. FROM STRING    K0703020
7AB2 93A2                  303 |       S     3 LPAR-V    TEST FOR LEFT PARENTHESIS   K0703030
7AB3 4C20 7B3A             304 |       BSC  L  ER71,Z    BRANCH IF NO                K0703040
                           305 | *                                                   K0703050
                           306 | *                       MOVE POINTER                K0703060
7AB5 7101                  307 |       MDX   1 1                                     K0703070
                           308 | *                                                   K0703080
                           309 | *                       COLLECT VALID CONSTANT      K0703090
                           310 | *             GET NUMBER OF RECORDS, CONVERT TO BIN K0703100
7AB6 43B0                  311 |       BSI   3 COLL-V                                K0703110
                           312 | *                                                   K0703120
                           313 | *                       OUTPUT NUMBER OF RECORDS    K0703130
7AB7 43A8                  314 |       BSI   3 OUT-V                                 K0703140
                           315 | *                                                   K0703150
                           316 | *                       COMMA                       K0703160
7AB8 C100                  317 |       LD    1 0         TEST NEXT OP FOR COMMA      K0703170
7AB9 93A4                  318 |       S     3 COMA-V                                K0703180
7ABA 4C20 7B3A             319 |       BSC  L  ER71,Z    BRANCH IF NO                K0703190
                           320 | *                                                   K0703200
                           321 | *                       MOVE POINTER                K0703210
7ABC 7101                  322 |       MDX   1 1                                     K0703220
                           323 | *                                                   K0703230
                           324 | *                       COLLECT VALID CONSTANT      K0703240
7ABD 43B0                  325 |       BSI   3 COLL-V    AND CONVERT REC. LNG TO BI  K0703250
                           326 | *                                                   K0703260
                           327 | *                       OUTPUT RECORD LENGTH        K0703270
7ABE 43A8                  328 |       BSI   3 OUT-V                                 K0703280
                           329 | *                                                   K0703290
                           330 | *                       RECORD LENGTH LESS THAN 321 K0703300
7ABF C2FF                  331 |       LD    2 -1        LOAD RECORD LENGTH          K0703310
7AC0 9396                  332 |       S     3 D0320-V   COMPARE WITH 320            K0703320
7AC1 4C30 7B3A             333 |       BSC  L  ER71,Z-   BR IF RECORD LENGTH GT 320  K0703330
                           334 | *                                                   K0703340
                           335 | *                       COMMA                       K0703350
7AC3 C100                  336 |       LD    1 0         GET NEXT WORD IN I/P STRNG  K0703360
7AC4 93A4                  337 |       S     3 COMA-V    TEST FOR COMMA              K0703370
7AC5 4C20 7B3A             338 |       BSC  L  ER71,Z    BRANCH IF NO                K0703380
                           339 | *                                                   K0703390
                           340 | *                       U (UNEDITED)                K0703400
7AC7 C101                  341 |       LD    1 1         TEST FOR U, BUT DO NOT USE  K0703410
7AC8 93A5                  342 |       S     3 U-V                                   K0703420
7AC9 4C20 7B3A             343 |       BSC  L  ER71,Z    BRANCH IF NO                K0703430
                           344 | *                                                   K0703440
                           345 | *                       COMMA                       K0703450
7ACB C102                  346 |       LD    1 2         TEST FOR COMMA              K0703460
7ACC 93A4                  347 |       S     3 COMA-V                                K0703470
7ACD 4C20 7B3A             348 |       BSC  L  ER71,Z    BRANCH IF NO                K0703480
                           349 | *                                                   K0703490
                           350 | *                       MOVE POINTER                K0703500
7ACF 7103                  351 |       MDX   1 3         BYPASS PREV. 3 WDS I/P STR  K0703510
                           352 | *                                                   K0703520
                           353 | *                       GATHER CONSTANT             K0703530
7AD0 43D6                  354 |       BSI   3 GATH-V    GET VAR. NAME REF. FILE     K0703540
7AD1 C3A7                  355 |       LD    3 WD2-V     GET 2ND WD OF NAME          K0703550
7AD2 1801                  356 |       SRA     1                                     K0703560
7AD3 EB86                  357 |       OR    3 H8000-V   ADD FLAG                    K0703570
7AD4 D3A7                  358 |       STO   3 WD2-V                                 K0703580
                           359 | *                                                   K0703590
                           360 | *                       VALID NAME                  K0703600
7AD5 C3A6                  361 |       LD    3 WD1-V     GET FIRST WD OF NAME        K0703610
7AD6 1002                  362 |       SLA     2                                     K0703620
7AD7 4C10 7ADB             363 |       BSC  L  *+2,-     BRANCH IF ALPHA             K0703630
7AD9 4C02 7B3A             364 |       BSC  L  ER71,C    BRANCH IF NUMERIC           K0703640
                           365 | *                                                   K0703650
                           366 | *                       VARIABLE IN SYMBOL TABLE    K0703660
7ADB C400 7A27             367 |       LD   L  SOFNS     FIND DIFF BET  END OF NON-  K0703670
7ADD 9400 7A2A             368 |       S    L  EOFST      STMNT NOS AND SYM TBL      K0703680
7ADF 8391                  369 |       A     3 D0003-V   INCR BY 3                   K0703690
7AE0 D398                  370 |       STO   3 TEMP-V                                K0703700
7AE1 6A33                  371 |       STX   2 XR2R      SAVE O/P STRING ADDR        K0703710
7AE2 6680 7A27             372 |       LDX  I2 SOFNS     GET LAST WD SYMBOL TABLE    K0703720
7AE4 7009                  373 |       MDX     DF3       BRANCH TO MODIFY            K0703730
7AE5 C201                  374 | DF2   LD    2 1         COMPARE SYM TBL ENTRY       K0703740
7AE6 93A6                  375 |       S     3 WD1-V     WITH STRING WORD            K0703750
7AE7 4C20 7AED             376 |       BSC  L  DF3-1,Z   BRANCH NOT CURRENT ENTRY    K0703760
7AE9 C202                  377 |       LD    2 2         COMPARE 2ND WD. IN SYM TBL  K0703770
7AEA 93A7                  378 |       S     3 WD2-V     WITH 2ND STRING WORD        K0703780
7AEB 4C18 7B05             379 |       BSC  L  DF4,+-    BRANCH IF FOUND             K0703790
7AED 72FD                  380 |       MDX   2 -3        DECR SYM TBL ADDRESS        K0703800
7AEE 74FD 7B56             381 | DF3   MDX  L  TEMP,-3   DECR. SYM TBL COUNTER       K0703810
7AF0 70F4                  382 |       MDX     DF2       GO TO NXT TBL ENTRY UNLESS  K0703820
                           383 | *                       TABLE FINISHED              K0703830
                           384 | *                       PUT IN SYMBOL TABLE         K0703840
7AF1 C3A6                  385 |       LD    3 WD1-V     GET FIRST WD OF NAME        K0703850
7AF2 D201                  386 |       STO   2 1         SAVE IN SYMBOL TABLE+1      K0703860
7AF3 C3A7                  387 |       LD    3 WD2-V     GET SECOND WD. OF NAME      K0703870
7AF4 D202                  388 |       STO   2 2         SAVE IN SYMBOL TABLE+2      K0703880
7AF5 C38B                  389 |       LD    3 H4000-V   GET ID FOR INTEGER VAR      K0703890
7AF6 D200                  390 |       STO   2 0         SAVE IN SYMBOL TABLE +0     K0703900
                           391 | *                                                   K0703910
                           392 | *             ADJUST SYM TBL POINTERS               K0703920
7AF7 74FD 7A29             393 |       MDX  L  SOFGT,-3                              K0703930
7AF9 74FD 7A28             394 |       MDX  L  SOFXT,-3                              K0703940
7AFB 74FD 7A2A             395 |       MDX  L  EOFST,-3                              K0703950
                           396 | *                                                   K0703960
                           397 | *                       TEST FOR INTEGER VARIABLE   K0703970
7AFD C3A6                  398 |       LD    3 WD1-V     GET FIRST WD OF NAME        K0703980
7AFE E387                  399 |       AND   3 H7E00-V   MASK OUT ALL BUT 1ST CHAR   K0703990
7AFF 938D                  400 |       S     3 H1200-V   SEE IF GREATER THAN 'H'     K0704000
7B00 4C28 7B3A             401 |       BSC  L  ER71,Z+   BRANCH IF NO                K0704010
7B02 938C                  402 |       S     3 H1800-V   SEE IF LESS THAN 'O'        K0704020
7B03 4C30 7B3A             403 |       BSC  L  ER71,Z-   BRANCH IF NO.               K0704030
                           404 | *                                                   K0704040
                           405 | *                       CHECK LEGAL VARIABLE        K0704050
7B05 C200                  406 | DF4   LD    2 0         GET SYMBOL TABLE ID WD      K0704060
7B06 E383                  407 |       AND   3 HDFDE-V   TEST IF ID WORD CONTAINS    K0704070
7B07 F38B                  408 |       EOR   3 H4000-V   FLAG FOR VARIABLE INTEGER   K0704080
7B08 4C20 7B3A             409 |       BSC  L  ER71,Z    BRANCH IF NO                K0704090
                           410 | *                                                   K0704100
                           411 | *                       INDICATE DEFINED            K0704110
7B0A C200                  412 |       LD    2 0         GET SYMBOL TABLE ID WORD    K0704120
7B0B EB8E                  413 |       OR    3 H0020-V   ADD IN DEFINED VARIABLE     K0704130
7B0C D200                  414 |       STO   2 0         FLAG                        K0704140
                           415 | *                                                   K0704150
                           416 | *                       COMPUTE S.T. POINTER        K0704160
7B0D 6A48                  417 |       STX   2 TEMP      SAVE SYMBOL TABLE ADDR.     K0704170
7B0E C400 7A26             418 |       LD   L  SOFST     FIND DIFF BET. START OF     K0704180
7B10 9398                  419 |       S     3 TEMP-V    SYMBOL TABLE AND CUR LOC.   K0704190
7B11 1890                  420 |       SRT     16                                    K0704200
7B12 AB91                  421 |       D     3 D0003-V   DIVIDE BY 3 AND             K0704210
7B13 8385                  422 |       A     3 H8001-V   MAKE RLTV TO SYMBOL TABLE   K0704220
                           423 | *                                                   K0704230
                           424 | *                       OUTPUT VARIABLE             K0704240
7B14 6600 0000             425 |       LDX  L2 *-*       GET STRING ADDR O/P         K0704250
7B15                       426 | XR2R  EQU     *-1       ADD SYMBOL TABLE ENTRY      K0704260
7B16 43A8                  427 |       BSI   3 OUT-V     TO O/P STRING               K0704270
                           428 | *                                                   K0704280
                           429 | *                       RIGHT PARENTHESIS           K0704290
7B17 C100                  430 |       LD    1 0         GET NEXT WD OF STRING       K0704300
7B18 93A3                  431 |       S     3 RPAR-V    TEST FOR RIGHT PARENTHESIS  K0704310
7B19 4C20 7B3A             432 |       BSC  L  ER71,Z    BRANCH IF NO                K0704320
                           433 | *                                                   K0704330
                           434 | *                       MOVE  POINTER BACK BY 1     K0704340
7B1B 71FF                  435 |       MDX   1 -1        TO ALLOW FOR INCR. BY OUT   K0704350
                           436 | *                                                   K0704360
                           437 | *                       OUTPUT ZERO                 K0704370
7B1C 1010                  438 |       SLA     16                                    K0704380
7B1D 43A8                  439 |       BSI   3 OUT-V     FIFTH WD OF FILE BLOCK      K0704390
                           440 | *                                                   K0704400
                           441 | *                       COMPUTE RECORDS/SECTOR      K0704410
7B1E C396                  442 |       LD    3 D0320-V   NO REC/SECTOR = 320         K0704420
7B1F 1890                  443 |       SRT     16        DIVIDED BY                  K0704430
7B20 AAFD                  444 |       D     2 -3        NUMBER WDS/RECORD           K0704440
                           445 | *                                                   K0704450
                           446 | *                       OUTPUT RECORDS/SECTOR       K0704460
7B21 43A8                  447 |       BSI   3 OUT-V                                 K0704470
                           448 | *                                                   K0704480
                           449 | *             COMPUTE NUMBER OF DISK BLOCKS         K0704490
7B22 2000                  450 |       LDS     0          RESET OVERFLOW & CARRY 2-4 K0704495
7B23 C2FB                  451 |       LD    2 -5        LOAD NO. OF RECORDS         K0704500
7B24 188C                  452 |       SRT     12        MULT BY NO. DB/SECTOR (16)  K0704510
7B25 AAFF                  453 |       D     2 -1        DIVIDE BY NO. RCDS/SETOR    K0704520
7B26 4C01 7C6D             454 |       BSC  L  ER74,O     BRANCH IF OVERFLOW     2-4 K0704525
7B28 D398                  455 |       STO   3 TEMP-V    SAVE NO. DISK BLOCKS (TEMP) K0704530
7B29 4C00 7C62             456 |       BSC  L  PTCH1      BRANCH TO PATCH AREA   2-4 K0704540
                           457 | *                                                   K0704590
                           458 | *                       COMMA                       K0704600
7B2B C1FF                  459 | PTH1A LD    1 -1                                    K0704610
7B2C 93A4                  460 |       S     3 COMA-V                                K0704620
7B2D 4C18 7AAC             461 |       BSC  L  DF5,+-    BRANCH IF YES               K0704630
                           462 | *                                                   K0704640
                           463 | *                       SEMI-COLON                  K0704650
7B2F C1FF                  464 |       LD    1 -1                                    K0704660
7B30 93A1                  465 |       S     3 SEMI-V                                K0704670
7B31 4C20 7B3A             466 |       BSC  L  ER71,Z    BRANCH IF YES               K0704680
                           467 | *                                                   K0704690
                           468 | *                       UPDATE FILE COUNT           K0704700
7B33 C400 7A33             469 |       LD   L  DFCNT     INTERPHASE FILE WD. COUNT   K0704710
7B35 8397                  470 |       A     3 FCT-V     NO. WDS THIS FILE DESC      K0704720
7B36 D400 7A33             471 |       STO  L  DFCNT     SAVE                        K0704730
7B38 4C00 7A40             472 |       BSC  L  CK1       BR TO PROCESS NEW STMNT     K0704740
                           473 | *                                                   K0704750
                           474 | *                       PUT ERROR 71                K0704760
7B3A C394                  475 | ER71  LD    3 D0071-V   SYNTAX ERROR DEFINE FILE    K0704770
7B3B 7069                  476 |       MDX     ERR                                   K0704780
                           477 | *                                                   K0704790
                           478 | *                       PUT ERROR 72                K0704800
7B3C C395                  479 | ER72  LD    3 D0072-V   DUPLICATE DEFINE FILE NO.   K0704810
7B3D 7067                  480 |       MDX     ERR                                   K0704820
                           481 | *                                                   K0704830
                           482 | *                       CONSTANTS                   K0704840
7BBE                       483 | V     EQU     *+128     RLTV ADDR FACTOR FOR CON    K0704850
7B3E FFFD                  484 | HFFFD DC      /FFFD     MASK FOR STRING ID WD       K0704860
7B3F F803                  485 | HF803 DC      /F803     MASK FOR STRING ID WD       K0704870
7B40 F802                  486 | HF802 DC      /F802     MASK FOR STRING ID WD       K0704880
7B41 DFDE                  487 | HDFDE DC      /DFDE     SYMBOL TABLE MASK           K0704890
7B42 A008                  488 | HA008 DC      /A008     ERROR ID WORD               K0704900
7B43 8001                  489 | H8001 DC      /8001     CON FOR COMP SYM TBL PT     K0704910
7B44 8000                  490 | H8000 DC      /8000     CON   USED FOR BLANK WORD   K0704920
7B45 7E00                  491 | H7E00 DC      /7E00     MASK FOR INT. WD. TEST      K0704930
7B46 6338                  492 | H6338 DC      /6338     CALL EXIT CONSTANT          K0704940
7B47 5F00                  493 | H5F00 DC      /5F00     CALL EXIT CONSTANT          K0704950
7B48 5B00                  494 | H5B00 DC      /5B00     CALL LINK CONSTANT          K0704960
7B49 4000                  495 | H4000 DC      /4000     SYM TBL ID. FOR INTEGER     K0704970
7B4A 1800                  496 | H1800 DC      /1800     TEST FOR INTEGER VARIABLE   K0704980
7B4B 1200                  497 | H1200 DC      /1200     TEST FOR INTEGER VARIABLE   K0704990
7B4C 0020                  498 | H0020 DC      /0020     SYMBOL TABLE MASK           K0705000
7B4D 0004                  499 | H0004 DC      /0004     USED TO INCR STMNT NORM     K0705010
7B4E 0001                  500 | H0001 DC      /0001     USEFUL CONSTANT             K0705020
7B4F 0003                  501 | D0003 DC      3         USEFUL CONSTANT             K0705030
7B50 0009                  502 | D0009 DC      9         CONSTANT TEST NUMERIC       K0705040
7B51 000A                  503 | D0010 DC      10        CONSTANT USED BIN. CONVERT  K0705050
7B52 0047                  504 | D0071 DC      71        ERROR FLAG NO. 71           K0705060
7B53 0048                  505 | D0072 DC      72        ERROR FLAG NO. 72           K0705070
7B54 0140                  506 | D0320 DC      320       MAX. REC.SIZE DEFINE FILE   K0705080
7B55 0000                  507 | FCT   DC      *-*       NO. WDS. IN DEFN FILE O/P   K0705090
7B56 0000                  508 | TEMP  DC      *-*       TEMPORARY STORAGE AREA      K0705100
7B57 0000                  509 | TEMPA DC      *-*       TEMPORARY STORAGE AREA.     K0705110
7B58 0000                  510 | ORIG  DC      *-*       ORIGINAL ID WORD            K0705120
7B59 7C16                  511 | FILET DC      DDDT      LOC OF FILE DESCRIPTOR TBL  K0705130
7B5A 004B                  512 | FCNT  DC      75        MAX OF 75 DEFINED FILES     K0705140
7B5B F000                  513 | DFILE DC      /F000     DEFN FILE ID FLAG TEST      K0705150
7B5C F002                  514 | CEXIT DC      /E002-/F000 CALL EXIT ID FLAG TEST    K0705160
7B5D FFFE                  515 | CLINK DC      /E000-/E002 CALL LINK ID FLAG TEST    K0705170
7B5E 3000                  516 | ENDCN DC      /1000-/E000 END ID TEST               K0705180
7B5F 001E                  517 | SEMI  DC      /1E       SEMI-COLON                  K0705190
7B60 000D                  518 | LPAR  DC      /0D       (                           K0705200
7B61 001D                  519 | RPAR  DC      /1D       )                           K0705210
7B62 002B                  520 | COMA  DC      /2B       ,                           K0705220
7B63 C800                  521 | U     DC      /C800     U                           K0705230
7B64                       522 |       BSS  E  0                                     K0705240
7B64 0000                  523 | WD1   DC      *-*       TEMP STO USED TO CONVERT    K0705250
7B65 0000                  524 | WD2   DC      *-*       VARIABLE CONSTANTS(PACKED)  K0705260
                           525 | *                                                   K0705270
                           526 | *                  THE OUTPUT ROUTINE STORES THE    K0705280
                           527 | *                  THE CONTENTS OF THE A REGISTER   K0705290
                           528 | *                  AT XR2, INCRAMENT XR1 AND XR2,   K0705300
                           529 | *                  AND INCRAMENTS THE NORM OF THE   K0705310
                           530 | *                  STATEMENT.                       K0705320
                           531 | *                                                   K0705330
7B66 0000                  532 | OUT   DC      *-*       BSI ENTRY POINT             K0705340
7B67 D200                  533 |       STO   2 0         SAVE ACC IN O/P STRING      K0705350
7B68 7101                  534 |       MDX   1 1         INCREMENT I/P STRING CTR    K0705360
7B69 7201                  535 |       MDX   2 1         INCREMENT O/P STRING CTR    K0705370
7B6A 7404 0000             536 |       MDX  L  *-*,4     INCREMENT STMNT NORM BY 1   K0705380
7B6B                       537 | IDSV2 EQU     *-1                                   K0705390
7B6C 4C80 7B66             538 |       BSC  I  OUT       RETURN                      K0705400
                           539 | *                                                   K0705410
                           540 | *                  THE COLLECT CONSTANT ROUTINE     K0705420
                           541 | *                  CALLS GATHER CONSTANT ROUTINE    K0705430
                           542 | *                  AND THE CONVERTS THE CONSTANT    K0705440
                           543 | *                  TO BINARY. THE ROUTINE GOES TO   K0705450
                           544 | *                  ERROR NUMBER 71 IF CONSTANT IS   K0705460
                           545 | *                  INVALID, ZERO OR OVER 32767.     K0705470
                           546 | *                                                   K0705480
7B6E 0000                  547 | COLL  DC      *-*       BSI ENTRY POINT             K0705490
7B6F 43D6                  548 |       BSI   3 GATH-V    BRANCH TO GET 2 WD CONST    K0705500
7B70 1010                  549 |       SLA     16                                    K0705510
7B71 D398                  550 |       STO   3 TEMP-V    ZERO TEMP STO WD            K0705520
7B72 C3A6                  551 | COLL1 LD    3 WD1-V     GET 1ST OF 2 WD CONSTANT    K0705530
7B73 1002                  552 |       SLA     2                                     K0705540
7B74 4C02 7B79             553 |       BSC  L  *+3,C     TEST FOR POSIBLE NUMERIC    K0705550
7B76 4C20 7B3A             554 |       BSC  L  ER71,Z    ZERO CON,   SYNTAX ERROR    K0705560
7B78 7016                  555 |       MDX     COLL2     BRANCH TO RETURN            K0705570
7B79 4C10 7B3A             556 |       BSC  L  ER71,-    TEST FOR ZERO, INVALID CON  K0705580
7B7B 1001                  557 |       SLA     1         SHIFT OFF ONE BIT           K0705590
7B7C 180C                  558 |       SRA     12        PUT BITS 3-9 INTO BITS9-30  K0705600
7B7D D399                  559 |       STO   3 TEMPA-V   SAVE TEMPORARILY            K0705610
7B7E 9392                  560 |       S     3 D0009-V   DETERMINE IF NO. BETWEEN    K0705620
7B7F 4C30 7B3A             561 |       BSC  L  ER71,-Z   0 AND 9. ERROR IF NOT       K0705630
7B81 C398                  562 |       LD    3 TEMP-V    MULT PREV. CON   BY 10      K0705640
7B82 A393                  563 |       M     3 D0010-V                               K0705650
7B83 1081                  564 |       SLT     1         TEST FOR OVERFLOW           K0705660
7B84 4C20 7B3A             565 |       BSC  L  ER71,Z    NO. GT 32767, ERROR         K0705670
7B86 108F                  566 |       SLT     15        PUT PREV CON   IN ACC       K0705680
7B87 8399                  567 |       A     3 TEMPA-V   ADD CURRENT WD              K0705690
7B88 D398                  568 |       STO   3 TEMP-V    SAVE IN PREV. CON           K0705700
7B89 4C28 7B3A             569 |       BSC  L  ER71,+Z   ERROR IF NO. GT 32767       K0705710
7B8B CBA6                  570 |       LDD   3 WD1-V     GET NEXT 6 BITS WD1-WD2     K0705720
7B8C 1086                  571 |       SLT     6                                     K0705730
7B8D DBA6                  572 |       STD   3 WD1-V     RESET WD1-WD2               K0705740
7B8E 70E3                  573 |       MDX     COLL1     GO PROCESS NEXT 6 BITS      K0705750
7B8F C398                  574 | COLL2 LD    3 TEMP-V                                K0705760
7B90 4C08 7B3A             575 |       BSC  L  ER71,+                                K0705770
7B92 4C80 7B6E             576 |       BSC  I  COLL      BR IF LE 0 TO ERROR         K0705780
                           577 | *                       RETURN                      K0705790
                           578 | *                  THE GATHER CONSTANT ROUTINE      K0705800
                           579 | *                  PICK TWO WORD CONSTANT AND       K0705810
                           580 | *                  PUT THEM IN WD1 AND WD2. POINTER K0705820
                           581 | *                  REMAINS ON LAST WORD USED. ON    K0705830
                           582 | *                  ERRORS THE ROUTINE GOES TO       K0705840
                           583 | *                  ERROR 71.                        K0705850
                           584 | *                                                   K0705860
7B94 0000                  585 | GATH  DC      *-*       BSI ENTRY                   K0705870
7B95 C100                  586 |       LD    1 0         GET WORD FROM I/P STRING    K0705880
7B96 D3A6                  587 |       STO   3 WD1-V     SAVE IN WD1                 K0705890
7B97 1010                  588 |       SLA     16                                    K0705900
7B98 D3A7                  589 |       STO   3 WD2-V     ZERO WD2.                   K0705910
7B99 C101                  590 |       LD    1 1         TEST 2ND WD I/P STRING      K0705920
7B9A 4C10 7BA2             591 |       BSC  L  GATH1,-   RETURN IF WD NOT FLAGGED    K0705930
7B9C 1001                  592 |       SLA     1         REMOVE FLAG.                K0705940
7B9D D3A7                  593 |       STO   3 WD2-V     SAVE WORD 2.                K0705950
7B9E 7101                  594 |       MDX   1 1         INCREMENT I/P STRING COUNT  K0705960
7B9F C101                  595 |       LD    1 1         TEST 3RD WD OF STRING FOR   K0705970
7BA0 4C28 7B3A             596 |       BSC  L  ER71,+Z   VAR. SYNTAX ERR IF FOUND    K0705980
7BA2 4C80 7B94             597 | GATH1 BSC  I  GATH      RETURN                      K0705990
                           598 | *                                                   K0706000
                           599 | *                  THE ERROR ROUTINE REPLACES THE   K0706010
                           600 | *                  STATEMENT WITH AN ERROR MESSAGE. K0706020
                           601 | *                  THE ERROR NUMBER IS IN THE       K0706030
                           602 | *                  ACCUMULATOR WHEN COMING HERE     K0706040
7BA4 0000                  603 |       DC      *-*                                   K0706050
7BA5 6580 7A5E             604 | ERR   LDX  I1 IDSV1     GET STRING I/P ID WD ADDR   K0706060
7BA7 6680 7B6B             605 |       LDX  I2 IDSV2     GET STRING O/P ID WD ADDR   K0706070
7BA9 D398                  606 |       STO   3 TEMP-V    STORE ERROR CONST TEMP.     K0706080
7BAA C39A                  607 |       LD    3 ORIG-V     GET ID WD FROM I/P STRING  K0706090
7BAB E390                  608 |       AND   3 H0001-V   GET STMT NO. FLAG FROM ID   K0706100
7BAC 8384                  609 |       A     3 HA008-V   INCR BY ERROR ID WORD.      K0706110
7BAD 4804                  610 |       BSC     E         TEST IF STMT NO. PRESENT    K0706120
7BAE 838F                  611 |       A     3 H0004-V   INCR. NORM IF STMT HAS NO.  K0706130
7BAF D200                  612 |       STO   2 0         SAVE ID WORD IN O/P STRING  K0706140
7BB0 100F                  613 |       SLA     15        TEST FOR NUMBERED STMT      K0706150
7BB1 4828                  614 |       BSC     +Z        BR IF NO               2-11 K0706160
                           615 | *  2 INSTRUCTIONS REMOVED                      2-11 K0706170
7BB2 7201                  616 |       MDX   2 1         INCR O/P STRING COUNT       K0706190
7BB3 C398                  617 |       LD    3 TEMP-V    GET ERROR NO.               K0706200
7BB4 D201                  618 |       STO   2 1         PUT IN O/P STRING           K0706210
7BB5 7202                  619 |       MDX   2 2         INCR O/P STRING CTR         K0706220
                           620 | *                                                   K0706230
                           621 | *                   SKIP OVER REMAINDER OF THE      K0706240
                           622 | *                   STATEMENT.                      K0706250
                           623 | *                                                   K0706260
7BB6 C39A                  624 | SKIP  LD    3 ORIG-V    GET STMNT ID I/P STRING     K0706270
7BB7 1005                  625 |       SLA     5                                     K0706280
7BB8 1807                  626 |       SRA     7         DECODE STMNT NORM           K0706290
7BB9 D001                  627 |       STO     *+1       INCR I/P STRING CTR BY      K0706300
7BBA 7500 0000             628 |       MDX  L1 *-*       STATEMENT NORM              K0706310
7BBC 4C00 7A40             629 |       BSC  L  CK1       GO PROCESS NEXT STMNT       K0706320
                           630 | *                                                   K0706330
                           631 | *                  THIS SUBROUTINE SCANS THE TABLE  K0706340
                           632 | *                  OF DEFINE FILE NUMBERS TO ENSURE K0706350
                           633 | *                  THAT THERE  ARE NO DUPLICATES OR K0706360
                           634 | *                  THAT THERE ARE NOT MORE THAN     K0706370
                           635 | *                       75 DEFINED FILES.           K0706380
                           636 | *                                                   K0706390
                           637 | *                       ACC CONTAINS BIN FILE NO.   K0706400
7BBE 0000                  638 | FILES DC      *-*       BSI ENTRY POINT             K0706410
7BBF D398                  639 |       STO   3 TEMP-V    SAVE ACC.                   K0706420
7BC0 C39C                  640 |       LD    3 FCNT-V    TEST IF NO. FILES LEFT      K0706430
7BC1 9390                  641 |       S     3 H0001-V   IS GT 1                     K0706440
7BC2 4C28 7B3C             642 |       BSC  L  ER72,+Z   IF NOT, OVERLAP ERROR  2-11 K0706450
7BC4 D39C                  643 |       STO   3 FCNT-V                                K0706460
7BC5 C39B                  644 |       LD    3 FILET-V   GET LOC OF FILE TABLE       K0706470
7BC6 D001                  645 |       STO     FL1+1                                 K0706480
7BC7 C400 0000             646 | FL1   LD   L  *-*       GET ENTRY FROM TABLE        K0706490
7BC9 4C18 7BD1             647 |       BSC  L  FL2,+-    IF ENTRY=0, ADD FILE NO.    K0706500
7BCB 9398                  648 |       S     3 TEMP-V    COMPARE ENTRY WITH FILE NO  K0706510
7BCC 4C18 7B3C             649 |       BSC  L  ER72,+-   EQUAL, DUP FILE ERROR       K0706520
7BCE 74FF 7BC8             650 |       MDX  L  FL1+1,-1  MODIFY FILE TABLE LOC.      K0706530
7BD0 70F6                  651 |       MDX     FL1       GO COMPARE ENTRY NEXT FILE  K0706540
7BD1 7401 7B59             652 | FL2   MDX  L  FILET,1   INCR. FILE TABLE LOC        K0706550
7BD3 C398                  653 |       LD    3 TEMP-V    GET BINARY FILE NO.         K0706560
7BD4 D480 7B59             654 |       STO  I  FILET     SAVE IN FILE TABLE          K0706570
7BD6 4C80 7BBE             655 |       BSC  I  FILES     RETURN                      K0706580
                           656 | *                                                   K0706590
                           657 | *                       RESTORE STRING POINTERS     K0706600
7BD8 72FF                  658 | ED1   MDX   2 -1                                    K0706610
7BD9 6E00 7A25             659 |       STX  L2 EOFS                                  K0706620
                           660 | *                                                   K0706630
                           661 | *                       READ AND GO TO NEXT PHASE   K0706640
7BDB                       662 | EXIT  EQU     *                                     K0706650
7BDB 6580 7BE1             663 |       LDX  I1 NXTPH+1   LOAD PARAMETER FOR READING  K0706660
7BDD C804                  664 |       LDD     NXTPH+2   NEXT PHASE                  K0706670
7BDE 4C00 7FBC             665 |       BSC  L  ROL       GO TO READ NEXT PHASE       K0706680
7BE0                       666 |       BSS  E  0                                     K0706690
7BE0 0026                  667 | NXTPH DC      38        ID OF MEXT PHASE            K0706700
7BE1                       668 |       BSS     3         LOADER TABLE FOR NEXT PHASE K0706710
                           669 | *                                                   K0706720
                           670 | *                       PATCH AREA                  K0706730
7BE4                       671 |       BSS     50                                    K0706740
                           672 | *                                                   K0706750
                           673 | *                       DEFINE FILE NUMBER TABLE    K0706760
7C16 0000                  674 | DDDT  DC      0                                     K0706770
7C17                       675 |       BSS     75        DEFINED FILE TABLE          K0706780
                           676 | *                                                   K0706790
                           677 | *             PATCH FOR MOD 4                   2-4 K0706800
                           678 | *                                                   K0706810
7C62 18D0                  679 | PTCH1 RTE     16         SHIFT REMAINDER TO ACC 2-4 K0706820
7C63 4820                  680 |       BSC     Z          SKIP IF NO REMAINDER   2-4 K0706830
7C64 C390                  681 |       LD    3 H0001-V    LOAD 1 IF REMAINDER    2-4 K0706840
7C65 8398                  682 |       A     3 TEMP-V     ADD NO OF DISK BLOCKS  2-4 K0706850
7C66 9009                  683 |       S       DBMAX      COMPARE WITH DISK SIZE 2-4 K0706860
7C67 4C30 7C6D             684 |       BSC  L  ER74,Z-    BRANCH IF EXCEEDED     2-4 K0706870
7C69 8006                  685 |       A       DBMAX      RESTORE DB COUNT       2-4 K0706880
7C6A 43A8                  686 |       BSI   3 OUT-V      OUTPUT DB COUNT        2-4 K0706890
7C6B 4C00 7B2B             687 |       BSC  L  PTH1A      BRANCH BACK            2-4 K0706900
                           688 | *                                                   K0706910
7C6D C003                  689 | ER74  LD      D0074      LOAD ERROR 74          2-4 K0706920
7C6E 4C00 7BA5             690 |       BSC  L  ERR        FILE EXCEEDS DISK SIZE 2-4 K0706930
                           691 | *                                                   K0706940
7C70 6400                  692 | DBMAX DC      /6400      DISK SIZE DB COUNT     2-4 K0706950
7C71 004A                  693 | D0074 DC      74         ERROR FLAG NO 74       2-4 K0706960
                           694 | *                                                   K0706970
7C72                       695 |       BSS     /7CB5-*   PATCH AREA             2-11 K0706980
7CB5 0000                  696 |       DC      0                                     K0706990
7CB6                       697 |       END     BPHAR-2                               K0707000
 
There were no errors in this assembly
 
=== CROSS REFERENCES ==========================================================
Name  Val   Defd  Referenced
$PHSE 0078    66  119
BPHAR 7A36   109  697
CCWD  7A31    84
CE1   7A6F   187  149
CE3   7A7A   203  195
CEXIT 7B5C   514  148
CK1   7A40   128  175  205  272  472  629
CL1   7A7D   215  153
CL2   7A93   249  240
CLINK 7B5D   515  152
COLL  7B6E   547  290  311  325  576
COLL1 7B72   551  573
COLL2 7B8F   574  555
COMA  7B62   520  318  337  347  460
COMON 7A2B    78
CSIZE 7A2C    79
D0003 7B4F   501  198  369  421
D0009 7B50   502  560
D0010 7B51   503  563
D0071 7B52   504  475
D0072 7B53   505  479
D0074 7C71   693  689
D0320 7B54   506  332  442
DBMAX 7C70   692  683  685
DDDT  7C16   674  511
DF1   7AA7   283  145
DF2   7AE5   374  382
DF3   7AEE   381  373  376
DF4   7B05   406  379
DF5   7AAC   290  461
DFCNT 7A33   103  469  471
DFILE 7B5B   513  144
ED1   7BD8   658  157
ENDCN 7B5E   516  156
EOFS  7A25    72  659
EOFST 7A2A    77  368  395
ER3   7A78   198  217  225  228  251  255
ER71  7B3A   475  304  319  333  338  343  348  364  401  403  409  432  466
                  554  556  561  565  569  575  596
ER72  7B3C   479  284  642  649
ER74  7C6D   689  454  684
ERR   7BA5   604  199  476  480  690
ERROR 7A2D    80  124
EXIT  7BDB   662  125
FCNT  7B5A   512  640  643
FCT   7B55   507  287  291  470
FILES 7BBE   638  296  655
FILET 7B59   511  644  652  654
FL1   7BC7   646  645  650  651
FL2   7BD1   652  647
FNAME 7A2E    81
GATH  7B94   585  354  548  597
GATH1 7BA2   597  591
H0001 7B4E   500  608  641  681
H0004 7B4D   499  611
H0020 7B4C   498  413
H1200 7B4B   497  400
H1800 7B4A   496  402
H4000 7B49   495  389  408
H5B00 7B48   494  261
H5F00 7B47   493
H6338 7B46   492  203
H7E00 7B45   491  399
H8000 7B44   490  235  357
H8001 7B43   489  422
HA008 7B42   488  609
HDFDE 7B41   487  407
HF802 7B40   486  143
HF803 7B3F   485  133
HFFFD 7B3E   484  188
IDSV1 7A5E   161  129  604
IDSV2 7B6B   537  130  162  187  189  605
IOCS  7A32    92
LPAR  7B60   518  216  303
MEMRY 8000    63   64   65
NXTPH 7BE0   667  112  663  664
ORIG  7B58   510  132  142  163  607  624
OUT   7B66   532  134  139  204  232  236  264  266  299  314  328  427  439
                  447  538  686
OVERL 7A24    64   67
PHID  0025    68  118
PHST  7A36   118
PTCH1 7C62   679  456
PTH1A 7B2B   459  687
ROL   7FBC    65  665
RPAR  7B61   519  250  431
SEMI  7B5F   517  194  254  465
SKIP  7BB6   624
SOFGT 7A29    76  393
SOFNS 7A27    74  367  372
SOFS  7A24    71  120  121
SOFST 7A26    73  418
SOFXT 7A28    75  394
SORF  7A30    83  283
TEMP  7B56   508  370  381  417  419  455  550  562  568  574  606  617  639
                  648  653  682
TEMPA 7B57   509  559  567
U     7B63   521  342
V     7BBE   483  128  132  133  134  139  142  143  144  148  152  156  163
                  188  194  198  199  203  204  216  232  235  236  250  254
                  261  264  266  287  290  296  299  303  311  314  318  325
                  328  332  337  342  347  354  355  357  358  361  369  370
                  375  378  385  387  389  398  399  400  402  407  408  413
                  419  421  422  427  431  439  442  447  455  460  465  470
                  475  479  548  550  551  559  560  562  563  567  568  570
                  572  574  587  589  593  606  607  608  609  611  617  624
                  639  640  641  643  644  648  653  681  682  686
WD1   7B64   523  361  375  385  398  551  570  572  587
WD2   7B65   524  355  358  378  387  589  593
XR2R  7B15   426  371