User Tools

Site Tools


ibm:ibm1130-lib:dmsr2v12:kforph24_lst

KFORPH24

Table Of Contents
  • [00004] 1130 FORTRAN COMPILER PHASE 24
kforph24.lst
ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov  1 19:25:06 2020
 
Source File: \kforph24.asm 
1130 FORTRAN COMPILER PHASE 24
 
                             2 | *************************************************** K2400020
                             3 | *                                                 * K2400030
                             4 | *STATUS- VERSION 2, MODIFICATION 4                * K2400040
                             5 | *                                                 * K2400050
                             6 | *FUNCTION/OPERATION-                              * K2400060
                             7 | *   * LIST CORE REQUIREMENTS                      * K2400070
                             8 | *   * CONVERT CONSTANTS TO DECIMAL AND LIST       * K2400080
                             9 | *     CONSTANTS AND THEIR ADDRESSES AT USER'S     * K2400090
                            10 | *     REQUEST. REAL CONSTANTS ARE LISTED FIRST,   * K2400100
                            11 | *     FOLLOWED BY INTEGER CONSTANTS               * K2400110
                            12 | *                                                 * K2400120
                            13 | *ENTRY POINTS-                                    * K2400130
                            14 | *   * NEQ ENTERED FROM ROL SUBROUTINE             * K2400140
                            15 | *                                                 * K2400150
                            16 | *INPUT-                                           * K2400160
                            17 | *   * CONSISTS OF THE SYMBOL TABLE GENERATED IN   * K2400170
                            18 | *     PREVIOUS PHASES AND THE FORTRAN             * K2400180
                            19 | *     COMMUNICATION AREA FROM PREVIOUS PHASES     * K2400190
                            20 | *                                                 * K2400200
                            21 | *OUTPUT-                                          * K2400210
                            22 | *   * LISTING OF REAL AND INTEGER CONSTANTS       * K2400220
                            23 | *   * LISTING OF CORE REQUIREMENTS                * K2400230
                            24 | *                                                 * K2400240
                            25 | *EXTERNAL REFERENCES-                             * K2400250
                            26 | *   SUBROUTINES-                                  * K2400260
                            27 | *      * ROL-ROUTINE TO READ NEXT PHASE           * K2400270
                            28 | *      * PRINT-ROUTINE TO PRINT A LINE            * K2400280
                            29 | *      * LSTPR-ROUTINE TO PRINT                   * K2400290
                            30 | *                                                 * K2400300
                            31 | *   COMMA/DCOM                                    * K2400310
                            32 | *      * $PHSE                                    * K2400320
                            33 | *      * $CHN12                                   * K2400330
                            34 | *                                                 * K2400340
                            35 | *EXITS-                                           * K2400350
                            36 | *   NORMAL-                                       * K2400360
                            37 | *      * EXIT-THE INTERPHASE ROL ROUTINE IS CALLED* K2400370
                            38 | *       TO READ IN THE NEXT PHASE.                * K2400380
                            39 | *                                                 * K2400390
                            40 | *   ERROR-N/A                                     * K2400400
                            41 | *                                                 * K2400410
                            42 | *TABLES/WORK AREAS                                * K2400420
                            43 | *   PROGRAMMED SWITCHES-                          * K2400430
                            44 | *      THE SWITCHES USED IN PHASE 24 FOLLOW.      * K2400440
                            45 | *      IF POSITIVE, THE SWITCH IS TRANSFER=T      * K2400450
                            46 | *      IF ZERO, THE SWITCH IS NORMAL=N            * K2400460
                            47 | *      * SWITCH HDRSW                             * K2400470
                            48 | *        N= HEADER NOT PERMITTED                  * K2400480
                            49 | *        T= HEADER ALREADY PRINTED                * K2400490
                            50 | *      * SWITCH STPS                              * K2400500
                            51 | *        N= SYMBOL TABLE SCAN FOR LISTING REAL    * K2400510
                            52 | *           CONSTANTS                             * K2400520
                            53 | *        T0 SYMBOL TABLE SCAN FOR LISTING INTEGER * K2400530
                            54 | *           CONSTANTS                             * K2400540
                            55 | *                                                 * K2400550
                            56 | *ATTRIBUTES-N/A                                   * K2400560
                            57 | *                                                 * K2400570
                            58 | *NOTES-N/A                                        * K2400580
                            59 | *                                                 * K2400590
                            60 | *************************************************** K2400600
                            61 |       ABS                                           K2400610
                            62 | *                                                   K2400620
                            63 | *                       SYSTEM EQUATES              K2400630
8000                        64 | MEMRY EQU     /8000                                 K2400640
7A23                        65 | OVERL EQU     MEMRY-1501 START OF FCOM          2-4 K2400650
7FBC                        66 | ROL   EQU     MEMRY-68   LOCN OF RTN TO READ NXT PH K2400660
0078                        67 | $PHSE EQU     /78        NO. OF PHASE NOW IN CORE   K2400670
                            68 | *                                                   K2400680
0036                        69 | PHID  EQU     54         ID NUMBER THIS PHASE       K2400690
                            70 | *                       PRINT ROUTINE               K2400700
                            71 | *                                                   K2400710
7F8B                        72 | HEAD  EQU     ROL-49     PAGE HEADER AREA           K2400720
7E42                        73 | OVERP EQU     HEAD-327-2 DEVICE PRINT ROUTINE AREA  K2400730
7E0C                        74 | NEWPG EQU     OVERP-54   INDIRECT ENTRY PAGE EJECT  K2400740
0006                        75 | $CH12 EQU     /06        CHANNEL 12 INDICATOR       K2400750
7E0E                        76 | PRINT EQU     NEWPG+2    PRINT INTERFACE RTN ENTRY  K2400760
7E45                        77 | LSTPR EQU     OVERP+3    DEVICE PRINT RTN ENTRY     K2400770
7E0D                        78 | AREA  EQU     NEWPG+1    MESSAGE ADDRESS            K2400780
                            79 | *                                                   K2400790
7A23                        80 |       ORG     OVERL                                 K2400800
                            81 | *                                                   K2400810
                            82 | *                  FORTRAN COMMUNICATION AREA       K2400820
7A23                        83 | ORG   BSS     1    ORIGIN ADDRESS               2-4 K2400825
7A24                        84 | SOFS  BSS     1    START OF STRING                  K2400830
7A25                        85 | EOFS  BSS     1    END OF STRING                    K2400840
7A26                        86 | SOFST BSS     1    START OF SYMBOL TABLE            K2400850
7A27                        87 | SOFNS BSS     1    LENGTH OF PROGRAM                K2400860
7A28                        88 | SOFXT BSS     1    SIZE OF WORK AREA (VAR AREA)     K2400870
7A29                        89 | SOFGT BSS     1    SIZE OF CONSTANTS AREA           K2400880
7A2A                        90 | EOFST BSS     1    END OF SYMBOL TABLE              K2400890
7A2B                        91 | COMON BSS     1    RELATIVE ENTRY POINT             K2400900
7A2C                        92 | CSIZE BSS     1    SIZE OF COMMON                   K2400910
7A2D                        93 | ERROR BSS     1    ERROR FLAG                       K2400920
                            94 | *               BIT 15 OVERLAP ERROR                K2400930
                            95 | *               BIT 14 OTHER ERROR                  K2400940
                            96 | *               BIT 13 SUBIN TOO LARGE          2-4 K2400942
                            97 | *               BIT 12 CORE REQUIREMENTS EXCESS 2-4 K2400944
                            98 | *               BIT 11 ORIGIN IN SUBPROGRAM     2-4 K2400945
                            99 | *               BIT 10 OVERLAP IN PHASE 21      2-4 K2400946
                           100 | *               BIT  9 INVALID ORIGIN           2-4 K2400947
7A2E                       101 | FNAME BSS     1    PROGRAM NAME                     K2400950
7A2F                       102 |       BSS     1                                     K2400960
7A30                       103 | SORF  BSS     1    SUBROUTINE(-) OR FUNCTION(+)     K2400970
7A31                       104 | CCWD  BSS     1    CONTROL CARD WORD                K2400980
                           105 | *                BIT 15 TRANSFER TRACE              K2400990
                           106 | *                BIT 14 ARITHMETIC TRACE            K2401000
                           107 | *                BIT 13 EXTENDED PRECISION          K2401010
                           108 | *                BIT 12 LIST SYMBOL TABLE           K2401020
                           109 | *                BIT 11 LIST SUBPROGRAM NAMES       K2401030
                           110 | *                BIT 10 LIST SOURCE PROGRAM         K2401040
                           111 | *                BIT  9 ONE WORD INTEGERS           K2401050
                           112 | *                BIT  8 ORIGIN                  2-4 K2401055
7A32                       113 | IOCS  BSS     1    IOCS CONTROL CARD WORD           K2401060
                           114 | *                BIT 15 CARD                        K2401070
                           115 | *                BIT 14 PAPER TAPE                  K2401080
                           116 | *                BIT 13 TYPEWRITER                  K2401090
                           117 | *                BIT 12 1403 PRINTER                K2401100
                           118 | *                BIT 11 2501 READER                 K2401110
                           119 | *                BIT 10 KEYBOARD                    K2401120
                           120 | *                BIT  9 1442 PUNCH                  K2401130
                           121 | *                BIT  8 DISK                        K2401140
                           122 | *                BIT  7 1132 PRINTER                K2401150
                           123 | *                BIT  3 PLOTTER                     K2401160
                           124 | *                BIT  1 UNFORMATTED DISK            K2401170
7A33                       125 | DFCNT BSS     1                                     K2401180
                           126 | *                                                   K2401190
                           127 | *                  END OF FORTRAN COMMUNICATION     K2401200
                           128 | *                  AREA                             K2401210
                           129 | *                                                   K2401220
7A36                       130 | BPHAR EQU     *+2      BEGIN PHASE AREA             K2401230
7A34 0000                  131 |       DC      0        LOADER WORK AREA             K2401240
7A35 FFCA                  132 |       DC      -54      -PHASE ID FOR SLET LOOKUP    K2401250
7A36 036C                  133 |       DC      NXTPH-*+1  TBL FOR NEXT PHASE ENTRY   K2401260
7A37 0001                  134 |       DC      1        ONE ENTRY TO BE SET BY LDR   K2401270
7A36                       135 |       ORG     *-2                                   K2401280
                           136 | *                                                   K2401290
7A36 4C00 7A72             137 | NEQ   BSC  L  ENT      BRANCH TO INITLZ PROGRAM     K2401300
7A38 0000                  138 | WDCNT DC      *-*      WORD COUNT OF PRINT BUFFER   K2401310
7A39 4000                  139 | PAREA DC      /4000    BLANK                        K2401320
7A3A 4000                  140 |       DC      /4000    BLANK                        K2401330
7A3B 4000                  141 |       DC      /4000    BLANK                        K2401340
7A3C 4000                  142 |       DC      /4000    BLANK                        K2401350
7A3D 4000                  143 |       DC      /4000    BLANK                        K2401360
7A3E 4000                  144 |       DC      /4000    BLANK                        K2401370
7A3F 4000                  145 |       DC      /4000    BLANK                        K2401380
7A40 4000                  146 |       DC      /4000    BLANK                        K2401390
7A41 4000                  147 |       DC      /4000    BLANK                        K2401400
7A42 4000                  148 |       DC      /4000    BLANK                        K2401410
7A43 4000                  149 |       DC      /4000    BLANK                        K2401420
7A44 4000                  150 |       DC      /4000    BLANK                        K2401430
7A45 4000                  151 |       DC      /4000    BLANK                        K2401440
7A46 4000                  152 |       DC      /4000    BLANK                        K2401450
7A47 4000                  153 |       DC      /4000    BLANK                        K2401460
7A48 4000                  154 |       DC      /4000    BLANK                        K2401470
7A49 4000                  155 |       DC      /4000    BLANK                        K2401480
7A4A D900                  156 | TEXT1 DC      /D900    R                            K2401490
7A4B C500                  157 |       DC      /C500    E                            K2401500
7A4C C100                  158 |       DC      /C100    A                            K2401510
7A4D D300                  159 |       DC      /D300    L                            K2401520
7A4E 4000                  160 |       DC      /4000    BLANK                        K2401530
7A4F C300                  161 |       DC      /C300    C                            K2401540
7A50 D600                  162 |       DC      /D600    O                            K2401550
7A51 D500                  163 |       DC      /D500    N                            K2401560
7A52 E200                  164 |       DC      /E200    S                            K2401570
7A53 E300                  165 |       DC      /E300    T                            K2401580
7A54 C100                  166 |       DC      /C100    A                            K2401590
7A55 D500                  167 |       DC      /D500    N                            K2401600
7A56 E300                  168 |       DC      /E300    T                            K2401610
7A57 E200                  169 |       DC      /E200    S                            K2401620
                           170 | *                                                   K2401630
7A58 C305                  171 | PTEX1 LD    3 PAPIN-Z  GET INT VALUE OF PR AREA PT  K2401640
7A59 D400 7E0D             172 |       STO  L  AREA     SAVE IN MESSAGE ADDRESS      K2401650
7A5B 6301                  173 |       LDX   3 1        XR3 = 1                      K2401660
7A5C 6F00 7A38             174 |       STX  L3 WDCNT    SAVE IN WD CNT TO PR BLNK LN K2401670
7A5E 4400 7E0E             175 |       BSI  L  PRINT    BR TO PRINT BLANK LINE       K2401680
7A60 6700 7A4A             176 |       LDX  L3 TEXT1    PUT ADDR OF 'REAL CONSTANTS' K2401690
7A62 6F00 7E0D             177 |       STX  L3 AREA     *MESSAGE IN PRINT LOC        K2401700
7A64 6307                  178 |       LDX   3 7        XR3 = 7                      K2401710
7A65 6F00 7A38             179 |       STX  L3 WDCNT    SAVE MESSAGE WD CNT          K2401720
7A67 4400 7E0E             180 |       BSI  L  PRINT    PRINT MESSAGE                K2401730
7A69 6700 7AC8             181 |       LDX  L3 PHEAD+2  SET UP PHEAD ROUTINE TO      K2401740
7A6B 6B5B                  182 |       STX   3 PHEAD+1  *CONTINUE RATHER THAN BR OUT K2401750
7A6C 6F00 7C01             183 |       STX  L3 BLKPA    SET BLKPA TO RET TO PHEAD+2  K2401760
7A6E 6700 7C0D             184 |       LDX  L3 Z        RESET TRANSFER VECTOR        K2401770
7A70 4C00 7C02             185 |       BSC  L  BLKPA+1  BR TO BLANK OUT PRINT AREA   K2401780
                           186 | *                                                   K2401790
                           187 | *             INITIALIZE PHASE                      K2401800
                           188 | *             CHECK FOR SYMBOL TABLE OVERLAP        K2401810
                           189 | *                                                   K2401820
7A72 6136                  190 | ENT   LDX   1 PHID     GET PHASE ID                 K2401830
7A73 6D00 0078             191 |       STX  L1 $PHSE    STORE IN SYSTEM PHASE AREA   K2401840
                           192 | *                                                   K2401850
                           193 | *             INITIALIZE TRANSFERVECTOR             K2401860
7A75 6700 7C0D             194 |       LDX  L3 Z        GET ADDR OF CONSTANT AREA    K2401870
7A77 6F00 7A36             195 |       STX  L3 NEQ      SAVE ADDR                    K2401880
                           196 | *                                                   K2401890
7A79 C400 7A2D             197 |       LD   L  ERROR    TEST ERROR SW FR PREV PHASES K2401900
7A7B 4C20 7D99             198 |       BSC  L  EXIT,Z   BR TO EXIT IF OVERLAP ERROR  K2401910
                           199 | *                                                   K2401911
7A7D C0B3                  200 |       LD      CCWD       IS THIS AN ABSOLUTE    2-4 K2401912
7A7E 1008                  201 |       SLA     8          COMPILATION            2-4 K2401914
7A7F 4828                  202 |       BSC     +Z         NO  - SKIP             2-4 K2401916
7A80 D31A                  203 |       STO   3 ORGSW-Z    YES - SET ORIGIN SW    2-4 K2401918
                           204 | *                                                   K2401920
                           205 | *             PRINT CORE REQUIREMENTS IF REQUESTED. K2401930
                           206 | *             SET UP TO LIST CONSTANTS.             K2401940
                           207 | *             CHECK FOR EXTENDED PRECISION.         K2401950
                           208 | *             MAKE MODIFICATIONS TO CONSTANTS IF    K2401960
                           209 | *             *EXTENDED PRECISION.                  K2401970
                           210 | *                                                   K2401980
7A81 C300                  211 | L4011 LD    3 0        PUT ZERO IN                  K2401990
7A82 D30A                  212 |       STO   3 STPS-Z   *SYMBOL TABLE PASS SWITCH    K2402000
                           213 | *                                                   K2402010
                           214 | *             BR TO .STATE CORE REQUIREMENTS.       K2402020
                           215 | *             IF NO LISTING REQUIRED                K2402030
                           216 | *                                                   K2402040
7A83 C400 7A31             217 |       LD   L  CCWD     LOAD CONTROL CARD WORD       K2402050
7A85 100C                  218 |       SLA     12       SHIFT LIST SYM TBL BIT       K2402060
7A86 4C10 7B3C             219 |       BSC  L  COREQ,-  BR IF NO LIST REQUESTED      K2402070
                           220 | *                                                   K2402080
                           221 | *                                                   K2402090
                           222 | *             TEST IF EXTENDED PRECISION            K2402100
                           223 | *                                                   K2402110
7A88 1001                  224 |       SLA     1        SHIFT EXTENDED PREC BIT      K2402120
7A89 4C10 7AB1             225 |       BSC  L  L4012,-  BR IF NO EXTENDED PRECISION  K2402130
                           226 | *                                                   K2402140
                           227 | *             MODIFY PROGRAM IF                     K2402150
                           228 | *             EXTENDED PRECISION                    K2402160
                           229 | *                                                   K2402170
7A8B 7401 7C16             230 |       MDX  L  RVARF,1  INCR REAL VARIABLE FORMAT    K2402180
7A8D 7404 7C14             231 |       MDX  L  INCR,4   INCR FLT POINT FORMAT FROM   K2402190
                           232 | *                      20 TO 24                     K2402200
7A8F 7403 7AE5             233 |       MDX  L  L4024,3  INCR NO. DIGITS PAST DECML   K2402210
7A91 7404 7AE8             234 |       MDX  L  L4025,4  INCR FIELD WIDTH             K2402220
                           235 | *                                                   K2402230
7A93 701D                  236 |       MDX     PAREA+120 BR OUT OF OVERLAY PRINT BFR K2402240
7AB1                       237 |       ORG     PAREA+120                             K2402250
                           238 | *                                                   K2402260
7AB1 C400 7A28             239 | L4012 LD   L  SOFXT    INITIALIZE LOCATION          K2402270
7AB3 D30B                  240 |       STO   3 CLOC-Z   OF CURRENT CONSTANT          K2402280
7AB4 6580 7A26             241 | L401X LDX  I1 SOFST    INITLZ SYM TBL POINTER       K2402290
7AB6 6D00 7C19             242 |       STX  L1 STP                                   K2402300
7AB8 C30C                  243 | L4013 LD    3 STP-Z    LOAD SYM TBL POINTER         K2402310
7AB9 9400 7A2A             244 |       S    L  EOFST    TEST FOR END OF SYMBOL TABLE K2402320
7ABB 4C08 7B2D             245 |       BSC  L  L4033,+  BR IF END OF SYMBOL TABLE    K2402330
7ABD C100                  246 | L4021 LD    1 0        LOAD SYMBOL TABLE ID WORD    K2402340
7ABE 4C10 7B2A             247 |       BSC  L  L4032,-  BR IF NOT CONSTANT           K2402350
7AC0 1001                  248 |       SLA     1                                     K2402360
7AC1 4C28 7B05             249 |       BSC  L  L4031,+Z BR IF INTEGER CONSTANT       K2402370
7AC3 C30A                  250 |       LD    3 STPS-Z   LD SYMBOL TABLE PASS SWITCH  K2402380
                           251 | *                                                   K2402390
7AC4 4C20 7B2A             252 |       BSC  L  L4032,Z  BR IF SWITCH NONZERO         K2402400
                           253 | **************************************************  K2402410
                           254 | *                                                   K2402420
                           255 | *             CONVERT REAL CONSTANT AND PRINT       K2402430
                           256 | *             THE CONSTANT AND ITS LOCATION         K2402440
                           257 | *                                                   K2402450
                           258 | **************************************************  K2402460
                           259 | *                                                   K2402470
                           260 | *             PRINT HEADER IF NOT PRINTED BEFORE    K2402480
                           261 | *             NOTE--NEXT INSTRUCTION IS REPLACED BY K2402490
                           262 | *             *A  BSC  L  PHEAD+2 AFTER THE HEADER  K2402500
                           263 | *             *IS PRINTED.                          K2402510
                           264 | *                                                   K2402520
7AC6 4C00 7A58             265 | PHEAD BSC  L  PTEX1                                 K2402530
                           266 | *                                                   K2402540
                           267 | *                                                   K2402550
                           268 | *             INSERT PARAMETERS FOR CONVERTING      K2402560
                           269 | *             OF FLOATING POINT CONST TO            K2402570
                           270 | *             E-TYPE, EBC-CODE                      K2402580
                           271 | *                                                   K2402590
7AC8 C309                  272 |       LD    3 RVARF-Z  INSERT VARIABLE FORMAT       K2402600
7AC9 E301                  273 |       AND   3 1        MASK OUT ALL BUT BIT 15      K2402610
7ACA D400 7C5C             274 |       STO  L  PREC     SAVE PRECISION               K2402620
7ACC 4C04 7ADA             275 |       BSC  L  L4022,E  BR IF EXTENDED PRECISION     K2402630
                           276 | *                                                   K2402640
                           277 | *             INSERT NORMAL PREC CONSTANT           K2402650
                           278 | *             FROM SYMBOL TABLE                     K2402660
                           279 | *                                                   K2402670
7ACE C101                  280 |       LD    1 1        GET 1/2 OF CON FR SYM TBL    K2402680
7ACF D400 7C52             281 |       STO  L  CONVT-3  SAVE IN CONVERT BUFFER       K2402690
7AD1 C102                  282 |       LD    1 2        GET 2ND PART OF CONSTANT     K2402700
7AD2 1888                  283 |       SRT     8        SHIFT OFF BITS 8-15          K2402710
7AD3 1008                  284 |       SLA     8        SHIFT BITS 0-7 BACK          K2402720
7AD4 D400 7C53             285 |       STO  L  CONVT-2  SAVE IN CONVERT BUFFER       K2402730
7AD6 1088                  286 |       SLT     8        SHIFT BITS 8-15 BACK TO ACC  K2402740
7AD7 D400 7C5D             287 |       STO  L  BIN      SAVE BINARY POINT            K2402750
7AD9 700B                  288 |       MDX     L4024    BR TO CONTINUE               K2402760
                           289 | *                                                   K2402770
                           290 | *             INSERT EXTENDED PRECISION CONSTANT    K2402780
                           291 | *             FROM SYMBOL TABLE                     K2402790
                           292 | *                                                   K2402800
7ADA C100                  293 | L4022 LD    1 0        GET SYM TBL ID WORD          K2402810
7ADB 1008                  294 |       SLA     8        SHIFT OFF BITS 0-7           K2402820
7ADC 1808                  295 |       SRA     8        RIGHT JUSTIFY REMAINDER      K2402830
7ADD D400 7C5D             296 |       STO  L  BIN      SAVE IN BINARY POINT         K2402840
7ADF C101                  297 |       LD    1 1        GET 1/2 OF CON FR SYM TBL    K2402850
7AE0 D400 7C52             298 |       STO  L  CONVT-3  SAVE IN CONVERT BUFFER       K2402860
7AE2 C102                  299 |       LD    1 2        GET 2ND PART OF CONSTANT     K2402870
7AE3 D400 7C53             300 |       STO  L  CONVT-2  SAVE IN CONVERT BUFFER       K2402880
                           301 | *                                                   K2402890
                           302 | *             INSERT OTHER PARAMETERS FOR CONVERT   K2402900
7AE5 6206                  303 | L4024 LDX   2 6        NUMBER OF DIGITS AFTER DECML K2402910
7AE6 6E00 7C5B             304 |       STX  L2 DD       *POINT (6 OR 9)              K2402920
7AE8 620D                  305 | L4025 LDX   2 13       FIELD WIDTH                  K2402930
7AE9 6E00 7C5A             306 |       STX  L2 WW       *(13 OR 17)                  K2402940
7AEB C301                  307 |       LD    3 1        GET A CONSTANT = 1           K2402950
7AEC D400 7C45             308 |       STO  L  FRMAI    SET FLT PT INDICATOR         K2402960
7AEE 1010                  309 |       SLA     16       CLEAR ACC                    K2402970
7AEF D400 7C46             310 |       STO  L  FORTP    SET DATA TYPE O/P = E TYPE   K2402980
7AF1 4400 7CB0             311 |       BSI  L  BINRY    BR TO CONVERT DATA TO DECML  K2402990
7AF3 C30F                  312 |       LD    3 H7E00-Z  LOAD AN EQUAL SIGN           K2403000
7AF4 43CD                  313 |       BSI   3 TOPAU-Z  BR TO PUT OUT EQUAL          K2403010
                           314 | *                                                   K2403020
                           315 | *             CONVERT ADDRESS                       K2403030
                           316 | *             AND MOVE TO PRINTAREA                 K2403040
                           317 | *                                                   K2403050
7AF5 438B                  318 |       BSI   3 ATPA-Z   BR TO CONVERT AND MOVE SUBR  K2403060
7AF6 43EF                  319 |       BSI   3 TOPAB-Z  BR TO PUT OUT EXTRA BLANK    K2403070
                           320 | *                                                   K2403080
7AF7 C30B                  321 |       LD    3 CLOC-Z   LOAD CONSTANT LOCATION       K2403090
7AF8 8309                  322 |       A     3 RVARF-Z  INCR BY REAL VAR FMT BITS    K2403100
7AF9 D30B                  323 |       STO   3 CLOC-Z   SAVE BACK IN CONSTANT LOC    K2403110
                           324 | *                                                   K2403120
                           325 | *             INCREMENT PRINT AREA POINTER          K2403130
                           326 | *             AND TEST IF LINE IS FULL              K2403140
                           327 | *                                                   K2403150
7AFA C306                  328 | CKEND LD    3 PAP-Z    LD PRINT AREA POINTER        K2403160
7AFB 9310                  329 |       S     3 LNEND-Z  SUBTRACT END OF LINE         K2403170
7AFC 4C28 7B2A             330 |       BSC  L  L4032,+Z BR IF LINE NOT FULL          K2403180
7AFE 431B                  331 |       BSI   3 PRINN-Z  PRINT A LINE                 K2403190
7AFF C480 0006             332 |       LD   I  $CH12    TEST CHANNEL 12 SWITCH       K2403200
7B01 44A0 7E0C             333 |       BSI  I  NEWPG,Z  PAGE EJECT IF NON-ZERO       K2403210
7B03 7026                  334 |       MDX     L4032    BR TO CONTINUE               K2403220
                           335 | *                                                   K2403230
                           336 | **************************************************  K2403240
7B04 0000                  337 | HTES  DC      *-*      HEADER TEST SWITCH           K2403250
                           338 | *                                                   K2403260
7B05 C30A                  339 | L4031 LD    3 STPS-Z   LD SYMBOL TABLE PASS SWITCH  K2403270
7B06 4C18 7B2A             340 |       BSC  L  L4032,+- BR IF SWITCH ZERO            K2403280
7B08 C0FB                  341 |       LD      HTES     LD HEADER TEST SWITCH        K2403290
7B09 4C20 7B16             342 |       BSC  L  INTC,Z   BR IF NON-ZERO               K2403300
7B0B 43F4                  343 |       BSI   3 BLKPA-Z  BLANK OUT PRINT AREA         K2403310
7B0C 431B                  344 |       BSI   3 PRINN-Z  PRINT BLANK LINE             K2403320
7B0D C480 0006             345 |       LD   I  $CH12    TEST FOR CHANNEL 12 SW ON    K2403330
7B0F 44A0 7E0C             346 |       BSI  I  NEWPG,Z  IF PAGE END, RESTORE PAGE    K2403340
7B11 C314                  347 |       LD    3 TEX2A-Z  GET ADDR .INTEGER CONSTANTS. K2403350
7B12 43B5                  348 |       BSI   3 PTEXT-Z  BR TO MOVE TEXT TO PR AREA   K2403360
7B13 7401 7B04             349 |       MDX  L  HTES,1   SET HEADER TEST SW NON-ZERO  K2403370
7B15 431B                  350 |       BSI   3 PRINN-Z  PRINT HEADER                 K2403380
7B16 43A4                  351 | INTC  BSI   3 INTLS-Z  BR TO CONVERT INTEGER CONS   K2403390
7B17 C101                  352 |       LD    1 1        GET WORD FROM SYMBOL TABLE   K2403400
7B18 D400 7C52             353 |       STO  L  CONVT-3  SAVE IN CONVERSION AREA      K2403410
7B1A F333                  354 |       EOR   3 H8000-Z  REMOVE BIT 0                 K2403420
7B1B 4C20 7B22             355 |       BSC  L  INTD,Z   BR IF WD NOT ZERO            K2403430
7B1D C333                  356 |       LD    3 H8000-Z  LOAD BIT 0 = 1               K2403440
7B1E 1881                  357 |       SRT     1        PUT 1'S IN BITS 0 AND 1      K2403450
7B1F 7401 7C5D             358 |       MDX  L  BIN,1    INCREMENT BINARY POINTER     K2403460
7B21 D345                  359 |       STO   3 CONVT-3-Z SAVE CONVERT WORD           K2403470
7B22 4400 7CB0             360 | INTD  BSI  L  BINRY    BR TO CONVERT DATA TO DECIML K2403480
7B24 C30F                  361 |       LD    3 H7E00-Z  LD = SIGN                    K2403490
7B25 43CD                  362 |       BSI   3 TOPAU-Z  BR TO PUT IN PRINT BUFFER    K2403500
7B26 438B                  363 |       BSI   3 ATPA-Z   MOVE ADDR OF CON TO PR AREA  K2403510
7B27 7401 7C18             364 |       MDX  L  CLOC,1   INCR CONSTANT LOCATION       K2403520
7B29 70D0                  365 |       MDX     CKEND    BR TO TEST IF PR LINE FULL   K2403530
                           366 | *                                                   K2403540
                           367 | *             GET NEXT CONSTANT.                    K2403550
                           368 | *             MOVE SYMBOL TABLE POINTER             K2403560
                           369 | *                                                   K2403570
7B2A 4061                  370 | L4032 BSI     MSTP     MOVE SYMBOL TABLE POINTER    K2403580
7B2B 4C00 7AB8             371 |       BSC  L  L4013    BR TO TEST FOR SYM TBL END   K2403590
                           372 | *                                                   K2403600
                           373 | *             END OF SYMBOL TABLE ENCOUNTERED       K2403610
                           374 | *                                                   K2403620
7B2D C306                  375 | L4033 LD    3 PAP-Z    GET PRINT AREA POINTER       K2403630
7B2E 9305                  376 |       S     3 PAPIN-Z  SUBTRACT INITIAL VAL PR AREA K2403640
7B2F 4420 7C28             377 |       BSI  L  PRINN,Z  PR LN IF DIFFERENCE GT ZERO  K2403650
7B31 C480 0006             378 |       LD   I  $CH12    TEST FOR END OF PAGE         K2403660
7B33 44A0 7E0C             379 |       BSI  I  NEWPG,Z  IF END OF PAGE, RESTORE PAGE K2403670
                           380 | *                                                   K2403680
                           381 | *             IF SYMBOL TABLE PASS SW IS NONZERO    K2403690
                           382 | *             GO TO LISTING OF CORE REQUIREMENTS    K2403700
                           383 | *                                                   K2403710
7B35 C30A                  384 |       LD    3 STPS-Z   LD SYM TBL PASS SWITCH       K2403720
7B36 4C20 7B3C             385 |       BSC  L  COREQ,Z  BR IF NONZERO                K2403730
                           386 | *                                                   K2403740
                           387 | *                                                   K2403750
7B38 C301                  388 |       LD    3 1        SET SYM TBL PASS SWITCH      K2403760
7B39 D30A                  389 |       STO   3 STPS-Z   *TO NONZERO                  K2403770
                           390 | *                                                   K2403780
7B3A 4C00 7AB4             391 |       BSC  L  L401X    GO TO SECOND PASS OF         K2403790
                           392 | *                      SYM TBL (FOR LISTING OF      K2403800
                           393 | *                      *INTEGER CONSTANTS)          K2403810
                           394 | *                                                   K2403820
                           395 | *             LIST CORE REQUIREMENTS                K2403830
                           396 | *                                                   K2403840
7B3C 43F4                  397 | COREQ BSI   3 BLKPA-Z  BLANK PRINT AREA             K2403850
7B3D 431B                  398 |       BSI   3 PRINN-Z  PRINT BLANK LINE             K2403860
7B3E C315                  399 |       LD    3 CORA-Z   GET ADDR .CORE REQUIREMENTS. K2403870
7B3F 43B5                  400 |       BSI   3 PTEXT-Z  BR TO MOVE TEXT TO PR AREA   K2403880
7B40 6500 7A2D             401 |       LDX  L1 FNAME-1  LD PROGRAM NAME POINTER      K2403890
7B42 C101                  402 |       LD    1 1        LD WD1 OF PROG NAME          K2403900
7B43 43DA                  403 |       BSI   3 TOPA-Z   CONVERT CHAR 1-MOVE TO PRINT K2403910
7B44 C101                  404 |       LD    1 1        LD WD1 OF PROG NAME          K2403920
7B45 1006                  405 |       SLA     6        SHIFT TO POSITION            K2403930
7B46 43DA                  406 |       BSI   3 TOPA-Z   CONVERT CHAR 2-MOVE TO PRINT K2403940
7B47 C102                  407 |       LD    1 2        LD WD2 OF PROG NAME          K2403950
7B48 18D0                  408 |       RTE     16       SHIFT TO EXTENSION           K2403960
7B49 C101                  409 |       LD    1 1        LOAD WD1 OF PROG NAME        K2403970
7B4A 108C                  410 |       SLT     12       SHIFT ACC AND EXTENSION      K2403980
7B4B 43DA                  411 |       BSI   3 TOPA-Z   CONVERT CHAR 3-MOVE TO PRINT K2403990
7B4C C102                  412 |       LD    1 2        LOAD WD2 OF PROG NAME        K2404000
7B4D 1002                  413 |       SLA     2        SHIFT TO POSITION            K2404010
7B4E 43DA                  414 |       BSI   3 TOPA-Z   CONVERT CHAR 4-MOVE TO PRINT K2404020
7B4F C102                  415 |       LD    1 2        LOAD WD2 OF PROG NAME        K2404030
7B50 1008                  416 |       SLA     8        SHIFT TO POSITION            K2404040
7B51 43DA                  417 |       BSI   3 TOPA-Z   CONVERT CHAR 5-MOVE TO PRINT K2404050
7B52 431B                  418 |       BSI   3 PRINN-Z  PRINT A LINE                 K2404060
                           419 | *                                                   K2404070
                           420 | *             COMMON SIZE TO PRINT AREA             K2404080
7B53 C316                  421 |       LD    3 COMA-Z   GET ADDR .COMMON.            K2404090
7B54 43B5                  422 |       BSI   3 PTEXT-Z  BR TO MOVE TEXT TO PR AREA   K2404100
7B55 43A4                  423 |       BSI   3 INTLS-Z  INITLZ INTEGER CON CONVERT   K2404110
7B56 C400 7A2C             424 |       LD   L  CSIZE    GET SIZE OF COMMON           K2404120
7B58 D400 7C52             425 |       STO  L  CONVT-3  SAVE IN CONVERSION AREA      K2404130
7B5A 4400 7DA6             426 |       BSI  L  PTCH1     GO CONVERT NUMBER       2-2 K2404140
                           427 | *                                                   K2404150
                           428 | *             SIZE OF WORK AREA TO PRINT AREA       K2404160
7B5C C317                  429 |       LD    3 VARA-Z   GET ADDR .VARIABLES.         K2404170
7B5D 43B5                  430 |       BSI   3 PTEXT-Z  MOVE TEXT TO PRINT AREA      K2404180
7B5E 43A4                  431 |       BSI   3 INTLS-Z  INITLZ INTEGER CON CONVERT   K2404190
7B5F C400 7A28             432 |       LD   L  SOFXT    GET SIZE OF WORK AREA        K2404200
7B61 D400 7C52             433 |       STO  L  CONVT-3  SAVE IN CONVERT WORD         K2404210
7B63 4400 7DA6             434 |       BSI  L  PTCH1     GO CONVERT NUMBER       2-2 K2404220
                           435 | *                                                   K2404230
                           436 | *             CONSTANTS AND PROGRAM AREA SIZE       K2404240
                           437 | *             TO PRINT AREA                         K2404250
                           438 | *                                                   K2404260
7B65 C318                  439 |       LD    3 PROA-Z   GET ADDR .PROGRAM.           K2404270
7B66 43B5                  440 |       BSI   3 PTEXT-Z  MOVE TEXT TO PRINT AREA      K2404280
7B67 43A4                  441 |       BSI   3 INTLS-Z  INITLZ INTEGER CON CONVERT   K2404290
7B68 C400 7A27             442 |       LD   L  SOFNS    COMPUTE LENGTH OF PROGRAM    K2404300
                           443 | *                      AREA                         K2404310
7B6A 9400 7A28             444 |       S    L  SOFXT    SUBTRACT SIZE OF WORK AREA   K2404320
7B6C D400 7A27             445 |       STO  L  SOFNS    SAVE LENGTH OF PROGRAM AREA  K2404330
7B6E D400 7C52             446 |       STO  L  CONVT-3  SAVE IN CONVERSION AREA      K2404340
7B70 4400 7DA6             447 |       BSI  L  PTCH1     GO CONVERT NUMBER       2-2 K2404350
7B72 431B                  448 |       BSI   3 PRINN-Z  PRINT OUTPUT                 K2404360
                           449 | *                                                   K2404370
                           450 | *             CHECK FOR CORE SIZE ERRORS            K2404380
                           451 | *                                                   K2404390
7B73 1010                  452 |       SLA     16                                    K2404400
7B74 D017                  453 |       STO     MSTP     CLEAR TEMPORARY ACCUMULATOR  K2404410
                           454 | *                                                   K2404420
7B75 C400 7A2C             455 |       LD   L  CSIZE    CHECK COMMON AREA SIZE       K2404430
7B77 4008                  456 |       BSI     CS000                                 K2404440
                           457 | *                                                   K2404450
7B78 C400 7A28             458 |       LD   L  SOFXT    CHECK VARIABLE AREA SIZE     K2404460
7B7A 4005                  459 |       BSI     CS000                                 K2404470
                           460 | *                                                   K2404480
7B7B C400 7A27             461 |       LD   L  SOFNS    CHECK PROGRAM AREA SIZE      K2404490
7B7D 4002                  462 |       BSI     CS000                                 K2404500
                           463 | *                                                   K2404510
7B7E 4C00 7D99             464 |       BSC  L  EXIT     EXIT                         K2404520
                           465 | *                                                   K2404530
                           466 | *                                                   K2404540
7B80 0000                  467 | CS000 DC      *-*      LINK                         K2404550
                           468 | *                                                   K2404560
7B81 4C28 7B89             469 |       BSC  L  CS050,+Z ERROR IF SIZE NEGATIVE       K2404570
                           470 | *                                                   K2404580
7B83 8008                  471 |       A       MSTP                                  K2404590
7B84 D007                  472 |       STO     MSTP                                  K2404600
7B85 4C28 7B89             473 |       BSC  L  CS050,+Z BRANCH IF OVERFLOW           K2404610
                           474 | *                                                   K2404620
7B87 4C80 7B80             475 | CS010 BSC  I  CS000    RETURN                       K2404630
                           476 | *                                                   K2404640
                           477 | *             INDICATE SIZE ERROR                   K2404650
                           478 | *                                                   K2404660
7B89 7408 7A2D             479 | CS050 MDX  L  ERROR,8    INDICATE ERROR         2-4 K2404670
7B8B 70FB                  480 |       MDX     CS010    RETURN                       K2404700
                           481 | *                                                   K2404710
                           482 | *                                                   K2404720
                           483 | *                                                   K2404730
                           484 | *             SUBR. MOVE SYMBOL TABLE POINTER       K2404740
7B8C 0000                  485 | MSTP  DC      0        LINK                         K2404750
7B8D C100                  486 |       LD    1 0        GET SYM TBL ID WORD          K2404760
7B8E E30D                  487 |       AND   3 MASK3-Z  TEST FOR DIMENSION           K2404770
7B8F 4820                  488 |       BSC     Z        SKIP IF NOT DIMENSIONED      K2404780
7B90 C30E                  489 |       LD    3 CM3-Z    LD MINUS 3 IF DIMENSIONED    K2404790
7B91 9303                  490 |       S     3 3        DECR BY 3                    K2404800
7B92 830C                  491 |       A     3 STP-Z    DECR SYM TBL PT BY 3 OR 6    K2404810
7B93 D30C                  492 |       STO   3 STP-Z    SAVE SYM TBL POINTER         K2404820
7B94 6580 7C19             493 |       LDX  I1 STP      PUT SYM TBL PT IN XR1        K2404830
7B96 4C80 7B8C             494 |       BSC  I  MSTP     RETURN                       K2404840
                           495 | *                                                   K2404850
                           496 | *             MOVE ADDRESS TO PAREA                 K2404860
7B98 0000                  497 | ATPA  DC      *-*      LINK ENTRY POINT             K2404870
7B99 C31A                  498 |       LD    3 ORGSW-Z    IS IT ABSOLUTE         2-4 K2404871
7B9A 4C18 7BA5             499 |       BSC  L  ATPA1,+-   NO  - BRANCH           2-4 K2404872
7B9C C30B                  500 |       LD    3 CLOC-Z     YES - RELOCATE         2-4 K2404873
7B9D 8400 7A23             501 |       A    L  ORG        THE                    2-4 K2404874
7B9F 4C10 7BA6             502 |       BSC  L  ATPA2,-    BRANCH IF POSITIVE     2-4 K2404876
7BA1 7440 7A2D             503 |       MDX  L  ERROR,64   SET UP ERROR 86        2-4 K2404877
7BA3 4C00 7D99             504 |       BSC  L  EXIT       EXIT                   2-4 K2404878
                           505 | *                                                   K2404879
7BA5 C30B                  506 | ATPA1 LD    3 CLOC-Z   GET HEX LOC OF CURRENT CON   K2404880
7BA6 188C                  507 | ATPA2 SRT     12       SHIFT OFF LOWER 3 HEX CHARS  K2404890
7BA7 404A                  508 |       BSI     TOPAH    BR TO PUT HEX CHAR PR AREA   K2404900
7BA8 1084                  509 |       SLT     4        SHIFT NXT CHAR FR EXTENSION  K2404910
7BA9 4048                  510 |       BSI     TOPAH    BR TO PUT HEX CHAR PR AREA   K2404920
7BAA 1084                  511 |       SLT     4        SHIFT NXT CHAR FR EXTENSION  K2404930
7BAB 4046                  512 |       BSI     TOPAH    BR TO PUT HEX CHAR PR AREA   K2404940
7BAC 1084                  513 |       SLT     4        SHIFT LAST CHAR FR EXTENSION K2404950
7BAD 4044                  514 |       BSI     TOPAH    BR TO PUT HEX CHAR PR AREA   K2404960
7BAE 404D                  515 |       BSI     TOPAB    PUT BLANK IN PRINT AREA      K2404970
7BAF 4C80 7B98             516 |       BSC  I  ATPA     RETURN                       K2404980
                           517 | *                                                   K2404990
                           518 | *             SET UP CONVERSION ROUTINE FOR         K2405000
                           519 | *                  INTEGER CONSTANTS.               K2405010
                           520 | *                                                   K2405020
7BB1 0000                  521 | INTLS DC      *-*      ENTRY POINT                  K2405030
7BB2 6206                  522 |       LDX   2 6        SET FIELD WIDTH              K2405040
7BB3 6E00 7C5A             523 |       STX  L2 WW       *TO 6                        K2405050
7BB5 1010                  524 |       SLA     16       CLEAR 2ND WD OF CONVERSION   K2405060
7BB6 D400 7C53             525 |       STO  L  CONVT-2  *AREA                        K2405070
7BB8 D400 7C45             526 |       STO  L  FRMAI    SET INTEGER CONVERSION CODE  K2405080
7BBA C311                  527 |       LD    3 D143-Z   SET BINARY DECIMAL POINT     K2405090
7BBB D400 7C5D             528 |       STO  L  BIN      *FOR INCREMENTING            K2405100
7BBD 6202                  529 |       LDX   2 2        SET DATA TYPE TO             K2405110
7BBE 6E00 7C46             530 |       STX  L2 FORTP    *I FORMAT                    K2405120
7BC0 4C80 7BB1             531 |       BSC  I  INTLS    RETURN                       K2405130
                           532 | *                                                   K2405140
                           533 | *             PUT TEXT IN PRINT AREA.               K2405150
                           534 | *             ADDRESS OF TEXT IN A-REG ON ENTRY     K2405160
                           535 | *                                                   K2405170
7BC2 0000                  536 | PTEXT DC      0        ENTRY POINT                  K2405180
7BC3 D001                  537 |       STO     HTES1+1  SAVE ADDR OF TEXT            K2405190
7BC4 6680 0000             538 | HTES1 LDX  I2 *-*      PUT WD COUNT IN XR2          K2405200
7BC6 1090                  539 |       SLT     16       CLEAR ACC                    K2405210
7BC7 6780 7C13             540 |       LDX  I3 PAP      PUT PR AREA POINTER XR3      K2405220
7BC9 7401 7BC5             541 | LOOPP MDX  L  HTES1+1,1 INCR ADDR POINTER           K2405230
7BCB C480 7BC5             542 |       LD   I  HTES1+1  LD PACKED CHARACTER          K2405240
7BCD 1888                  543 |       SRT     8        SHIFT RIGHT CHAR EXTENSION   K2405250
7BCE 1008                  544 |       SLA     8        SHIFT LEFT TO PRINT POSITION K2405260
7BCF D300                  545 |       STO   3 0        SAVE IN PRINT LINE           K2405270
7BD0 1090                  546 |       SLT     16       SHIFT RIGHT CHAR TO POSITION K2405280
7BD1 D301                  547 |       STO   3 1        SAVE IN PRINT LINE           K2405290
7BD2 7302                  548 |       MDX   3 2        INCR PRINT LINE POINTER      K2405300
7BD3 72FF                  549 |       MDX   2 -1       DECR WORD COUNT              K2405310
7BD4 70F4                  550 |       MDX     LOOPP    LOOP IF COUNT NOT FINISHED   K2405320
7BD5 6B3D                  551 |       STX   3 PAP      SAVE NEW PRINT AREA POINTER  K2405330
7BD6 6700 7C0D             552 |       LDX  L3 Z        RESET XR3 FOR CONSTANTS      K2405340
7BD8 4C80 7BC2             553 | HTES3 BSC  I  PTEXT    RETURN                       K2405350
                           554 | *                                                   K2405360
                           555 | *                                                   K2405370
                           556 | *             SUBROUTINE                            K2405380
                           557 | *             MOVE CHAR IN ACC TO PR AREA UNCHANGED K2405390
                           558 | *                                                   K2405400
7BDA 0000                  559 | TOPAU DC      0        LINK                         K2405410
7BDB D007                  560 |       STO     STOCH    SAVE CHAR TO BE PRINTED      K2405420
7BDC C006                  561 | TOPAX LD      STOCH    LD CHAR TO BE PRINTED        K2405430
7BDD D480 7C13             562 |       STO  I  PAP      SAVE IN PRINT AREA           K2405440
7BDF 7401 7C13             563 |       MDX  L  PAP,1    MOVE PRINT AREA POINTER      K2405450
7BE1 4C80 7BDA             564 |       BSC  I  TOPAU    RETURN                       K2405460
                           565 | *                                                   K2405470
7BE3 0000                  566 | STOCH DC      *-*      CHARACTER TO BE PRINTED      K2405480
7BE4 000F                  567 | H000F DC      /000F    CONSTANT                     K2405490
7BE5 000A                  568 | H000A DC      /000A    CONSTANT                     K2405500
7BE6 0039                  569 | H0039 DC      /0039    CONSTANT                     K2405510
                           570 | *                                                   K2405520
                           571 | *             SUBROUTINE                            K2405530
                           572 | *             CONVERT CHAR IN ACC INTO              K2405540
                           573 | *             EBC-CODE, THEN MOVE TO PRINT AREA     K2405550
                           574 | *                                                   K2405560
7BE7 0000                  575 | TOPA  DC      0        LINK                         K2405570
7BE8 E312                  576 |       AND   3 H3F00-Z  MASK BITS 2-7                K2405580
7BE9 4C18 7BF0             577 |       BSC  L  TOPA2,+- BR IF BLANK                  K2405590
                           578 | *                                                   K2405600
                           579 | *             NOTE                                  K2405610
                           580 | *             IF OTHER SPECIAL CHARACTERS THAN      K2405620
                           581 | *             BLANK ARE EXPECTED, TESTING SHOULD    K2405630
                           582 | *             BE HERE                               K2405640
7BEB E829                  583 |       OR      HC000    ADD FIRST 2 BITS ALPHA-NOS   K2405650
7BEC D0F6                  584 | TOPA1 STO     STOCH    SAVE IN CHAR STORAGE WD      K2405660
7BED C0F9                  585 |       LD      TOPA     MOVE LINK                    K2405670
7BEE D0EB                  586 |       STO     TOPAU    *TO OUTPUT                   K2405680
7BEF 70EC                  587 |       MDX     TOPAX    BR TO PRINT CHAR IN EBC      K2405690
7BF0 C313                  588 | TOPA2 LD    3 H4000-Z  LOAD EBC BLANK               K2405700
7BF1 70FA                  589 |       MDX     TOPA1    BR TO PUT IN BUFFER          K2405710
                           590 | *                                                   K2405720
                           591 | *                                                   K2405730
                           592 | *             SUBROUTINE                            K2405740
                           593 | *             MOVE HEX CHAR TO PRINT AREA           K2405750
                           594 | *                                                   K2405760
7BF2 0000                  595 | TOPAH DC      0        LINK                         K2405770
7BF3 E0F0                  596 |       AND     H000F    SAVE ONLY BITS 12-15         K2405780
7BF4 90F0                  597 |       S       H000A    TEST FOR CON LT A            K2405790
7BF5 4828                  598 |       BSC     Z+       SKIP IF GT 9                 K2405800
7BF6 80EF                  599 |       A       H0039    RESTORE CON & EBC BITS       K2405810
7BF7 8301                  600 |       A     3 1        ADD 1                        K2405820
7BF8 1008                  601 |       SLA     8        SHIFT TO EBC FORMAT          K2405830
7BF9 40ED                  602 |       BSI     TOPA     CONVERT AND MOVE             K2405840
7BFA 4C80 7BF2             603 |       BSC  I  TOPAH    RETURN                       K2405850
                           604 | *                                                   K2405860
                           605 | *             PUT ONE BLANK IN PRINT AREA           K2405870
7BFC 0000                  606 | TOPAB DC      0        ENTRY POINT                  K2405880
7BFD 1010                  607 |       SLA     16       CLEAR ACC                    K2405890
7BFE 40E8                  608 |       BSI     TOPA     PUT OUT BLANK                K2405900
7BFF 4C80 7BFC             609 |       BSC  I  TOPAB    RETURN                       K2405910
                           610 | *                                                   K2405920
                           611 | *             SUBROUTINE                            K2405930
                           612 | *             BLANK TO PRINT AREA                   K2405940
                           613 | *                                                   K2405950
7C01 0000                  614 | BLKPA DC      0        LINK                         K2405960
7C02 C313                  615 |       LD    3 H4000-Z  PUT EBC BLANK ACC            K2405970
7C03 6700 0079             616 |       LDX  L3 121      LD BFR SIZE IN XR3           K2405980
7C05 D700 7A38             617 | BLKP1 STO  L3 PAREA-1  SAVE BLANK IN PR AREA        K2405990
7C07 73FF                  618 |       MDX   3 -1       DECR BUFFER COUNT            K2406000
7C08 70FC                  619 |       MDX     BLKP1    CONTINUE IF CNT NOT 0        K2406010
7C09 6700 7C0D             620 |       LDX  L3 Z        RESET XR3 WITH CON ADDR      K2406020
7C0B 4C80 7C01             621 |       BSC  I  BLKPA    RETURN                       K2406030
                           622 | *                                                   K2406040
                           623 | *             CONSTANTS AREA                        K2406050
                           624 | *             NOTE--GREAT CARE SHOULD BE USED       K2406060
                           625 | *             IN CHANGING CONSTANTS AROUND AS SOME  K2406070
                           626 | *             OF THE LOCATIONS ARE REFERENCED RLTV  K2406080
                           627 | *             TO THE START OD THE AREA.             K2406090
                           628 | *             XR3 IS LOADED WITH THE ADDRESS OF Z   K2406100
                           629 | *             FOR REFERENCE TO THE CONSTANTS        K2406110
                           630 | *                                                   K2406120
7C0D 0000                  631 | Z     DC      0        CONSTANT0                    K2406130
7C0E 0001                  632 |       DC      1        CONSTANT ONE                 K2406140
7C0F 0002                  633 |       DC      2        CONSTANT TWO                 K2406150
7C10 0003                  634 |       DC      3        CONSTANT THREE               K2406160
7C11 0004                  635 |       DC      4        CONSTANT FOUR                K2406170
7C12 7A39                  636 | PAPIN DC      PAREA    INITIAL VALUE OF PAP         K2406180
7C13 7A39                  637 | PAP   DC      PAREA    PRINT AREA POINTER           K2406190
7C14 0014                  638 | INCR  DC      20       INCREMENT OF PRINT AREA      K2406200
                           639 | *                      (IS CHANGED INTO 24 WHEN     K2406210
                           640 | *                      EXTENDED PRECISION)          K2406220
7C15 C000                  641 | HC000 DC      /C000    CONSTANT MASK                K2406230
7C16 0002                  642 | RVARF DC      /0002    REAL VARIABLE FORMAT         K2406240
7C17 0000                  643 | STPS  DC      0        SYMBOL TABLE PASS SWITCH     K2406250
7C18 0000                  644 | CLOC  DC      0        LOCATION OF CURRENT CONSTANT K2406260
7C19 0000                  645 | STP   DC      0        SYMBOL TABLE POINTER         K2406270
7C1A 1800                  646 | MASK3 DC      /1800    CONSTANT MASK                K2406280
7C1B FFFD                  647 | CM3   DC      /FFFD    CONSTANT = MINUS 3           K2406290
7C1C 7E00                  648 | H7E00 DC      /7E00    EQUAL SIGN                   K2406300
7C1D 7AB1                  649 | LNEND DC      PAREA+120 LINE END CONSTANT           K2406310
7C1E 008F                  650 | D143  DC      143      CONSTANT                     K2406320
7C1F 3F00                  651 | H3F00 DC      /3F00    CONSTANT MASK                K2406330
7C20 4000                  652 | H4000 DC      /4000    CONSTANT MASK                K2406340
7C21 7D70                  653 | TEX2A DC      TEXT2    ADDR OF MSG TO PRINT         K2406350
7C22 7D7A                  654 | CORA  DC      CORTX    ADDR OF MSG TO PRINT         K2406360
7C23 7D86                  655 | COMA  DC      COMTX    ADDR OF MSG TO PRINT         K2406370
7C24 7D8B                  656 | VARA  DC      VARTX    ADDR OF MSG TO PRINT         K2406380
7C25 7D92                  657 | PROA  DC      PROTX    ADDR OF MSG TO PRINT         K2406390
7C26 003C                  658 | D60   DC      60       CONSTANT                     K2406400
7C27 0000                  659 | ORGSW DC      0          ORIGIN SWITCH          2-4 K2406405
                           660 | *                                                   K2406410
                           661 | *             SUBROUTINE                            K2406420
                           662 | *             SET UP TO PRINT A LINE AND GO PRINT   K2406430
                           663 | *             *THE LINE                             K2406440
                           664 | *                                                   K2406450
7C28 0000                  665 | PRINN DC      *-*      ENTRY POINT                  K2406460
7C29 C305                  666 |       LD    3 PAPIN-Z  GET INT VALUE OF PAP         K2406470
7C2A D306                  667 |       STO   3 PAP-Z    RESET PAP                    K2406480
7C2B D400 7E0D             668 |       STO  L  AREA     SAVE PRINT AREA              K2406490
7C2D C319                  669 |       LD    3 D60-Z    SET WORD COUNT               K2406500
7C2E D400 7A38             670 |       STO  L  WDCNT    *=60                         K2406510
7C30 4400 7E0E             671 |       BSI  L  PRINT    BR TO PRINT A LINE           K2406520
7C32 43F4                  672 |       BSI   3 BLKPA-Z  CLEAR PRINT AREA             K2406530
7C33 4C80 7C28             673 |       BSC  I  PRINN    RETURN                       K2406540
                           674 | *                                                   K2406550
                           675 | *                                                   K2406560
7C35 0080                  676 | C128  DC      128      CONSTANT                     K2406570
7C36 FFFF                  677 | MONE  DC      -1       CONSTANT                     K2406580
7C37 000A                  678 | TEN   DC      10       CONSTANT                     K2406590
7C38 00C5                  679 | H00C5 DC      /00C5    CONSTANT MASK                K2406600
7C39 0000                  680 | MULT  DC      *-*      RETURN ADDRESS               K2406610
7C3A 4C00 7C5E             681 |       BSC  L  MULT1    GO TO MULTIPLY SUBROUTINE    K2406620
7C3C 0000                  682 | NORM  DC      *-*      RETURN ADDRESS               K2406630
7C3D 4C00 7C6E             683 |       BSC  L  NORM1    GO TO NORMALIZE ROUTINE      K2406640
7C3F 0005                  684 | FIVE  DC      5        CONSTANT                     K2406650
7C40 8000                  685 | H8000 DC      /8000    CONSTANT MASK                K2406660
7C41 0060                  686 | MINUS DC      /0060    EBC MINUS RIGHT JUSTIFIED    K2406670
7C42 0040                  687 | BLANK DC      /0040    EBC BLANK RIGHT JUSTIFIED    K2406680
7C43 0006                  688 | SIX   DC      6        CONSTANT                     K2406690
                           689 | *                                                   K2406700
                           690 | *             DATA STORAGE AREA FOR BINARY-DECIMAL  K2406710
                           691 | *             CONVERSION SUBROUTINE                 K2406720
                           692 | *                                                   K2406730
7C44 0000                  693 | CHAR  DC      0        CHARACTER STORAGE            K2406740
7C45 0000                  694 | FRMAI DC      0        INTEGER OR DECML FLAG        K2406750
7C46 0000                  695 | FORTP DC      0        TYPE OF DATA TO BE OUTPUT    K2406760
7C47 0000                  696 | LKTYP DC      0        TEMPORARY STORAGE AREA       K2406770
7C44                       697 | X     EQU     CHAR     REFERENCE PT FOR DATA AREA   K2406780
7C48                       698 |       BSS  E  0                                     K2406790
7C48 0002                  699 | TWO   DC      2        CONSTANT          (EVEN LOC) K2406800
7C49 0001                  700 | ONE   DC      1        CONSTANT          (ODD  LOC) K2406810
7C4A 004B                  701 | H004B DC      /004B    CONSTANT          (EVEN LOC) K2406820
7C4B 00F0                  702 | H00F0 DC      /00F0    CONSTANT          (ODD  LOC) K2406830
7C4C 0000                  703 | JCON  DC      0        CHAR STO MULTIPLY (EVEN LOC) K2406840
7C4D 0000                  704 |       DC      0        *SUBROUTINE       (ODD  LOC) K2406850
7C4E 0000                  705 | BB    DC      0        EBC REPRESENTATION(EVEN LOC) K2406860
7C4F 0000                  706 |       DC      0        *OF EXPONENT      (ODD  LOC) K2406870
7C50 0000                  707 | EENCT DC      0        EXPONENT SIGN     (EVEN LOC) K2406880
7C51 0000                  708 |       DC      0        FIVE              (ODD  LOC) K2406890
7C52 0000                  709 |       DC      0        *WORD             (EVEN LOC) K2406900
7C53 0000                  710 |       DC      0        *CONVERSION       (ODD  LOC) K2406910
7C54 0000                  711 |       DC      0        *AREA             (EVEN LOC) K2406920
7C55 0000                  712 | CONVT DC      0        *                 (ODD  LOC) K2406930
7C56 0000                  713 | SIGN  DC      0        SIGN COUNT        (EVEN LOC) K2406940
7C57 0000                  714 | DIVCT DC      0        DIVIDE COUNT      (ODD  LOC) K2406950
7C58 0000                  715 | MANSN DC      0        MANTISSA SIGN     (EVEN LOC) K2406960
7C59 0000                  716 | TEMP  DC      0        TEMPORARY STORAGE (ODD  LOC) K2406970
7C5A 0000                  717 | WW    DC      0        FIELD WIDTH       (EVEN LOC) K2406980
7C5B 0000                  718 | DD    DC      0        DECIMAL COUNT     (ODD  LOC) K2406990
7C5C 0000                  719 | PREC  DC      0        PRECISION         (EVEN LOC) K2407000
7C5D 0000                  720 | BIN   DC      0        BINARY POINT CNT  (ODD  LOC) K2407010
                           721 | *                                                   K2407020
                           722 | *             SUBROUTINE                            K2407030
                           723 | *             MULTIPLY 5 CONVERSION CHARACTERS BY   K2407040
                           724 | *             10                                    K2407050
                           725 | *                                                   K2407060
7C5E D209                  726 | MULT1 STO   2 JCON+1-X STORE CHARACTER              K2407070
7C5F 6105                  727 |       LDX   1 5        SET UP INDEX LOOP FOR 5      K2407080
7C60 C500 7C50             728 | MULT3 LD   L1 EENCT    GET WDS TO CONVERT           K2407090
7C62 A2F3                  729 |       M     2 TEN-X    MULTIPLY BY 10               K2407100
7C63 4828                  730 |       BSC     +Z       SKIP IF RESULT NOT -         K2407110
7C64 82F3                  731 |       A     2 TEN-X    ADD 10 TO RESULT             K2407120
7C65 8A08                  732 |       AD    2 JCON-X   ADD PRESENT CHARACTER        K2407130
7C66 D209                  733 |       STO   2 JCON+1-X STORE MOST SIGNIFICANT BIT   K2407140
7C67 1090                  734 |       SLT     16       SHIFT LEAST SIGNIFICANT TO   K2407150
7C68 D500 7C50             735 |       STO  L1 EENCT    *ACC AND SAVE                K2407160
7C6A 71FF                  736 |       MDX   1 -1       DECR WD CNT BY 1             K2407170
7C6B 70F4                  737 |       MDX     MULT3    LOOP UNLESS CNT EXHAUSTED    K2407180
7C6C 4C80 7C39             738 |       BSC  I  MULT     RETURN TO CALLER             K2407190
                           739 | *                                                   K2407200
                           740 | *             NORMALIZATION SUBROUTINE              K2407210
                           741 | *                                                   K2407220
7C6E C20D                  742 | NORM1 LD    2 CONVT-4-X IS LEFTMOST WORD OF NO. = 0 K2407230
7C6F 4C18 7C73             743 |       BSC  L  NORMT,+- YES, GO CHECK FURTHER        K2407240
7C71 4016                  744 |       BSI     NORRT    NO, GO NORMALIZE RIGHT       K2407250
7C72 70FB                  745 |       MDX     NORM1    BRANCH BACK TO CHECK NORM    K2407260
7C73 C20E                  746 | NORMT LD    2 CONVT-3-X IS 2ND WORD FROM LEFT NEG.  K2407270
7C74 4CA8 7C3C             747 |       BSC  I  NORM,+Z  YES, RETURN TO CALLING PROG  K2407280
7C76 4001                  748 |       BSI     NORLT    NO, GO TO NORM LEFT          K2407290
7C77 70F6                  749 |       MDX     NORM1    BRANCH BACK TO CHECK NORM    K2407300
                           750 | *                                                   K2407310
                           751 | *             NORMALIZE LEFT SUBROUTINE             K2407320
                           752 | *                                                   K2407330
7C78 0000                  753 | NORLT DC      *-*      NORMALIZE LEFT               K2407340
7C79 10A0                  754 |       SLT     32       SHIFT                        K2407350
7C7A 6105                  755 |       LDX   1 5        *ANSWER                      K2407360
7C7B C500 7C50             756 | NORM7 LD   L1 EENCT    *LEFT                        K2407370
7C7D 18DF                  757 |       RTE     31       *ONE                         K2407380
7C7E D500 7C50             758 |       STO  L1 EENCT    *BIT                         K2407390
7C80 108F                  759 |       SLT     15       THIS MEANS ALL 5             K2407400
7C81 71FF                  760 |       MDX   1 -1       *WORDS OF                    K2407410
7C82 70F8                  761 |       MDX     NORM7    *CONVERSION AREA             K2407420
7C83 C219                  762 |       LD    2 BIN-X    DECR BINARY                  K2407430
7C84 9205                  763 |       S     2 ONE-X    *POINT COUNTER               K2407440
7C85 D219                  764 |       STO   2 BIN-X    *BY 1                        K2407450
7C86 4C80 7C78             765 |       BSC  I  NORLT    RETURN                       K2407460
                           766 | *                                                   K2407470
                           767 | *             NORMALIZE RIGHT SUBROUTINE            K2407480
                           768 | *                                                   K2407490
7C88 0000                  769 | NORRT DC      *-*      NORMALIZE RIGHT ENTRY        K2407500
7C89 61FB                  770 | NORM4 LDX   1 -5       SHIFT                        K2407510
7C8A 10A0                  771 |       SLT     32       *ALL                         K2407520
7C8B C500 7C56             772 |       LD   L1 SIGN     *FIVE                        K2407530
7C8D 18C1                  773 |       RTE     1        *WORDS                       K2407540
7C8E D500 7C56             774 |       STO  L1 SIGN     *OF CONVERSION               K2407550
7C90 18CF                  775 |       RTE     15       *AREA                        K2407560
7C91 7101                  776 |       MDX   1 1        *RIGHT                       K2407570
7C92 70F8                  777 |       MDX     NORM4+2  *ONE BIT                     K2407580
7C93 C219                  778 |       LD    2 BIN-X    INCR BINARY POIN             K2407590
7C94 8205                  779 |       A     2 ONE-X    *COUNTER                     K2407600
7C95 D219                  780 |       STO   2 BIN-X    *BY ONE                      K2407610
7C96 4C80 7C88             781 |       BSC  I  NORRT    RETURN                       K2407620
                           782 | *                                                   K2407630
                           783 | *                DIVIDE 5 WORD ANSWER BY 10         K2407640
                           784 | *                                                   K2407650
7C98 0000                  785 | DIVID DC      *-*      ENTRY POINT                  K2407660
7C99 61FC                  786 |       LDX   1 -4       LOAD INDEX FOR FOUR DIVIDES  K2407670
7C9A 10A0                  787 |       SLT     32       CLEAR ACC AND EXTENSION      K2407680
7C9B C205                  788 | DIV1  LD    2 ONE-X    LD CONSTANT ONE              K2407690
7C9C D203                  789 |       STO   2 LKTYP-X  SAVE LKTYP                   K2407700
7C9D C500 7C56             790 |       LD   L1 SIGN     LD NO.TO BE DIVIDED          K2407710
7C9F 18D0                  791 |       RTE     16       EXCHANGE ACC AND EXTENSION   K2407720
7CA0 92FB                  792 |       S     2 FIVE-X   SUBTRACT 5 FOR ROUNDING      K2407730
7CA1 4C28 7CA5             793 |       BSC  L  *+2,+Z   BR IF NEGATIVE               K2407740
7CA3 74FE 7C47             794 |       MDX  L  LKTYP,-2 SET LKTYP = -1 AND SKIP      K2407750
7CA5 82FB                  795 |       A     2 FIVE-X   RESTORE 5 PREVIOUSLY DELETED K2407760
7CA6 AAF3                  796 |       D     2 TEN-X    DIVIDE BY 10                 K2407770
7CA7 74FE 7C47             797 |       MDX  L  LKTYP,-2 SET LKTYP =-1,SKIP OR-3,CONT K2407780
7CA9 EAFC                  798 |       OR    2 H8000-X  MASK IN NEGATIVE SIGN        K2407790
7CAA D500 7C56             799 |       STO  L1 SIGN     SAVE NO BACK IN AREA         K2407800
7CAC 7101                  800 |       MDX   1 1        INCR AREA POINTER            K2407810
7CAD 70ED                  801 |       MDX     DIV1     BR IF LOOP NOT FINISHED      K2407820
7CAE 4C80 7C98             802 | RETZY BSC  I  DIVID    RETURN TO CALLING PROGRAM    K2407830
                           803 | *                                                   K2407840
                           804 | *             ENTRY POINT TO BINARY-DECIMAL         K2407850
                           805 | *             CONVERSION SUBROUTINE                 K2407860
                           806 | *                                                   K2407870
7CB0 0000                  807 | BINRY DC      *-*      ENTRY POINT                  K2407880
7CB1 6D00 7D6B             808 |       STX  L1 IR13+1   SAVE XR1                     K2407890
7CB3 6E00 7D6D             809 |       STX  L2 IR13+3   SAVE XR2                     K2407900
7CB5 6600 7C44             810 |       LDX  L2 X        GET CON AREA POINTER         K2407910
7CB7 6580 7C46             811 |       LDX  I1 FORTP    GET TYPE OF DATA TO BE O/P   K2407920
7CB9 4D80 7CBB             812 |       BSC  I1 *        BR TO CORRESPONDING PROG LOC K2407930
7CBB 7CC8                  813 |       DC      BIN4     E TYPE FORMAT                K2407940
7CBC 7CCC                  814 |       DC      BIN7     F TYPE FORMAT                K2407950
7CBD 7CCA                  815 |       DC      BIN3     I TYPE FORMAT                K2407960
7CBE C219                  816 | BIN14 LD    2 BIN-X    NORM BINARY PT TO 128        K2407970
7CBF 92F1                  817 |       S     2 C128-X   IS POINT GR 128              K2407980
7CC0 4828                  818 |       BSC     +Z       SKIP IF YES                  K2407990
7CC1 7004                  819 |       MDX     BIN17    NO,GO TO NORM RIGHT          K2408000
7CC2 4C08 7D37             820 |       BSC  L  BIN19,+  BR IF BINARY PT = 128        K2408010
7CC4 40B3                  821 |       BSI     NORLT    BINARY PT GT 128, NORM LEFT  K2408020
7CC5 70F8                  822 |       MDX     BIN14    BR BACK TO CHECK BINARY PT   K2408030
7CC6 40C1                  823 | BIN17 BSI     NORRT    BR TO NORMALIZE RIGHT        K2408040
7CC7 70F6                  824 |       MDX     BIN14    BR BACK TO CHECK BINARY PT   K2408050
                           825 | *                                                   K2408060
                           826 | *             E TYPE DATA OUTPUT                    K2408070
                           827 | *                                                   K2408080
7CC8 C2FF                  828 | BIN4  LD    2 SIX-X    SET UP COUNT FOR 2 SIGNS     K2408090
7CC9 7003                  829 |       MDX     BIN7+1   GO CHECK INPUT MODE          K2408100
                           830 | *                                                   K2408110
                           831 | *             I TYPE DATA OUTPUT                    K2408120
                           832 | *                                                   K2408130
7CCA C2F2                  833 | BIN3  LD    2 MONE-X   SET UP A FALSE DECIMAL       K2408140
7CCB D217                  834 |       STO   2 DD-X     *COUNT FOR                   K2408150
7CCC C204                  835 | BIN7  LD    2 TWO-X    *COMMON CALCULATION FOR      K2408160
7CCD D215                  836 |       STO   2 TEMP-X   *AVAILABLE PR POSITIONS      K2408170
7CCE C216                  837 | BIN5  LD    2 WW-X     LOAD FIELD WIDTH             K2408180
7CCF 9217                  838 |       S     2 DD-X     *LESS DECIMAL COUNT          K2408190
7CD0 9215                  839 |       S     2 TEMP-X   *LESS NO. SIGNS TO GET       K2408200
7CD1 D215                  840 |       STO   2 TEMP-X   *NO. AVAIL PRINT POSITIONS   K2408210
7CD2 10A0                  841 |       SLT     32       CLEAR ACC AND EXTENSION      K2408220
7CD3 D20D                  842 |       STO   2 CONVT-4-X CLR 1ST WD CONVERSION AREA  K2408230
7CD4 DA10                  843 |       STD   2 CONVT-1-X CLR  4TH AND 5TH WORDS      K2408240
7CD5 D213                  844 |       STO   2 DIVCT-X  CLEAR DIVIDE COUNT           K2408250
7CD6 C2FE                  845 |       LD    2 BLANK-X  PUT BLANKS IN                K2408260
7CD7 D20C                  846 |       STO   2 EENCT-X  *EXPONENT AND                K2408270
7CD8 D214                  847 |       STO   2 MANSN-X  *MANTISSA SIGNS              K2408280
7CD9 6102                  848 |       LDX   1 2        SET XR1 TO NO. WDS TO CHK    K2408290
7CDA C500 7C51             849 | BIN52 LD   L1 EENCT+1  CHECK CONVERSION WD          K2408300
7CDC 4820                  850 |       BSC     Z        SKIP IF ZERO                 K2408310
7CDD 700B                  851 |       MDX     BIN51    BR OUT IF NOT                K2408320
7CDE 71FF                  852 |       MDX   1 -1       DECR WD COUNT                K2408330
7CDF 70FA                  853 |       MDX     BIN52    BR BACK IF MORE WDS TO CHECK K2408340
7CE0 CA07                  854 |       LDD   2 H00F0-X  LOOP FINISHED, PUT EBC 0     K2408350
7CE1 DA0A                  855 |       STD   2 BB-X     *IN O/P EXPONENT             K2408360
7CE2 C202                  856 |       LD    2 FORTP-X  CHECK FOR I TYPE FORMAT TO   K2408370
7CE3 9204                  857 |       S     2 TWO-X    *OUTPUT ZEROS INSTEAD OF     K2408380
7CE4 4820                  858 |       BSC     Z        *BLANKS FOR A REAL           K2408390
7CE5 7051                  859 |       MDX     BIN19    *ZERO COMPUTATION            K2408400
7CE6 C205                  860 |       LD    2 ONE-X    SET FLAG TO OUTPUT           K2408410
7CE7 D213                  861 |       STO   2 DIVCT-X  *ZEROS                       K2408420
7CE8 704E                  862 |       MDX     BIN19    BRANCH TO OUTPUT             K2408430
7CE9 CA0E                  863 | BIN51 LDD   2 CONVT-3-X LD MANTISSA (ACC EXTENSION) K2408440
7CEA 4810                  864 |       BSC     -        SKIP IF NEGATIVE             K2408450
7CEB 7004                  865 |       MDX     BIN9     BR TO NORMALIZE              K2408460
7CEC 7420 7C58             866 |       MDX  L  MANSN,32 SET MANTISSA SIGN NEGATIVE   K2408470
7CEE 10A0                  867 |       SLT     32       CLEAR ACC-EXTENSION TO GET   K2408480
7CEF 9A0E                  868 |       SD    2 CONVT-3-X *ABSOLUTE VALUE OF MANTISSA K2408490
7CF0 1081                  869 | BIN9  SLT     1        SHIFT OUT SIGN BIT           K2408500
7CF1 DA0E                  870 |       STD   2 CONVT-3-X SAVE ABS VALUE W/O SIGN     K2408510
7CF2 C201                  871 |       LD    2 FRMAI-X  TEST FOR INTEGERS            K2408520
7CF3 4C18 7D06             872 |       BSC  L  BIN13,+- BR IF INTEGERS               K2408530
7CF5 C205                  873 |       LD    2 ONE-X    SET UP FOR ROUNDING,ACC=1    K2408540
7CF6 7400 7C5C             874 |       MDX  L  PREC     IS PRECISION EXTENDED        K2408550
7CF8 1888                  875 |       SRT     8        YES, SHIFT TOTAL OF 15       K2408560
7CF9 1887                  876 |       SRT     7        NO, SHIFT 7                  K2408570
7CFA 8A0E                  877 |       AD    2 CONVT-3-X ADD 2WDS TO BE CONVERTED    K2408580
7CFB 4802                  878 |       BSC     C        TEST FOR OVERFLOW            K2408590
7CFC 7001                  879 |       MDX     *+1      OVERFLOW,BRANCH OVER NXT WD  K2408600
7CFD 7007                  880 |       MDX     IR11     NO OVERFLOW, BRANCH OUT      K2408610
7CFE 1881                  881 |       SRT     1        SHIFT 1 MORE TO ROUND        K2408620
7CFF EAFC                  882 |       OR    2 H8000-X  PUT BIT IN SIGN POSITION     K2408630
7D00 DA0E                  883 |       STD   2 CONVT-3-X SAVE   CONVERSION WD        K2408640
7D01 C219                  884 |       LD    2 BIN-X    INCR BINARY                  K2408650
7D02 8205                  885 |       A     2 ONE-X    *POINT COUNTER               K2408660
7D03 D219                  886 |       STO   2 BIN-X    *BY 1                        K2408670
7D04 7002                  887 |       MDX     BIN13+1  BR PAST NXT 2 WDS            K2408680
7D05 DA0E                  888 | IR11  STD   2 CONVT-3-X STORE IN CONVERSION         K2408690
7D06 C219                  889 | BIN13 LD    2 BIN-X    IS BINARY PT GE 128          K2408700
7D07 92F1                  890 |       S     2 C128-X   GREATER THAN 128             K2408710
7D08 4828                  891 |       BSC     +Z       SKIP IF GE 128               K2408720
7D09 701C                  892 |       MDX     BIN10    GO HANDLE                    K2408730
7D0A 4C08 7D15             893 |       BSC  L  BIN11,+  BR IF = 128                  K2408740
7D0C 408B                  894 | BIN12 BSI     DIVID    GO DIVIDE ANSWER BY 10       K2408750
7D0D 42F8                  895 |       BSI   2 NORM-X   GO NORMALIZE ANSWER          K2408760
7D0E 7401 7C57             896 |       MDX  L  DIVCT,+1 INCR DIVIDE COUNT BY 1       K2408770
7D10 1000                  897 |       NOP                                           K2408780
7D11 C219                  898 |       LD    2 BIN-X    TEST IF BINARY PT LE 128     K2408790
7D12 92F1                  899 |       S     2 C128-X   *AFTER DIVISION              K2408800
7D13 4830                  900 |       BSC     -Z       SKIP IF YES                  K2408810
7D14 70F7                  901 |       MDX     BIN12    NO, DIVIDE AGAIN             K2408820
7D15 C202                  902 | BIN11 LD    2 FORTP-X  TEST OUTPUT E TYPE           K2408830
7D16 4820                  903 |       BSC     Z        SKIP IF E TYPE               K2408840
7D17 70A6                  904 |       MDX     BIN14    NOT E TYPE, BR TO NORM       K2408850
7D18 C213                  905 |       LD    2 DIVCT-X  TEST DIVIDE COUNT            K2408860
7D19 4C10 7D1F             906 |       BSC  L  BIN16,-  IF POSITIVE OR ZERO, BR OUT  K2408870
7D1B C2FD                  907 | BIN15 LD    2 MINUS-X  PUT NEGATIVE SIGN OUT FOR    K2408880
7D1C D20C                  908 |       STO   2 EENCT-X  *EXPONENT SIGN               K2408890
7D1D 1010                  909 |       SLA     16       CLEAR ACC                    K2408900
7D1E 9213                  910 |       S     2 DIVCT-X  GET ABS VALUE OF DIVIDE CNT  K2408910
7D1F 18D0                  911 | BIN16 RTE     16       PUT DIVIDE CNT IN EXTENSION  K2408920
7D20 1010                  912 |       SLA     16       CLEAR ACC                    K2408930
7D21 D213                  913 |       STO   2 DIVCT-X  CLEAR DIVIDE COUNT WORD      K2408940
7D22 AAF3                  914 |       D     2 TEN-X    DIVIDE DIVIDE CNT BY 10      K2408950
7D23 8A07                  915 |       AD    2 H00F0-X  ADD EBC 0 TO CONVERT TO EBC  K2408960
7D24 DA0A                  916 |       STD   2 BB-X     SAVE EBC EXPONENT            K2408970
7D25 7098                  917 |       MDX     BIN14    BRANCH TO NORMALIZE          K2408980
7D26 C202                  918 | BIN10 LD    2 FORTP-X  TEST FOR E TYPE OUTPUT       K2408990
7D27 4820                  919 |       BSC     Z        SKIP IF YES                  K2409000
7D28 7095                  920 |       MDX     BIN14    NO, GO HANDLE NEG F TYPE     K2409010
7D29 42F5                  921 |       BSI   2 MULT-X   MULTIPLY ANSWER BY 10        K2409020
7D2A 42F8                  922 |       BSI   2 NORM-X   GO NORMALIZE ANSWER          K2409030
7D2B 74FF 7C57             923 |       MDX  L  DIVCT,-1 DECR DIVIDE COUNT BY 1       K2409040
7D2D 70D8                  924 |       MDX     BIN13    GO CHECK BINARY POINT        K2409050
7D2E 70D7                  925 |       MDX     BIN13    *AGAIN AFTER MULTIPLYING     K2409060
                           926 | *                                                   K2409070
                           927 | *             SUBROUTINE                            K2409080
                           928 | *             OUTPUT CHARACTER TO PRINT BUFFER      K2409090
                           929 | *                                                   K2409100
7D2F 0000                  930 | CHARO DC      *-*      ENTRY POINT                  K2409110
7D30 1008                  931 |       SLA     8        SHIFT CHAR TO LEFT HALF OF   K2409120
7D31 D480 7C13             932 |       STO  I  PAP      *WD AND STORE IN PRINT BFR   K2409130
7D33 7401 7C13             933 |       MDX  L  PAP,1    INCR BUFFER POINTER          K2409140
7D35 4C80 7D2F             934 | CHAR3 BSC  I  CHARO    RETURN TO CALLING PROGRAM    K2409150
                           935 | *                                                   K2409160
                           936 | *             OUTPUT CONVERTED DECIMAL NUMBER       K2409170
                           937 | *                                                   K2409180
7D37 C215                  938 | BIN19 LD    2 TEMP-X   GET NO. AVAILABLE POSITIONS  K2409190
7D38 9213                  939 |       S     2 DIVCT-X  COMPARE WITH DIVIDE COUNT    K2409200
7D39 4808                  940 |       BSC     +        SKIP IF NO. POSITIONS BIGGER K2409210
7D3A 7006                  941 |       MDX     BIN18    BR TO PUT OUT CHARACTERS     K2409220
7D3B D215                  942 |       STO   2 TEMP-X   STORE EXCESS NO. POSITIONS   K2409230
7D3C C2FE                  943 | BIN20 LD    2 BLANK-X  PUT OUT NO. OF               K2409240
7D3D 40F1                  944 |       BSI     CHARO    *BLANK CHARACTERS EQUAL      K2409250
7D3E 74FF 7C59             945 |       MDX  L  TEMP,-1  *TO EXCESS                   K2409260
7D40 70FB                  946 |       MDX     BIN20    CONTINUE UNTIL LOOP DONE     K2409270
7D41 C214                  947 | BIN18 LD    2 MANSN-X  LD MANTISSA SIGN             K2409280
7D42 40EC                  948 |       BSI     CHARO    PUT IN PRINT BUFFER          K2409290
7D43 C201                  949 |       LD    2 FRMAI-X  CHECK FOR INTEGER            K2409300
7D44 4820                  950 |       BSC     Z        SKIP IF IT IS AN INTEGER     K2409310
7D45 7002                  951 |       MDX     *+2      ELSE,BRANCH AHEAD            K2409320
7D46 C2F2                  952 |       LD    2 MONE-X   SET LARGE VALUE IN LAST      K2409330
7D47 D211                  953 |       STO   2 CONVT-X  *WORD OF CONVERSION AREA     K2409340
7D48 C213                  954 |       LD    2 DIVCT-X  LD DIVIDE COUNT              K2409350
7D49 4808                  955 |       BSC     +        SKIP IF NOT = ZERO           K2409360
7D4A 7008                  956 |       MDX     BIN23    GO HANDLE ZERO               K2409370
7D4B 1010                  957 | BIN28 SLA     16       CLEAR ACC                    K2409380
7D4C D20D                  958 |       STO   2 CONVT-4-X CLEAR CONVERSION WORD 1     K2409390
7D4D 42F5                  959 |       BSI   2 MULT-X   MULTIPLY BY 10               K2409400
7D4E EA07                  960 |       OR    2 H00F0-X  ADD EBC 0 TO CONVERT         K2409410
7D4F 40DF                  961 |       BSI     CHARO    *OVERFLOW, O/P CHAR          K2409420
7D50 74FF 7C57             962 |       MDX  L  DIVCT,-1 DECR DIVIDE COUNT BY 1       K2409430
7D52 70F8                  963 |       MDX     BIN28    BR TO HANDLE MULTIPLY        K2409440
7D53 C217                  964 | BIN23 LD    2 DD-X     TEST DECIMAL COUNT OF FMT    K2409450
7D54 4828                  965 |       BSC     +Z       SKIP IF 0 OR POSITIVE        K2409460
7D55 7009                  966 |       MDX     BIN25    IF NOT, BR TO HANDLE I TYPE  K2409470
7D56 C206                  967 |       LD    2 H004B-X  GET EBC DECIMAL POINT        K2409480
7D57 40D7                  968 |       BSI     CHARO    MOVE TO PRINT BUFFER         K2409490
7D58 C217                  969 |       LD    2 DD-X     LD DECIMAL COUNT             K2409500
7D59 4808                  970 |       BSC     +        SKIP IF GT 0                 K2409510
7D5A 7004                  971 |       MDX     BIN25    ZERO, BRANCH AHEAD           K2409520
7D5B D213                  972 |       STO   2 DIVCT-X  PUT NO. DECML DIGITS-DIVCT   K2409530
7D5C C2F2                  973 |       LD    2 MONE-X   PUT -1 IN                    K2409540
7D5D D217                  974 |       STO   2 DD-X     *NO. OF DECML DIGITS         K2409550
7D5E 70EC                  975 |       MDX     BIN28    GO PROCESS                   K2409560
7D5F C202                  976 | BIN25 LD    2 FORTP-X  GET OUTPUT TYPE              K2409570
7D60 4820                  977 |       BSC     Z        SKIP IF R TYPE               K2409580
7D61 7008                  978 |       MDX     IR13     GO RETURN TO CALLER          K2409590
7D62 C2F4                  979 |       LD    2 H00C5-X  LOAD EBC E                   K2409600
7D63 40CB                  980 |       BSI     CHARO    PUT IN PRINT BUFFER          K2409610
7D64 C20C                  981 |       LD    2 EENCT-X  LOAD EXPONENT SIGN           K2409620
7D65 40C9                  982 |       BSI     CHARO    PUT IN PRINT BUFFER          K2409630
7D66 C20A                  983 |       LD    2 BB-X     LOAD 1 WD OF EXPONENT VALUE  K2409640
7D67 40C7                  984 |       BSI     CHARO    PUT IN PRINT BUFFER          K2409650
7D68 C20B                  985 |       LD    2 BB+1-X   LOAD 2 WD OF EXPONENT VALUE  K2409660
7D69 40C5                  986 |       BSI     CHARO    PUT IN PRINT BUFFER          K2409670
7D6A 6500 0000             987 | IR13  LDX  L1 *-*      RESTORE XR1                  K2409680
7D6C 6600 0000             988 |       LDX  L2 *-*      RESTORE XR2                  K2409690
7D6E 4C80 7CB0             989 |       BSC  I  BINRY    RETURN TO CALLER             K2409700
                           990 | *                                                   K2409710
                           991 | *             MESSAGES TO BE PRINTED THIS PHASE     K2409720
                           992 | *                                                   K2409730
                           993 | *                                                   K2409740
7D70 0009                  994 | TEXT2 DC      9                                     K2409750
7D71 C9D5 E3C5 C7C5 D940   995 |       EBC     .INTEGER CONSTANTS .                  K2409760
     C3D6 D5E2 E3C1 D5E3       |
     E240                      |
7D7A 000B                  996 | CORTX DC      11                                    K2409770
7D7B C3D6 D9C5 40D9 C5D8   997 |       EBC     .CORE REQUIREMENTS FOR .              K2409780
     E4C9 D9C5 D4C5 D5E3       |
     E240 C6D6 D940            |
7D86 0004                  998 | COMTX DC      4                                     K2409790
7D87 40C3 D6D4 D4D6 D540   999 |       EBC     . COMMON .                            K2409800
7D8B 0006                 1000 | VARTX DC      6                                     K2409810
7D8C 4040 E5C1 D9C9 C1C2  1001 |       EBC     .  VARIABLES .                        K2409820
     D3C5 E240                 |
7D92 0005                 1002 | PROTX DC      5                                     K2409830
7D93 4040 D7D9 D6C7 D9C1  1003 |       EBC     .  PROGRAM .                          K2409840
     D440                      |
                          1004 | *                                                   K2409850
                          1005 | *             PHASE EXIT                            K2409860
                          1006 | *                                                   K2409870
7D98 7002                 1007 | HTES2 DC      /7002    LINE SPACE PARAMETER         K2409880
7D99 C0FE                 1008 | EXIT  LD      HTES2    LOAD LINE SPACE PARAM        K2409890
7D9A 4400 7E45            1009 |       BSI  L  LSTPR    BR TO SPACE LINE             K2409900
7D9C 6580 7DA3            1010 |       LDX  I1 NXTPH+1  LOAD PARAMETER FOR READING   K2409910
7D9E C805                 1011 |       LDD     NXTPH+2  *NEXT PHASE                  K2409920
7D9F 4C00 7FBC            1012 |       BSC  L  ROL      GO TO READ NEXT PHASE        K2409930
7DA2                      1013 |       BSS  E  0                                     K2409940
7DA2 0037                 1014 | NXTPH DC      55       ID OF NEXT PHASE             K2409950
7DA3 0000                 1015 |       DC      *-*      CORE ADDRESS NEXT PHASE      K2409960
7DA4 0000                 1016 |       DC      *-*        WORD COUNT NEXT PHASE      K2409970
7DA5 0000                 1017 |       DC      *-*        SECTOR ADDRESS NEXT PHASE  K2409980
7DA6 0000                 1018 | PTCH1 DC      *-*       LINK                    2-2 K2409990
7DA7 F333                 1019 |       EOR   3 H8000-Z   IS NUMBER /8000         2-2 K2410000
7DA8 4C20 7DAF            1020 |       BSC  L  INTD1,Z   BRANCH IF NO            2-2 K2410010
7DAA C333                 1021 |       LD    3 H8000-Z   IF YES - GO HANDLE      2-2 K2410020
7DAB 1881                 1022 |       SRT     1         *THAT                   2-2 K2410030
7DAC 7401 7C5D            1023 |       MDX  L  BIN,1     *SPECIAL                2-2 K2410040
7DAE D345                 1024 |       STO   3 CONVT-3-Z *NUMBER                 2-2 K2410050
7DAF 4400 7CB0            1025 | INTD1 BSI  L  BINRY     GO CONVERT TO DECIMAL   2-2 K2410060
7DB1 4C80 7DA6            1026 |       BSC  I  PTCH1     RETURN                  2-2 K2410070
7DB3                      1027 |       BSS     66         PATCH AREA             2-4 K2410080
7DF5 0000                 1028 |       DC      0                                     K2410090
7DF6                      1029 |       END     BPHAR-2                           2-2 K2410100
 
There were no errors in this assembly
 
=== CROSS REFERENCES ==========================================================
Name  Val   Defd  Referenced
$CH12 0006    75  332  345  378
$PHSE 0078    67  191
AREA  7E0D    78  172  177  668
ATPA  7B98   497  318  363  516
ATPA1 7BA5   506  499
ATPA2 7BA6   507  502
BB    7C4E   705  855  916  983  985
BIN   7C5D   720  287  296  358  528  762  764  778  780  816  884  886  889
                  898 1023
BIN10 7D26   918  892
BIN11 7D15   902  893
BIN12 7D0C   894  901
BIN13 7D06   889  872  887  924  925
BIN14 7CBE   816  822  824  904  917  920
BIN15 7D1B   907
BIN16 7D1F   911  906
BIN17 7CC6   823  819
BIN18 7D41   947  941
BIN19 7D37   938  820  859  862
BIN20 7D3C   943  946
BIN23 7D53   964  956
BIN25 7D5F   976  966  971
BIN28 7D4B   957  963  975
BIN3  7CCA   833  815
BIN4  7CC8   828  813
BIN5  7CCE   837
BIN51 7CE9   863  851
BIN52 7CDA   849  853
BIN7  7CCC   835  814  829
BIN9  7CF0   869  865
BINRY 7CB0   807  311  360  989 1025
BLANK 7C42   687  845  943
BLKP1 7C05   617  619
BLKPA 7C01   614  183  185  343  397  621  672
BPHAR 7A36   130 1029
C128  7C35   676  817  890  899
CCWD  7A31   104  200  217
CHAR  7C44   693  697
CHAR3 7D35   934
CHARO 7D2F   930  934  944  948  961  968  980  982  984  986
CKEND 7AFA   328  365
CLOC  7C18   644  240  321  323  364  500  506
CM3   7C1B   647  489
COMA  7C23   655  421
COMON 7A2B    91
COMTX 7D86   998  655
CONVT 7C55   712  281  285  298  300  353  359  425  433  446  525  742  746
                  842  843  863  868  870  877  883  888  953  958 1024
CORA  7C22   654  399
COREQ 7B3C   397  219  385
CORTX 7D7A   996  654
CS000 7B80   467  456  459  462  475
CS010 7B87   475  480
CS050 7B89   479  469  473
CSIZE 7A2C    92  424  455
D143  7C1E   650  527
D60   7C26   658  669
DD    7C5B   718  304  834  838  964  969  974
DFCNT 7A33   125
DIV1  7C9B   788  801
DIVCT 7C57   714  844  861  896  905  910  913  923  939  954  962  972
DIVID 7C98   785  802  894
EENCT 7C50   707  728  735  756  758  846  849  908  981
ENT   7A72   190  137
EOFS  7A25    85
EOFST 7A2A    90  244
ERROR 7A2D    93  197  479  503
EXIT  7D99  1008  198  464  504
FIVE  7C3F   684  792  795
FNAME 7A2E   101  401
FORTP 7C46   695  310  530  811  856  902  918  976
FRMAI 7C45   694  308  526  871  949
H000A 7BE5   568  597
H000F 7BE4   567  596
H0039 7BE6   569  599
H004B 7C4A   701  967
H00C5 7C38   679  979
H00F0 7C4B   702  854  915  960
H3F00 7C1F   651  576
H4000 7C20   652  588  615
H7E00 7C1C   648  312  361
H8000 7C40   685  354  356  798  882 1019 1021
HC000 7C15   641  583
HEAD  7F8B    72   73
HTES  7B04   337  341  349
HTES1 7BC4   538  537  541  542
HTES2 7D98  1007 1008
HTES3 7BD8   553
INCR  7C14   638  231
INTC  7B16   351  342
INTD  7B22   360  355
INTD1 7DAF  1025 1020
INTLS 7BB1   521  351  423  431  441  531
IOCS  7A32   113
IR11  7D05   888  880
IR13  7D6A   987  808  809  978
JCON  7C4C   703  726  732  733
L4011 7A81   211
L4012 7AB1   239  225
L4013 7AB8   243  371
L401X 7AB4   241  391
L4021 7ABD   246
L4022 7ADA   293  275
L4024 7AE5   303  233  288
L4025 7AE8   305  234
L4031 7B05   339  249
L4032 7B2A   370  247  252  330  334  340
L4033 7B2D   375  245
LKTYP 7C47   696  789  794  797
LNEND 7C1D   649  329
LOOPP 7BC9   541  550
LSTPR 7E45    77 1009
MANSN 7C58   715  847  866  947
MASK3 7C1A   646  487
MEMRY 8000    64   65   66
MINUS 7C41   686  907
MONE  7C36   677  833  952  973
MSTP  7B8C   485  370  453  471  472  494
MULT  7C39   680  738  921  959
MULT1 7C5E   726  681
MULT3 7C60   728  737
NEQ   7A36   137  195
NEWPG 7E0C    74   76   78  333  346  379
NORLT 7C78   753  748  765  821
NORM  7C3C   682  747  895  922
NORM1 7C6E   742  683  745  749
NORM4 7C89   770  777
NORM7 7C7B   756  761
NORMT 7C73   746  743
NORRT 7C88   769  744  781  823
NXTPH 7DA2  1014  133 1010 1011
ONE   7C49   700  763  779  788  860  873  885
ORG   7A23    83  501
ORGSW 7C27   659  203  498
OVERL 7A23    65   80
OVERP 7E42    73   74   77
PAP   7C13   637  328  375  540  551  562  563  667  932  933
PAPIN 7C12   636  171  376  666
PAREA 7A39   139  236  237  617  636  637  649
PHEAD 7AC6   265  181  182
PHID  0036    69  190
PREC  7C5C   719  274  874
PRINN 7C28   665  331  344  350  377  398  418  448  673
PRINT 7E0E    76  175  180  671
PROA  7C25   657  439
PROTX 7D92  1002  657
PTCH1 7DA6  1018  426  434  447 1026
PTEX1 7A58   171  265
PTEXT 7BC2   536  348  400  422  430  440  553
RETZY 7CAE   802
ROL   7FBC    66   72 1012
RVARF 7C16   642  230  272  322
SIGN  7C56   713  772  774  790  799
SIX   7C43   688  828
SOFGT 7A29    89
SOFNS 7A27    87  442  445  461
SOFS  7A24    84
SOFST 7A26    86  241
SOFXT 7A28    88  239  432  444  458
SORF  7A30   103
STOCH 7BE3   566  560  561  584
STP   7C19   645  242  243  491  492  493
STPS  7C17   643  212  250  339  384  389
TEMP  7C59   716  836  839  840  938  942  945
TEN   7C37   678  729  731  796  914
TEX2A 7C21   653  347
TEXT1 7A4A   156  176
TEXT2 7D70   994  653
TOPA  7BE7   575  403  406  411  414  417  585  602  608
TOPA1 7BEC   584  589
TOPA2 7BF0   588  577
TOPAB 7BFC   606  319  515  609
TOPAH 7BF2   595  508  510  512  514  603
TOPAU 7BDA   559  313  362  564  586
TOPAX 7BDC   561  587
TWO   7C48   699  835  857
VARA  7C24   656  429
VARTX 7D8B  1000  656
WDCNT 7A38   138  174  179  670
WW    7C5A   717  306  523  837
X     7C44   697  726  729  731  732  733  742  746  762  763  764  778  779
                  780  788  789  792  795  796  798  810  816  817  828  833
                  834  835  836  837  838  839  840  842  843  844  845  846
                  847  854  855  856  857  860  861  863  868  870  871  873
                  877  882  883  884  885  886  888  889  890  895  898  899
                  902  905  907  908  910  913  914  915  916  918  921  922
                  938  939  942  943  947  949  952  953  954  958  959  960
                  964  967  969  972  973  974  976  979  981  983  985
Z     7C0D   631  171  184  194  203  212  240  243  250  272  312  313  318
                  319  321  322  323  328  329  331  339  343  344  347  348
                  350  351  354  356  359  361  362  363  375  376  384  389
                  397  398  399  400  403  406  411  414  417  418  421  422
                  423  429  430  431  439  440  441  448  487  489  491  492
                  498  500  506  527  552  576  588  615  620  666  667  669
                  672 1019 1021 1024
ibm/ibm1130-lib/dmsr2v12/kforph24_lst.txt ยท Last modified: 2023/08/06 13:34 by Site Administrator