User Tools

Site Tools


ibm:ibm1130-lib:dmsr2v12:u3speed_lst

U3SPEED

Table Of Contents
  • [00004] EBCDIC TO IBM CARD CODE OR VICE VERSA
u3speed.lst
ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov  1 19:25:09 2020
 
Source File: \u3speed.asm 
EBCDIC TO IBM CARD CODE OR VICE VERSA
 
                             2 | *************************************************** U3H00020
                             3 | *                                                 * U3H00030
                             4 | *   SUBROUTINE NAME-                              * U3H00040
                             5 | *      FULL NAME- EBCDIC TO IBM CARD CODE OR IBM  * U3H00050
                             6 | *         CARD CODE TO EBCDIC CONVERSION ROUTINE  * U3H00060
                             7 | *      CODE NAME- SPEED                           * U3H00070
                             8 | *   PURPOSE- THIS SUBROUTINE CONVERTS ALL 256     * U3H00080
                             9 | *      CHARS IN EBCDIC TO HOLLERITH, AND CONVERTS * U3H00090
                            10 | *      ALL 256 CHARS IN HOLLERITH TO EBCDIC.      * U3H00100
                            11 | *   METHOD-                                       * U3H00110
                            12 | *         SEE IBM 1130 SUBROUTINE LIBRARY MANUAL  * U3H00120
                            13 | *   CAPABILITIES AND LIMITATIONS-                 * U3H00130
                            14 | *         SEE IBM 1130 SUBROUTINE LIBRARY MANUAL  * U3H00140
                            15 | *   SPECIAL FEATURES- N/A                         * U3H00150
                            16 | *   ADDITIONAL INFORMATION-                       * U3H00160
                            17 | *      ESTIMATED EXECUTION TIME-                  * U3H00170
                            18 | *         SEE IBM 1130 SUBROUTINE LIBRARY MANUAL  * U3H00180
                            19 | *                                                 * U3H00190
                            20 | *************************************************** U3H00200
EBCDIC TO IBM CARD CODE OR VICE VERSA
 
                            22 |       LIBR                                          U3H00220
                            23 |       ENT     SPEED                                 U3H00230
0000 6943                   24 | SPEED STX   1 SAV1+1    CALL ENTRY POINT            U3H00240
0001 6580 0000              25 | LINK  LDX  I1 0         LOADER STORED TV ADDR       U3H00250
0003 6A42                   26 |       STX   2 SAV2+1    SAVE XR2                    U3H00260
0004 283D                   27 |       STS     SAVST     SAVE STATUS                 U3H00270
0005 D86A                   28 |       STD     SAVAQ     SAVE ACC AND EXT            U3H00280
0006 C100                   29 |       LD    1 0         GET CONTROL PARAM           U3H00290
0007 1884                   30 |       SRT     4                                     U3H00300
0008 D058                   31 |       STO     CTRL      SAVE NO-PACKING INDR        U3H00310
0009 C101                   32 |       LD    1 1                                     U3H00320
000A D007                   33 |       STO     INPUT+1   SAVE INPUT ADDRESS          U3H00330
000B C102                   34 |       LD    1 2                                     U3H00340
000C D007                   35 |       STO     OUTPT+1   SAVE OUTPUT ADDRESS         U3H00350
000D C103                   36 |       LD    1 3                                     U3H00360
000E D053                   37 |       STO     COUNT     SAVE CHAR COUNT             U3H00370
000F 7104                   38 |       MDX   1 +4                                    U3H00380
0010 6938                   39 |       STX   1 EXIT+1    SET EXIT TO SKIP 4 PARAMS   U3H00390
0011 6500 0000              40 | INPUT LDX  L1 0         XR1=INPUT ADDR              U3H00400
0013 6600 0000              41 | OUTPT LDX  L2 0         XR2=OUTPUT ADDR             U3H00410
0015 1810                   42 |       SRA     16        WHAT IS INPUT CODE          U3H00420
0016 1084                   43 |       SLT     4                                     U3H00430
0017 4C20 004AR             44 |       BSC  L  BACK,Z    BR IF INPUT IS EBCDIC       U3H00440
0019 C047                   45 |       LD      CTRL      IS PACKING REQUESTED        U3H00450
001A 4C20 0037R             46 |       BSC  L  ONCE,Z    NO, DO NOT PACK EBCDIC      U3H00460
                            47 | *                                                   U3H00470
                            48 | *THIS SECTION SETS UP THE CONVERSION FROM HOLLERITH U3H00480
                            49 | *TO EBCDIC                                          U3H00490
                            50 | *                                                   U3H00500
001C C100                   51 | LEFT  LD    1 0         IS LEFT CHAR READ IN YET    U3H00510
001D 4C04 001CR             52 |       BSC  L  LEFT,E    NO, WAIT                    U3H00520
001F 4053                   53 |       BSI     TLU       YES, CONVERT TO EBCDIC      U3H00530
0020 D051                   54 |       STO     TEMP                                  U3H00540
0021 74FF 0062R             55 |       MDX  L  COUNT,-1  ANY MORE CHARS              U3H00550
0023 7005                   56 |       MDX     RIGHT     YES, GO CONVERT RT CHAR     U3H00560
0024 C200                   57 |       LD    2 0         NO, STORE CHAR IN           U3H00570
0025 E046                   58 |       AND     MASKL     OUTPUT BUT DO NOT           U3H00580
0026 804B                   59 |       A       TEMP      CHANGE RIGHT 8 BITS         U3H00590
0027 D200                   60 |       STO   2 0         OF OUTPUT.                  U3H00600
0028 7019                   61 |       MDX     SAVST                                 U3H00610
0029 C101                   62 | RIGHT LD    1 1         IS RIGHT CHAR READ IN YET   U3H00620
002A 4C04 0029R             63 |       BSC  L  RIGHT,E   NO, WAIT                    U3H00630
002C 4046                   64 |       BSI     TLU          YES, CONVERT TO EBCDIC   U3H00640
002D 1808                   65 |       SRA     8                                     U3H00650
002E 8043                   66 |       A       TEMP      ADD LEFT CHARACTER          U3H00660
002F D200                   67 |       STO   2 0         STORE BOTH IN OUTPUT        U3H00670
0030 7201                   68 |       MDX   2 +1        SET XR2 FOR NEXT OUTPUT     U3H00680
0031 7102                   69 |       MDX   1 +2        SET XR1 FOR NEXT INPUT      U3H00690
0032 1000                   70 |       NOP               IN CASE OF SKIP         2-6 U3H00692
0033 74FF 0062R             71 |       MDX  L  COUNT,-1  ANY MORE CHARS              U3H00700
0035 70E6                   72 |       MDX     LEFT      YES, REPEAT LOOP            U3H00710
0036 700B                   73 |       MDX     SAVST     NO, EXIT                    U3H00720
0037 C100                   74 | ONCE  LD    1 0         IS CHAR READ IN YET         U3H00730
0038 4C04 0037R             75 |       BSC  L  ONCE,E    NO, WAIT                    U3H00740
003A 4038                   76 |       BSI     TLU       YES, CONVERT TO EBCDIC      U3H00750
003B D200                   77 |       STO   2 0         STORE CHAR IN OUTPUT        U3H00760
003C 7201                   78 |       MDX   2 +1        SET XR2 FOR NEXT OUTPUT     U3H00770
003D 7101                   79 |       MDX   1 +1        SET XR1 FOR NEXT INPUT      U3H00780
003E 1000                   80 |       NOP               IN CASE OF SKIP         2-6 U3H00782
003F 74FF 0062R             81 |       MDX  L  COUNT,-1  ANY MORE CHARS              U3H00790
0041 70F5                   82 |       MDX     ONCE      YES, GO CHK FOR READ IN     U3H00800
0042 2000                   83 | SAVST LDS     0                                     U3H00810
0043 6500 0000              84 | SAV1  LDX  L1 0         RESTORE STATUS              U3H00820
0045 6600 0000              85 | SAV2  LDX  L2 0                                     U3H00830
0047 C828                   86 |       LDD     SAVAQ                                 U3H00840
0048 4C00 0000              87 | EXIT  BSC  L  0         RETURN TO USER              U3H00850
                            88 | *                                                   U3H00860
                            89 | *THIS SECTION SETS UP THE CONVERSION FROM EBCDIC    U3H00870
                            90 | *TO HOLLERITH.                                      U3H00880
                            91 | *                                                   U3H00890
004A C100                   92 | BACK  LD    1 0                                     U3H00900
004B 404A                   93 |       BSI     TLU20     CONVERT LEFT CHAR           U3H00910
004C D200                   94 |       STO   2 0                                     U3H00920
004D 7201                   95 |       MDX   2 +1        SET FOR NEXT OUTPUT WORD    U3H00930
004E C012                   96 |       LD      CTRL      IS EBCDIC PACKED            U3H00940
004F 4C20 005AR             97 |       BSC  L  BACK6,Z   NO, GET NEXT INPUT WORD     U3H00950
0051 74FF 0062R             98 |       MDX  L  COUNT,-1  ANY MORE CHARS TO CONVERT   U3H00960
0053 7001                   99 |       MDX     BACK4                                 U3H00970
0054 70ED                  100 |       MDX     SAVST     NO, EXIT                    U3H00980
0055 C100                  101 | BACK4 LD    1 0         CONVERT RIGHT CHAR          U3H00990
0056 1008                  102 |       SLA     8                                     U3H01000
0057 403E                  103 |       BSI     TLU20                                 U3H01010
0058 D200                  104 |       STO   2 0                                     U3H01020
0059 7201                  105 |       MDX   2 +1        SET FOR NEXT OUTPUT WORD    U3H01030
005A 7101                  106 | BACK6 MDX   1 +1        SET FOR NEXT INPUT WORD     U3H01040
005B 1000                  107 |       NOP               IN CASE OF SKIP         2-6 U3H01042
005C 74FF 0062R            108 |       MDX  L  COUNT,-1  ANY MORE CHARS TO CONVERT   U3H01050
005E 70EB                  109 |       MDX     BACK      YES, REPEAT LOOP            U3H01060
005F 70E2                  110 |       MDX     SAVST     NO, EXIT                    U3H01070
                           111 | *                                                   U3H01080
                           112 | *CONSTANTS AND BUFFER AREA                          U3H01090
                           113 | *                                                   U3H01100
0060 4000                  114 | BLANK DC      /4000     EBCDIC BLANK CHARACTER      U3H01110
0061 0000                  115 | CTRL  DC      0         SAVE PACKING INDR           U3H01120
0062 0000                  116 | COUNT DC      0         SAVE NO, CHARS TO CONVERT   U3H01130
0063 0001                  117 | D0001 DC      +1        DECIMAL CONSTANT            U3H01140
0064 0006                  118 | D0006 DC      +6        DECIMAL CONSTANT            U3H01150
0065 0007                  119 | D0007 DC      +7        DECIMAL CONSTANT            U3H01160
0066 0000                  120 | FLAG  DC      0         ERROR INDICATOR             U3H01170
0067 0010                  121 | H0010 DC      /0010     HOLLERITH                   U3H01180
0068 006A                  122 | H006A DC      /006A     CONSTANTS                   U3H01190
0069 0200                  123 | H0200 DC      /0200     AND MASKS.                  U3H01200
006A 1FC0                  124 | H1FC0 DC      /1FC0     MASK FOR 1-7 ROWS           U3H01210
006B 2001                  125 | H2001 DC      /2001     SET OVERFLOW INDR           U3H01220
006C 00FF                  126 | MASKL DC      /00FF     CLEAR BITS 0-7              U3H01230
006D FF00                  127 | MASKR DC      /FF00     CLEAR BITS 8-15             U3H01240
006E 0000                  128 | SAVA  DC      0         SAVE ACCUMULATOR            U3H01250
0070                       129 | SAVAQ BSS  E  2         SAVE ACC AND EXTENSION      U3H01260
0072 0000                  130 | TEMP  DC      0         TEMP FOR PACKING            U3H01270
                           131 | *                                                   U3H01280
0073 0000                  132 | TLU   DC      0         SAVE RETURN ADDRESS         U3H01290
                           133 | *                                                   U3H01300
                           134 | *THIS SECTION DOES A TABLE LOOKUP CONVERSION        U3H01310
                           135 | *                                                   U3H01320
0074 D0F9                  136 |       STO     SAVA      SAVE INPUT CHAR             U3H01330
0075 1886                  137 |       SRT     6         PACK 12,11,0 ROWS NEXT TO   U3H01340
0076 1807                  138 |       SRA     7         8,9 ROWS AND STORE          U3H01350
0077 1883                  139 |       SRT     3         IN EXTENSION.               U3H01360
0078 C0F5                  140 |       LD      SAVA      DETERMINE WHICH ONE OF      U3H01370
0079 6919                  141 |       STX   1 OUT+1     ROW 1-7 PUNCHED.            U3H01380
007A 610A                  142 |       LDX   1 10                                    U3H01390
007B E0EE                  143 |       AND     H1FC0                                 U3H01400
007C 1140                  144 |       SLCA  1 0                                     U3H01410
007D 1001                  145 |       SLA     1         IS MULTIPLE PUNCH IN 1-7    U3H01420
007E 4C18 0084R            146 |       BSC  L  OK,+-     NO                          U3H01430
0080 C0EA                  147 |       LD      H2001                                 U3H01440
0081 D0C0                  148 |       STO     SAVST                                 U3H01450
0082 C0DD                  149 |       LD      BLANK     YES, SET ERROR FLAG PLUS    U3H01460
0083 700E                  150 |       MDX     OUT                                   U3H01470
0084 69E9                  151 | OK    STX   1 SAVA      XR1= 0 IF NO 1-7 PUNCH,     U3H01480
0085 C0E8                  152 |       LD      SAVA      =1 IF 7 PUNCH, ...          U3H01490
0086 90DC                  153 |       S       D0001     =7 IF 1 PUNCH.              U3H01500
0087 E0DD                  154 |       AND     D0007                                 U3H01510
0088 1084                  155 |       SLT     4                                     U3H01520
0089 D002                  156 |       STO     ROW+1     ADD 12, 11, 0, AND 8 ROWS   U3H01530
008A 1091                  157 |       SLT     17        STORE 9 ROW IN CARRY        U3H01540
008B 6500 0000             158 | ROW   LDX  L1 0         XR1= TABLE LOOK-UP VALUE    U3H01550
008D C500 00CDR            159 |       LD   L1 TABLE     OBTAIN EBCDIC CHARS         U3H01560
008F 4802                  160 |       BSC     C         IS CARRY SET (9 ROW)        U3H01570
0090 1008                  161 |       SLA     8         YES, USE RIGHT CHAR         U3H01580
0091 E0DB                  162 |       AND     MASKR     NO, USE LEFT CHAR           U3H01590
0092 6500 0000             163 | OUT   LDX  L1 0         RESTORE XR1                 U3H01600
0094 4C80 0073R            164 |       BSC  I  TLU       EXIT                        U3H01610
0096 1000                  165 | TLU20 NOP               SAVE RETURN ADDRESS         U3H01620
0097 1808                  166 |       SRA     8                                     U3H01630
0098 D025                  167 |       STO     TLU30+1   RIGHT 3 BITS TELL WHICH     U3H01640
0099 90CE                  168 |       S       H006A     IS CHAR = 6A                U3H01650
009A 4820                  169 |       BSC     Z         YES, CORRECT FOR BLOCK 7    U3H01660
009B 80CC                  170 |       A       H006A     NO, DETERMINE BLOCK         U3H01670
009C E0C8                  171 |       AND     D0007     16-BIT BLOCK OF TABLE       U3H01680
009D F0C7                  172 |       EOR     D0007     (0 OR 1 = BLOCK 7, 2 =      U3H01690
009E 90C5                  173 |       S       D0006     BLOCK 6, ..., 7 =           U3H01700
009F 4818                  174 |       BSC     +-        BLOCK 0)                    U3H01710
00A0 80C2                  175 |       A       D0001                                 U3H01720
00A1 80C3                  176 |       A       D0007                                 U3H01730
00A2 1004                  177 |       SLA     4                                     U3H01740
00A3 D002                  178 |       STO     TLU22+1                               U3H01750
00A4 6925                  179 |       STX   1 TLU32+1                               U3H01760
00A5 6500 0000             180 | TLU22 LDX  L1 0         XR1=END OF PERTINENT BLOCK  U3H01770
00A7 C016                  181 | TLU24 LD      TLU30+1                               U3H01780
00A8 1008                  182 |       SLA     8         DOES INPUT MATCH TABLE      U3H01790
00A9 8014                  183 |       A       TLU30+1                               U3H01800
00AA F500 00CCR            184 |       EOR  L1 TABLE-1                               U3H01810
00AC 1888                  185 |       SRT     8                                     U3H01820
00AD 4C18 00B6R            186 |       BSC  L  TLU28,+-  YES, WITH LEFT CHAR         U3H01830
00AF 1810                  187 |       SRA     16                                    U3H01840
00B0 1088                  188 |       SLT     8                                     U3H01850
00B1 4C18 00B5R            189 |       BSC  L  TLU26,+-  YES, WITH RIGHT CHAR        U3H01860
00B3 71FF                  190 |       MDX   1 -1        NO, TRY NEXT TABLE WORD     U3H01870
00B4 70F2                  191 |       MDX     TLU24                                 U3H01880
00B5 C0B1                  192 | TLU26 LD      H0010     ADD 9-ROW BIT IF RIGHT      U3H01890
00B6 D0EF                  193 | TLU28 STO     TLU22+1   CHAR MATCHED.               U3H01900
00B7 71FF                  194 |       MDX   1 -1                                    U3H01910
00B8 1000                  195 |       NOP                                           U3H01920
00B9 6904                  196 |       STX   1 TLU30+1   XR1= PACKED HOLLERITH VALUE U3H01930
00BA C003                  197 |       LD      TLU30+1                               U3H01940
00BB 1884                  198 |       SRT     4         SAVE 12,11,0,8 IN EXTENSION U3H01950
00BC D001                  199 |       STO     TLU30+1                               U3H01960
00BD 6500 0000             200 | TLU30 LDX  L1 0         XR1=COMPLEMENT OF 1-7       U3H01970
00BF C0A9                  201 |       LD      H0200     (0 IF 7 ROW, 6 IF 1 ROW,    U3H01980
00C0 1100                  202 |       SLA   1 0         7 IF NO ROW)                U3H01990
00C1 1803                  203 |       SRA     3                                     U3H02000
00C2 80E3                  204 |       A       TLU22+1   SAVE UNPACKED 1-7 AND 9     U3H02010
00C3 D0E2                  205 |       STO     TLU22+1   ROWS.                       U3H02020
00C4 1083                  206 |       SLT     3         SEPARATE 12,11,0 FROM       U3H02030
00C5 1007                  207 |       SLA     7         8 ROW AS BRING ROWS         U3H02040
00C6 1081                  208 |       SLT     1         IN FROM EXTENSION.          U3H02050
00C7 1005                  209 |       SLA     5                                     U3H02060
00C8 80DD                  210 |       A       TLU22+1   = UNPACKED HOLLERITH CHAR   U3H02070
00C9 6500 0000             211 | TLU32 LDX  L1 0                                     U3H02080
00CB 4C80 0096R            212 |       BSC  I  TLU20     EXIT                        U3H02090
                           213 | *                                                   U3H02100
                           214 | *             EBCDIC CHARACTER TABLE - BASED ON     U3H02110
                           215 | *             PACKED HOLLERITH(1-7 ROW CMPL-1,12,   U3H02120
                           216 | *             11,0,8 ROWS...RT CHAR IF 9 ROW).      U3H02130
                           217 | *                                                   U3H02140
                           218 | *             EBCDIC,HOLLERITH ROW PUNCHES,LEFT,RT. U3H02150
                           219 | *                                                   U3H02160
                           220 | *             NOTE:  BLANK COMMENTS FIELDS INDICATE U3H02170
                           221 | *                    AN UNUSED CONFIGURATION IN THE U3H02180
                           222 | *                    TABLE.  SINCE THE TABLE VALUES U3H02190
                           223 | *                    ARE FOUND BY A COMPUTED  ADDR, U3H02200
                           224 | *                    ALL BIT COMBINATIONS,INCLUDING U3H02210
                           225 | *                    THOSE WHICH DO NOT REPRESENT A U3H02220
                           226 | *                    VALID CHAR,MUST BE INCLUDED.   U3H02230
                           227 | *                                                   U3H02240
00CD F737                  228 | TABLE DC      /F737  7,(9)              7      EOT  U3H02250
00CE 7F3F                  229 |       DC      /7F3F  7,8,(9)                        U3H02260
00CF E727                  230 |       DC      /E727  7,0,(9)            X      PRE  U3H02270
00D0 6F2F                  231 |       DC      /6F2F  7,0,8,(9)                      U3H02280
00D1 D717                  232 |       DC      /D717  7,11,(9)           P      IDL  U3H02290
00D2 5F1F                  233 |       DC      /5F1F  7,11,8,(9)                     U3H02300
00D3 A767                  234 |       DC      /A767  7,11,0,(9)                     U3H02310
00D4 AFEF                  235 |       DC      /AFEF  7,11,0,8,(9)                   U3H02320
00D5 C707                  236 |       DC      /C707  7,12,(9)           G      DEL  U3H02330
00D6 4F0F                  237 |       DC      /4F0F  7,12,8,(9)                     U3H02340
00D7 8747                  238 |       DC      /8747  7,12,0,(9)                     U3H02350
00D8 8FCF                  239 |       DC      /8FCF  7,12,0,8,(9)                   U3H02360
00D9 9757                  240 |       DC      /9757  7,12,11,(9)                    U3H02370
00DA 9FDF                  241 |       DC      /9FDF  7,12,11,8,(9)                  U3H02380
00DB B777                  242 |       DC      /B777  7,12,11,0,(9)                  U3H02390
00DC BFFF                  243 |       DC      /BFFF  7,12,11,0,8,(9)                U3H02400
                           244 | *                                                   U3H02410
00DD F636                  245 |       DC      /F636  6,(9)              6      UC   U3H02420
00DE 7E3E                  246 |       DC      /7E3E  6,8,(9)            EQUAL       U3H02430
00DF E626                  247 |       DC      /E626  6,0,(9)            W      EOB  U3H02440
00E0 6E2E                  248 |       DC      /6E2E  6,0,8,(9)                      U3H02450
00E1 D616                  249 |       DC      /D616  6,11,(9)           O      BS   U3H02460
00E2 5E1E                  250 |       DC      /5E1E  6,11,8,(9)                     U3H02470
00E3 A666                  251 |       DC      /A666  6,11,0,(9)                     U3H02480
00E4 AEEE                  252 |       DC      /AEEE  6,11,0,8,(9)                   U3H02490
00E5 C606                  253 |       DC      /C606  6,12,(9)           F      LC   U3H02500
00E6 4E0E                  254 |       DC      /4E0E  6,12,8,(9)         PLUS        U3H02510
00E7 8646                  255 |       DC      /8646  6,12,0,(9)                     U3H02520
00E8 8ECE                  256 |       DC      /8ECE  6,12,0,8,(9)                   U3H02530
00E9 9656                  257 |       DC      /9656  6,12,11,(9)                    U3H02540
00EA 9EDE                  258 |       DC      /9EDE  6,12,11,8,(9)                  U3H02550
00EB B676                  259 |       DC      /B676  6,12,11,0,(9)                  U3H02560
00EC BEFE                  260 |       DC      /BEFE  6,12,11,0,8,(9)                U3H02570
                           261 | *                                                   U3H02580
00ED F535                  262 |       DC      /F535  5,(9)              5      RS   U3H02590
00EE 7D3D                  263 |       DC      /7D3D  5,8,(9)                        U3H02600
00EF E525                  264 |       DC      /E525  5,0,(9)            V      LF   U3H02610
00F0 6D2D                  265 |       DC      /6D2D  5,0,8,(9)                      U3H02620
00F1 D515                  266 |       DC      /D515  5,11,(9)           N      NL   U3H02630
00F2 5D1D                  267 |       DC      /5D1D  5,11,8,(9)         )           U3H02640
00F3 A565                  268 |       DC      /A565  5,11,0,(9)                     U3H02650
00F4 ADED                  269 |       DC      /ADED  5,11,0,8,(9)                   U3H02660
00F5 C505                  270 |       DC      /C505  5,12,(9)           E      HT   U3H02670
00F6 4D0D                  271 |       DC      /4D0D  5,12,8,(9)         (           U3H02680
00F7 8545                  272 |       DC      /8545  5,12,0,(9)                     U3H02690
00F8 8DCD                  273 |       DC      /8DCD  5,12,0,8,(9)                   U3H02700
00F9 9555                  274 |       DC      /9555  5,12,11,(9)                    U3H02710
00FA 9DDD                  275 |       DC      /9DDD  5,12,11,8,(9)                  U3H02720
00FB B575                  276 |       DC      /B575  5,12,11,0,(9)                  U3H02730
00FC BDFD                  277 |       DC      /BDFD  5,12,11,0,8,(9)                U3H02740
                           278 | *                                                   U3H02750
00FD F434                  279 |       DC      /F434  4,(9)              4      PN   U3H02760
00FE 7C3C                  280 |       DC      /7C3C  4,8,(9)                        U3H02770
00FF E424                  281 |       DC      /E424  4,0,(9)            U      BYP  U3H02780
0100 6C2C                  282 |       DC      /6C2C  4,0,8,(9)                      U3H02790
0101 D414                  283 |       DC      /D414  4,11,(9)           M      RES  U3H02800
0102 5C1C                  284 |       DC      /5C1C  4,11,8,(9)         *           U3H02810
0103 A464                  285 |       DC      /A464  4,11,0,(9)                     U3H02820
0104 ACEC                  286 |       DC      /ACEC  4,11,0,8,(9)                   U3H02830
0105 C404                  287 |       DC      /C404  4,12,(9)           D      PF   U3H02840
0106 4C0C                  288 |       DC      /4C0C  4,12,8,(9)                     U3H02850
0107 8444                  289 |       DC      /8444  4,12,0,(9)                     U3H02860
0108 8CCC                  290 |       DC      /8CCC  4,12,0,8,(9)                   U3H02870
0109 9454                  291 |       DC      /9454  4,12,11,(9)                    U3H02880
010A 9CDC                  292 |       DC      /9CDC  4,12,11,8,(9)                  U3H02890
010B B474                  293 |       DC      /B474  4,12,11,0,(9)                  U3H02900
010C BCFC                  294 |       DC      /BCFC  4,12,11,0,8,(9)                U3H02910
                           295 | *                                                   U3H02920
010D F333                  296 |       DC      /F333  3,(9)              3           U3H02930
010E 7B3B                  297 |       DC      /7B3B  3,8,(9)                        U3H02940
010F E323                  298 |       DC      /E323  3,0,(9)            T           U3H02950
0110 6B2B                  299 |       DC      /6B2B  3,0,8,(9)          COMMA       U3H02960
0111 D313                  300 |       DC      /D313  3,11,(9)           L           U3H02970
0112 5B1B                  301 |       DC      /5B1B  3,11,8,(9)         $           U3H02980
0113 A363                  302 |       DC      /A363  3,11,0,(9)                     U3H02990
0114 ABEB                  303 |       DC      /ABEB  3,11,0,8,(9)                   U3H03000
0115 C303                  304 |       DC      /C303  3,12,(9)           C           U3H03010
0116 4B0B                  305 |       DC      /4B0B  3,12,8,(9)         .           U3H03020
0117 8343                  306 |       DC      /8343  3,12,0,(9)                     U3H03030
0118 8BCB                  307 |       DC      /8BCB  3,12,0,8,(9)                   U3H03040
0119 9353                  308 |       DC      /9353  3,12,11,(9)                    U3H03050
011A 9BDB                  309 |       DC      /9BDB  3,12,11,8,(9)                  U3H03060
011B B373                  310 |       DC      /B373  3,12,11,0,(9)                  U3H03070
011C BBFB                  311 |       DC      /BBFB  3,12,11,0,8,(9)                U3H03080
                           312 | *                                                   U3H03090
011D F232                  313 |       DC      /F232  2,(9)              2           U3H03100
011E 7A3A                  314 |       DC      /7A3A  2,8,(9)                        U3H03110
011F E222                  315 |       DC      /E222  2,0,(9)            S           U3H03120
0120 E02A                  316 |       DC      /E02A  2,0,8,(9)                      U3H03130
0121 D212                  317 |       DC      /D212  2,11,(9)           K           U3H03140
0122 5A1A                  318 |       DC      /5A1A  2,11,8,(9)                     U3H03150
0123 A262                  319 |       DC      /A262  2,11,0,(9)                     U3H03160
0124 AAEA                  320 |       DC      /AAEA  2,11,0,8,(9)                   U3H03170
0125 C202                  321 |       DC      /C202  2,12,(9)           B           U3H03180
0126 4A0A                  322 |       DC      /4A0A  2,12,8,(9)                     U3H03190
0127 8242                  323 |       DC      /8242  2,12,0,(9)                     U3H03200
0128 8ACA                  324 |       DC      /8ACA  2,12,0,8,(9)                   U3H03210
0129 9252                  325 |       DC      /9252  2,12,11,(9)                    U3H03220
012A 9ADA                  326 |       DC      /9ADA  2,12,11,8,(9)                  U3H03230
012B B272                  327 |       DC      /B272  2,12,11,0,(9)                  U3H03240
012C BAFA                  328 |       DC      /BAFA  2,12,11,0,8,(9)                U3H03250
                           329 | *                                                   U3H03260
012D F131                  330 |       DC      /F131  1,(9)              1           U3H03270
012E 7939                  331 |       DC      /7939  1,8,(9)                        U3H03280
012F 6121                  332 |       DC      /6121  1,0,(9)            SLASH       U3H03290
0130 6929                  333 |       DC      /6929  1,0,8,(9)                      U3H03300
0131 D111                  334 |       DC      /D111  1,11,(9)           J           U3H03310
0132 5919                  335 |       DC      /5919  1,11,8,(9)                     U3H03320
0133 A1E1                  336 |       DC      /A1E1  1,11,0,(9)                     U3H03330
0134 A020                  337 |       DC      /A020  1,11,0,8,(9)                   U3H03340
0135 C101                  338 |       DC      /C101  1,12,(9)           A           U3H03350
0136 4909                  339 |       DC      /4909  1,12,8,(9)                     U3H03360
0137 8141                  340 |       DC      /8141  1,12,0,(9)                     U3H03370
0138 8000                  341 |       DC      /8000  1,12,0,8,(9)              NUL  U3H03380
0139 9151                  342 |       DC      /9151  1,12,11,(9)                    U3H03390
013A 9010                  343 |       DC      /9010  1,12,11,8,(9)                  U3H03400
013B B171                  344 |       DC      /B171  1,12,11,0,(9)                  U3H03410
013C B030                  345 |       DC      /B030  1,12,11,0,8,(9)                U3H03420
                           346 | *                                                   U3H03430
013D 40F9                  347 |       DC      /40F9  BLANK,(9)          BLNK   9    U3H03440
013E F838                  348 |       DC      /F838  8,(9)              8           U3H03450
013F F0E9                  349 |       DC      /F0E9  0,(9)              ZERO   Z    U3H03460
0140 E828                  350 |       DC      /E828  0,8,(9)            Y           U3H03470
0141 60D9                  351 |       DC      /60D9  11,(9)             DASH   R    U3H03480
0142 D818                  352 |       DC      /D818  11,8,(9)           Q           U3H03490
0143 D0A9                  353 |       DC      /D0A9  11,0,(9)                       U3H03500
0144 A868                  354 |       DC      /A868  11,0,8,(9)                     U3H03510
0145 50C9                  355 |       DC      /50C9  12,(9)                    I    U3H03520
0146 C808                  356 |       DC      /C808  12,8,(9)           H           U3H03530
0147 C089                  357 |       DC      /C089  12,0,(9)                       U3H03540
0148 8848                  358 |       DC      /8848  12,0,8,(9)                     U3H03550
0149 6A99                  359 |       DC      /6A99  12,11,(9)                      U3H03560
014A 9858                  360 |       DC      /9858  12,11,8,(9)                    U3H03570
014B 70B9                  361 |       DC      /70B9  12,11,0,(9)                    U3H03580
014C B878                  362 |       DC      /B878  12,11,0,8,(9)                  U3H03590
014D                       363 |       END                                           U3H03600
 
There were no errors in this assembly
 
=== CROSS REFERENCES ==========================================================
Name  Val   Defd  Referenced
BACK  004AR   92   44  109
BACK4 0055R  101   99
BACK6 005AR  106   97
BLANK 0060R  114  149
COUNT 0062R  116   37   55   71   81   98  108
CTRL  0061R  115   31   45   96
D0001 0063R  117  153  175
D0006 0064R  118  173
D0007 0065R  119  154  171  172  176
EXIT  0048R   87   39
FLAG  0066R  120
H0010 0067R  121  192
H006A 0068R  122  168  170
H0200 0069R  123  201
H1FC0 006AR  124  143
H2001 006BR  125  147
INPUT 0011R   40   33
LEFT  001CR   51   52   72
LINK  0001R   25
MASKL 006CR  126   58
MASKR 006DR  127  162
OK    0084R  151  146
ONCE  0037R   74   46   75   82
OUT   0092R  163  141  150
OUTPT 0013R   41   35
RIGHT 0029R   62   56   63
ROW   008BR  158  156
SAV1  0043R   84   24
SAV2  0045R   85   26
SAVA  006ER  128  136  140  151  152
SAVAQ 0070R  129   28   86
SAVST 0042R   83   27   61   73  100  110  148
SPEED 0000R   24
TABLE 00CDR  228  159  184
TEMP  0072R  130   54   59   66
TLU   0073R  132   53   64   76  164
TLU20 0096R  165   93  103  212
TLU22 00A5R  180  178  193  204  205  210
TLU24 00A7R  181  191
TLU26 00B5R  192  189
TLU28 00B6R  193  186
TLU30 00BDR  200  167  181  183  196  197  199
TLU32 00C9R  211  179
ibm/ibm1130-lib/dmsr2v12/u3speed_lst.txt ยท Last modified: 2023/08/06 13:34 by Site Administrator