ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:10 2020
Source File: \u4ebhol.asm
1 | *************************************************** U4J00010
2 | * * U4J00020
3 | * SUBROUTINE NAME- * U4J00030
4 | * FULL NAME- EBCDIC TO HOLLERITH CONVERSION * U4J00040
5 | * TABLE SUBROUTINE. * U4J00050
6 | * CODE NAME- EBHOL * U4J00060
7 | * PURPOSE- THIS TABLE IS USED BY ZIPCO IN A * U4J00070
8 | * DIRECT TABLE ACCESS CONVERSION FROM * U4J00080
9 | * EBCDIC TO HOLLERITH. THE HOLLERITH IS IN * U4J00090
10 | * PACKED FORM,SO TWO CHARS FIT IN 1 WORD. * U4J00100
11 | * METHOD- * U4J00110
12 | * SEE IBM 1130 SUBROUTINE LIBRARY MANUAL * U4J00120
13 | * CAPABILITIES AND LIMITATIONS- * U4J00130
14 | * SEE IBM 1130 SUBROUTINE LIBRARY MANUAL * U4J00140
15 | * SPECIAL FEATURES- N/A * U4J00150
16 | * ADDITIONAL INFORMATION- * U4J00160
17 | * ESTIMATED EXECUTION TIME- N/A * U4J00170
18 | * * U4J00180
19 | *************************************************** U4J00190
EBCDIC TO HOL CONV TABLE FOR ZIPCO
21 | * GRAPHICS * U4J00210
22 | * LFT HALF RT HALF * U4J00220
23 | ENT EBHOL U4J00230
0000 A6A7 24 | EBHOL DC /A6A7 NO GRAPHIC NO GRAPHIC U4J00240
0001 A485 25 | DC /A485 NO GRAPHIC NO GRAPHIC U4J00250
0002 A889 26 | DC /A889 NO GRAPHIC NO GRAPHIC U4J00260
0003 AC8D 27 | DC /AC8D NO GRAPHIC NO GRAPHIC U4J00270
0004 B091 28 | DC /B091 NO GRAPHIC PNCH OFF U4J00280
0005 B495 29 | DC /B495 NO GRAPHIC HORIZ TAB U4J00290
0006 B899 30 | DC /B899 NO GRAPHIC LOWER CASE U4J00300
0007 BC9D 31 | DC /BC9D NO GRAPHIC DELETE U4J00310
0008 A283 32 | DC /A283 NO GRAPHIC NO GRAPHIC U4J00320
0009 A187 33 | DC /A187 NO GRAPHIC NO GRAPHIC U4J00330
000A AA8B 34 | DC /AA8B NO GRAPHIC NO GRAPHIC U4J00340
000B AE8F 35 | DC /AE8F NO GRAPHIC NO GRAPHIC U4J00350
000C B293 36 | DC /B293 NO GRAPHIC NO GRAPHIC U4J00360
000D B697 37 | DC /B697 NO GRAPHIC NO GRAPHIC U4J00370
000E BA9B 38 | DC /BA9B NO GRAPHIC NO GRAPHIC U4J00380
000F BE9F 39 | DC /BE9F NO GRAPHIC NO GRAPHIC U4J00390
0010 C6C7 40 | DC /C6C7 NO GRAPHIC NO GRAPHIC U4J00400
0011 C445 41 | DC /C445 NO GRAPHIC NO GRAPHIC U4J00410
0012 C849 42 | DC /C849 NO GRAPHIC NO GRAPHIC U4J00420
0013 CC4D 43 | DC /CC4D NO GRAPHIC RESTORE U4J00430
0014 D051 44 | DC /D051 NO GRAPHIC NEW LINE U4J00440
0015 D455 45 | DC /D455 NO GRAPHIC BACKSPACE U4J00450
0016 D859 46 | DC /D859 NO GRAPHIC IDLE U4J00460
0017 DC5D 47 | DC /DC5D NO GRAPHIC NO GRAPHIC U4J00470
0018 C243 48 | DC /C243 NO GRAPHIC NO GRAPHIC U4J00480
0019 C147 49 | DC /C147 NO GRAPHIC NO GRAPHIC U4J00490
001A CA4B 50 | DC /CA4B NO GRAPHIC NO GRAPHIC U4J00500
001B CE4F 51 | DC /CE4F NO GRAPHIC NO GRAPHIC U4J00510
001C D253 52 | DC /D253 NO GRAPHIC NO GRAPHIC U4J00520
001D D657 53 | DC /D657 NO GRAPHIC NO GRAPHIC U4J00530
001E DA5B 54 | DC /DA5B NO GRAPHIC NO GRAPHIC U4J00540
001F DE5F 55 | DC /DE5F NO GRAPHIC DS U4J00550
0020 6667 56 | DC /6667 NO GRAPHIC SOS U4J00560
0021 6425 57 | DC /6425 NO GRAPHIC FS U4J00570
0022 6829 58 | DC /6829 NO GRAPHIC NO GRAPHIC U4J00580
0023 6C2D 59 | DC /6C2D NO GRAPHIC BYPASS U4J00590
0024 7031 60 | DC /7031 NO GRAPHIC LINE FEED U4J00600
0025 7435 61 | DC /7435 NO GRAPHIC EOB U4J00610
0026 7839 62 | DC /7839 NO GRAPHIC PREFIX U4J00620
0027 7C3D 63 | DC /7C3D NO GRAPHIC NO GRAPHIC U4J00630
0028 6223 64 | DC /6223 NO GRAPHIC NO GRAPHIC U4J00640
0029 6127 65 | DC /6127 NO GRAPHIC SET MODE U4J00650
002A 6A2B 66 | DC /6A2B NO GRAPHIC NO GRAPHIC U4J00660
002B 6E2F 67 | DC /6E2F NO GRAPHIC NO GRAPHIC U4J00670
002C 7233 68 | DC /7233 NO GRAPHIC NO GRAPHIC U4J00680
002D 7637 69 | DC /7637 NO GRAPHIC NO GRAPHIC U4J00690
002E 7A3B 70 | DC /7A3B NO GRAPHIC NO GRAPHIC U4J00700
002F 7E3F 71 | DC /7E3F NO GRAPHIC NO GRAPHIC U4J00710
0030 E6E7 72 | DC /E6E7 NO GRAPHIC NO GRAPHIC U4J00720
0031 E405 73 | DC /E405 NO GRAPHIC NO GRAPHIC U4J00730
0032 E809 74 | DC /E809 NO GRAPHIC NO GRAPHIC U4J00740
0033 EC0D 75 | DC /EC0D NO GRAPHIC NO GRAPHIC U4J00750
0034 F011 76 | DC /F011 NO GRAPHIC PNCH ON U4J00760
0035 F415 77 | DC /F415 NO GRAPHIC READER STOP U4J00770
0036 F819 78 | DC /F819 NO GRAPHIC UPPER CASE U4J00780
0037 FC1D 79 | DC /FC1D NO GRAPHIC EOT U4J00790
0038 E203 80 | DC /E203 NO GRAPHIC NO GRAPHIC U4J00800
0039 E107 81 | DC /E107 NO GRAPHIC NO GRAPHIC U4J00810
003A EA0B 82 | DC /EA0B NO GRAPHIC NO GRAPHIC U4J00820
003B EE0F 83 | DC /EE0F NO GRAPHIC NO GRAPHIC U4J00830
003C F213 84 | DC /F213 NO GRAPHIC NO GRAPHIC U4J00840
003D F617 85 | DC /F617 NO GRAPHIC NO GRAPHIC U4J00850
003E FA1B 86 | DC /FA1B NO GRAPHIC NO GRAPHIC U4J00860
003F FE1F 87 | DC /FE1F NO GRAPHIC NO GRAPHIC U4J00870
0040 A000 88 | DC /A000 PLUS ZERO SPACE U4J00880
0041 84A5 89 | DC /84A5 A NO GRAPHIC U4J00890
0042 88A9 90 | DC /88A9 B NO GRAPHIC U4J00900
0043 8CAD 91 | DC /8CAD C NO GRAPHIC U4J00910
0044 90B1 92 | DC /90B1 D NO GRAPHIC U4J00920
0045 94B5 93 | DC /94B5 E NO GRAPHIC U4J00930
0046 98B9 94 | DC /98B9 F NO GRAPHIC U4J00940
0047 9CBD 95 | DC /9CBD G NO GRAPHIC U4J00950
0048 82A3 96 | DC /82A3 H NO GRAPHIC U4J00960
0049 8186 97 | DC /8186 I NO GRAPHIC U4J00970
004A AB8A 98 | DC /AB8A NO GRAPHIC CENT U4J00980
004B AF8E 99 | DC /AF8E NO GRAPHIC PERIOD U4J00990
004C B392 100 | DC /B392 NO GRAPHIC LESS THAN U4J01000
004D B796 101 | DC /B796 NO GRAPHIC LEFT PAREN U4J01010
004E BB9A 102 | DC /BB9A NO GRAPHIC PLUS U4J01020
004F BF9E 103 | DC /BF9E NO GRAPHIC LOGICAL OR U4J01030
0050 6080 104 | DC /6080 MINUS ZERO AMPERSAND U4J01040
0051 44C5 105 | DC /44C5 J NO GRAPHIC U4J01050
0052 48C9 106 | DC /48C9 K NO GRAPHIC U4J01060
0053 4CCD 107 | DC /4CCD L NO GRAPHIC U4J01070
0054 50D1 108 | DC /50D1 M NO GRAPHIC U4J01080
0055 54D5 109 | DC /54D5 N NO GRAPHIC U4J01090
0056 58D9 110 | DC /58D9 O NO GRAPHIC U4J01100
0057 5CDD 111 | DC /5CDD P NO GRAPHIC U4J01110
0058 42C3 112 | DC /42C3 Q NO GRAPHIC U4J01120
0059 4146 113 | DC /4146 R NO GRAPHIC U4J01130
005A CB4A 114 | DC /CB4A NO GRAPHIC EXCLAMATION U4J01140
005B CF4E 115 | DC /CF4E NO GRAPHIC DOLLAR U4J01150
005C D352 116 | DC /D352 NO GRAPHIC ASTERISK U4J01160
005D D756 117 | DC /D756 NO GRAPHIC RIGHT PAREN U4J01170
005E DB5A 118 | DC /DB5A NO GRAPHIC SEMI COLON U4J01180
005F DF5E 119 | DC /DF5E NO GRAPHIC LOGICAL NOT U4J01190
0060 2A40 120 | DC /2A40 NO GRAPHIC DASH, MINUS U4J01200
0061 6524 121 | DC /6524 NO GRAPHIC SLASH U4J01210
0062 2869 122 | DC /2869 S NO GRAPHIC U4J01220
0063 2C6D 123 | DC /2C6D T NO GRAPHIC U4J01230
0064 3071 124 | DC /3071 U NO GRAPHIC U4J01240
0065 3475 125 | DC /3475 V NO GRAPHIC U4J01250
0066 3879 126 | DC /3879 W NO GRAPHIC U4J01260
0067 3C7D 127 | DC /3C7D X NO GRAPHIC U4J01270
0068 2263 128 | DC /2263 Y NO GRAPHIC U4J01280
0069 2126 129 | DC /2126 Z NO GRAPHIC U4J01290
006A 6BC0 130 | DC /6BC0 NO GRAPHIC NO GRAPHIC U4J01300
006B 6F2E 131 | DC /6F2E NO GRAPHIC COMMA U4J01310
006C 7332 132 | DC /7332 NO GRAPHIC PERCENT U4J01320
006D 7736 133 | DC /7736 NO GRAPHIC UNDERSCORE U4J01330
006E 7B3A 134 | DC /7B3A NO GRAPHIC GREATER THAN U4J01340
006F 7F3E 135 | DC /7F3E NO GRAPHIC QUESTION MARK U4J01350
0070 20E0 136 | DC /20E0 0 NO GRAPHIC U4J01360
0071 04E5 137 | DC /04E5 1 NO GRAPHIC U4J01370
0072 08E9 138 | DC /08E9 2 NO GRAPHIC U4J01380
0073 0CED 139 | DC /0CED 3 NO GRAPHIC U4J01390
0074 10F1 140 | DC /10F1 4 NO GRAPHIC U4J01400
0075 14F5 141 | DC /14F5 5 NO GRAPHIC U4J01410
0076 18F9 142 | DC /18F9 6 NO GRAPHIC U4J01420
0077 1CFD 143 | DC /1CFD 7 NO GRAPHIC U4J01430
0078 02E3 144 | DC /02E3 8 NO GRAPHIC U4J01440
0079 0106 145 | DC /0106 9 NO GRAPHIC U4J01450
007A EB0A 146 | DC /EB0A NO GRAPHIC COLON U4J01460
007B EF0E 147 | DC /EF0E NO GRAPHIC NUMBER U4J01470
007C F312 148 | DC /F312 NO GRAPHIC AT U4J01480
007D F716 149 | DC /F716 NO GRAPHIC APOSTROPHE U4J01490
007E FB1A 150 | DC /FB1A NO GRAPHIC EQUAL U4J01500
007F FF1E 151 | DC /FF1E NO GRAPHIC QUOTATION U4J01510
0080 152 | END U4J01520
There were no errors in this assembly
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
EBHOL 0000R 24