ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:10 2020 Source File: \u4cppt3.asm 1 | * JUNE 19,1967 U4F00010 2 | *************************************************** U4F00020 3 | * * U4F00030 4 | * SUBROUTINE NAME- * U4F00040 5 | * FULLNAME- CONSOLE PRINTER CODE TO 1403 * U4F00050 6 | * PRINTER CODE CONVERSION TABLE. * U4F00060 7 | * CODE NAME- CPPT3 * U4F00070 8 | * METHOD- * U4F00080 9 | * SEE IBM 1130 SUBROUTINE LIBRARY MANUAL * U4F00090 10 | * CAPABILITIES AND LIMITATIONS- * U4F00100 11 | * SEE IBM 1130 SUBROUTINE LIBRARY MANUAL * U4F00110 12 | * SPECIAL FEATURES- NON-EXECUTABLE * U4F00120 13 | * ADDITIONAL INFORMATION- * U4F00130 14 | * ESTIMATED EXECUTION TIME- N/A * U4F00140 15 | * * U4F00150 16 | *************************************************** U4F00160 CONSOLE PRINTER TO 1403 PRINTER CODE 18 | ENT CPPT3 U4F00180 0000 166E 19 | CPPT3 DC /166E ,COMMA .PERIOD U4F00190 0001 7F7F 20 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F00200 0002 7F7F 21 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F00210 0003 7F7F 22 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F00220 0004 617F 23 | DC /617F - DASH NO GRAPHIC U4F00230 0005 7F7F 24 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F00240 0006 7F7F 25 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F00250 0007 7F7F 26 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F00260 0008 7F7F 27 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F00270 0009 7F7F 28 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F00280 000A 7F7F 29 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F00290 000B 7F7F 30 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F00300 000C 7F7F 31 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F00310 000D 7F7F 32 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F00320 000E 7F7F 33 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F00330 000F 7F7F 34 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F00340 0010 5129 35 | DC /5129 W F U4F00350 0011 7F7F 36 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F00360 0012 5129 37 | DC /5129 W F U4F00370 0013 7F7F 38 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F00380 0014 522A 39 | DC /522A X G U4F00390 0015 7F7F 40 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F00400 0016 522A 41 | DC /522A X G U4F00410 0017 7F7F 42 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F00420 0018 0D25 43 | DC /0D25 S B U4F00430 0019 7F7F 44 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F00440 001A 0D25 45 | DC /0D25 S B U4F00450 001B 7F7F 46 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F00460 001C 0E26 47 | DC /0E26 T C U4F00470 001D 7F7F 48 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F00480 001E 0E26 49 | DC /0E26 T C U4F00490 001F 7F7F 50 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F00500 0020 542C 51 | DC /542C Z I U4F00510 0021 7F7F 52 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F00520 0022 542C 53 | DC /542C Z I U4F00530 0023 7F7F 54 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F00540 0024 136B 55 | DC /136B Y H U4F00550 0025 7F7F 56 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F00560 0026 136B 57 | DC /136B Y H U4F00570 0027 7F7F 58 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F00580 0028 7F7F 59 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F00590 0029 7F7F 60 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F00600 002A 7F7F 61 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F00610 002B 7F7F 62 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F00620 002C 7F7F 63 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F00630 002D 7F7F 64 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F00640 002E 7F7F 65 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F00650 002F 7F7F 66 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F00660 0030 4F67 67 | DC /4F67 U D U4F00670 0031 7F7F 68 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F00680 0032 4F67 69 | DC /4F67 U D U4F00690 0033 7F7F 70 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F00700 0034 1068 71 | DC /1068 V E U4F00710 0035 7F7F 72 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F00720 0036 1068 73 | DC /1068 V E U4F00730 0037 7F7F 74 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F00740 0038 7F7F 75 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F00750 0039 7F7F 76 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F00760 003A 7F7F 77 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F00770 003B 7F7F 78 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F00780 003C 4C64 79 | DC /4C64 / A U4F00790 003D 7F7F 80 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F00800 003E 7F64 81 | DC /7F64 NO GRAPHIC A U4F00810 003F 7F7F 82 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F00820 0040 7F62 83 | DC /7F62 NO GRAPHIC $ U4F00830 0041 7F7F 84 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F00840 0042 4A7F 85 | DC /4A7F = NO GRAPHIC U4F00850 0043 7F7F 86 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F00860 0044 4915 87 | DC /4915 0(ZERO) & U4F00870 0045 7F7F 88 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F00880 0046 7F7F 89 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F00890 0047 7F7F 90 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F00900 0048 7F7F 91 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F00910 0049 7F7F 92 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F00920 004A 7F7F 93 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F00930 004B 7F7F 94 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F00940 004C 7F7F 95 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F00950 004D 7F7F 96 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F00960 004E 7F7F 97 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F00970 004F 7F7F 98 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F00980 0050 455D 99 | DC /455D 6 O U4F00990 0051 7F7F 100 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F01000 0052 7F5D 101 | DC /7F5D NO GRAPHIC O U4F01010 0053 7F7F 102 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F01020 0054 465E 103 | DC /465E 7 P U4F01030 0055 7F7F 104 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F01040 0056 235E 105 | DC /235E * P U4F01050 0057 7F7F 106 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F01060 0058 0119 107 | DC /0119 2 K U4F01070 0059 7F7F 108 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F01080 005A 6D19 109 | DC /6D19 + K U4F01090 005B 7F7F 110 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F01100 005C 021A 111 | DC /021A 3 L U4F01110 005D 7F7F 112 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F01120 005E 7F1A 113 | DC /7F1A NO GRAPHIC L U4F01130 005F 7F7F 114 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F01140 0060 0820 115 | DC /0820 9 R U4F01150 0061 7F7F 116 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F01160 0062 7F20 117 | DC /7F20 NO GRAPHIC R U4F01170 0063 7F7F 118 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F01180 0064 071F 119 | DC /071F 8 Q U4F01190 0065 7F7F 120 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F01200 0066 0B1F 121 | DC /0B1F APOSTROPHE Q U4F01210 0067 7F7F 122 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F01220 0068 7F7F 123 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F01230 0069 7F7F 124 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F01240 006A 7F7F 125 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F01250 006B 7F7F 126 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F01260 006C 7F7F 127 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F01270 006D 7F7F 128 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F01280 006E 7F7F 129 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F01290 006F 7F7F 130 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F01300 0070 435B 131 | DC /435B 4 M U4F01310 0071 7F7F 132 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F01320 0072 7F5B 133 | DC /7F5B NO GRAPHIC M U4F01330 0073 7F7F 134 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F01340 0074 041C 135 | DC /041C 5 N U4F01350 0075 7F7F 136 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F01360 0076 2F1C 137 | DC /2F1C ) N U4F01370 0077 7F7F 138 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F01380 0078 7F7F 139 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F01390 0079 7F7F 140 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F01400 007A 7F7F 141 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F01410 007B 7F7F 142 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F01420 007C 4058 143 | DC /4058 1 J U4F01430 007D 7F7F 144 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F01440 007E 5758 145 | DC /5758 ( J U4F01450 007F 7F7F 146 | DC /7F7F NO GRAPHIC NO GRAPHIC U4F01460 0080 147 | END U4F01470 There were no errors in this assembly === CROSS REFERENCES ========================================================== Name Val Defd Referenced CPPT3 0000R 19