ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:10 2020 Source File: \u4holcp.asm 1 | * JUNE 19,1967 U4O00010 2 | *************************************************** U4O00020 3 | * * U4O00030 4 | * SUBROUTINE NAME- * U4O00040 5 | * FULL NAME- HOLLERITH TO CONSOLE PRINTER * U4O00050 6 | * CODE CONVERSION TABLE. * U4O00060 7 | * CODE NAME- HOLCP * U4O00070 8 | * METHOD- * U4O00080 9 | * SEE IBM 1130 SUBROUTINE LIBRARY MANUAL * U4O00090 10 | * CAPABILITIES AND LIMITATIONS- * U4O00100 11 | * SEE IBM 1130 SUBROUTINE LIBRARY MANUAL * U4O00110 12 | * SPECIAL FEATURES- NON-EXECUTABLE * U4O00120 13 | * ADDITIONAL INFORMATION- * U4O00130 14 | * ESTIMATED EXECUTION TIME- N/A * U4O00140 15 | * * U4O00150 16 | *************************************************** U4O00160 HOLLERITH TO CONSOLE PRINTER 18 | ENT HOLCP U4O00180 0000 4421 19 | HOLCP DC /4421 & SPACE U4O00190 0001 20E0 20 | DC /20E0 I 9 U4O00200 0002 24E4 21 | DC /24E4 H 8 U4O00210 0003 2121 22 | DC /2121 NO GRAPHIC NO GRAPHIC U4O00220 0004 3CFC 23 | DC /3CFC A 1 U4O00230 0005 2121 24 | DC /2121 NO GRAPHIC NO GRAPHIC U4O00240 0006 2121 25 | DC /2121 NO GRAPHIC NO GRAPHIC U4O00250 0007 2121 26 | DC /2121 NO GRAPHIC NO GRAPHIC U4O00260 0008 18D8 27 | DC /18D8 B 2 U4O00270 0009 2121 28 | DC /2121 NO GRAPHIC NO GRAPHIC U4O00280 000A 0282 29 | DC /0282 ยข : U4O00290 000B 2121 30 | DC /2121 NO GRAPHIC NO GRAPHIC U4O00300 000C 1CDC 31 | DC /1CDC C 3 U4O00310 000D 2121 32 | DC /2121 NO GRAPHIC NO GRAPHIC U4O00320 000E 00C0 33 | DC /00C0 .PERIOD # U4O00330 000F 2121 34 | DC /2121 NO GRAPHIC NO GRAPHIC U4O00340 0010 30F0 35 | DC /30F0 D 4 U4O00350 0011 2121 36 | DC /2121 NO GRAPHIC NO GRAPHIC U4O00360 0012 DE04 37 | DC /DE04 < @ U4O00370 0013 2121 38 | DC /2121 NO GRAPHIC NO GRAPHIC U4O00380 0014 34F4 39 | DC /34F4 E 5 U4O00390 0015 4109 40 | DC /4109 HT RS U4O00400 0016 FEE6 41 | DC /FEE6 ( APOSTROPHE U4O00410 0017 2121 42 | DC /2121 NO GRAPHIC NO GRAPHIC U4O00420 0018 10D0 43 | DC /10D0 F 6 U4O00430 0019 2121 44 | DC /2121 NO GRAPHIC NO GRAPHIC U4O00440 001A DAC2 45 | DC /DAC2 + = U4O00450 001B 2121 46 | DC /2121 NO GRAPHIC NO GRAPHIC U4O00460 001C 14D4 47 | DC /14D4 G 7 U4O00470 001D 2121 48 | DC /2121 NO GRAPHIC NO GRAPHIC U4O00480 001E C6E2 49 | DC /C6E2 LOGICAL OR " U4O00490 001F 2121 50 | DC /2121 NO GRAPHIC NO GRAPHIC U4O00500 0020 21C4 51 | DC /21C4 NO GRAPHIC 0(ZERO) U4O00510 0021 21A0 52 | DC /21A0 NO GRAPHIC Z U4O00520 0022 21A4 53 | DC /21A4 NO GRAPHIC Y U4O00530 0023 2121 54 | DC /2121 NO GRAPHIC NO GRAPHIC U4O00540 0024 21BC 55 | DC /21BC NO GRAPHIC / U4O00550 0025 2121 56 | DC /2121 NO GRAPHIC NO GRAPHIC U4O00560 0026 2121 57 | DC /2121 NO GRAPHIC NO GRAPHIC U4O00570 0027 2121 58 | DC /2121 NO GRAPHIC NO GRAPHIC U4O00580 0028 2198 59 | DC /2198 NO GRAPHIC S U4O00590 0029 2121 60 | DC /2121 NO GRAPHIC NO GRAPHIC U4O00600 002A 2121 61 | DC /2121 NO GRAPHIC NO GRAPHIC U4O00610 002B 2121 62 | DC /2121 NO GRAPHIC NO GRAPHIC U4O00620 002C 219C 63 | DC /219C NO GRAPHIC T U4O00630 002D 2121 64 | DC /2121 NO GRAPHIC NO GRAPHIC U4O00640 002E 2180 65 | DC /2180 NO GRAPHIC ,(COMMA) U4O00650 002F 2121 66 | DC /2121 NO GRAPHIC NO GRAPHIC U4O00660 0030 21B0 67 | DC /21B0 NO GRAPHIC U U4O00670 0031 2121 68 | DC /2121 NO GRAPHIC NO GRAPHIC U4O00680 0032 2106 69 | DC /2106 NO GRAPHIC % U4O00690 0033 2121 70 | DC /2121 NO GRAPHIC NO GRAPHIC U4O00700 0034 21B4 71 | DC /21B4 NO GRAPHIC V U4O00710 0035 2103 72 | DC /2103 NO GRAPHIC LF U4O00720 0036 21BE 73 | DC /21BE NO GRAPHIC UNDERSCORE U4O00730 0037 2121 74 | DC /2121 NO GRAPHIC NO GRAPHIC U4O00740 0038 2190 75 | DC /2190 NO GRAPHIC W U4O00750 0039 2121 76 | DC /2121 NO GRAPHIC NO GRAPHIC U4O00760 003A 2146 77 | DC /2146 NO GRAPHIC > U4O00770 003B 2121 78 | DC /2121 NO GRAPHIC NO GRAPHIC U4O00780 003C 2194 79 | DC /2194 NO GRAPHIC X U4O00790 003D 2121 80 | DC /2121 NO GRAPHIC NO GRAPHIC U4O00800 003E 2186 81 | DC /2186 NO GRAPHIC ? U4O00810 003F 2121 82 | DC /2121 NO GRAPHIC NO GRAPHIC U4O00820 0040 2184 83 | DC /2184 NO GRAPHIC - U4O00830 0041 2160 84 | DC /2160 NO GRAPHIC R U4O00840 0042 2164 85 | DC /2164 NO GRAPHIC Q U4O00850 0043 2121 86 | DC /2121 NO GRAPHIC NO GRAPHIC U4O00860 0044 217C 87 | DC /217C NO GRAPHIC J U4O00870 0045 2121 88 | DC /2121 NO GRAPHIC NO GRAPHIC U4O00880 0046 2121 89 | DC /2121 NO GRAPHIC NO GRAPHIC U4O00890 0047 2121 90 | DC /2121 NO GRAPHIC NO GRAPHIC U4O00900 0048 2158 91 | DC /2158 NO GRAPHIC K U4O00910 0049 2121 92 | DC /2121 NO GRAPHIC NO GRAPHIC U4O00920 004A 2142 93 | DC /2142 NO GRAPHIC ! U4O00930 004B 2121 94 | DC /2121 NO GRAPHIC NO GRAPHIC U4O00940 004C 215C 95 | DC /215C NO GRAPHIC L U4O00950 004D 2121 96 | DC /2121 NO GRAPHIC NO GRAPHIC U4O00960 004E 2140 97 | DC /2140 NO GRAPHIC $ U4O00970 004F 2121 98 | DC /2121 NO GRAPHIC NO GRAPHIC U4O00980 0050 2170 99 | DC /2170 NO GRAPHIC M U4O00990 0051 2105 100 | DC /2105 NO GRAPHIC RES U4O01000 0052 21D6 101 | DC /21D6 NO GRAPHIC * U4O01010 0053 2121 102 | DC /2121 NO GRAPHIC NO GRAPHIC U4O01020 0054 2174 103 | DC /2174 NO GRAPHIC N U4O01030 0055 2181 104 | DC /2181 NO GRAPHIC NL U4O01040 0056 21F6 105 | DC /21F6 NO GRAPHIC ) U4O01050 0057 2121 106 | DC /2121 NO GRAPHIC NO GRAPHIC U4O01060 0058 2150 107 | DC /2150 NO GRAPHIC O U4O01070 0059 2111 108 | DC /2111 NO GRAPHIC BS U4O01080 005A 21D2 109 | DC /21D2 NO GRAPHIC ; U4O01090 005B 2121 110 | DC /2121 NO GRAPHIC NO GRAPHIC U4O01100 005C 2154 111 | DC /2154 NO GRAPHIC P U4O01110 005D 2121 112 | DC /2121 NO GRAPHIC NO GRAPHIC U4O01120 005E 21F2 113 | DC /21F2 NO GRAPHIC LOGICAL NOT U4O01130 005F 2121 114 | DC /2121 NO GRAPHIC NO GRAPHIC U4O01140 0060 2121 115 | DC /2121 NO GRAPHIC NO GRAPHIC U4O01150 0061 2121 116 | DC /2121 NO GRAPHIC NO GRAPHIC U4O01160 0062 2121 117 | DC /2121 NO GRAPHIC NO GRAPHIC U4O01170 0063 2121 118 | DC /2121 NO GRAPHIC NO GRAPHIC U4O01180 0064 2121 119 | DC /2121 NO GRAPHIC NO GRAPHIC U4O01190 0065 2121 120 | DC /2121 NO GRAPHIC NO GRAPHIC U4O01200 0066 2121 121 | DC /2121 NO GRAPHIC NO GRAPHIC U4O01210 0067 2121 122 | DC /2121 NO GRAPHIC NO GRAPHIC U4O01220 0068 2121 123 | DC /2121 NO GRAPHIC NO GRAPHIC U4O01230 0069 2121 124 | DC /2121 NO GRAPHIC NO GRAPHIC U4O01240 006A 2121 125 | DC /2121 NO GRAPHIC NO GRAPHIC U4O01250 006B 2121 126 | DC /2121 NO GRAPHIC NO GRAPHIC U4O01260 006C 2121 127 | DC /2121 NO GRAPHIC NO GRAPHIC U4O01270 006D 2121 128 | DC /2121 NO GRAPHIC NO GRAPHIC U4O01280 006E 2121 129 | DC /2121 NO GRAPHIC NO GRAPHIC U4O01290 006F 2121 130 | DC /2121 NO GRAPHIC NO GRAPHIC U4O01300 0070 2121 131 | DC /2121 NO GRAPHIC NO GRAPHIC U4O01310 0071 2121 132 | DC /2121 NO GRAPHIC NO GRAPHIC U4O01320 0072 2121 133 | DC /2121 NO GRAPHIC NO GRAPHIC U4O01330 0073 2121 134 | DC /2121 NO GRAPHIC NO GRAPHIC U4O01340 0074 2121 135 | DC /2121 NO GRAPHIC NO GRAPHIC U4O01350 0075 2121 136 | DC /2121 NO GRAPHIC NO GRAPHIC U4O01360 0076 2121 137 | DC /2121 NO GRAPHIC NO GRAPHIC U4O01370 0077 2121 138 | DC /2121 NO GRAPHIC NO GRAPHIC U4O01380 0078 2121 139 | DC /2121 NO GRAPHIC NO GRAPHIC U4O01390 0079 2121 140 | DC /2121 NO GRAPHIC NO GRAPHIC U4O01400 007A 2121 141 | DC /2121 NO GRAPHIC NO GRAPHIC U4O01410 007B 2121 142 | DC /2121 NO GRAPHIC NO GRAPHIC U4O01420 007C 2121 143 | DC /2121 NO GRAPHIC NO GRAPHIC U4O01430 007D 2121 144 | DC /2121 NO GRAPHIC NO GRAPHIC U4O01440 007E 2121 145 | DC /2121 NO GRAPHIC NO GRAPHIC U4O01450 007F 2121 146 | DC /2121 NO GRAPHIC NO GRAPHIC U4O01460 0080 147 | END U4O01470 There were no errors in this assembly === CROSS REFERENCES ========================================================== Name Val Defd Referenced HOLCP 0000R 19