ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:10 2020 Source File: \u4hlpt3.asm 1 | *************************************************** U4N00010 2 | * * U4N00020 3 | * SUBROUTINE NAME- * U4N00030 4 | * FULL NAME- HOLLERITH TO 1403 PRINTER CODE * U4N00040 5 | * CONVERSION TABLE SUBROUTINE. * U4N00050 6 | * CODE NAME- HLPT3 * U4N00060 7 | * PURPOSE- HLPT3 IS A TABLE OF PACKED,8-BIT * U4N00070 8 | * 1403 PRINTER CODE TO BE USED BY ZIPCO, * U4N00080 9 | * THE SPEED CONVERSION SUBROUTINE. * U4N00090 10 | * METHOD- * U4N00100 11 | * SEE IBM 1130 SUBROUTINE LIBRARY MANUAL * U4N00110 12 | * CAPABILITIES AND LIMITATIONS- * U4N00120 13 | * SEE IBM 1130 SUBROUTINE LIBRARY MANUAL * U4N00130 14 | * SPECIAL FEATURES- NON-EXECUTABLE * U4N00140 15 | * ADDITIONAL INFORMATION- * U4N00150 16 | * ESTIMATED EXECUTION TIME- N/A * U4N00160 17 | * * U4N00170 18 | *************************************************** U4N00180 HOL TO 1403 CONV TABLE FOR ZIPCO 20 | ENT HLPT3 U4N00200 0000 157F 21 | HLPT3 DC /157F AMPERSAND SPACE U4N00210 0001 2C08 22 | DC /2C08 I 9 U4N00220 0002 6B07 23 | DC /6B07 H 8 U4N00230 0003 7F7F 24 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N00240 0004 6440 25 | DC /6440 A 1 U4N00250 0005 7F7F 26 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N00260 0006 7F7F 27 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N00270 0007 7F7F 28 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N00280 0008 2501 29 | DC /2501 B 2 U4N00290 0009 7F7F 30 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N00300 000A 7F7F 31 | DC /7F7F CENT COLON U4N00310 000B 7F7F 32 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N00320 000C 2602 33 | DC /2602 C 3 U4N00330 000D 7F7F 34 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N00340 000E 6E7F 35 | DC /6E7F PERIOD NUMBER U4N00350 000F 7F7F 36 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N00360 0010 6743 37 | DC /6743 D 4 U4N00370 0011 7F7F 38 | DC /7F7F PUNCH OFF PUNCH ON U4N00380 0012 7F7F 39 | DC /7F7F LESS THAN AT U4N00390 0013 7F7F 40 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N00400 0014 6804 41 | DC /6804 E 5 U4N00410 0015 7F7F 42 | DC /7F7F HORIZ TAB READR STOP U4N00420 0016 570B 43 | DC /570B LEFT PAREN APOSTROPHE U4N00430 0017 7F7F 44 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N00440 0018 2945 45 | DC /2945 F 6 U4N00450 0019 7F7F 46 | DC /7F7F LOWER CASE UPPER CASE U4N00460 001A 6D4A 47 | DC /6D4A PLUS EQUAL U4N00470 001B 7F7F 48 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N00480 001C 2A46 49 | DC /2A46 G 7 U4N00490 001D 7F7F 50 | DC /7F7F DELETE EOT U4N00500 001E 7F7F 51 | DC /7F7F LOGICAL OR QUOTE U4N00510 001F 7F7F 52 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N00520 0020 7F49 53 | DC /7F49 PLUS ZERO 0 U4N00530 0021 7F54 54 | DC /7F54 NO GRAPHIC Z U4N00540 0022 7F13 55 | DC /7F13 NO GRAPHIC Y U4N00550 0023 7F7F 56 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N00560 0024 7F4C 57 | DC /7F4C NO GRAPHIC SLASH U4N00570 0025 7F7F 58 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N00580 0026 7F7F 59 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N00590 0027 7F7F 60 | DC /7F7F NUL NO GRAPHIC U4N00600 0028 7F0D 61 | DC /7F0D NO GRAPHIC S U4N00610 0029 7F7F 62 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N00620 002A 7F7F 63 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N00630 002B 7F7F 64 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N00640 002C 7F0E 65 | DC /7F0E NO GRAPHIC T U4N00650 002D 7F7F 66 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N00660 002E 7F16 67 | DC /7F16 NO GRAPHIC COMMA U4N00670 002F 7F7F 68 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N00680 0030 7F4F 69 | DC /7F4F NO GRAPHIC U U4N00690 0031 7F7F 70 | DC /7F7F NO GRAPHIC BYPASS U4N00700 0032 7F7F 71 | DC /7F7F NO GRAPHIC PERCENT U4N00710 0033 7F7F 72 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N00720 0034 7F10 73 | DC /7F10 NO GRAPHIC V U4N00730 0035 7F7F 74 | DC /7F7F NO GRAPHIC LINE FEED U4N00740 0036 7F7F 75 | DC /7F7F NO GRAPHIC UNDERSCORE U4N00750 0037 7F7F 76 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N00760 0038 7F51 77 | DC /7F51 NO GRAPHIC W U4N00770 0039 7F7F 78 | DC /7F7F NO GRAPHIC EOB U4N00780 003A 7F7F 79 | DC /7F7F NO GRAPHIC GREATER THAN U4N00790 003B 7F7F 80 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N00800 003C 7F52 81 | DC /7F52 NO GRAPHIC X U4N00810 003D 7F7F 82 | DC /7F7F NO GRAPHIC PREFIX U4N00820 003E 7F7F 83 | DC /7F7F NO GRAPHIC QUESTION MARK U4N00830 003F 7F7F 84 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N00840 0040 7F61 85 | DC /7F61 NO GRAPHIC DASH U4N00850 0041 7F20 86 | DC /7F20 NO GRAPHIC R U4N00860 0042 7F1F 87 | DC /7F1F NO GRAPHIC Q U4N00870 0043 7F7F 88 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N00880 0044 7F58 89 | DC /7F58 NO GRAPHIC J U4N00890 0045 7F7F 90 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N00900 0046 7F7F 91 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N00910 0047 7F7F 92 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N00920 0048 7F19 93 | DC /7F19 NO GRAPHIC K U4N00930 0049 7F7F 94 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N00940 004A 7F7F 95 | DC /7F7F NO GRAPHIC EXCLAMATION U4N00950 004B 7F7F 96 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N00960 004C 7F1A 97 | DC /7F1A NO GRAPHIC L U4N00970 004D 7F7F 98 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N00980 004E 7F62 99 | DC /7F62 NO GRAPHIC DOLLAR U4N00990 004F 7F7F 100 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N01000 0050 7F5B 101 | DC /7F5B NO GRAPHIC M U4N01010 0051 7F7F 102 | DC /7F7F NO GRAPHIC RESTORE U4N01020 0052 7F23 103 | DC /7F23 NO GRAPHIC ASTERISK U4N01030 0053 7F7F 104 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N01040 0054 7F1C 105 | DC /7F1C NO GRAPHIC N U4N01050 0055 7F7F 106 | DC /7F7F NO GRAPHIC NEW LINE U4N01060 0056 7F2F 107 | DC /7F2F NO GRAPHIC RIGHT PAREN U4N01070 0057 7F7F 108 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N01080 0058 7F5D 109 | DC /7F5D NO GRAPHIC O U4N01090 0059 7F7F 110 | DC /7F7F NO GRAPHIC BACKSPACE U4N01100 005A 7F7F 111 | DC /7F7F NO GRAPHIC SEMI-COLON U4N01110 005B 7F7F 112 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N01120 005C 7F5E 113 | DC /7F5E NO GRAPHIC P U4N01130 005D 7F7F 114 | DC /7F7F NO GRAPHIC IDLE U4N01140 005E 7F7F 115 | DC /7F7F NO GRAPHIC LOGICAL NOT U4N01150 005F 7F7F 116 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N01160 0060 7F7F 117 | DC /7F7F NO GRAPHIC MINUS ZERO U4N01170 0061 7F7F 118 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N01180 0062 7F7F 119 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N01190 0063 7F7F 120 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N01200 0064 7F7F 121 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N01210 0065 7F7F 122 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N01220 0066 7F7F 123 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N01230 0067 7F7F 124 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N01240 0068 7F7F 125 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N01250 0069 7F7F 126 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N01260 006A 7F7F 127 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N01270 006B 7F7F 128 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N01280 006C 7F7F 129 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N01290 006D 7F7F 130 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N01300 006E 7F7F 131 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N01310 006F 7F7F 132 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N01320 0070 7F7F 133 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N01330 0071 7F7F 134 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N01340 0072 7F7F 135 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N01350 0073 7F7F 136 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N01360 0074 7F7F 137 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N01370 0075 7F7F 138 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N01380 0076 7F7F 139 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N01390 0077 7F7F 140 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N01400 0078 7F7F 141 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N01410 0079 7F7F 142 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N01420 007A 7F7F 143 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N01430 007B 7F7F 144 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N01440 007C 7F7F 145 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N01450 007D 7F7F 146 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N01460 007E 7F7F 147 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N01470 007F 7F7F 148 | DC /7F7F NO GRAPHIC NO GRAPHIC U4N01480 0080 149 | END U4N01490 There were no errors in this assembly === CROSS REFERENCES ========================================================== Name Val Defd Referenced HLPT3 0000R 21