User Tools

Site Tools


ibm:ibm1130-lib:dmsr2v12:kforph25_lst

KFORPH25

Table Of Contents
  • [00004] 1130 FORTRAN COMPILER PHASE 25
kforph25.lst
ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov  1 19:25:06 2020
 
Source File: \kforph25.asm 
1130 FORTRAN COMPILER PHASE 25
 
                             2 | *************************************************** K2500020
                             3 | *                                                 * K2500030
                             4 | *STATUS - VERSION 2, MODIFICATION LEVEL 12        * K2500040
                             5 | *                                                 * K2500050
                             6 | *FUNCTION/OPERATION-                              * K2500060
                             7 | *   * BUILD  PROGRAM HEADER AND DATA HEADER       * K2500070
                             8 | *     RECORDS                                     * K2500080
                             9 | *   * OUTPUT THESE RECORDS BY BUFFER LOADS OF 320 * K2500090
                            10 | *     WORDS TO DISK WORKING STORAGE               * K2500100
                            11 | *   * ANALYZES DEFINE FILE STATEMENTS AND PUTS    * K2500110
                            12 | *     THEM IN THE BUFFER FOR OUTPUT TO WORKING    * K2500120
                            13 | *     STORAGE IN ABSOLUTE MODE (EXCEPT FOR THE    * K2500130
                            14 | *     ASSOCIATED VARIABLE WHICH IS IN RELOCATABLE * K2500140
                            15 | *     OR ABSOLUTE MODE)                           * K2500150
                            16 | *   * SCANS THE SYMBOL TABLE FOR REAL AND INTEGER * K2500160
                            17 | *     CONSTANTS AND PLACES THEM IN THE BUFFER IN  * K2500170
                            18 | *     ABSOLUTE MODE FOR OUTPUT TO WORKING STORAGE * K2500180
                            19 | *                                                 * K2500190
                            20 | *ENTRY POINTS-THE ONLY ENTRY POINT IS AT BPHAR    * K2500200
                            21 | *   AND IS REACHED BY A CALL TO THE ROL ROUTINE   * K2500210
                            22 | *   BY A PREVIOUS PHASE                           * K2500220
                            23 | *                                                 * K2500230
                            24 | *INPUT-THE STATEMENT STRING AND SYMBOL TABLE FROM * K2500240
                            25 | *   THE PREVIOUS PHASES                           * K2500250
                            26 | *                                                 * K2500260
                            27 | *OUTPUT-                                          * K2500270
                            28 | *   * WORKING STORAGE ON THE DISK CONTAINING      * K2500280
                            29 | *     HEADER AND DATA RECORDS, REAL AND INTEGER   * K2500290
                            30 | *     CONSTANTS AND OUTPUT FROM DEFINE FILE       * K2500300
                            31 | *     STATEMENTS                                  * K2500310
                            32 | *   * A 320 WORD BUFFER CONTAINING SIMILAR        * K2500320
                            33 | *     INFORMATION TO BE OUTPUT TO WORKING STORAGE * K2500330
                            34 | *     OR TO BE PASSED ON TO PHASE 26 TO BE FILLED * K2500340
                            35 | *     AND PUT INTO WORKING STORAGE                * K2500350
                            36 | *                                                 * K2500360
                            37 | *EXTERNAL REFERENCES-                             * K2500370
                            38 | *   SUBROUTINES-                                  * K2500380
                            39 | *      * ROL-LOADS NEXT PHASE OF THE COMPILER     * K2500390
                            40 | *      * DZ000-DISK WRITE SUBROUTINE              * K2500400
                            41 | *   COMMA-DCOM-                                   * K2500410
                            42 | *      * $PHSE                                    * K2500420
                            43 | *      * $WSDR                                    * K2500430
                            44 | *      * $DBSY                                    * K2500440
                            45 | *      * $FPAD                                    * K2500450
                            46 | *                                                 * K2500460
                            47 | *EXITS-                                           * K2500470
                            48 | *   NORMAL-A CALL TO THE ROL ROUTINE BRINGS IN    * K2500480
                            49 | *   THE NEXT PHASE                                * K2500490
                            50 | *   ERROR-NONE                                    * K2500500
                            51 | *                                                 * K2500510
                            52 | *TABLES/WORK AREAS                                * K2500520
                            53 | *   * INPUT STRING                                * K2500530
                            54 | *   *SYMBOL TABLE                                 * K2500540
                            55 | *   *FORTRAN COMMUNICATIONS AREA                  * K2500550
                            56 | *   *DISK OUTPUT BUFFER                           * K2500560
                            57 | *                                                 * K2500570
                            58 | *ATTRIBUTES-N/A                                   * K2500580
                            59 | *                                                 * K2500590
                            60 | *NOTES-                                           * K2500600
                            61 | *   PROGRAM HEADER CONSISTS OF 12 WORDS IN THE    * K2500610
                            62 | *   BUFFER AREA                                   * K2500620
                            63 | *      WD 1 RESERVED                              * K2500630
                            64 | *      WD 2 RESERVED                              * K2500640
                            65 | *      WD 3 INTEGER TYPE, PRECISION               * K2500650
                            66 | *      WD 4 OBJECT TIME PROGRAM LENGTH            * K2500660
                            67 | *      WD 5 LENGTH OF COMMON                      * K2500670
                            68 | *      WD 6 WD SIZE OF PROGRAM HEADER - 9 (=3)    * K2500680
                            69 | *      WD 7 VAR. AREA WHEN NO DEFINE FILE STMNT   * K2500690
                            70 | *      WD 8 LENGTH OF PROGRAM IN DISK BLOCKS      * K2500700
                            71 | *      WD 9 NUMBER OF FILES DEFINED               * K2500710
                            72 | *      WD10 PROGRAM NAME                          * K2500720
                            73 | *      WD11 PROGRAM NAME                          * K2500730
                            74 | *      WD12 EXECUTION ADDRESS                     * K2500740
                            75 | *   DATA HEADER CONSISTS OF 4 WORDS (WD13-WD16)   * K2500750
                            76 | *      WD 13 ADDRESS OF NEXT DATA                 * K2500760
                            77 | *      WD 14 NUMBER OF DATA WORDS                 * K2500770
                            78 | *      WD15 FIRST INDICATOR WORD                  * K2500780
                            79 | *      WD16 FIRST DATA WORD                       * K2500790
                            80 | *   EVERY 8 WORDS OF DATA OR PROGRAM OUTPUT IS    * K2500800
                            81 | *   PRECEDED BY AN INDICATOR WORD CONTAINING TWO  * K2500810
                            82 | *   BITS OF INFORMATION FOR EACH OF THE SUCCESSIVE* K2500820
                            83 | *   EIGHT WORDS.  THE TWO BITS HAVE THE FOLLOWING * K2500830
                            84 | *   MEANINGS.                                     * K2500840
                            85 | *      00 = ABSOLUTE INSTRUCTION OR DATA          * K2500850
                            86 | *      01 = RELOCATABLE INSTRUCTION               * K2500860
                            87 | *      10 = ONE WORD CALL                         * K2500870
                            88 | *      11 = TWO WORD CALL                         * K2500880
                            89 | *                                                 * K2500890
                            90 | *************************************************** K2500900
1130 FORTRAN COMPILER PHASE 25
 
                            92 | *** NOTE- COMMENTS BEGIN IN COL. 44 ***             K2500920
                            93 |       ABS                                           K2500930
                            94 | *                                                   K2500940
                            95 | *             SYSTEM EQUATES                        K2500950
                            96 | *                                                   K2500960
8000                        97 | MEMRY EQU     /8000                                 K2500970
7A23                        98 | OVERL EQU     MEMRY-1501 START OF FCOM          2-4 K2500980
0078                        99 | $PHSE EQU     /78        NO. OF PHASE NOW IN CORE   K2500990
7FBC                       100 | ROL   EQU     MEMRY-68   LOC OF PROG TO RD NXT PH   K2501000
0037                       101 | PHID  EQU     55         ID NUMBER THIS PHASE       K2501010
00F2                       102 | DZ000 EQU     /F2        DISKZ ENTRY POINT          K2501020
00EE                       103 | $DBSY EQU     /EE        NON-ZERO WHEN DISKZ BUSY   K2501030
007A                       104 | $WSDR EQU     /7A        WORKING STORAGE DRIVE CODE K2501040
0095                       105 | $FPAD EQU     /95        TABLE OF FILE PROTECT ADDR K2501050
7A23                       106 |       ORG     OVERL                                 K2501060
                           107 | *                                                   K2501070
                           108 | *                  FORTRAN COMMUNICATION            K2501080
7A23                       109 | ORG   BSS     1    ORIGIN ADDRESS               2-4 K2501090
7A24                       110 | SOFS  BSS     1    START OF STRING                  K2501100
7A25                       111 | EOFS  BSS     1    END OF STRING                    K2501110
7A26                       112 | SOFST BSS     1    START OF SYMBOL TABLE            K2501120
7A27                       113 | SOFNS BSS     1    PROGR LENGTH AT OBJECT TIME      K2501130
7A28                       114 | SOFXT BSS     1    SIZE OF WORK AREA                K2501140
7A29                       115 | SOFGT BSS     1    SIZE OF CONSTANTS AREA           K2501150
7A2A                       116 | EOFST BSS     1    END OF SYMBOL TABLE              K2501160
7A2B                       117 | COMON BSS     1    ENTRY POINT                      K2501170
7A2C                       118 | CSIZE BSS     1    SIZE OF COMMON                   K2501180
7A2D                       119 | ERROR BSS     1    OVERLAP ERROR                    K2501190
7A2E                       120 | FNAME BSS     1    PROGRAM NAME                     K2501200
7A2F                       121 |       BSS     1                                     K2501210
7A30                       122 | SORF  BSS     1    SUBROUTINE(-) OR FUNCTION(+)     K2501220
7A31                       123 | CCWD  BSS     1    CONTROL CARD WORD                K2501230
                           124 | *               BIT 15 TRANSFER TRACE               K2501240
                           125 | *               BIT 14 ARITHMETIC TRACE             K2501250
                           126 | *               BIT 13 EXTENDED PRECISION           K2501260
                           127 | *               BIT 12 LIST SYMBOL TABLE            K2501270
                           128 | *               BIT 11 LIST SUBPROGRAM NAMES        K2501280
                           129 | *               BIT 10 LIST SOURCE PROGRAM          K2501290
                           130 | *               BIT  9 ONE WORD INTEGERS            K2501300
                           131 | *               BIT  8 ORIGIN                   2-4 K2501310
7A32                       132 | IOCS  BSS     1    IOCS CONTROL CARD WORD           K2501320
                           133 | *               BIT 15 CARD                         K2501330
                           134 | *               BIT 14 PAPER TAPE                   K2501340
                           135 | *               BIT 13 TYPEWRITER                   K2501350
                           136 | *               BIT 12 1403 PRINTER                 K2501360
                           137 | *               BIT 11 2501 READER                  K2501370
                           138 | *               BIT 10 KEYBOARD                     K2501380
                           139 | *               BIT  9 1442 PUNCH                   K2501390
                           140 | *               BIT  8 DISK                         K2501400
                           141 | *               BIT  7 1132 PRINTER                 K2501410
                           142 | *               BIT  3 PLOTTER                      K2501420
                           143 | *               BIT 1 UNFORMATTED DISK              K2501430
7A33                       144 | DFCNT BSS     1    FILE COUNT                       K2501440
                           145 | *                                                   K2501450
                           146 | *                                                   K2501460
                           147 | *                  END OF FORTRAN COMMUNICATION     K2501470
                           148 | *                  AREA                             K2501480
                           149 | *************************************************** K2501490
                           150 | *             THE SWITCHES USED IN PHASE 26 FOLLOW  K2501500
                           151 | *             IF POSITIVE, THE SWITCH IS TRANSFER=T K2501510
                           152 | *             IF ZERO, THE SWITCH IS NORMAL=N       K2501520
                           153 | *             SWITCH COSW                           K2501530
                           154 | *               N= OUTPUT OF REAL CONSTANTS         K2501540
                           155 | *               T= OUTPUT OF INTEGER CONSTANTS      K2501550
                           156 | *             THE SWITCHES USED IN PHASE 26 FOLLOW  K2501560
                           157 | *             IF POSITIVE, THE SWITCH IS TRANSFER=T K2501570
                           158 | *             IF ZERO, THE SWITCH IS NORMAL=N       K2501580
                           159 | *             SWITCH TWOWC                          K2501590
                           160 | *               N= OUTPUT OF TWO-WORD CALL NAME     K2501600
                           161 | *               T= OUTPUT OF ONE-WORD CALL NAME     K2501610
                           162 | *                                                   K250162-
                           163 | *                                                   K2501630
7A36                       164 | BPHAR EQU     *+2                                   K2501640
7A34 0000                  165 |       DC      0        PROGRAM ORIGIN               K2501650
7A35 FFC9                  166 |       DC      -55      -PHASE ID FOR SLET LOOKUP    K2501660
7A36 0438                  167 |       DC      NXTPH-*+1  TABLE FOR NEXT PHASE ENTRY K2501670
7A37 0001                  168 |       DC      1        ONE ENTRY TO BE SET BY LDR   K2501680
7A36                       169 |       ORG     *-2      ORG PROGRAM                  K2501690
                           170 | *                                                   K2501700
                           171 | *                                                   K2501710
7A36 4C00 7E72             172 | NEQ   BSC  L  ENT                                   K2501720
                           173 | *                                                   K2501730
                           174 | *                                                   K2501740
                           175 | *             BUFFER COMMUNICATIONS AREA            K2501750
                           176 | *             AND BUFFER                            K2501760
                           177 | *                                                   K2501770
                           178 | *             RESERVED FOR COMMUNICATION            K2501780
                           179 | *             BETWEEN PHASES                        K2501790
                           180 | *             OUTPUT1 AND OUTPUT2                   K2501800
                           181 | *             AS FOLLOWS                            K2501810
                           182 | *                                                   K2501820
7A38                       183 |       BSS  E  0                                     K2501830
7A38 0000                  184 |       DC      0        BFR CNT NXT PH-NOT YET USED  K2501840
7A39 7A51                  185 | BUFPT DC      WD16     BUFFERPOINTER                K2501850
7A3A 0010                  186 | INCT  DC      16       INDICATOR COUNTER            K2501860
7A3B 7A50                  187 | INPT  DC      WD15     INDICATOR POINTER            K2501870
7A3C 7A4E                  188 | DHDRA DC      WD13     DATAHEADER-ADDRESS           K2501880
7A3D 0000                  189 | LOCTR DC      0        LOCATION COUNTER             K2501890
7A3E 0000                  190 | PRLGT DC      0        PROGRAM LENGTH               K2501900
                           191 | *                      (ON DISK)                    K2501910
7A3F 0000                  192 |       DC      0        NOT YET USED                 K2501920
7A40 0140                  193 |       DC      /140     WORD COUNT                   K2501930
7A41 0000                  194 |       DC      /0000    SCRATCH SECTOR ADDR          K2501940
                           195 | *                                                   K2501950
                           196 | *             DISK OUTPUT BUFFER                    K2501960
7A42 0000                  197 | BUFF  DC      0                                     K2501970
                           198 | *                                                   K2501980
                           199 | *             PROGRAM HEADER                        K2501990
7A42                       200 | WD1   EQU     BUFF     RESERVED                     K2502000
7A43 0000                  201 | WD2   DC      0        RESERVED                     K2502010
7A44 0000                  202 | WD3   DC      0        TYPE, PRECISION              K2502020
7A45 0000                  203 | WD4   DC      0        OBJECT TIME PROGRAM LENGTH   K2502030
7A46 0000                  204 | WD5   DC      0        LENGTH OF COMMON             K2502040
7A47 0003                  205 | WD6   DC      3        WD SIZE OF PROG HDR - 9      K2502050
7A48 0000                  206 | WD7   DC      0        VAR AREA IF NO DEFINE FILES  K2502060
7A49 0000                  207 | WD8   DC      0        PROG LNG (DB CNT - DUP ADDS) K2502070
                           208 | *             (DISKBYTE COUNT, INSERTED BY DUP)     K2502080
7A4A 0000                  209 | WD9   DC      0        NUMBER OF FILES DEFINED      K2502090
7A4B 0000                  210 | WD10  DC      0        PROGRAM NAME                 K2502100
7A4C 0000                  211 |       DC      0        WORD 2 OF PROGRAM NAME       K2502110
7A4D 0000                  212 | WD12  DC      0        EXECUTION ADDR               K2502120
                           213 | *                                                   K2502130
                           214 | *             FIRST DATA HEADER                     K2502140
7A4E 0000                  215 | WD13  DC      0        RELATIVE ADDR OF NEXT DATA   K2502150
7A4F 0003                  216 | WD14  DC      3        NUMBER OF DATA WORDS         K2502160
                           217 | *                                                   K2502170
                           218 | *                                                   K2502180
7A50 0000                  219 | WD15  DC      0        FIRST INDICATOR WORD         K2502190
7A51 0000                  220 | WD16  DC      0        FIRST DATA WORD              K2502200
                           221 | *                                                   K2502210
7A84                       222 |       ORG     *+50                                  K2502220
                           223 | *                                                   K2502230
                           224 | *                                                   K2502240
                           225 | *             FOLLOWING INITIAL PROGRAM             K2502250
                           226 | *             IS WITHIN BUFFERAREA                  K2502260
                           227 | *                                                   K2502270
7A84 1000                  228 | START SLA     0        NOP                          K2502280
                           229 | *                                                   K2502290
                           230 | *             INITIALIZE WORKING STORAGE SECTOR     K2502300
                           231 | *             ADDRESS FROM COMMA                    K2502310
                           232 | *                                                   K2502320
7A85 6780 007A             233 |       LDX  I3 $WSDR    WORKING STORAGE DRIVE CODE   K2502330
7A87 C700 0095             234 |       LD   L3 $FPAD    LOAD WORKING STO SECTOR ADDR K2502340
7A89 D0B7                  235 |       STO     BUFF-1   SAVE IN SCRATCH SECTOR ADDR  K2502350
                           236 | *                                                   K2502360
                           237 | *             INITIALIZE TRANSFER VECTOR            K2502370
                           238 | *                                                   K2502380
7A8A 6700 7D50             239 |       LDX  L3 ZERO                                  K2502390
                           240 | *                                                   K2502400
                           241 | *                                                   K2502410
7A8C C0A4                  242 |       LD      CCWD       IS IT AN ABSOLUTE      2-4 K2502420
7A8D 1008                  243 |       SLA     8          COMPILATION            2-4 K2502430
7A8E 4C10 7A93             244 |       BSC  L  STAR1,-    NO  - BRANCH           2-4 K2502440
7A90 D328                  245 |       STO   3 ORGSW-Z    YES - SET ORIGIN SW    2-4 K2502450
7A91 C329                  246 |       LD    3 H0101-Z    SET UP FOR ABSOLUTE    2-4 K2502460
7A92 D30A                  247 |       STO   3 TYPE-Z     TYPE CODE              2-4 K2502470
                           248 | *                                                   K2502480
                           249 | *                                                   K2502490
                           250 | *                                                   K2502500
                           251 | *             STORE FNAME FOR OUTPUT                K2502510
                           252 | *                                                   K2502520
7A93 C09C                  253 | STAR1 LD      SORF     DO NOT STORE NAME IF         K2502530
7A94 4C18 7A9A             254 |       BSC  L  Q0010,+- *SUBROUTINE OR FUNCTION      K2502540
                           255 | *                                                   K2502550
                           256 | *                                                   K2502560
7A96 C897                  257 |       LDD     FNAME    GET 2 WD PROG OR SUBR NAME   K2502570
7A97 D0B3                  258 |       STO     WD10     SAVE WD 1 IN PROG HDR NAME   K2502580
7A98 18D0                  259 |       RTE     16       PUT WD 2 IN ACC              K2502590
7A99 D0B2                  260 |       STO     WD10+1   SAVE WD 2 IN PROG HDR NAME   K2502600
                           261 | *                                                   K2502610
                           262 | *                                                   K2502620
                           263 | *             INITIALIZE INDICATORS IN WORD 9       K2502630
7A9A C098                  264 | Q0010 LD      DFCNT                                 K2502640
7A9B 1890                  265 |       SRT     16                                    K2502650
7A9C AB08                  266 |       D     3 SEVEN-Z  COMPUTE NUMBER OF FILES DEF  K2502660
7A9D 8318                  267 |       A     3 H2000-Z                               K2502670
7A9E D324                  268 |       STO   3 TEMP2-Z                               K2502680
7A9F C092                  269 |       LD      IOCS     DISK IO INDICATOR            K2502690
7AA0 1008                  270 |       SLA     8                                     K2502700
7AA1 E319                  271 |       AND   3 H8000-Z  PUT DISK I/O IND IN BIT 0    K2502710
7AA2 EB24                  272 |       OR    3 TEMP2-Z                               K2502720
7AA3 D324                  273 |       STO   3 TEMP2-Z                               K2502730
7AA4 C08C                  274 |       LD      CCWD     CHECK FOR EXT. PRECISION IO  K2502740
7AA5 E30F                  275 |       AND   3 HFEFF-Z                               K2502750
7AA6 4820                  276 |       BSC     Z        SKIP IF EXT PREC IO BIT OFF  K2502760
7AA7 C31A                  277 |       LD    3 H4000-Z  SET FLAG                     K2502770
7AA8 EB24                  278 |       OR    3 TEMP2-Z                               K2502780
7AA9 D0A0                  279 |       STO     WD9                                   K2502790
                           280 | *             SET VAR AREA WHEN NO DEFINE FILE      K2502800
7AAA C088                  281 |       LD      DFCNT                                 K2502810
7AAB 4C18 7AAF             282 |       BSC  L  Q1000,+- SKIP IF DEFINE FILE PRESENT  K2502820
7AAD C400 7A28             283 |       LD   L  SOFXT    PUT SIZE OF WK-AREA IN WD7   K2502830
7AAF D098                  284 | Q1000 STO     WD7                                   K2502840
                           285 | *                                                   K2502850
                           286 | *                                                   K2502860
7AB0 1000                  287 | INIT  SLA     0        NOP                          K2502870
7AB1 C400 7A27             288 |       LD   L  SOFNS     STORE PROGRAM LENGTH    2-2 K2502880
7AB3 8400 7A28             289 |       A    L  SOFXT     IN WORD 4 OF            2-2 K2502890
7AB5 D08F                  290 |       STO     WD4       PROGRAM HEADER          2-2 K2502900
7AB6 C328                  291 |       LD    3 ORGSW-Z    IS IT ABSOLUTE         2-4 K2502910
7AB7 4C18 7B96             292 |       BSC  L  Q1011,+-   NO  - BRANCH           2-4 K2502920
7AB9 C08B                  293 |       LD      WD4        YES - RELOCATE         2-4 K2502930
7ABA 8400 7A23             294 |       A    L  ORG        THE TERMINAL           2-4 K2502940
7ABC D400 7A45             295 |       STO  L  WD4        ADDRESS                2-4 K2502950
7ABE 4C10 7B96             296 |       BSC  L  Q1011,-    BRANCH IF POSITIVE     2-4 K2502960
7AC0 7440 7A2D             297 |       MDX  L  ERROR,64   SET UP ERROR 86        2-4 K2502970
7AC2 4C00 7E69             298 |       BSC  L  EXIT       EXIT                   2-4 K2502980
                           299 | *                                                   K2502990
7B96                       300 |       ORG     BUFF+340  ALLOW 320 WS BFR +20    212 K2503000
                           301 | *                                                   K2503010
                           302 | *             CHECK FOR MAINLINE PROG OR SUBP       K2503020
                           303 | *             PUT ADDITIONAL INFO IN O/P AREA       K2503030
                           304 | *             OUTPUT DEFINE FILE STATEMENTS         K2503040
7B96 1000                  305 | Q1011 SLA     0        NOP                          K2503050
                           306 | *                                                   K2503060
                           307 | *                                                   K2503070
                           308 | *             INITIALIZE OUTPUT                     K2503080
                           309 | *                                                   K2503090
                           310 | *             DETERMINE WHETHER MAIN LINE           K2503100
                           311 | *             OR SUBPROGRAM                         K2503110
                           312 | *                                                   K2503120
7B97 C400 7A30             313 |       LD   L  SORF     GET SUBR-FUNCTION IND WD     K2503130
7B99 4C20 7D05             314 |       BSC  L  INISR,Z  BR IF SUBROUTINE             K2503140
                           315 | *                                                   K2503150
                           316 | *             INITIALIZE MAIN LINE PROGR            K2503160
7B9B C400 7A31             317 |       LD   L  CCWD     SPECIFY PRECISION            K2503170
7B9D 1802                  318 |       SRA     2                                     K2503180
7B9E E301                  319 |       AND   3 ONE-Z    MASK OUT ALL BUT EXT PRE BIS K2503190
7B9F 830A                  320 |       A     3 TYPE-Z   MAINL REL TYPE W PREC CONST  K2503200
7BA0 D400 7A44             321 | Q101X STO  L  WD3      SAVE IN 3RD WORD OF PROG HDR K2503210
7BA2 C400 7A31             322 |       LD   L  CCWD      IS ONE WORD INTEGERS    2-5 K2503211
7BA4 1806                  323 |       SRA     6         *SPECIFIED              2-5 K2503212
7BA5 E301                  324 |       AND   3 ONE-Z     IF YES - SET            2-5 K2503213
7BA6 1004                  325 |       SLA     4         *INDICATOR FOR          2-5 K2503214
7BA7 801B                  326 |       A       H0080     *INTEGER PRECISION      2-5 K2503215
7BA8 8400 7A44             327 |       A    L  WD3       *IN WORD 3 OF           2-5 K2503216
7BAA D400 7A44             328 |       STO  L  WD3       *PROGRAM HEADER         2-5 K2503217
7BAC C400 7A2C             329 |       LD   L  CSIZE    SIZE OF COMMON               K2503220
7BAE D400 7A46             330 |       STO  L  WD5      SAVE IN 5TH WORD OF PROG HDR K2503230
                           331 | *                                                   K2503240
7BB0 C400 7A2B             332 | Q101A LD   L  COMON    PROGRAM ENTRY POINT          K2503250
7BB2 D400 7A4D             333 |       STO  L  WD12     PUT IN 12TH WORD OF PROG HDR K2503260
7BB4 C328                  334 |       LD    3 ORGSW-Z    IS IT ABSOLUTE         2-4 K2503270
7BB5 4C18 7BC4             335 |       BSC  L  Q101B,+-   NO  - BRANCH           2-4 K2503280
7BB7 C400 7A4D             336 |       LD   L  WD12       YES - RELOCATE         2-4 K2503290
7BB9 8400 7A23             337 |       A    L  ORG        THIS                   2-4 K2503300
7BBB D400 7A4D             338 |       STO  L  WD12       WORD                   2-4 K2503310
7BBD 4C10 7BC4             339 |       BSC  L  Q101B,-    BRANCH IF POSITIVE     2-4 K2503320
7BBF 7440 7A2D             340 | Q101C MDX  L  ERROR,64   SET UP ERROR 86        2-4 K2503330
7BC1 4C00 7E69             341 |       BSC  L  EXIT       EXIT                   2-4 K2503340
                           342 | *                                                   K2503350
7BC3 0080                  343 | H0080 DC      /0080     INDICATOR WORD          2-5 K2503352
                           344 | *                                                   K2503354
                           345 | *                                                   K2503356
                           346 | *             TEST IF ANY 'DEFINEFILE' STATEMENTS   K2503360
                           347 | *             INCLUDED                              K2503370
                           348 | *                                                   K2503380
7BC4 C400 7A33             349 | Q101B LD   L  DFCNT    CNT OF NO. DEFINING FILE     K2503390
7BC6 4C20 7BCA             350 |       BSC  L  F1012,Z  BR IF DEFN FILES ARE PRESENT K2503400
7BC8 702E                  351 |       MDX     F2012    BR IF NOT                    K2503410
                           352 | *                                                   K2503420
                           353 | *             OUTPUT 'DEFINE FILE' STATEMENTS       K2503430
7BC9 0000                  354 | COUNT DC      0        NO. WDS DEFN FILE STMNTS     K2503440
7BCA D0FE                  355 | F1012 STO     COUNT    SET DEF FILE WORDCOUNTER     K2503450
7BCB 1010                  356 |       SLA     16       CLEAR ACC                    K2503460
7BCC 4400 7DFD             357 |       BSI  L  DHDRR    DATAHEADERROUTINE            K2503470
                           358 | *                      ACC = 0 AT ENTRY TO SUBR     K2503480
                           359 | *                                                   K2503490
7BCE 6580 7A24             360 |       LDX  I1 SOFS     INIT STRING POINTER          K2503500
                           361 | *                                                   K2503510
7BD0 C0F8                  362 | F1014 LD      COUNT    NO. WDS DEFN FILE            K2503520
                           363 | *             SCAN STRING FOR DEFINE FILE STMNTS    K2503530
7BD1 4C08 7BF7             364 |       BSC  L  F2012,+  BR IF NO MORE DEFN FILE 2-10 K2503540
7BD3 C100                  365 | F1015 LD    1 0        GET ID WORD FROM STRING      K2503550
7BD4 E313                  366 |       AND   3 H07FC-Z  MASK ALL BUT NORM BITS       K2503560
7BD5 D322                  367 |       STO   3 NORM-Z   SAVE NORM IN TEMP STO        K2503570
7BD6 C100                  368 |       LD    1 0        GET ID WORD FROM STRING      K2503580
7BD7 E314                  369 |       AND   3 HF800-Z  MASK ALL BUT TYPE CODE       K2503590
7BD8 9315                  370 |       S     3 HF000-Z  TEST FOR DEFN FILE CODE      K2503600
7BD9 4C18 7BE1             371 |       BSC  L  F1021,+- BR IF DEFINE FILE STATEMENT  K2503610
                           372 | *                                                   K2503620
                           373 | *             MOVE POINTER TO NEXT STATEMENT        K2503630
7BDB C322                  374 |       LD    3 NORM-Z   GET STMNT NORM               K2503640
7BDC 1802                  375 |       SRA     2        RIGHT JUSTIFY NORM           K2503650
7BDD D001                  376 |       STO     F1016+1  SAVE NORM COUNT              K2503660
7BDE 7500 0000             377 | F1016 MDX  L1 *-*      INCR I/P STRING PT BY NORM   K2503670
7BE0 70F2                  378 |       MDX     F1015    BR TO CHECK NEXT STMNT TYPE  K2503680
                           379 | *                                                   K2503690
                           380 | *             OUTPUT A DEFINE FILE STATEMENT        K2503700
                           381 | *                                                   K2503710
                           382 | *             INITIALIZE COUNTER TO OUTPUT          K2503720
                           383 | *             FOURTH WORD IN EACH SEVENWORD GROUP   K2503730
                           384 | *             AS RELATIVE SYMBOL TABLE ADDRESS      K2503740
                           385 | *                                                   K2503750
7BE1 C304                  386 | F1021 LD    3 FOUR-Z   GET CONSTANT = 4             K2503760
7BE2 D326                  387 |       STO   3 SCT-Z    SET UP COUNTER ON NO. WORDS  K2503770
                           388 | *                                                   K2503780
7BE3 7101                  389 | F1022 MDX   1 1        INCR POINTER                 K2503790
7BE4 74FC 7D72             390 |       MDX  L  NORM,-4  DECR NORM BY ONE WORD        K2503800
7BE6 7001                  391 |       MDX     F1023    BR IF NO SKIP                K2503810
7BE7 70E8                  392 |       MDX     F1014    BR IF END OF STATEMENT       K2503820
                           393 | *                                                   K2503830
                           394 | *             TEST IF FOURTH WD IN GROUP            K2503840
7BE8 74FF 7D76             395 | F1023 MDX  L  SCT,-1   DECR WORD COUNTER            K2503850
7BEA 7006                  396 |       MDX     F1024    BR IF NO SKIP                K2503860
                           397 | *                                                   K2503870
                           398 | *             OUTPUT RELTV ADDR ASSOCIATED VAR-WD 4 K2503880
7BEB C100                  399 |       LD    1 0        PICK UP FOURTH WORD STMNT    K2503890
7BEC 432A                  400 |       BSI   3 GETST-Z  GET SYMBOL TABLE ADDRESS     K2503900
7BED 4349                  401 |       BSI   3 OUREL-Z  OUTPUT RELATIVE WORD         K2503910
                           402 | *                      (OR ABSOLUTE IF IN           K2503920
                           403 | *                      COMMON)                      K2503930
7BEE C308                  404 |       LD    3 SEVEN-Z  RESET CTR ON DEFN FILE WDCNT K2503940
7BEF D326                  405 |       STO   3 SCT-Z    SAVE COUNT IN TEMP CTR       K2503950
7BF0 7002                  406 |       MDX     F1025    BR TO CONTINUE O/P OF STMNT  K2503960
                           407 | *                                                   K2503970
                           408 | *             OUTPUT ABSOLUTE                       K2503980
7BF1 C100                  409 | F1024 LD    1 0                                     K2503990
7BF2 4341                  410 |       BSI   3 OUABS-Z                               K2504000
                           411 | *                                                   K2504010
                           412 | *             COUNT DEFINE FILE WORDS               K2504020
7BF3 74FF 7BC9             413 | F1025 MDX  L  COUNT,-1                              K2504030
7BF5 1000                  414 |       SLA     0        TO BALANCE SKIP              K2504040
7BF6 70EC                  415 |       MDX     F1022                                 K2504050
                           416 | *                                                   K2504060
                           417 | *                                                   K2504070
                           418 | *             HERE COMES OUTPUT OF                  K2504080
                           419 | *             'DATA'-STATEMENTS                     K2504090
                           420 | *             SEARCH THROUGH STRING FOR DATA        K2504100
                           421 | *             STATEMENTS AND OUTPUT                 K2504110
                           422 | *                                                   K2504120
                           423 | *     SUPERFLUOUS CODING REMOVED               2-10 K2504200
                           424 | *                                                   K2504210
7BF7                       425 | F2012 EQU     *                                     K2504220
                           426 | *                                                   K2504230
7BF7 6580 7A24             427 |       LDX  I1 SOFS     INITIALIZE POINTER           K2504240
                           428 | *                                                   K2504250
                           429 | *             STORE STMNT-ID COMPUTE                K2504260
                           430 | *             ADDR OF NEXT STATEMENT                K2504270
                           431 | *                                                   K2504280
7BF9 C100                  432 | DT102 LD    1 0        LOAD STMNT ID WORD           K2504290
7BFA E314                  433 |       AND   3 HF800-Z  MASK OUT ALL BUT STMNT TYPE  K2504300
7BFB D011                  434 |       STO     STID     SAVE STMNT TYPE              K2504310
7BFC C100                  435 |       LD    1 0        LOAD STMNT ID WORD AGAIN     K2504320
7BFD E313                  436 |       AND   3 H07FC-Z  MASK OUT ALL BUT STMNT NORM  K2504330
7BFE 1802                  437 |       SRA     2        RIGHT JUSTIFY NORM           K2504340
7BFF 690C                  438 |       STX   1 TMP1     SAVE PT OF CURRENT STMNT     K2504350
7C00 800B                  439 |       A       TMP1     ADD TO STMNT NORM TO         K2504360
7C01 D008                  440 |       STO     DT104+1  COMPUTE POINTER TO NXT STMNT K2504370
                           441 | *                                                   K2504380
7C02 C00A                  442 |       LD      STID     TEST IF END-STMNT            K2504390
7C03 9317                  443 |       S     3 H1000-Z  END STMNT ID CONSTANT        K2504400
7C04 4C18 7CB6             444 |       BSC  L  F3011,+- BR IF END-STMNT              K2504410
7C06 9008                  445 |       S       DTAID    DATA STATEMENT TEST CONSTANT K2504420
7C07 4C18 7C10             446 |       BSC  L  DT201,+- BRANCH IF DATA STATEMENT     K2504430
7C09 6500 0000             447 | DT104 LDX  L1 *-*      MOVE POINTER TO NEXT STMNT   K2504440
7C0B 70ED                  448 |       MDX     DT102    CONTINUE SCAN FOR DATA STMNT K2504450
                           449 | *                                                   K2504460
                           450 | *             CONSTANTS, TEMP STORAGE               K2504470
                           451 | *                                                   K2504480
7C0C 0000                  452 | TMP1  DC      0        POINTER TO CURRENT STMNT     K2504490
7C0D 0000                  453 | STID  DC      0        STATEMENT ID TYPE            K2504500
7C0E 0000                  454 | DPLF  DC      0        DUPLICATION FACTOR           K2504510
7C0F E800                  455 | DTAID DC      /F800-/1000                           K2504520
                           456 | *                                                   K2504530
                           457 | *             MOVE POINTER TO NEXT DATAGROUP        K2504540
                           458 | *                                                   K2504550
7C10 7101                  459 | DT201 MDX   1 1                                     K2504560
                           460 | *                                                   K2504570
7C11 1000                  461 |       SLA     0        NOP                          K2504580
7C12 69F9                  462 |       STX   1 TMP1     SAVE CURRENT STRING POINTER  K2504590
7C13 C0F8                  463 |       LD      TMP1     COMPARE CURRENT STRING LOC   K2504600
7C14 90F5                  464 |       S       DT104+1  WITH START OF NEXT STMNT     K2504610
7C15 4C10 7C09             465 |       BSC  L  DT104,-  BR IF END OF STATEMENT       K2504620
                           466 | *                                                   K2504630
                           467 | *             SAVE ADDR OF CONSTANT STRING - 1      K2504640
                           468 | *             MOVE POINTER TO FIRST VARIABLE        K2504650
                           469 | *                                                   K2504660
7C17 6D00 7D70             470 |       STX  L1 ADCST    SAVE ADDRESS                 K2504670
7C19 C100                  471 |       LD    1 0        GET LENGTH OF CON STRING WD  K2504680
7C1A E310                  472 |       AND   3 H0007-Z  MASK OUT ALL BUT LENGTH      K2504690
7C1B D005                  473 |       STO     DT202+1  SAVE LENGTH                  K2504700
7C1C C100                  474 |       LD    1 0        GET WD HAVING DUPCTN FACTOR  K2504710
7C1D 1803                  475 |       SRA     3        RIGHT JUSTIFY FACTOR IN ACC  K2504720
7C1E D0EF                  476 |       STO     DPLF     STORE DUPLICATION FACTOR     K2504730
7C1F 7101                  477 |       MDX   1 1        MOVE I/P PT PAST DATA HEADER K2504740
7C20 7500 0000             478 | DT202 MDX  L1 *-*      MOVE PT TO FIRST VAR NAME    K2504750
7C22 C100                  479 | DT203 LD    1 0        GET DATA POINTER             K2504760
7C23 432A                  480 |       BSI   3 GETST-Z  LOCATE SYMBOL TABLE ID WORD  K2504770
7C24 C480 7D90             481 |       LD   I  GET4     GET SYMBOL TABLE ID WORD     K2504780
7C26 E30D                  482 |       AND   3 H1800-Z  MASK ID WD FOR DIMENSION BIT K2504790
7C27 4C20 7C33             483 |       BSC  L  DT301,Z  BR IF DIMENSIONED VARIABLE   K2504800
                           484 | *                                                   K2504810
                           485 | *             OUTPUT DATA FOR A SINGLE VARIABLE     K2504820
                           486 | *                                                   K2504830
7C29 C480 7D87             487 |       LD   I  GET1+1   GET LOCATION                 K2504840
7C2B 4061                  488 | DT211 BSI     DHT      OUTPUT DATAHDR IF NECESSARY  K2504850
                           489 | *     SUPERFLUOUS CODING REMOVED                2-9 K2504870
7C2C 4079                  490 |       BSI     DTAC     OUTPUT DATA CONSTANT         K2504880
7C2D 74FF 7C0E             491 | DT221 MDX  L  DPLF,-1  DECR DUPLICATION FACTOR      K2504890
7C2F 7001                  492 |       MDX     DT222    BR IF NOT END OF VARIABLES   K2504900
7C30 70DF                  493 |       MDX     DT201    BR IF END OF DTAGROUP        K2504910
7C31 7101                  494 | DT222 MDX   1 1        BR TO PROCESS NEXT VARIABLE  K2504920
7C32 70EF                  495 |       MDX     DT203                                 K2504930
                           496 | *                                                   K2504940
                           497 | *             DIMENSIONED VARIABLE ENCOUNTERED      K2504950
                           498 | *                                                   K2504960
7C33                       499 | DT301 EQU     *        ENTRY POINT LABEL            K2504970
7C33 C0DA                  500 |       LD      DPLF     PLACE DUPLICATION FACTOR     K2504980
7C34 D327                  501 |       STO   3 ADUPF-Z  *INTO TEMPORARY WORK AREA    K2504990
7C35 1010                  502 |       SLA     16       CLEAR ACC                    K2505000
7C36 D31C                  503 |       STO   3 OFSET-Z  CLEAR OFFSET DISPLACEMENT WD K2505010
                           504 | *                                                   K2505020
7C37 C100                  505 |       LD    1 0        LOAD DATA POINTER WORD       K2505030
7C38 1001                  506 |       SLA     1        SHIFT DISPLACEMENT INDR BIT  K2505040
7C39 4C10 7C44             507 |       BSC  L  DT320,-   BRANCH, NO OFFSET           K2505050
                           508 | *                                                   K2505060
7C3B 7101                  509 |       MDX   1 1        POSITION POINTER             K2505070
7C3C C100                  510 |       LD    1 0        GET DISPLACEMENT WORD        K2505080
7C3D D31C                  511 |       STO   3 OFSET-Z  OFSET= F(SUBSCRIPT)          K2505090
7C3E C1FF                  512 |       LD    1 -1        LOAD DATA POINTER WORD      K2505100
7C3F 1002                  513 |       SLA     2         TEST FOR SUBSC ELEMENT BIT  K2505110
7C40 4C10 7C44             514 |       BSC  L  DT320,-   BRANCH IF NOT ON            K2505120
7C42 C301                  515 |       LD    3 ONE-Z    SET DUPLICATION FACTOR = 1   K2505130
7C43 D327                  516 |       STO   3 ADUPF-Z  *FOR SUBSCRIPTED VARIABLE    K2505140
                           517 | *                                                   K2505150
7C44                       518 | DT320 EQU     *        ENTRY POINT LABEL            K2505160
7C44 C400 7A31             519 |       LD   L  CCWD     VSIZE=SIZE OF REAL VARIABLE  K2505170
7C46 100E                  520 |       SLA     14       PLACE INDICATOR IN CARRY     K2505180
7C47 C302                  521 |       LD    3 TWO-Z    STANDARD VARIABLE SIZE       K2505190
7C48 4802                  522 |       BSC     C        SKIP IF STANDARD PRECISION   K2505200
7C49 C303                  523 |       LD    3 THREE-Z  EXTENDED VARIABLE SIZE       K2505210
7C4A D31D                  524 |       STO   3 VSIZE-Z  SAVE VARIABLE SIZE           K2505220
                           525 | *                                                   K2505230
7C4B C480 7D90             526 |       LD   I  GET4     LOAD SYMBOL TABLE ID WORD    K2505240
7C4D 1001                  527 |       SLA     1        TEST BIT 1 (REAL OR INTEGER) K2505250
7C4E 4C10 7C56             528 |       BSC  L  DT340,-  BRANCH IF REAL VARIABLE      K2505260
                           529 | *                                                   K2505270
7C50 C400 7A31             530 |       LD   L  CCWD     VSIZE = SIZE OF INTEGER VAR  K2505280
7C52 100A                  531 |       SLA     10       PLACE INDICATOR IN CARRY     K2505290
7C53 C301                  532 |       LD    3 ONE-Z    ONE WORD INTEGER SIZE        K2505300
7C54 4802                  533 |       BSC     C        SKIP ON NO ONE WORD INTEGER  K2505310
7C55 D31D                  534 |       STO   3 VSIZE-Z  SAVE VARIABLE SIZE           K2505320
                           535 | *                                                   K2505330
7C56                       536 | DT340 EQU     *        ENTRY POINT LABEL            K2505340
                           537 | *                                                   K2505350
7C56 C340                  538 |       LD    3 GET4-Z   COMPUTE ARRAY SIZE IN WORDS  K2505360
7C57 9303                  539 |       S     3 THREE-Z  FIRST COMPUTE ADDR OF FIRST  K2505370
7C58 D001                  540 |       STO     *+1      WORD OF ARRAY SIZE           K2505380
7C59 C400 0000             541 |       LD   L  *-*      LOAD ARRAY SIZE FROM SYM TBL K2505390
7C5B A31D                  542 |       M     3 VSIZE-Z  MULTIPLY BY VARIABLE SIZE    K2505400
7C5C 1090                  543 |       SLT     16       PUT PRODUCT IN ACC           K2505410
7C5D D31E                  544 |       STO   3 ASIZE-Z  SAVE IN ARRAY SIZE           K2505420
                           545 | *                                                   K2505430
7C5E 931C                  546 |       S     3 OFSET-Z  COMPUTE NO.OF ELEMENTS THAT  K2505440
7C5F 1890                  547 |       SRT     16       CAN BE FILLED.               K2505450
7C60 AB1D                  548 |       D     3 VSIZE-Z  DIVIDE BY VARIABLE SIZE      K2505460
7C61 D31F                  549 |       STO   3 NOELM-Z  SAVE NO. ELEMENTS TO FILL    K2505470
                           550 | *                                                   K2505480
7C62 9327                  551 |       S     3 ADUPF-Z  SUBTRACT DUPLICATION FACTOR  K2505490
7C63 4C08 7C6B             552 |       BSC  L  DT330,+  BR, FILL ARRAY IF NOELM LE   K2505500
                           553 | *                      DUPLICATION FACTOR           K2505510
7C65 C327                  554 |       LD    3 ADUPF-Z  NOELM = DPLF                 K2505520
7C66 D31F                  555 |       STO   3 NOELM-Z                               K2505530
                           556 | *                                                   K2505540
7C67 A31D                  557 |       M     3 VSIZE-Z  COMPUTE ARRAY SIZE           K2505550
7C68 1090                  558 |       SLT     16       NO. ELEMENTS * VAR SIZE      K2505560
7C69 831C                  559 |       A     3 OFSET-Z  PLUS OFFSET                  K2505570
7C6A D31E                  560 |       STO   3 ASIZE-Z  =ARRAY SIZE                  K2505580
                           561 | *                                                   K2505590
7C6B                       562 | DT330 EQU     *        ENTRY POINT                  K2505600
7C6B C0A2                  563 |       LD      DPLF     ADJUST DUPLICATION FACTOR    K2505610
7C6C 931F                  564 |       S     3 NOELM-Z  SUBTRACT NO. ELEMENTS        K2505620
7C6D 8301                  565 |       A     3 ONE-Z    PLUS ONE                     K2505630
7C6E D09F                  566 |       STO     DPLF     SAVE NEW DUPLICATION FACTOR  K2505640
                           567 | *                                                   K2505650
7C6F C31F                  568 |       LD    3 NOELM-Z  GET NO. ELEMENTS TO FILL     K2505660
7C70 1801                  569 |       SRA     1        REMOVE LOW ORDER BIT         K2505670
7C71 4C18 7C83             570 |       BSC  L  DT350,+- BRANCH IF REMAINDER = 0      K2505680
                           571 | *                                                   K2505690
7C73 C480 7D90             572 |       LD   I  GET4     LOAD SYMBOL TABLE ID WORD    K2505700
7C75 1001                  573 |       SLA     1        TEST FOR INTEGER VARIABLE    K2505710
7C76 4C10 7C83             574 |       BSC  L  DT350,-  BRANCH, NOT INTEGER VARIABLE K2505720
                           575 | *                                                   K2505730
7C78 C400 7A31             576 |       LD   L  CCWD     TEST CONTROL CARD WORD       K2505740
7C7A 1009                  577 |       SLA     9        FOR ONE WORD INTEGERS        K2505750
7C7B 4C28 7C83             578 |       BSC  L  DT350,+Z BRANCH, ONE WORD INTEGERS    K2505760
                           579 | *                                                   K2505770
7C7D 1005                  580 |       SLA     5        EXTENDED PREC BIT TO CARRY   K2505780
7C7E C31F                  581 |       LD    3 NOELM-Z  LOAD NO. ELEMENTS            K2505790
7C7F 4802                  582 |       BSC     C        TEST CARRY FOR EXTENDED PREC K2505800
7C80 1001                  583 |       SLA     1        EXTENDED PREC MPY NO. ELTS*2 K2505810
7C81 831F                  584 |       A     3 NOELM-Z  ADD ACTUAL NO. ELEMENTS      K2505820
7C82 D31F                  585 |       STO   3 NOELM-Z  NO.ELEMENTS *2 OR 3 - SAVE   K2505830
                           586 | *                                                   K2505840
7C83                       587 | DT350 EQU     *        ENTRY POINT LABEL            K2505850
7C83 C480 7D87             588 |       LD   I  GET1+1   PLACE DSF HEADER             K2505860
7C85 931E                  589 |       S     3 ASIZE-Z  DATA WD ADDR - ARRAY SIZE    K2505870
7C86 831D                  590 |       A     3 VSIZE-Z  PLUS VAR SIZE                K2505880
7C87 4005                  591 |       BSI     DHT      BR TO SEE IF DATA HDR O/P    K2505890
                           592 | *                                                   K2505900
                           593 | *     SUPERFLUOUS CODING REMOVED                2-9 K2505920
7C88 401D                  594 | DT360 BSI     DTAC     OUTPUT CONSTANTS         2-9 K2505930
7C89 74FF 7D6F             595 |       MDX  L  NOELM,-1 DECR COUNT ON NO. ELEMENTS   K2505940
7C8B 70FC                  596 |       MDX     DT360    CONTINUE IF MORE O/P         K2505950
7C8C 70A0                  597 |       MDX     DT221    FINISHED, RETURN             K2505960
                           598 | *                                                   K2505970
                           599 | *             SUBROUTINE                            K2505980
                           600 | *             TEST IF DATAHEADER NECESSARY          K2505990
                           601 | *             ACC CONTAINS ADDR OF VAR TO BE O/P    K2506000
                           602 | *             OUTPUT DATA HEADER IF NECESSARY       K2506010
                           603 | *                                                   K2506020
7C8D 0000                  604 | DHT   DC      0        LINK ENTRY POINT             K2506030
7C8E 4C18 7C96             605 |       BSC  L  DHT1,+-  IF ZERO, OUTPUT HEADER       K2506040
7C90 9400 7A3D             606 |       S    L  LOCTR    TEST LOCATION COUNTER        K2506050
7C92 4C18 7CA4             607 |       BSC  L  DHT2,+-  BR IF LOC = LOCTR, NO HDR    K2506060
                           608 | *                      IS NEEDED                    K2506070
7C94 8400 7A3D             609 |       A    L  LOCTR    RESET LOCATION COUNTER       K2506080
7C96 D400 7A3D             610 | DHT1  STO  L  LOCTR    SAVE                         K2506090
7C98 4400 7DFD             611 |       BSI  L  DHDRR    OUTPUT DATA HEADER           K2506100
7C9A C400 7A3B             612 |       LD   L  INPT     LOAD INDICATOR POINTER       K2506110
7C9C 931B                  613 |       S     3 BFEND-Z  DETERMINE IF BUFFER FULL     K2506120
7C9D 4CA8 7C8D             614 |       BSC  I  DHT,+Z   RETURN IF NOT                K2506130
7C9F 4400 7D11             615 |       BSI  L  WRITS    WRITE TO DISK                K2506140
7CA1 C312                  616 |       LD    3 CD16-Z                                K2506150
7CA2 D400 7A3A             617 |       STO  L  INCT     RESET INDICATOR COUNTER      K2506160
7CA4 4C80 7C8D             618 | DHT2  BSC  I  DHT      RETURN                       K2506170
                           619 | *                                                   K2506180
                           620 | *             SUBROUTINE OUTPUT DATA-CONSTANT       K2506190
                           621 | *                                                   K2506200
                           622 | *             FROM THE STRING                       K2506210
7CA6 0000                  623 | DTAC  DC      0        ENTRY POINT                  K2506220
7CA7 C320                  624 |       LD    3 ADCST-Z  INSERT ADDRESS OF CON STRING K2506230
7CA8 D006                  625 |       STO     DTAC2+1  SAVE ADDRESS OF CON STRING   K2506240
7CA9 C400 7C21             626 |       LD   L  DT202+1  INITLZ CONSTANT STRING COUNT K2506250
7CAB D321                  627 |       STO   3 CLCT-Z   SAVE CONSTANT STRING COUNT   K2506260
7CAC 7401 7CAF             628 | DTAC1 MDX  L  DTAC2+1,1 INCR ADDR OF CON STRING     K2506270
7CAE C400 0000             629 | DTAC2 LD   L  *-*      GET CONSTANT FR STRING       K2506280
7CB0 4341                  630 |       BSI   3 OUABS-Z  OUTPUT                       K2506290
7CB1 74FF 7D71             631 |       MDX  L  CLCT,-1  CONSTANT STRING COUNT        K2506300
7CB3 70F8                  632 |       MDX     DTAC1    BR IF PART OF CNSTNT REMAINS K2506310
7CB4 4C80 7CA6             633 |       BSC  I  DTAC     RETURN IF END OF CONSTANT    K2506320
                           634 | *                                                   K2506330
                           635 | **                                                  K2506340
                           636 | *                                                   K2506350
                           637 | *                                                   K2506360
                           638 | *             INITIALIZE LOCATIONCOUNTER            K2506370
7CB6 1000                  639 | F3011 SLA     0                                     K2506380
7CB7 C400 7A28             640 |       LD   L  SOFXT    NOP                          K2506390
                           641 | *                      (INCLUDING DEFINEFILE WORDS) K2506400
7CB9 D400 7A3D             642 |       STO  L  LOCTR    LOCATION COUNTER             K2506410
7CBB 4400 7DFD             643 |       BSI  L  DHDRR    DATAHEADERROUTINE            K2506420
                           644 | *                                                   K2506430
                           645 | *                                                   K2506440
                           646 | *             OUTPUT CONSTANTS                      K2506450
                           647 | *             SCANS SYMBOL TABLE AND OUTPUTS REAL   K2506460
                           648 | *             CONSTANTS, FOLLOWED BY A SCAN TO      K2506470
                           649 | *             OUTPUT INTEGER CONSTANTS              K2506480
                           650 | *                                                   K2506490
                           651 | *             INITIALIZE SYMBOL TABLE FOR OUTPUT    K2506500
                           652 | *             OF CONSTANTS                          K2506510
                           653 | *                                                   K2506520
7CBD C400 7A26             654 | INIST LD   L  SOFST    LOAD START LOC OF ST     2-9 K2506530
7CBF D325                  655 |       STO   3 SYMTP-Z  SYMBOL TABLE POINTER         K2506540
                           656 | *                                                   K2506550
                           657 | *             TEST IF END OF SYM TABLE              K2506560
7CC0 C325                  658 | Q1012 LD    3 SYMTP-Z  SYMBOL TABLE POINTER         K2506570
7CC1 9400 7A2A             659 |       S    L  EOFST    END OF SYMBOL TABLE          K2506580
7CC3 4C08 7CF2             660 |       BSC  L  Q1041,+  BR IF END OF SYMBOL TABLE    K2506590
                           661 | *                                                   K2506600
7CC5 C480 7D75             662 |       LD   I  SYMTP    LOAD ID WORD FROM SYMBOL TBL K2506610
7CC7 4828                  663 |       BSC     +Z       SKIP IF NOT ENTRY OF CON     K2506620
7CC8 7009                  664 |       MDX     Q1021    BR IF ENTRY CONSTANT         K2506630
                           665 | *                                                   K2506640
                           666 | *             MOVE SYMBOL TABLE POINTER             K2506650
                           667 | *             BY 3 WORDS FOR MOST SYMBOLS           K2506660
                           668 | *             OR 6 WORDS FOR DIMENSIONED VARIABLES  K2506670
7CC9 C480 7D75             669 | Q1013 LD   I  SYMTP    LOAD SYMBOL TABLE ID WORD    K2506680
7CCB E30D                  670 |       AND   3 H1800-Z  TEST FOR DIMENSIONED VAR.    K2506690
7CCC 4820                  671 |       BSC     Z        SKIP IF NOT DIMENSIONED VA   K2506700
7CCD C30E                  672 |       LD    3 HFFFD-Z  INCR BY -3 WDS FOR DIM VAR   K2506710
7CCE 830E                  673 |       A     3 HFFFD-Z  INCR BY -3 WDS FOR ALL ENT   K2506720
7CCF 8325                  674 |       A     3 SYMTP-Z  ADD TO SYMBOL TABLE POINTE   K2506730
7CD0 D325                  675 |       STO   3 SYMTP-Z  SAVE IN SYMBOL TABLE POINT   K2506740
7CD1 70EE                  676 |       MDX     Q1012    CONTINUE SCAN OF SYMBOL TB   K2506750
                           677 | *                                                   K2506760
                           678 | *             CONSTANT FOUND IN SYMBOL TABLE        K2506770
                           679 | *             OUTPUT REAL AND INTEGER CONSTANTS IN  K2506780
                           680 | *             ABSOLUTE MODE                         K2506790
                           681 | *                                                   K2506800
7CD2 6580 7D75             682 | Q1021 LDX  I1 SYMTP    PUT SYMBOL TABLE POINTER X   K2506810
                           683 | *                                                   K2506820
                           684 | *             SAVE LOCATION COUNTER                 K2506830
7CD4 C400 7A3D             685 | Q1022 LD   L  LOCTR    LOAD LOCATION COUNTER        K2506840
7CD6 D324                  686 |       STO   3 TEMP2-Z  SAVE IN TEMPORARY STORAGE    K2506850
                           687 | *                                                   K2506860
7CD7 C100                  688 |       LD    1 0        GET SYMBOL TABLE CONSTANT    K2506870
7CD8 1001                  689 |       SLA     1        SHIFT INTEGER BIT TO SIGN    K2506880
7CD9 4810                  690 |       BSC     -        SKIP IF INTEGER CONSTANT     K2506890
7CDA 7005                  691 |       MDX     Q1031    BR IF NOT                    K2506900
                           692 | *                                                   K2506910
                           693 | *             TEST IF INTEGER CONSTANT OUTPUT PASS  K2506920
7CDB C323                  694 |       LD    3 COSW-Z   LOAD INTEGER CON O/P SWITC   K2506930
7CDC 4C18 7CC9             695 |       BSC  L  Q1013,+- BR IF NOT INTEGER CON O/P    K2506940
                           696 | *                                                   K2506950
7CDE C101                  697 |       LD    1 1        SECOND WORD IN SYMBOL TABL   K2506960
                           698 | *                      ENTRY TO ACCUMULATOR         K2506970
7CDF 700E                  699 |       MDX     Q1033    BR TO O/P IN ABSOLUTE MODE   K2506980
                           700 | *                                                   K2506990
                           701 | *             TEST IF REAL CONSTANT PASS            K2507000
7CE0 C323                  702 | Q1031 LD    3 COSW-Z   LOAD INTEGER CON O/P SWITC   K2507010
7CE1 4C20 7CC9             703 |       BSC  L  Q1013,Z  BR IF INTEGER CON INDICATED  K2507020
                           704 | *                                                   K2507030
                           705 | *             TEST IF EXTENDED PRECISION            K2507040
7CE3 C400 7A31             706 |       LD   L  CCWD     LOAD CONTROL CARD WORD       K2507050
7CE5 100D                  707 |       SLA     13       SHIFT EXTENDED PREC BIT      K2507060
7CE6 4810                  708 |       BSC     -        SKIP IF EXTENDED PREC        K2507070
7CE7 7003                  709 |       MDX     Q1032    BR IF NOT EXTENDED PREC      K2507080
                           710 | *                                                   K2507090
7CE8 C100                  711 |       LD    1 0        LOAD SYMBOL TABLE ID WORD    K2507100
7CE9 E311                  712 |       AND   3 H00FF-Z  MASK ALL BUT BITS 8-15       K2507110
7CEA 4341                  713 |       BSI   3 OUABS-Z  SUBR OUTPUT, ENTRY = ABS     K2507120
7CEB C101                  714 | Q1032 LD    1 1        SECOND WORD IN ENTRY TO ACC  K2507130
7CEC 4341                  715 |       BSI   3 OUABS-Z  SUBR OUTPUT, ENTRY = ABS     K2507140
7CED C102                  716 |       LD    1 2        THIRD WORD IN SYMBOL TABLE   K2507150
                           717 | *                      ENTRY TO ACC                 K2507160
7CEE 4341                  718 | Q1033 BSI   3 OUABS-Z  SUBR OUTPUT, ENTRY = ABS     K2507170
                           719 | *                                                   K2507180
                           720 | *             INSERT ALLOCATION INTO SYM.TBL.       K2507190
7CEF C324                  721 |       LD    3 TEMP2-Z  GET ALLOC CON FROM TEMP STO  K2507200
7CF0 D101                  722 |       STO   1 1        STORE IN 2ND WD OF SYM TBL   K2507210
                           723 | *                                                   K2507220
7CF1 70D7                  724 |       MDX     Q1013    BR TO CONTINUE SYM TBL SCAN  K2507230
                           725 | *                                                   K2507240
                           726 | *             TEST IF THAT WAS THE SECOND           K2507250
                           727 | *             (=INTEGER CONSTANT) PASS              K2507260
                           728 | *                                                   K2507270
7CF2 C323                  729 | Q1041 LD    3 COSW-Z   CONSTANT OUTPUT SWITCH       K2507280
7CF3 4C20 7CF8             730 |       BSC  L  Q1051,Z  BR IF SECOND PASS            K2507290
7CF5 7401 7D73             731 |       MDX  L  COSW,1   CHANGE CONSTANT O/P SWITCH   K2507300
7CF7 70C5                  732 |       MDX     INIST    GO TO NEXT PASS              K2507310
                           733 | *                                                   K2507320
                           734 | *             OUTPUT OF CONSTANTS COMPLETED         K2507330
                           735 | *             START OUTPUT  OF STRING DATA          K2507340
                           736 | *                                                   K2507350
                           737 | *             TEST THAT OUTPUT LOCATION COUNTER     K2507360
                           738 | *             CHECKS WITH THE ONE ASSUMED AT        K2507370
                           739 | *             STATEMENT ALLOCATION. IF NOT,         K2507380
                           740 | *             OUTPUT DUMMY WORD.                    K2507390
7CF8 C400 7A28             741 | Q1051 LD   L  SOFXT    LOAD SIZE OF WORK AREA       K2507400
7CFA 8400 7A29             742 |       A    L  SOFGT    PLUS SIZE OF CONSTANT AREA   K2507410
7CFC 9400 7A3D             743 |       S    L  LOCTR    LESS THE LOCATION COUNTER    K2507420
7CFE 4C08 7E69             744 |       BSC  L  EXIT,+   BR IF SIZE WK AREA & CONST   K2507430
                           745 | *             AREA L.E. LOCATION COUNTER            K2507440
7D00 1010                  746 |       SLA     16       CLEAR ACC                    K2507450
7D01 4341                  747 |       BSI   3 OUABS-Z  OUTPUT DUMMY WORD            K2507460
7D02 70F5                  748 |       MDX     Q1051    CONTINUE LOOP                K2507470
                           749 | *                                                   K2507480
                           750 | *             BR TO LOADING OF NEXT PHASE           K2507490
7D03 4C00 7E69             751 |       BSC  L  EXIT                                  K2507500
                           752 | *                                                   K2507510
                           753 | *             PROGRAM BEING COMPILED IS A SUBR      K2507520
                           754 | *             INITIALIZE SUBR. OUTPUT               K2507530
7D05 1000                  755 | INISR SLA     0        NOP                          K2507540
                           756 | *                                                   K2507550
                           757 | *                      INSERT TYPECODE .SUBPROGR.   K2507560
                           758 | *                      AND PRECISION                K2507570
                           759 | *                                                   K2507580
7D06 C400 7A31             760 |       LD   L  CCWD     SPECIFY PRECISION            K2507590
7D08 1802                  761 |       SRA     2        SHIFT EXTENDED PREC TO BIT15 K2507600
7D09 E301                  762 |       AND   3 1        MASK EXTENDED PRECISION BIT  K2507610
7D0A 830B                  763 |       A     3 H0401-Z  ADD TYPE AND PRECISION MASK  K2507620
7D0B 4C00 7BA0             764 |       BSC  L  Q101X    RETURN TO CONTINUE PROCESSIN K2507630
                           765 | *                                                   K2507640
                           766 | *                                                   K2507650
7D0E                       767 |       BSS  E  0        DISK CONSTANTS               K2507660
7D0E 7001                  768 | WR900 DC      /7001    WRITE DISK PARAMETER         K2507670
7D0F 7A40                  769 |       DC      BUFF-2   DISK BUFFER AREA             K2507680
7D10 63F0                  770 | ENDLZ DC      /63F0    END OF WK STO TEST CONSTANT  K2507690
                           771 | *                                                   K2507700
                           772 | *             WRITE DISK                            K2507710
7D11 0000                  773 | WRITS DC      *-*      LINK ENTRY POIN              K2507720
7D12 C0FE                  774 |       LD      WRITS    MOVE LINK WORD               K2507730
7D13 D001                  775 |       STO     WRITE    TO RETURN LINK               K2507740
7D14 7006                  776 |       MDX     WRITT    BRANCH TO WRITE DISK         K2507750
7D15 0000                  777 | WRITE DC      0        LINK ENTRY AND RETURN        K2507760
                           778 | *                                                   K2507770
                           779 | *             CORRECT WORDCOUNT IN DATAHEADER       K2507780
7D16 4400 7DF0             780 |       BSI  L  PCT        BUFFER COUNT           2-3 K2507790
7D18 1000                  781 |       NOP                                       2-3 K2507800
7D19 1000                  782 |       NOP                                       2-3 K2507810
7D1A 1000                  783 |       NOP                                       2-3 K2507820
                           784 | *                                                   K2507830
                           785 | *                                                   K2507840
7D1B C400 7A41             786 | WRITT LD   L  BUFF-1   CHECK SECTOR ADDRESS         K2507850
7D1D 1004                  787 |       SLA     4        REMOVE HIGH ORDER BITS       K2507860
7D1E 90F1                  788 |       S       ENDLZ    TEST IF END OF WORKING STO   K2507870
7D1F 4C10 7D45             789 |       BSC  L  NOWS,-   BRANCH IF NO WORKING STO     K2507880
7D21 C8EC                  790 |       LDD     WR900    LOAD DISK WRITE PARAMETERS   K2507890
7D22 4400 00F2             791 |       BSI  L  DZ000    WRITE SECTOR ONTO DISK       K2507900
7D24 7400 00EE             792 |       MDX  L  $DBSY,0  SKIP IF DISK READY           K2507910
7D26 70FD                  793 |       MDX     *-3      LOOP IF DISK BUSY            K2507920
                           794 | *                      RESET POINTERS               K2507930
7D27 C400 7A3B             795 |       LD   L  INPT     INDICATOR POINTER            K2507940
7D29 930C                  796 |       S     3 C320-Z   DECR INDICATOR POINTER       K2507950
7D2A D400 7A3B             797 |       STO  L  INPT     SAVE BACK IN POINTER         K2507960
7D2C C400 7A39             798 |       LD   L  BUFPT    BUFFER POINTER               K2507970
7D2E 930C                  799 |       S     3 C320-Z   DECR BUFFERPOINTER           K2507980
7D2F D400 7A39             800 |       STO  L  BUFPT    SAVE BACK IN BUFFER POINTER  K2507990
7D31 C400 7A3C             801 |       LD   L  DHDRA    DATA HEADER ADDR             K2508000
7D33 930C                  802 |       S     3 C320-Z   DECR DATA HEADER ADDR        K2508010
7D34 D400 7A3C             803 |       STO  L  DHDRA    SAVE BACK IN DATA HDR ADDR   K2508020
                           804 | *                                                   K2508030
                           805 | *             MOVE BUFFER TAIL TO FRONT OF          K2508040
                           806 | *             NEXT BUFFER                           K2508050
                           807 | *                                                   K2508060
7D36 6318                  808 |       LDX   3 24       XR3 = WORD COUNT OF 24       K2508070
7D37 C700 7B81             809 | MOV1  LD   L3 BUFF+319 MOVE LAST 24 WDS OF BFR AREA K2508080
7D39 D700 7A41             810 |       STO  L3 BUFF-1   TO HEADER AREA               K2508090
7D3B 73FF                  811 |       MDX   3 -1       COUNT                        K2508100
7D3C 70FA                  812 |       MDX     MOV1     BR IF NO SKIP                K2508110
7D3D 6700 7D50             813 |       LDX  L3 ZERO     RESTORE XR3 TO CONSTANT      K2508120
                           814 | *                                                   K2508130
7D3F 7401 7A41             815 |       MDX  L  BUFF-1,1 INCR SECTORADDR,SCRATCHAREA  K2508140
                           816 | *                                                   K2508150
7D41 7414 7A3A             817 |       MDX  L  INCT,20  MAKE INCT NON-16             K2508160
                           818 | *                                                   K2508170
7D43 4C80 7D15             819 |       BSC  I  WRITE    RETURN                       K2508180
                           820 | *                                                   K2508190
7D45 6101                  821 | NOWS  LDX   1 1        CALL RECOVERY - NO WS        K2508200
7D46 6D00 7A23             822 |       STX  L1 SOFS-1                                K2508210
7D48 6580 7E6F             823 |       LDX  I1 NXTPH+1  LOAD PARAMETER FOR READING   K2508220
7D4A CC00 7E70             824 |       LDD  L  NXTPH+2  NEXT PHASE                   K2508230
7D4C 4C00 7FBC             825 |       BSC  L  ROL      GO TO READ NEXT PHASE        K2508240
                           826 | *                                                   K2508250
                           827 | *                                                   K2508260
                           828 | *                                                   K2508270
                           829 | *                                                   K2508280
7D4E                       830 |       BSS  E  0                                     K2508290
7D4E 0000                  831 | STONA DC      0        STORED NAME WD 1             K2508300
7D4F 0000                  832 |       DC      0        STORED NAME WD 2             K2508310
                           833 | *                                                   K2508320
7D50 0000                  834 | ZERO  DC      0        CONSTANT                     K2508330
7D50                       835 | Z     EQU     ZERO     CONSTANT                     K2508340
7D51 0001                  836 | ONE   DC      1        CONSTANT                     K2508350
7D52 0002                  837 | TWO   DC      2        CONSTANT                     K2508360
7D53 0003                  838 | THREE DC      3        CONSTANT                     K2508370
7D54 0004                  839 | FOUR  DC      4        CONSTANT                     K2508380
7D55 0002                  840 | H0002 DC      /0002    CONSTANT                     K2508390
7D56 0003                  841 | H0003 DC      /0003    CONSTANT                     K2508400
7D57 0005                  842 | H0005 DC      /0005    CONSTANT                     K2508410
7D58 0007                  843 | SEVEN DC      7        CONSTANT                     K2508420
7D59 0200                  844 | H0200 DC      /0200    CONSTANT                     K2508430
7D5A 0201                  845 | TYPE  DC      /0201    MAINL REL TYPE W PREC CONST  K2508440
7D5B 0401                  846 | H0401 DC      /0401    CONSTANT                     K2508450
7D5C 0140                  847 | C320  DC      320      CONSTANT                     K2508460
7D5D 1800                  848 | H1800 DC      /1800    CONSTANT                     K2508470
7D5E FFFD                  849 | HFFFD DC      /FFFD    CONSTANT                     K2508480
7D5F FEFF                  850 | HFEFF DC      /FEFF    EXT PRECISION MASK           K2508490
7D60 0007                  851 | H0007 DC      /0007    CONSTANT                     K2508500
7D61 00FF                  852 | H00FF DC      /00FF    CONSTANT                     K2508510
7D62 0010                  853 | CD16  DC      16       CONSTANT                     K2508520
7D63 07FC                  854 | H07FC DC      /07FC    CONSTANT                     K2508530
7D64 F800                  855 | HF800 DC      /F800    CONSTANT                     K2508540
7D65 F000                  856 | HF000 DC      /F000    ID FOR 'DEFINE FILE'         K2508550
7D66 07FF                  857 | H07FF DC      /07FF    CONSTANT                     K2508560
7D67 1000                  858 | H1000 DC      /1000    CONSTANT                     K2508570
7D68 2000                  859 | H2000 DC      /2000    CONSTANT                     K2508580
7D69 8000                  860 | H8000 DC      /8000    MASK TO SEE IF DISK IO(BIT0) K2508590
7D6A 4000                  861 | H4000 DC      /4000    CONSTANT                     K2508600
7D6B 7B82                  862 | BFEND DC      BUFF+320  END OF BUFFER O/P AREA  212 K2508610
7D6C 0000                  863 | OFSET DC      *-*      DISPLACEMENT WD FR DATA PT   K2508620
7D6D 0000                  864 | VSIZE DC      *-*      VARIABLE SIZE = 1,2 OR 3     K2508630
7D6E 0000                  865 | ASIZE DC      *-*      ARRAY SIZE DATA STMNT        K2508640
7D6F 0000                  866 | NOELM DC      *-*      NO. ELEMENTS TO BE FILLED    K2508650
7D70 0000                  867 | ADCST DC      *-*      ADDR CONSTANT STRING - 1     K2508660
7D71 0000                  868 | CLCT  DC      *-*      LENGTH OF CONSTANT STRING    K2508670
                           869 | * SUPERFLUOUS WORD REMOVED                      2-9 K2508680
                           870 | *                                                   K2508690
7D72 0000                  871 | NORM  DC      0        WD COUNT I/P STRING          K2508700
7D73 0000                  872 | COSW  DC      0        CONSTANT PASS SWITCH         K2508710
7D74 0000                  873 | TEMP2 DC      0        TEMPORARY STORAGE            K2508720
7D75 0000                  874 | SYMTP DC      0        SYMBOL TABLE POINTER         K2508730
7D76 0000                  875 | SCT   DC      0        SEVEN COUNT                  K2508740
7D77 0000                  876 | ADUPF DC      *-*      TEMPORARY DUPLICATION FACTOR K2508750
7D78 0000                  877 | ORGSW DC      0          ORIGIN SWITCH          2-4 K2508760
7D79 0101                  878 | H0101 DC      /0101      ABSOLUTE TYPE          2-4 K2508770
                           879 | *                                                   K2508780
                           880 | *                                                   K2508790
                           881 | *             SUBROUTINE GETST                      K2508800
                           882 | *             GET OBJECT TIME ADDRESS OR            K2508810
                           883 | *             ALPHABETIC NAME FROM SYMBOL TABLE     K2508820
                           884 | *             ON ENTRY ACC = STRING POINTER TO      K2508830
                           885 | *             SYMBOL TABLE                          K2508840
                           886 | *                                                   K2508850
7D7A 0000                  887 | GETST DC      0        LINK ENTRY POINT             K2508860
7D7B E316                  888 |       AND   3 H07FF-Z  MASK OUT ALL BUT VAR PT      K2508870
7D7C D00A                  889 |       STO     GET1+1   SAVE VARIABLE POINTER        K2508880
7D7D C400 7A26             890 |       LD   L  SOFST    LOAD START OF SYMBOL TABLE   K2508890
7D7F 9007                  891 |       S       GET1+1   SUBTRACT POINTER IN SYM TBL  K2508900
7D80 9006                  892 |       S       GET1+1   *THREE                       K2508910
7D81 9005                  893 |       S       GET1+1   *TIMES                       K2508920
7D82 8307                  894 |       A     3 H0005-Z  ADD 5 TO POS AT END OF DATA  K2508930
7D83 D003                  895 |       STO     GET1+1   SAVE POINTER                 K2508940
7D84 9302                  896 |       S     3 TWO-Z    MOVE PT BACK TO ADDR OF ID   K2508950
7D85 D00A                  897 |       STO     GET4     STORE ADDR OF ID-WD          K2508960
7D86 C400 0000             898 | GET1  LD   L  *-*      LOAD VARIABLE FROM SYM TBL   K2508970
7D88 18D0                  899 |       RTE     16       PUT IN EXTENSION             K2508980
7D89 74FF 7D87             900 |       MDX  L  GET1+1,-1 DECR POINTER                K2508990
7D8B 1000                  901 |       SLA     0        GUARDS AGAINST SKIP          K2509000
7D8C C480 7D87             902 |       LD   I  GET1+1   GET DATA WD FR SYM TBL       K2509010
7D8E 4C80 7D7A             903 |       BSC  I  GETST    RETURN                       K2509020
7D90 0000                  904 | GET4  DC      *-*      ADDR OF SYM TBL ID WORD      K2509030
                           905 | *                                                   K2509040
                           906 | *             OUTPUT ADDRESS OR CONSTANT IN         K2509050
                           907 | *             ABSOLUTE MODE                         K2509060
                           908 | *             ACCUMULATOR AND EXTENSION CONTAIN     K2509070
                           909 | *             WORDS TO BE OUTPUT                    K2509080
                           910 | *                                                   K2509090
                           911 | *             ENTRY = ABSOLUTE OUTPUT               K2509100
7D91 0000                  912 | OUABS DC      0        LINK                         K2509110
7D92 DBFE                  913 | T8011 STD   3 STONA-Z  STORE ACC AND EXTENSION      K2509120
7D93 C300                  914 |       LD    3 ZERO-Z   ZERO-ZERO                    K2509130
7D94 4021                  915 |       BSI     IBITS    TO INDICATOR AREA            K2509140
                           916 | *                                                   K2509150
7D95 C3FE                  917 | T8012 LD    3 STONA-Z  GET STORED ACCUMULATOR       K2509160
7D96 403B                  918 |       BSI     TOBUF    MOVE TO BUFFER               K2509170
                           919 | *                                                   K2509180
7D97 4C80 7D91             920 | T8016 BSC  I  OUABS    RETURN                       K2509190
                           921 | *                                                   K2509200
                           922 | *             OUTPUT ADDRESS OR CONSTANT IN         K2509210
                           923 | *             RELOCATABLE MODE                      K2509220
                           924 | *                                                   K2509230
                           925 | *             ENTRY = RELATIVE OUTPUT               K2509240
                           926 | *             RELATIVE OUTPUT (INCLUDES TEST        K2509250
                           927 | *             WHETHER VARIABLE IS IN COMMON, IN     K2509260
                           928 | *             WHICH CASE OUTPUT IS ABSOLUTE         K2509270
                           929 | *                                                   K2509280
7D99 0000                  930 | OUREL DC      0        LINK ENTRY POINT             K2509290
7D9A DBFE                  931 | T8013 STD   3 STONA-Z  STORE ACC AND EXTENSION      K2509300
7D9B C0FD                  932 |       LD      OUREL    SET LINK RETURN ADDRESS      K2509310
7D9C D0F4                  933 |       STO     OUABS    IN ABSOLUTE LINK EXIT POINT  K2509320
7D9D C400 7D87             934 |       LD   L  GET1+1   LOAD ADDR OF SYM TBL DATA WD K2509330
7D9F 9301                  935 |       S     3 ONE-Z    SUBTRACT 1 TO GET ADDR ID WD K2509340
7DA0 D001                  936 |       STO     T8014+1  INSERT ADDR OF SYM TBL ID WD K2509350
7DA1 C400 0000             937 | T8014 LD   L  *-*      LOAD SYM TBL ID WORD         K2509360
7DA3 E318                  938 |       AND   3 H2000-Z  TEST FOR COMMON INDR BIT     K2509370
7DA4 4C18 7DA8             939 |       BSC  L  T8015,+- BR IF NOT IN COMMON          K2509380
7DA6 C300                  940 |       LD    3 ZERO-Z   ZERO INDICATOR BIT MASK      K2509390
7DA7 700C                  941 |       MDX     T8017+1  GO OUTPUT INDICATOR BITS     K2509400
                           942 | *                                                   K2509410
7DA8 C328                  943 | T8015 LD    3 ORGSW-Z    IS IT ABS COMPILATION  2-4 K2509420
7DA9 4C18 7DB3             944 |       BSC  L  T8017,+-   NO  - BRANCH           2-4 K2509430
7DAB C3FE                  945 |       LD    3 STONA-Z    YES - RELOCATE         2-4 K2509440
7DAC 8400 7A23             946 |       A    L  ORG        THIS                   2-4 K2509450
7DAE D3FE                  947 |       STO   3 STONA-Z    ADDRESS                2-4 K2509460
7DAF 4C28 7BBF             948 |       BSC  L  Q101C,+Z   BRANCH TO ERROR IF NEG 2-4 K2509470
7DB1 C300                  949 |       LD    3 ZERO-Z     ZERO-ZERO TO IND BITS  2-4 K2509480
7DB2 7001                  950 |       MDX     *+1        SKIP                   2-4 K2509490
                           951 | *                                                   K2509500
7DB3 C301                  952 | T8017 LD    3 ONE-Z    ZERO-ONE FOR INDICATOR BITS  K2509510
7DB4 4001                  953 |       BSI     IBITS    MOVE TO INDICATOR AREA       K2509520
7DB5 70DF                  954 |       MDX     T8012    RETURN                       K2509530
                           955 | *                                                   K2509540
                           956 | *                                                   K2509550
                           957 | *             INDICATOR BITS                        K2509560
                           958 | *             ACCUMULATOR CONTAINS BIT PATTERNS TO  K2509570
                           959 | *             MASK INTO THE INDICATOR POINTER       K2509580
                           960 | *             BASED ON SHIFTS SPECIFIED IN THE      K2509590
                           961 | *             INDICATOR COUNTER                     K2509600
                           962 | *                                                   K2509610
                           963 | *                                                   K2509620
7DB6 0000                  964 | IBITS DC      0        LINK ENTRY POINT             K2509630
7DB7 D017                  965 |       STO     IBIT5    SAVE BIT PATTERNS            K2509640
7DB8 C400 7A3A             966 |       LD   L  INCT     PRODUCE SLA AND SRA          K2509650
7DBA 8015                  967 |       A       IBIT6    INSTRUCTIONS AND INSERT      K2509660
7DBB D006                  968 |       STO     IBIT3    (LENGTH OF SHIFT DEPENDS ON  K2509670
7DBC 8014                  969 |       A       IBIT7    INDICATOR COUNTER)           K2509680
7DBD D002                  970 |       STO     IBIT2    SET UP SRA INSTRUCTION       K2509690
7DBE C480 7A3B             971 |       LD   I  INPT                                  K2509700
7DC0 1800                  972 | IBIT2 SRA     *-*      SRA (INCT - 2)               K2509710
7DC1 800D                  973 |       A       IBIT5    TEMP VALUE FROM ACC          K2509720
7DC2 1000                  974 | IBIT3 SLA     *-*      SLA (INCT - 2)               K2509730
7DC3 D480 7A3B             975 |       STO  I  INPT                                  K2509740
7DC5 74FE 7A3A             976 |       MDX  L  INCT,-2  DECR INDICATOR COUNTER       K2509750
7DC7 7005                  977 |       MDX     IBIT4    BR IF NOT ZERO (=NO SKIP)    K2509760
7DC8 7409 7A3B             978 |       MDX  L  INPT,9   INCR INDICATOR POINTER       K2509770
7DCA C312                  979 |       LD    3 CD16-Z   REINITIALIZE INDICATOR CTR   K2509780
7DCB D400 7A3A             980 |       STO  L  INCT     TO 16                        K2509790
7DCD 4C80 7DB6             981 | IBIT4 BSC  I  IBITS    RETURN                       K2509800
7DCF 0000                  982 | IBIT5 DC      0        TEMPORARY STORAGE            K2509810
7DD0 0FFE                  983 | IBIT6 DC      /0FFE    .SLA 0. - 0002               K2509820
7DD1 0800                  984 | IBIT7 DC      /0800    .SRA 0. - .SLA 0.            K2509830
                           985 | *                                                   K2509840
                           986 | *             SUBROUTINE                            K2509850
                           987 | *             MOVE TO BUFFER                        K2509860
                           988 | *             ACCUMULATOR CONTAINS INDICATOR        K2509870
                           989 | *             POINTER                               K2509880
                           990 | *                                                   K2509890
7DD2 0000                  991 | TOBUF DC      0        LINK ENTRY POINT             K2509900
7DD3 D480 7A39             992 |       STO  I  BUFPT    SAVE WORD IN BUFFER          K2509910
7DD5 7401 7A3D             993 |       MDX  L  LOCTR,1  INCR LOCATION COUNTER        K2509920
                           994 | *                                                   K2509930
                           995 | *             TEST IF SKIP TO NEXT 8WORD GROUP      K2509940
7DD7 C400 7A3A             996 |       LD   L  INCT     LOAD INDICATOR COUNTER       K2509950
7DD9 9312                  997 |       S     3 CD16-Z   SUBTRACT 16                  K2509960
7DDA 4C20 7DED             998 |       BSC  L  TOBU1,Z  BR IF NOT NEW INDR WORD      K2509970
7DDC D480 7A3B             999 |       STO  I  INPT     ZERO TO NEW INDICATOR WORD   K2509980
                          1000 | *                                                   K2509990
                          1001 | *     SUPERFLUOUS CODING REMOVED                2-9 K2510000
                          1002 | *                                                   K2510050
                          1003 | *             TEST IF END OF BUFFER                 K2510060
7DDE C400 7A3B            1004 | TEOB  LD   L  INPT     LOAD INDICATOR POINTER       K2510070
7DE0 931B                 1005 |       S     3 BFEND-Z                               K2510080
7DE1 4C28 7DEC            1006 |       BSC  L  TOBUC,Z+ BR IF BUFF NOT FULL          K2510090
7DE3 43C5                 1007 |       BSI   3 WRITE-Z                               K2510100
7DE4 C400 7A3B            1008 |       LD   L  INPT     INDIC PTR TO                 K2510110
7DE6 D400 7A39            1009 |       STO  L  BUFPT    BUFFER POINTER               K2510120
7DE8 4400 7DFD            1010 |       BSI  L  DHDRR    DATAHEADERROUTINE            K2510130
7DEA 4C80 7DD2            1011 |       BSC  I  TOBUF    REUTRN                       K2510140
                          1012 | *                                                   K2510150
7DEC 4003                 1013 | TOBUC BSI     PCT      BUFFER COUNT SUBR            K2510160
7DED 4002                 1014 | TOBU1 BSI     PCT      BUFFER COUNT SUBR            K2510170
7DEE 4C80 7DD2            1015 |       BSC  I  TOBUF    RETURN                       K2510180
                          1016 | *                                                   K2510190
                          1017 | *                                                   K2510200
                          1018 | *             SUBROUTINE MOVE BUFFERPOINTERS        K2510210
                          1019 | *                                                   K2510220
7DF0 0000                 1020 | PCT   DC      0        LINK                         K2510230
                          1021 | *                                                   K2510240
                          1022 | *             INCR COUNT IN DATAHEADER              K2510250
7DF1 C400 7A3C            1023 |       LD   L  DHDRA    LOAD ADDR OF NEXT DATA WD    K2510260
7DF3 8301                 1024 |       A     3 ONE-Z    ADD 1                        K2510270
7DF4 D001                 1025 |       STO     PCT0+1   SAVE ADDR OF CNT NXT DATA WD K2510280
7DF5 7401 0000            1026 | PCT0  MDX  L  *-*,1    INCR CNT OF DATA WDS         K2510290
                          1027 | *                                                   K2510300
7DF7 7401 7A3E            1028 |       MDX  L  PRLGT,1  INCR PROGRAM  LENGTH COUNT   K2510310
7DF9 7401 7A39            1029 |       MDX  L  BUFPT,1  INCR BUFFERPOINTER           K2510320
7DFB 4C80 7DF0            1030 | PCT1  BSC  I  PCT      RETURN                       K2510330
                          1031 | *                                                   K2510340
                          1032 | *                                                   K2510350
                          1033 | *             DATAHEADER ROUTINE                    K2510360
                          1034 | *             OUTPUT DATA HEADER                    K2510370
                          1035 | *             ACCUMULATOR CONTAINS LOCATION COUNTER K2510380
                          1036 | *                                                   K2510390
7DFD 0000                 1037 | DHDRR DC      0        LINK                         K2510400
7DFE 7043                 1038 | DHDR1 MDX     FIRST    FIRST-TIME-SWITCH            K2510410
                          1039 | *                      (AFTER FIRST TIME = NO OP)   K2510420
7DFF C400 7A3A            1040 |       LD   L  INCT     LOAD INDICATOR COUNTER       K2510430
7E01 9312                 1041 |       S     3 CD16-Z   SUBTRACT 16                  K2510440
7E02 4C20 7E17            1042 |       BSC  L  DHDR0,Z  BR IF NOT EMPTY              K2510450
7E04 C480 7DF6            1043 |       LD   I  PCT0+1   LOAD NO. DATA WDS IN BUFFER  K2510480
7E06 9301                 1044 |       S     3 ONE-Z    DECR BY 1                    K2510490
7E07 D480 7DF6            1045 |       STO  I  PCT0+1    ADJUST HEADER               K2510500
7E09 9302                 1046 |       S     3 TWO-Z    CHECK IF NO DATA WORDS   2-8 K2510501
7E0A 4C20 7E11            1047 |       BSC  L  LAB1,Z   DO NOT BRANCH IF SO      2-8 K2510502
7E0C 74FD 7A3E            1048 |       MDX  L  PRLGT,-3 OVERLAY LAST DATA HEADER 2-8 K2510503
7E0E 74FE 7A3B            1049 |       MDX  L  INPT,-2  *WITH THE NEW ONE        2-8 K2510504
7E10 7002                 1050 |       MDX     LAB2                              2-8 K2510505
7E11 74FF 7A3E            1051 | LAB1  MDX  L  PRLGT,-1                          2-8 K2510506
7E13 C400 7A3B            1052 | LAB2  LD   L  INPT     LOAD INDICATOR POINTER   2-8 K2510507
7E15 D400 7A39            1053 |       STO  L  BUFPT    RESET BUFFER POINTER     2-8 K2510508
7E17                      1054 | DHDR0 EQU     *        ENTRY POINT                  K2510510
7E17 C328                 1055 |       LD    3 ORGSW-Z    IS IT ABSOLUTE         2-4 K2510520
7E18 4C18 7E21            1056 |       BSC  L  DHDRY,+-   NO  - BRANCH           2-4 K2510530
7E1A C400 7A3D            1057 |       LD   L  LOCTR      RELOCATE THE           2-4 K2510540
7E1C 8400 7A23            1058 |       A    L  ORG        LOCATION COUNTER       2-4 K2510550
7E1E 4C28 7BBF            1059 |       BSC  L  Q101C,+Z   ERROR IF NEGATIVE      2-4 K2510560
7E20 7002                 1060 |       MDX     DHDRZ      CONTINUE               2-4 K2510570
7E21 C400 7A3D            1061 | DHDRY LD   L  LOCTR    LOCCOUNTER TO DATAHEADER     K2510580
7E23 D480 7A39            1062 | DHDRZ STO  I  BUFPT    SAVE IN BUFFER               K2510590
7E25 C400 7A39            1063 |       LD   L  BUFPT    INSERT NEW DATAHEADER ADDR   K2510600
7E27 D400 7A3C            1064 |       STO  L  DHDRA    SAVE                         K2510610
7E29 8301                 1065 |       A     3 ONE-Z    INCREASE TO POINT        2-8 K2510613
7E2A D0CB                 1066 |       STO     PCT0+1   *AT WORD COUNT           2-8 K2510616
7E2B 7401 7A39            1067 |       MDX  L  BUFPT,1  INCR BUFFER POINTER          K2510620
7E2D C303                 1068 |       LD    3 THREE-Z  INITIAL COUNT = 3            K2510630
                          1069 | *                      (INDICATOR WORD +2)          K2510640
7E2E D480 7A39            1070 |       STO  I  BUFPT    SAVE IN BUFFER               K2510650
7E30 7401 7A39            1071 |       MDX  L  BUFPT,1  INCR BUFFER POINTER          K2510660
7E32 C300                 1072 |       LD    3 ZERO-Z   CLEAR ACC                    K2510670
7E33 D480 7A39            1073 |       STO  I  BUFPT    ZERO TO FIRST INDICATOR      K2510680
7E35 C400 7A39            1074 |       LD   L  BUFPT    GET BUFFER POINTER           K2510690
7E37 D400 7A3B            1075 |       STO  L  INPT     INSER INDICATOR POINTER      K2510700
7E39 C312                 1076 |       LD    3 CD16-Z   RESET INDICATOR POINTER      K2510710
7E3A D400 7A3A            1077 |       STO  L  INCT                                  K2510720
7E3C 7401 7A39            1078 |       MDX  L  BUFPT,1  MOVE BUFPTR TO NEXT DATAWORD K2510730
7E3E 7403 7A3E            1079 |       MDX  L  PRLGT,3  COUNT 3 FOR DATAHDR          K2510740
7E40 4C80 7DFD            1080 | DHDRX BSC  I  DHDRR    RETURN                       K2510750
                          1081 | *                                                   K2510760
                          1082 | *             USED AT FIRST ENTRY TO ROUTINE        K2510770
7E42 D400 7A3D            1083 | FIRST STO  L  LOCTR    INSERT LOCATION COUNTER      K2510780
7E44 D400 7A4E            1084 |       STO  L  WD13     SAVE IN HEADER WD            K2510790
7E46 C328                 1085 |       LD    3 ORGSW-Z    IS IT ABSOLUTE         2-4 K2510800
7E47 4C18 7E51            1086 |       BSC  L  FRST1,+-   NO  - BRANCH           2-4 K2510810
7E49 C400 7A4E            1087 |       LD   L  WD13       YES - LOAD WORD 13     2-4 K2510820
7E4B 4C20 7E55            1088 |       BSC  L  FRST2,Z    BRANCH IF NON-ZERO     2-4 K2510830
7E4D C400 7A23            1089 |       LD   L  ORG        SET ORIGIN ADDRESS     2-4 K2510840
7E4F D400 7A4E            1090 |       STO  L  WD13       IN WORD 13             2-4 K2510850
7E51 C002                 1091 | FRST1 LD      NOP      REPLACE FIRST-TIME-BRANCH    K2510860
7E52 D0AB                 1092 |       STO     DHDR1    BY NOP                       K2510870
7E53 70EC                 1093 |       MDX     DHDRX    TO RETURN                    K2510880
7E54 1000                 1094 | NOP   SLA     0                                     K2510890
                          1095 | *                                                   K2510900
7E55 9301                 1096 | FRST2 S     3 ONE-Z      IS IT ONE              2-4 K2510910
7E56 4C20 7E5E            1097 |       BSC  L  FRST3,Z    NO  - BRANCH           2-4 K2510920
7E58 4341                 1098 |       BSI   3 OUABS-Z    YES - OUTPUT DUMMY     2-4 K2510930
7E59 C400 7A23            1099 |       LD   L  ORG        WORD AT THE            2-4 K2510940
7E5B D400 7A4E            1100 |       STO  L  WD13       ORIGIN ADDRESS         2-4 K2510950
7E5D 70F3                 1101 |       MDX     FRST1      GO BACK AGAIN          2-4 K2510960
                          1102 | *                                                   K2510970
7E5E C400 7A23            1103 | FRST3 LD   L  ORG        SET ORIGIN ADDRESS     2-4 K2510980
7E60 D400 7A4E            1104 |       STO  L  WD13       IN DATA HEADER         2-4 K2510990
7E62 C0F1                 1105 |       LD      NOP        SET NOP IN             2-4 K2511000
7E63 D09A                 1106 |       STO     DHDR1      FIRST TIME BRANCH      2-4 K2511010
7E64 C300                 1107 |       LD    3 ZERO-Z     OUTPUT DUMMY           2-4 K2511020
7E65 4341                 1108 |       BSI   3 OUABS-Z    WORD                   2-4 K2511030
7E66 74FF 7A3D            1109 |       MDX  L  LOCTR,-1   RESTORE LOCTR          2-4 K2511040
7E68 7095                 1110 |       MDX     DHDR1      MAKE NEW HEADER        2-4 K2511050
                          1111 | *                                                   K2511060
                          1112 | *                                                   K2511070
                          1113 | *             LOAD NEXT PHASE                       K2511080
                          1114 | *                                                   K2511090
7E69 6580 7E6F            1115 | EXIT  LDX  I1 NXTPH+1  LOAD PARAM FOR READING       K2511100
7E6B C804                 1116 |       LDD     NXTPH+2  NEXT PHASE                   K2511110
7E6C 4C00 7FBC            1117 |       BSC  L  ROL      GO TO READ NEXT PHASE        K2511120
7E6E                      1118 |       BSS  E  0                                     K2511130
7E6E 0038                 1119 | NXTPH DC      56       ID OF NEXT PHASE             K2511140
7E6F                      1120 |       BSS     3        LOADER TABLE FOR NEXT PHASE  K2511150
                          1121 | *                                                   K2511160
                          1122 | *                                                   K2511170
                          1123 | *             PROGRAM ENTRY                         K2511180
7E72 6137                 1124 | ENT   LDX   1 PHID     GET ID THIS PHASE            K2511190
7E73 6D00 0078            1125 |       STX  L1 $PHSE    STORE IN SYSTEM PHASE AREA   K2511200
                          1126 | *             TEST IF OUTPUT IS TO BE DEFERRED      K2511210
                          1127 | *                                                   K2511220
7E75 C400 7A2D            1128 |       LD   L  ERROR                                 K2511230
7E77 4C18 7A84            1129 |       BSC  L  START,+- BRANCH TO START IF NO        K2511240
                          1130 | *                        ERROR                      K2511250
7E79 4C00 7E69            1131 |       BSC  L  EXIT                                  K2511260
                          1132 | *                                                   K2511270
                          1133 | *     SUPERFLUOUS CODING REMOVED                2-9 K2511280
7E7B                      1134 |       BSS     /7F35-*   PATCH AREA                  K2511320
7F35 0000                 1135 |       DC      0                                     K2511330
7F36                      1136 |       END     BPHAR-2                               K2511340
 
There were no errors in this assembly
 
=== CROSS REFERENCES ==========================================================
Name  Val   Defd  Referenced
$DBSY 00EE   103  792
$FPAD 0095   105  234
$PHSE 0078    99 1125
$WSDR 007A   104  233
ADCST 7D70   867  470  624
ADUPF 7D77   876  501  516  551  554
ASIZE 7D6E   865  544  560  589
BFEND 7D6B   862  613 1005
BPHAR 7A36   164 1136
BUFF  7A42   197  200  235  300  769  786  809  810  815  862
BUFPT 7A39   185  798  800  992 1009 1029 1053 1062 1063 1067 1070 1071 1073
                 1074 1078
C320  7D5C   847  796  799  802
CCWD  7A31   123  242  274  317  322  519  530  576  706  760
CD16  7D62   853  616  979  997 1041 1076
CLCT  7D71   868  627  631
COMON 7A2B   117  332
COSW  7D73   872  694  702  729  731
COUNT 7BC9   354  355  362  413
CSIZE 7A2C   118  329
DFCNT 7A33   144  264  281  349
DHDR0 7E17  1054 1042
DHDR1 7DFE  1038 1092 1106 1110
DHDRA 7A3C   188  801  803 1023 1064
DHDRR 7DFD  1037  357  611  643 1010 1080
DHDRX 7E40  1080 1093
DHDRY 7E21  1061 1056
DHDRZ 7E23  1062 1060
DHT   7C8D   604  488  591  614  618
DHT1  7C96   610  605
DHT2  7CA4   618  607
DPLF  7C0E   454  476  491  500  563  566
DT102 7BF9   432  448
DT104 7C09   447  440  464  465
DT201 7C10   459  446  493
DT202 7C20   478  473  626
DT203 7C22   479  495
DT211 7C2B   488
DT221 7C2D   491  597
DT222 7C31   494  492
DT301 7C33   499  483
DT320 7C44   518  507  514
DT330 7C6B   562  552
DT340 7C56   536  528
DT350 7C83   587  570  574  578
DT360 7C88   594  596
DTAC  7CA6   623  490  594  633
DTAC1 7CAC   628  632
DTAC2 7CAE   629  625  628
DTAID 7C0F   455  445
DZ000 00F2   102  791
ENDLZ 7D10   770  788
ENT   7E72  1124  172
EOFS  7A25   111
EOFST 7A2A   116  659
ERROR 7A2D   119  297  340 1128
EXIT  7E69  1115  298  341  744  751 1131
F1012 7BCA   355  350
F1014 7BD0   362  392
F1015 7BD3   365  378
F1016 7BDE   377  376
F1021 7BE1   386  371
F1022 7BE3   389  415
F1023 7BE8   395  391
F1024 7BF1   409  396
F1025 7BF3   413  406
F2012 7BF7   425  351  364
F3011 7CB6   639  444
FIRST 7E42  1083 1038
FNAME 7A2E   120  257
FOUR  7D54   839  386
FRST1 7E51  1091 1086 1101
FRST2 7E55  1096 1088
FRST3 7E5E  1103 1097
GET1  7D86   898  487  588  889  891  892  893  895  900  902  934
GET4  7D90   904  481  526  538  572  897
GETST 7D7A   887  400  480  903
H0002 7D55   840
H0003 7D56   841
H0005 7D57   842  894
H0007 7D60   851  472
H0080 7BC3   343  326
H00FF 7D61   852  712
H0101 7D79   878  246
H0200 7D59   844
H0401 7D5B   846  763
H07FC 7D63   854  366  436
H07FF 7D66   857  888
H1000 7D67   858  443
H1800 7D5D   848  482  670
H2000 7D68   859  267  938
H4000 7D6A   861  277
H8000 7D69   860  271
HF000 7D65   856  370
HF800 7D64   855  369  433
HFEFF 7D5F   850  275
HFFFD 7D5E   849  672  673
IBIT2 7DC0   972  970
IBIT3 7DC2   974  968
IBIT4 7DCD   981  977
IBIT5 7DCF   982  965  973
IBIT6 7DD0   983  967
IBIT7 7DD1   984  969
IBITS 7DB6   964  915  953  981
INCT  7A3A   186  617  817  966  976  980  996 1040 1077
INISR 7D05   755  314
INIST 7CBD   654  732
INIT  7AB0   287
INPT  7A3B   187  612  795  797  971  975  978  999 1004 1008 1049 1052 1075
IOCS  7A32   132  269
LAB1  7E11  1051 1047
LAB2  7E13  1052 1050
LOCTR 7A3D   189  606  609  610  642  685  743  993 1057 1061 1083 1109
MEMRY 8000    97   98  100
MOV1  7D37   809  812
NEQ   7A36   172
NOELM 7D6F   866  549  555  564  568  581  584  585  595
NOP   7E54  1094 1091 1105
NORM  7D72   871  367  374  390
NOWS  7D45   821  789
NXTPH 7E6E  1119  167  823  824 1115 1116
OFSET 7D6C   863  503  511  546  559
ONE   7D51   836  319  324  515  532  565  935  952 1024 1044 1065 1096
ORG   7A23   109  294  337  946 1058 1089 1099 1103
ORGSW 7D78   877  245  291  334  943 1055 1085
OUABS 7D91   912  410  630  713  715  718  747  920  933 1098 1108
OUREL 7D99   930  401  932
OVERL 7A23    98  106
PCT   7DF0  1020  780 1013 1014 1030
PCT0  7DF5  1026 1025 1043 1045 1066
PCT1  7DFB  1030
PHID  0037   101 1124
PRLGT 7A3E   190 1028 1048 1051 1079
Q0010 7A9A   264  254
Q1000 7AAF   284  282
Q1011 7B96   305  292  296
Q1012 7CC0   658  676
Q1013 7CC9   669  695  703  724
Q101A 7BB0   332
Q101B 7BC4   349  335  339
Q101C 7BBF   340  948 1059
Q101X 7BA0   321  764
Q1021 7CD2   682  664
Q1022 7CD4   685
Q1031 7CE0   702  691
Q1032 7CEB   714  709
Q1033 7CEE   718  699
Q1041 7CF2   729  660
Q1051 7CF8   741  730  748
ROL   7FBC   100  825 1117
SCT   7D76   875  387  395  405
SEVEN 7D58   843  266  404
SOFGT 7A29   115  742
SOFNS 7A27   113  288
SOFS  7A24   110  360  427  822
SOFST 7A26   112  654  890
SOFXT 7A28   114  283  289  640  741
SORF  7A30   122  253  313
STAR1 7A93   253  244
START 7A84   228 1129
STID  7C0D   453  434  442
STONA 7D4E   831  913  917  931  945  947
SYMTP 7D75   874  655  658  662  669  674  675  682
T8011 7D92   913
T8012 7D95   917  954
T8013 7D9A   931
T8014 7DA1   937  936
T8015 7DA8   943  939
T8016 7D97   920
T8017 7DB3   952  941  944
TEMP2 7D74   873  268  272  273  278  686  721
TEOB  7DDE  1004
THREE 7D53   838  523  539 1068
TMP1  7C0C   452  438  439  462  463
TOBU1 7DED  1014  998
TOBUC 7DEC  1013 1006
TOBUF 7DD2   991  918 1011 1015
TWO   7D52   837  521  896 1046
TYPE  7D5A   845  247  320
VSIZE 7D6D   864  524  534  542  548  557  590
WD1   7A42   200
WD10  7A4B   210  258  260
WD12  7A4D   212  333  336  338
WD13  7A4E   215  188 1084 1087 1090 1100 1104
WD14  7A4F   216
WD15  7A50   219  187
WD16  7A51   220  185
WD2   7A43   201
WD3   7A44   202  321  327  328
WD4   7A45   203  290  293  295
WD5   7A46   204  330
WD6   7A47   205
WD7   7A48   206  284
WD8   7A49   207
WD9   7A4A   209  279
WR900 7D0E   768  790
WRITE 7D15   777  775  819 1007
WRITS 7D11   773  615  774
WRITT 7D1B   786  776
Z     7D50   835  245  246  247  266  267  268  271  272  273  275  277  278
                  291  319  320  324  334  366  367  369  370  374  386  387
                  400  401  404  405  410  433  436  443  472  480  482  501
                  503  511  515  516  521  523  524  532  534  538  539  542
                  544  546  548  549  551  554  555  557  559  560  564  565
                  568  581  584  585  589  590  613  616  624  627  630  655
                  658  670  672  673  674  675  686  694  702  712  713  715
                  718  721  729  747  763  796  799  802  888  894  896  913
                  914  917  931  935  938  940  943  945  947  949  952  979
                  997 1005 1007 1024 1041 1044 1046 1055 1065 1068 1072 1076
                 1085 1096 1098 1107 1108
ZERO  7D50   834  239  813  835  914  940  949 1072 1107
ibm/ibm1130-lib/dmsr2v12/kforph25_lst.txt ยท Last modified: 2023/08/06 13:34 by Site Administrator