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