ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:10 2020 Source File: \u4pt3cp.asm 1 | *************************************************** U4R00010 2 | * * U4R00020 3 | * SUBROUTINE NAME- * U4R00030 4 | * FULL NAME- 1403 PRINTER CODE TO CONSOLE * U4R00040 5 | * PRINTER CODE CONVERSION TABLE. * U4R00050 6 | * CODE NAME- PT3CP * U4R00060 7 | * METHOD- * U4R00070 8 | * SEE IBM 1130 SUBROUTINE LIBRARY MANUAL * U4R00080 9 | * CAPABILITIES AND LIMITATIONS- * U4R00090 10 | * SEE IBM 1130 SUBROUTINE LIBRARY MANUAL * U4R00100 11 | * SPECIAL FEATURES- NON-EXECUTABLE * U4R00110 12 | * ADDITIONAL INFORMATION- * U4R00120 13 | * ESTIMATED EXECUTION TIME- N/A * U4R00130 14 | * * U4R00140 15 | *************************************************** U4R00150 1403 PRINTER TO CONSOLE PRINTER CODE 17 | ENT PT3CP U4R00170 0000 2121 18 | PT3CP DC /2121 NO GRAPHIC NO GRAPHIC U4R00180 0001 21D8 19 | DC /21D8 NO GRAPHIC 2 U4R00190 0002 21DC 20 | DC /21DC NO GRAPHIC 3 U4R00200 0003 2121 21 | DC /2121 NO GRAPHIC NO GRAPHIC U4R00210 0004 21F4 22 | DC /21F4 NO GRAPHIC 5 U4R00220 0005 2121 23 | DC /2121 NO GRAPHIC NO GRAPHIC U4R00230 0006 2121 24 | DC /2121 NO GRAPHIC NO GRAPHIC U4R00240 0007 21E4 25 | DC /21E4 NO GRAPHIC 8 U4R00250 0008 21E0 26 | DC /21E0 NO GRAPHIC 9 U4R00260 0009 2121 27 | DC /2121 NO GRAPHIC NO GRAPHIC U4R00270 000A 2121 28 | DC /2121 NO GRAPHIC NO GRAPHIC U4R00280 000B 21E6 29 | DC /21E6 NO GRAPHIC APOSTROPHE U4R00290 000C 2121 30 | DC /2121 NO GRAPHIC NO GRAPHIC U4R00300 000D 2198 31 | DC /2198 NO GRAPHIC S U4R00310 000E 219C 32 | DC /219C NO GRAPHIC T U4R00320 000F 2121 33 | DC /2121 NO GRAPHIC NO GRAPHIC U4R00330 0010 21B4 34 | DC /21B4 NO GRAPHIC V U4R00340 0011 2121 35 | DC /2121 NO GRAPHIC NO GRAPHIC U4R00350 0012 2121 36 | DC /2121 NO GRAPHIC NO GRAPHIC U4R00360 0013 21A4 37 | DC /21A4 NO GRAPHIC U U4R00370 0014 2121 38 | DC /2121 NO GRAPHIC NO GRAPHIC U4R00380 0015 2144 39 | DC /2144 NO GRAPHIC & U4R00390 0016 2180 40 | DC /2180 NO GRAPHIC ,(COMMA) U4R00400 0017 2121 41 | DC /2121 NO GRAPHIC NO GRAPHIC U4R00410 0018 2121 42 | DC /2121 NO GRAPHIC NO GRAPHIC U4R00420 0019 2158 43 | DC /2158 NO GRAPHIC K U4R00430 001A 215C 44 | DC /215C NO GRAPHIC L U4R00440 001B 2121 45 | DC /2121 NO GRAPHIC NO GRAPHIC U4R00450 001C 2174 46 | DC /2174 NO GRAPHIC N U4R00460 001D 2121 47 | DC /2121 NO GRAPHIC NO GRAPHIC U4R00470 001E 2121 48 | DC /2121 NO GRAPHIC NO GRAPHIC U4R00480 001F 2164 49 | DC /2164 NO GRAPHIC Q U4R00490 0020 2160 50 | DC /2160 NO GRAPHIC R U4R00500 0021 2121 51 | DC /2121 NO GRAPHIC NO GRAPHIC U4R00510 0022 2121 52 | DC /2121 NO GRAPHIC NO GRAPHIC U4R00520 0023 21D6 53 | DC /21D6 NO GRAPHIC * U4R00530 0024 2121 54 | DC /2121 NO GRAPHIC NO GRAPHIC U4R00540 0025 2118 55 | DC /2118 NO GRAPHIC B U4R00550 0026 211C 56 | DC /211C NO GRAPHIC C U4R00560 0027 2121 57 | DC /2121 NO GRAPHIC NO GRAPHIC U4R00570 0028 2121 58 | DC /2121 NO GRAPHIC NO GRAPHIC U4R00580 0029 2110 59 | DC /2110 NO GRAPHIC F U4R00590 002A 2114 60 | DC /2114 NO GRAPHIC G U4R00600 002B 2121 61 | DC /2121 NO GRAPHIC NO GRAPHIC U4R00610 002C 2120 62 | DC /2120 NO GRAPHIC I U4R00620 002D 2121 63 | DC /2121 NO GRAPHIC NO GRAPHIC U4R00630 002E 2121 64 | DC /2121 NO GRAPHIC NO GRAPHIC U4R00640 002F 21F6 65 | DC /21F6 NO GRAPHIC ) U4R00650 0030 2121 66 | DC /2121 NO GRAPHIC NO GRAPHIC U4R00660 0031 2121 67 | DC /2121 NO GRAPHIC NO GRAPHIC U4R00670 0032 2121 68 | DC /2121 NO GRAPHIC NO GRAPHIC U4R00680 0033 2121 69 | DC /2121 NO GRAPHIC NO GRAPHIC U4R00690 0034 2121 70 | DC /2121 NO GRAPHIC NO GRAPHIC U4R00700 0035 2121 71 | DC /2121 NO GRAPHIC NO GRAPHIC U4R00710 0036 2121 72 | DC /2121 NO GRAPHIC NO GRAPHIC U4R00720 0037 2121 73 | DC /2121 NO GRAPHIC NO GRAPHIC U4R00730 0038 2121 74 | DC /2121 NO GRAPHIC NO GRAPHIC U4R00740 0039 2121 75 | DC /2121 NO GRAPHIC NO GRAPHIC U4R00750 003A 2121 76 | DC /2121 NO GRAPHIC NO GRAPHIC U4R00760 003B 2121 77 | DC /2121 NO GRAPHIC NO GRAPHIC U4R00770 003C 2121 78 | DC /2121 NO GRAPHIC NO GRAPHIC U4R00780 003D 2121 79 | DC /2121 NO GRAPHIC NO GRAPHIC U4R00790 003E 2121 80 | DC /2121 NO GRAPHIC NO GRAPHIC U4R00800 003F 2121 81 | DC /2121 NO GRAPHIC NO GRAPHIC U4R00810 0040 21FC 82 | DC /21FC NO GRAPHIC 1 U4R00820 0041 2121 83 | DC /2121 NO GRAPHIC NO GRAPHIC U4R00830 0042 2121 84 | DC /2121 NO GRAPHIC NO GRAPHIC U4R00840 0043 21F0 85 | DC /21F0 NO GRAPHIC 4 U4R00850 0044 2121 86 | DC /2121 NO GRAPHIC NO GRAPHIC U4R00860 0045 21D0 87 | DC /21D0 NO GRAPHIC 6 U4R00870 0046 21D4 88 | DC /21D4 NO GRAPHIC 7 U4R00880 0047 2121 89 | DC /2121 NO GRAPHIC NO GRAPHIC U4R00890 0048 2121 90 | DC /2121 NO GRAPHIC NO GRAPHIC U4R00900 0049 21C4 91 | DC /21C4 NO GRAPHIC 0(ZERO) U4R00910 004A 21C2 92 | DC /21C2 NO GRAPHIC = U4R00920 004B 2121 93 | DC /2121 NO GRAPHIC NO GRAPHIC U4R00930 004C 21BC 94 | DC /21BC NO GRAPHIC / U4R00940 004D 2121 95 | DC /2121 NO GRAPHIC NO GRAPHIC U4R00950 004E 2121 96 | DC /2121 NO GRAPHIC NO GRAPHIC U4R00960 004F 21B0 97 | DC /21B0 NO GRAPHIC U U4R00970 0050 2121 98 | DC /2121 NO GRAPHIC NO GRAPHIC U4R00980 0051 2190 99 | DC /2190 NO GRAPHIC W U4R00990 0052 2194 100 | DC /2194 NO GRAPHIC X U4R01000 0053 2121 101 | DC /2121 NO GRAPHIC NO GRAPHIC U4R01010 0054 21A0 102 | DC /21A0 NO GRAPHIC Z U4R01020 0055 2121 103 | DC /2121 NO GRAPHIC NO GRAPHIC U4R01030 0056 2121 104 | DC /2121 NO GRAPHIC NO GRAPHIC U4R01040 0057 21FE 105 | DC /21FE NO GRAPHIC ( U4R01050 0058 217C 106 | DC /217C NO GRAPHIC J U4R01060 0059 2121 107 | DC /2121 NO GRAPHIC NO GRAPHIC U4R01070 005A 2121 108 | DC /2121 NO GRAPHIC NO GRAPHIC U4R01080 005B 2170 109 | DC /2170 NO GRAPHIC M U4R01090 005C 2121 110 | DC /2121 NO GRAPHIC NO GRAPHIC U4R01100 005D 2150 111 | DC /2150 NO GRAPHIC O U4R01110 005E 2154 112 | DC /2154 NO GRAPHIC P U4R01120 005F 2121 113 | DC /2121 NO GRAPHIC NO GRAPHIC U4R01130 0060 2121 114 | DC /2121 NO GRAPHIC NO GRAPHIC U4R01140 0061 2184 115 | DC /2184 NO GRAPHIC - U4R01150 0062 2140 116 | DC /2140 NO GRAPHIC $ U4R01160 0063 2121 117 | DC /2121 NO GRAPHIC NO GRAPHIC U4R01170 0064 213C 118 | DC /213C NO GRAPHIC A U4R01180 0065 2121 119 | DC /2121 NO GRAPHIC NO GRAPHIC U4R01190 0066 2121 120 | DC /2121 NO GRAPHIC NO GRAPHIC U4R01200 0067 2130 121 | DC /2130 NO GRAPHIC D U4R01210 0068 2134 122 | DC /2134 NO GRAPHIC E U4R01220 0069 2121 123 | DC /2121 NO GRAPHIC NO GRAPHIC U4R01230 006A 2121 124 | DC /2121 NO GRAPHIC NO GRAPHIC U4R01240 006B 2124 125 | DC /2124 NO GRAPHIC H U4R01250 006C 2121 126 | DC /2121 NO GRAPHIC NO GRAPHIC U4R01260 006D 21DA 127 | DC /21DA NO GRAPHIC + U4R01270 006E 2100 128 | DC /2100 NO GRAPHIC .PERIOD U4R01280 006F 2121 129 | DC /2121 NO GRAPHIC NO GRAPHIC U4R01290 0070 2121 130 | DC /2121 NO GRAPHIC NO GRAPHIC U4R01300 0071 2121 131 | DC /2121 NO GRAPHIC NO GRAPHIC U4R01310 0072 2121 132 | DC /2121 NO GRAPHIC NO GRAPHIC U4R01320 0073 2121 133 | DC /2121 NO GRAPHIC NO GRAPHIC U4R01330 0074 2121 134 | DC /2121 NO GRAPHIC NO GRAPHIC U4R01340 0075 2121 135 | DC /2121 NO GRAPHIC NO GRAPHIC U4R01350 0076 2121 136 | DC /2121 NO GRAPHIC NO GRAPHIC U4R01360 0077 2121 137 | DC /2121 NO GRAPHIC NO GRAPHIC U4R01370 0078 2121 138 | DC /2121 NO GRAPHIC NO GRAPHIC U4R01380 0079 2121 139 | DC /2121 NO GRAPHIC NO GRAPHIC U4R01390 007A 2121 140 | DC /2121 NO GRAPHIC NO GRAPHIC U4R01400 007B 2121 141 | DC /2121 NO GRAPHIC NO GRAPHIC U4R01410 007C 2121 142 | DC /2121 NO GRAPHIC NO GRAPHIC U4R01420 007D 2121 143 | DC /2121 NO GRAPHIC NO GRAPHIC U4R01430 007E 2121 144 | DC /2121 NO GRAPHIC NO GRAPHIC U4R01440 007F 2121 145 | DC /2121 NO GRAPHIC NO GRAPHIC U4R01450 0080 146 | END U4R01460 There were no errors in this assembly === CROSS REFERENCES ========================================================== Name Val Defd Referenced PT3CP 0000R 18