ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:10 2020 Source File: \u4hlebc.asm 1 | *************************************************** U4M00010 2 | ** * U4M00020 3 | * SUBROUTINE NAME- * U4M00030 4 | * FULL NAME- HOLLERITH TO EBCDIC CONVERSION * U4M00040 5 | * TABLE SUBROUTINE. * U4M00050 6 | * CODE NAME- HLEBC * U4M00060 7 | * PURPOSE- HLEBC IS A TABLE OF PACKED 8-BIT * U4M00070 8 | * EBCDIC CODES TO BE USED BY THE SPEED * U4M00080 9 | * CONVERSION ROUTINE. * U4M00090 10 | * METHOD- * U4M00100 11 | * SEE IBM 1130 SUBROUTINE LIBRARY MANUAL * U4M00110 12 | * CAPABILITIES AND LIMITATIONS- * U4M00120 13 | * SEE IBM 1130 SUBROUTINE LIBRARY MANUAL * U4M00130 14 | * SPECIAL FEATURES- N/A * U4M00140 15 | * ADDITIONAL INFORMATION- * U4M00150 16 | * ESTIMATED EXECUTION TIME- N/A * U4M00160 17 | * * U4M00170 18 | *************************************************** U4M00180 HOL TO EBC CONV TABLE 12/1/66 20 | ENT HLEBC U4M00200 0000 5040 21 | HLEBC DC /5040 AMPERSAND SPACE U4M00210 0001 C9F9 22 | DC /C9F9 I 9 U4M00220 0002 C8F8 23 | DC /C8F8 H 8 U4M00230 0003 0838 24 | DC /0838 NO GRAPHIC NO GRAPHIC U4M00240 0004 C1F1 25 | DC /C1F1 A 1 U4M00250 0005 0131 26 | DC /0131 NO GRAPHIC NO GRAPHIC U4M00260 0006 4979 27 | DC /4979 NO GRAPHIC NO GRAPHIC U4M00270 0007 0939 28 | DC /0939 NO GRAPHIC NO GRAPHIC U4M00280 0008 C2F2 29 | DC /C2F2 B 2 U4M00290 0009 0232 30 | DC /0232 NO GRAPHIC NO GRAPHIC U4M00300 000A 4A7A 31 | DC /4A7A CENT COLON U4M00310 000B 0A3A 32 | DC /0A3A NO GRAPHIC NO GRAPHIC U4M00320 000C C3F3 33 | DC /C3F3 C 3 U4M00330 000D 0333 34 | DC /0333 NO GRAPHIC NO GRAPHIC U4M00340 000E 4B7B 35 | DC /4B7B PERIOD NUMBER U4M00350 000F 0B3B 36 | DC /0B3B NO GRAPHIC NO GRAPHIC U4M00360 0010 C4F4 37 | DC /C4F4 D 4 U4M00370 0011 0434 38 | DC /0434 PUNCH OFF PUNCH ON U4M00380 0012 4C7C 39 | DC /4C7C LESS THAN AT U4M00390 0013 0C3C 40 | DC /0C3C NO GRAPHIC NO GRAPHIC U4M00400 0014 C5F5 41 | DC /C5F5 E 5 U4M00410 0015 0535 42 | DC /0535 HORIZ TAB READER STOP U4M00420 0016 4D7D 43 | DC /4D7D LEFT PAREN APOSTROPHE U4M00430 0017 0D3D 44 | DC /0D3D NO GRAPHIC NO GRAPHIC U4M00440 0018 C6F6 45 | DC /C6F6 F 6 U4M00450 0019 0636 46 | DC /0636 LOWER CASE UPPER CASE U4M00460 001A 4E7E 47 | DC /4E7E PLUS EQUAL U4M00470 001B 0E3E 48 | DC /0E3E NO GRAPHIC NO GRAPHIC U4M00480 001C C7F7 49 | DC /C7F7 G 7 U4M00490 001D 0737 50 | DC /0737 DELETE EOT U4M00500 001E 4F7F 51 | DC /4F7F LOGICAL OR QUOTE U4M00510 001F 0F3F 52 | DC /0F3F NO GRAPHIC NO GRAPHIC U4M00520 0020 C0F0 53 | DC /C0F0 PLUS ZERO 0 U4M00530 0021 89E9 54 | DC /89E9 NO GRAPHIC Z U4M00540 0022 88E8 55 | DC /88E8 NO GRAPHIC Y U4M00550 0023 4828 56 | DC /4828 NO GRAPHIC NO GRAPHIC U4M00560 0024 8161 57 | DC /8161 NO GRAPHIC SLASH U4M00570 0025 4121 58 | DC /4121 NO GRAPHIC NO GRAPHIC U4M00580 0026 8069 59 | DC /8069 NO GRAPHIC NO GRAPHIC U4M00590 0027 0029 60 | DC /0029 NUL NO GRAPHIC U4M00600 0028 82E2 61 | DC /82E2 NO GRAPHIC S U4M00610 0029 4222 62 | DC /4222 NO GRAPHIC NO GRAPHIC U4M00620 002A 8AE0 63 | DC /8AE0 NO GRAPHIC NO GRAPHIC U4M00630 002B CA2A 64 | DC /CA2A NO GRAPHIC NO GRAPHIC U4M00640 002C 83E3 65 | DC /83E3 NO GRAPHIC T U4M00650 002D 4323 66 | DC /4323 NO GRAPHIC NO GRAPHIC U4M00660 002E 8B6B 67 | DC /8B6B NO GRAPHIC COMMA U4M00670 002F CB2B 68 | DC /CB2B NO GRAPHIC NO GRAPHIC U4M00680 0030 84E4 69 | DC /84E4 NO GRAPHIC U U4M00690 0031 4424 70 | DC /4424 NO GRAPHIC BYPASS U4M00700 0032 8C6C 71 | DC /8C6C NO GRAPHIC PERCENT U4M00710 0033 CC2C 72 | DC /CC2C NO GRAPHIC NO GRAPHIC U4M00720 0034 85E5 73 | DC /85E5 NO GRAPHIC V U4M00730 0035 4525 74 | DC /4525 NO GRAPHIC LINE FEED U4M00740 0036 8D6D 75 | DC /8D6D NO GRAPHIC UNDERSCORE U4M00750 0037 CD2D 76 | DC /CD2D NO GRAPHIC NO GRAPHIC U4M00760 0038 86E6 77 | DC /86E6 NO GRAPHIC W U4M00770 0039 4626 78 | DC /4626 NO GRAPHIC EOB U4M00780 003A 8E6E 79 | DC /8E6E NO GRAPHIC GREATER THAN U4M00790 003B CE2E 80 | DC /CE2E NO GRAPHIC NO GRAPHIC U4M00800 003C 87E7 81 | DC /87E7 NO GRAPHIC X U4M00810 003D 4727 82 | DC /4727 NO GRAPHIC PREFIX U4M00820 003E 8F6F 83 | DC /8F6F NO GRAPHIC QUESTION MARK U4M00830 003F CF2F 84 | DC /CF2F NO GRAPHIC NO GRAPHIC U4M00840 0040 6A60 85 | DC /6A60 NO GRAPHIC DASH U4M00850 0041 99D9 86 | DC /99D9 NO GRAPHIC R U4M00860 0042 98D8 87 | DC /98D8 NO GRAPHIC Q U4M00870 0043 5818 88 | DC /5818 NO GRAPHIC NO GRAPHIC U4M00880 0044 91D1 89 | DC /91D1 NO GRAPHIC J U4M00890 0045 5111 90 | DC /5111 NO GRAPHIC NO GRAPHIC U4M00900 0046 9059 91 | DC /9059 NO GRAPHIC NO GRAPHIC U4M00910 0047 1019 92 | DC /1019 NO GRAPHIC NO GRAPHIC U4M00920 0048 92D2 93 | DC /92D2 NO GRAPHIC K U4M00930 0049 5212 94 | DC /5212 NO GRAPHIC NO GRAPHIC U4M00940 004A 9A5A 95 | DC /9A5A NO GRAPHIC EXCLAMATION U4M00950 004B DA1A 96 | DC /DA1A NO GRAPHIC NO GRAPHIC U4M00960 004C 93D3 97 | DC /93D3 NO GRAPHIC L U4M00970 004D 5313 98 | DC /5313 NO GRAPHIC NO GRAPHIC U4M00980 004E 9B5B 99 | DC /9B5B NO GRAPHIC DOLLAR U4M00990 004F DB1B 100 | DC /DB1B NO GRAPHIC NO GRAPHIC U4M01000 0050 94D4 101 | DC /94D4 NO GRAPHIC M U4M01010 0051 5414 102 | DC /5414 NO GRAPHIC RESTORE U4M01020 0052 9C5C 103 | DC /9C5C NO GRAPHIC ASTERISK U4M01030 0053 DC1C 104 | DC /DC1C NO GRAPHIC NO GRAPHIC U4M01040 0054 95D5 105 | DC /95D5 NO GRAPHIC N U4M01050 0055 5515 106 | DC /5515 NO GRAPHIC NEW LINE U4M01060 0056 9D5D 107 | DC /9D5D NO GRAPHIC RIGHT PAREN U4M01070 0057 DD1D 108 | DC /DD1D NO GRAPHIC NO GRAPHIC U4M01080 0058 96D6 109 | DC /96D6 NO GRAPHIC O U4M01090 0059 5616 110 | DC /5616 NO GRAPHIC BACKSPACE U4M01100 005A 9E5E 111 | DC /9E5E NO GRAPHIC SEMI-COLON U4M01110 005B DE1E 112 | DC /DE1E NO GRAPHIC NO GRAPHIC U4M01120 005C 97D7 113 | DC /97D7 NO GRAPHIC P U4M01130 005D 5717 114 | DC /5717 NO GRAPHIC IDLE U4M01140 005E 9F5F 115 | DC /9F5F NO GRAPHIC LOGICAL NOT U4M01150 005F DF1F 116 | DC /DF1F NO GRAPHIC NO GRAPHIC U4M01160 0060 70D0 117 | DC /70D0 NO GRAPHIC MINUS ZERO U4M01170 0061 B9A9 118 | DC /B9A9 NO GRAPHIC NO GRAPHIC U4M01180 0062 B8A8 119 | DC /B8A8 NO GRAPHIC NO GRAPHIC U4M01190 0063 7868 120 | DC /7868 NO GRAPHIC NO GRAPHIC U4M01200 0064 B1A1 121 | DC /B1A1 NO GRAPHIC NO GRAPHIC U4M01210 0065 71E1 122 | DC /71E1 NO GRAPHIC NO GRAPHIC U4M01220 0066 B0A0 123 | DC /B0A0 NO GRAPHIC NO GRAPHIC U4M01230 0067 3020 124 | DC /3020 56 GRAPHIC NO GRAPHIC U4M01240 0068 B2A2 125 | DC /B2A2 NO GRAPHIC NO GRAPHIC U4M01250 0069 7262 126 | DC /7262 NO GRAPHIC NO GRAPHIC U4M01260 006A BAAA 127 | DC /BAAA NO GRAPHIC NO GRAPHIC U4M01270 006B FAEA 128 | DC /FAEA NO GRAPHIC NO GRAPHIC U4M01280 006C B3A3 129 | DC /B3A3 NO GRAPHIC NO GRAPHIC U4M01290 006D 7363 130 | DC /7363 NO GRAPHIC NO GRAPHIC U4M01300 006E BBAB 131 | DC /BBAB NO GRAPHIC NO GRAPHIC U4M01310 006F FBEB 132 | DC /FBEB NO GRAPHIC NO GRAPHIC U4M01320 0070 B4A4 133 | DC /B4A4 NO GRAPHIC NO GRAPHIC U4M01330 0071 7464 134 | DC /7464 NO GRAPHIC NO GRAPHIC U4M01340 0072 BCAC 135 | DC /BCAC NO GRAPHIC NO GRAPHIC U4M01350 0073 FCEC 136 | DC /FCEC NO GRAPHIC NO GRAPHIC U4M01360 0074 B5A5 137 | DC /B5A5 NO GRAPHIC NO GRAPHIC U4M01370 0075 7565 138 | DC /7565 NO GRAPHIC NO GRAPHIC U4M01380 0076 BDAD 139 | DC /BDAD NO GRAPHIC NO GRAPHIC U4M01390 0077 FDED 140 | DC /FDED NO GRAPHIC NO GRAPHIC U4M01400 0078 B6A6 141 | DC /B6A6 NO GRAPHIC NO GRAPHIC U4M01410 0079 7666 142 | DC /7666 NO GRAPHIC NO GRAPHIC U4M01420 007A BEAE 143 | DC /BEAE NO GRAPHIC NO GRAPHIC U4M01430 007B FEEE 144 | DC /FEEE NO GRAPHIC NO GRAPHIC U4M01440 007C B7A7 145 | DC /B7A7 NO GRAPHIC NO GRAPHIC U4M01450 007D 7767 146 | DC /7767 NO GRAPHIC NO GRAPHIC U4M01460 007E BFAF 147 | DC /BFAF NO GRAPHIC NO GRAPHIC U4M01470 007F FFEF 148 | DC /FFEF NO GRAPHIC NO GRAPHIC U4M01480 0080 149 | END U4M01490 There were no errors in this assembly === CROSS REFERENCES ========================================================== Name Val Defd Referenced HLEBC 0000R 21