ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:10 2020 Source File: \u4pt3eb.asm 1 | * JUNE 19,1967 U4S00010 2 | *************************************************** U4S00020 3 | * * U4S00030 4 | * SUBROUTINE NAME- * U4S00040 5 | * FULL NAME- 1403 PRINTER CODE TO EBCDIC * U4S00050 6 | * CONVERSION TABLE. * U4S00060 7 | * CODE NAME- PT3EB * U4S00070 8 | * METHOD- * U4S00080 9 | * SEE IBM 1130 SUBROUTINE LIBRARY MANUAL * U4S00090 10 | * CAPABILITIES AND LIMITATIONS- * U4S00100 11 | * SEE IBM 1130 SUBROUTINE LIBRARY MANUAL * U4S00110 12 | * SPECIAL FEATURES- NON-EXECUTABLE * U4S00120 13 | * ADDITIONAL INFORMATION- * U4S00130 14 | * ESTIMATED EXECUTION TIME- N/A * U4S00140 15 | * * U4S00150 16 | *************************************************** U4S00160 1403 PRINTER TO EBCDIC 18 | ENT PT3EB U4S00180 0000 4040 19 | PT3EB DC /4040 NO GRAPHIC NO GRAPHIC U4S00190 0001 40F2 20 | DC /40F2 NO GRAPHIC 2 U4S00200 0002 40F3 21 | DC /40F3 NO GRAPHIC 3 U4S00210 0003 4040 22 | DC /4040 NO GRAPHIC NO GRAPHIC U4S00220 0004 40F5 23 | DC /40F5 NO GRAPHIC 5 U4S00230 0005 4040 24 | DC /4040 NO GRAPHIC NO GRAPHIC U4S00240 0006 4040 25 | DC /4040 NO GRAPHIC NO GRAPHIC U4S00250 0007 40F8 26 | DC /40F8 NO GRAPHIC 8 U4S00260 0008 40F9 27 | DC /40F9 NO GRAPHIC 9 U4S00270 0009 4040 28 | DC /4040 NO GRAPHIC NO GRAPHIC U4S00280 000A 4040 29 | DC /4040 NO GRAPHIC NO GRAPHIC U4S00290 000B 407D 30 | DC /407D NO GRAPHIC APOSTROPHE U4S00300 000C 4040 31 | DC /4040 NO GRAPHIC NO GRAPHIC U4S00310 000D 40E2 32 | DC /40E2 NO GRAPHIC S U4S00320 000E 40E3 33 | DC /40E3 NO GRAPHIC T U4S00330 000F 4040 34 | DC /4040 NO GRAPHIC NO GRAPHIC U4S00340 0010 40E5 35 | DC /40E5 NO GRAPHIC V U4S00350 0011 4040 36 | DC /4040 NO GRAPHIC NO GRAPHIC U4S00360 0012 4040 37 | DC /4040 NO GRAPHIC NO GRAPHIC U4S00370 0013 40E8 38 | DC /40E8 NO GRAPHIC Y U4S00380 0014 4040 39 | DC /4040 NO GRAPHIC NO GRAPHIC U4S00390 0015 4050 40 | DC /4050 NO GRAPHIC & U4S00400 0016 406B 41 | DC /406B NO GRAPHIC ,(COMMA) U4S00410 0017 4040 42 | DC /4040 NO GRAPHIC NO GRAPHIC U4S00420 0018 4040 43 | DC /4040 NO GRAPHIC NO GRAPHIC U4S00430 0019 40D2 44 | DC /40D2 NO GRAPHIC K U4S00440 001A 40D3 45 | DC /40D3 NO GRAPHIC L U4S00450 001B 4040 46 | DC /4040 NO GRAPHIC NO GRAPHIC U4S00460 001C 40D5 47 | DC /40D5 NO GRAPHIC N U4S00470 001D 4040 48 | DC /4040 NO GRAPHIC NO GRAPHIC U4S00480 001E 4040 49 | DC /4040 NO GRAPHIC NO GRAPHIC U4S00490 001F 40D8 50 | DC /40D8 NO GRAPHIC Q U4S00500 0020 40D9 51 | DC /40D9 NO GRAPHIC R U4S00510 0021 4040 52 | DC /4040 NO GRAPHIC NO GRAPHIC U4S00520 0022 4040 53 | DC /4040 NO GRAPHIC NO GRAPHIC U4S00530 0023 405C 54 | DC /405C NO GRAPHIC * U4S00540 0024 4040 55 | DC /4040 NO GRAPHIC NO GRAPHIC U4S00550 0025 40C2 56 | DC /40C2 NO GRAPHIC B U4S00560 0026 40C3 57 | DC /40C3 NO GRAPHIC C U4S00570 0027 4040 58 | DC /4040 NO GRAPHIC NO GRAPHIC U4S00580 0028 4040 59 | DC /4040 NO GRAPHIC NO GRAPHIC U4S00590 0029 40C6 60 | DC /40C6 NO GRAPHIC F U4S00600 002A 40C7 61 | DC /40C7 NO GRAPHIC G U4S00610 002B 4040 62 | DC /4040 NO GRAPHIC NO GRAPHIC U4S00620 002C 40C9 63 | DC /40C9 NO GRAPHIC I U4S00630 002D 4040 64 | DC /4040 NO GRAPHIC NO GRAPHIC U4S00640 002E 4040 65 | DC /4040 NO GRAPHIC NO GRAPHIC U4S00650 002F 405D 66 | DC /405D NO GRAPHIC ) U4S00660 0030 4040 67 | DC /4040 NO GRAPHIC NO GRAPHIC U4S00670 0031 4040 68 | DC /4040 NO GRAPHIC NO GRAPHIC U4S00680 0032 4040 69 | DC /4040 NO GRAPHIC NO GRAPHIC U4S00690 0033 4040 70 | DC /4040 NO GRAPHIC NO GRAPHIC U4S00700 0034 4040 71 | DC /4040 NO GRAPHIC NO GRAPHIC U4S00710 0035 4040 72 | DC /4040 NO GRAPHIC NO GRAPHIC U4S00720 0036 4040 73 | DC /4040 NO GRAPHIC NO GRAPHIC U4S00730 0037 4040 74 | DC /4040 NO GRAPHIC NO GRAPHIC U4S00740 0038 4040 75 | DC /4040 NO GRAPHIC NO GRAPHIC U4S00750 0039 4040 76 | DC /4040 NO GRAPHIC NO GRAPHIC U4S00760 003A 4040 77 | DC /4040 NO GRAPHIC NO GRAPHIC U4S00770 003B 4040 78 | DC /4040 NO GRAPHIC NO GRAPHIC U4S00780 003C 4040 79 | DC /4040 NO GRAPHIC NO GRAPHIC U4S00790 003D 4040 80 | DC /4040 NO GRAPHIC NO GRAPHIC U4S00800 003E 4040 81 | DC /4040 NO GRAPHIC NO GRAPHIC U4S00810 003F 4040 82 | DC /4040 NO GRAPHIC NO GRAPHIC U4S00820 0040 40F1 83 | DC /40F1 NO GRAPHIC 1 U4S00830 0041 4040 84 | DC /4040 NO GRAPHIC NO GRAPHIC U4S00840 0042 4040 85 | DC /4040 NO GRAPHIC NO GRAPHIC U4S00850 0043 40F4 86 | DC /40F4 NO GRAPHIC 4 U4S00860 0044 4040 87 | DC /4040 NO GRAPHIC NO GRAPHIC U4S00870 0045 40F6 88 | DC /40F6 NO GRAPHIC 6 U4S00880 0046 40F7 89 | DC /40F7 NO GRAPHIC 7 U4S00890 0047 4040 90 | DC /4040 NO GRAPHIC NO GRAPHIC U4S00900 0048 4040 91 | DC /4040 NO GRAPHIC NO GRAPHIC U4S00910 0049 40F0 92 | DC /40F0 NO GRAPHIC 0(ZERO) U4S00920 004A 407E 93 | DC /407E NO GRAPHIC = U4S00930 004B 4040 94 | DC /4040 NO GRAPHIC NO GRAPHIC U4S00940 004C 4061 95 | DC /4061 NO GRAPHIC / U4S00950 004D 4040 96 | DC /4040 NO GRAPHIC NO GRAPHIC U4S00960 004E 4040 97 | DC /4040 NO GRAPHIC NO GRAPHIC U4S00970 004F 40E4 98 | DC /40E4 NO GRAPHIC U U4S00980 0050 4040 99 | DC /4040 NO GRAPHIC NO GRAPHIC U4S00990 0051 40E6 100 | DC /40E6 NO GRAPHIC W U4S01000 0052 40E7 101 | DC /40E7 NO GRAPHIC X U4S01010 0053 4040 102 | DC /4040 NO GRAPHIC NO GRAPHIC U4S01020 0054 40E9 103 | DC /40E9 NO GRAPHIC Z U4S01030 0055 4040 104 | DC /4040 NO GRAPHIC NO GRAPHIC U4S01040 0056 4040 105 | DC /4040 NO GRAPHIC NO GRAPHIC U4S01050 0057 404D 106 | DC /404D NO GRAPHIC ( U4S01060 0058 40D1 107 | DC /40D1 NO GRAPHIC J U4S01070 0059 4040 108 | DC /4040 NO GRAPHIC NO GRAPHIC U4S01080 005A 4040 109 | DC /4040 NO GRAPHIC NO GRAPHIC U4S01090 005B 40D4 110 | DC /40D4 NO GRAPHIC M U4S01100 005C 4040 111 | DC /4040 NO GRAPHIC NO GRAPHIC U4S01110 005D 40D6 112 | DC /40D6 NO GRAPHIC O U4S01120 005E 40D7 113 | DC /40D7 NO GRAPHIC P U4S01130 005F 4040 114 | DC /4040 NO GRAPHIC NO GRAPHIC U4S01140 0060 4040 115 | DC /4040 NO GRAPHIC NO GRAPHIC U4S01150 0061 4060 116 | DC /4060 NO GRAPHIC - U4S01160 0062 405B 117 | DC /405B NO GRAPHIC $ U4S01170 0063 4040 118 | DC /4040 NO GRAPHIC NO GRAPHIC U4S01180 0064 40C1 119 | DC /40C1 NO GRAPHIC A U4S01190 0065 4040 120 | DC /4040 NO GRAPHIC NO GRAPHIC U4S01200 0066 4040 121 | DC /4040 NO GRAPHIC NO GRAPHIC U4S01210 0067 40C4 122 | DC /40C4 NO GRAPHIC D U4S01220 0068 40C5 123 | DC /40C5 NO GRAPHIC E U4S01230 0069 4040 124 | DC /4040 NO GRAPHIC NO GRAPHIC U4S01240 006A 4040 125 | DC /4040 NO GRAPHIC NO GRAPHIC U4S01250 006B 40C8 126 | DC /40C8 NO GRAPHIC H U4S01260 006C 4040 127 | DC /4040 NO GRAPHIC NO GRAPHIC U4S01270 006D 404E 128 | DC /404E NO GRAPHIC + U4S01280 006E 404B 129 | DC /404B NO GRAPHIC .PERIOD U4S01290 006F 4040 130 | DC /4040 NO GRAPHIC NO GRAPHIC U4S01300 0070 4040 131 | DC /4040 NO GRAPHIC NO GRAPHIC U4S01310 0071 4040 132 | DC /4040 NO GRAPHIC NO GRAPHIC U4S01320 0072 4040 133 | DC /4040 NO GRAPHIC NO GRAPHIC U4S01330 0073 4040 134 | DC /4040 NO GRAPHIC NO GRAPHIC U4S01340 0074 4040 135 | DC /4040 NO GRAPHIC NO GRAPHIC U4S01350 0075 4040 136 | DC /4040 NO GRAPHIC NO GRAPHIC U4S01360 0076 4040 137 | DC /4040 NO GRAPHIC NO GRAPHIC U4S01370 0077 4040 138 | DC /4040 NO GRAPHIC NO GRAPHIC U4S01380 0078 4040 139 | DC /4040 NO GRAPHIC NO GRAPHIC U4S01390 0079 4040 140 | DC /4040 NO GRAPHIC NO GRAPHIC U4S01400 007A 4040 141 | DC /4040 NO GRAPHIC NO GRAPHIC U4S01410 007B 4040 142 | DC /4040 NO GRAPHIC NO GRAPHIC U4S01420 007C 4040 143 | DC /4040 NO GRAPHIC NO GRAPHIC U4S01430 007D 4040 144 | DC /4040 NO GRAPHIC NO GRAPHIC U4S01440 007E 4040 145 | DC /4040 NO GRAPHIC NO GRAPHIC U4S01450 007F 4040 146 | DC /4040 NO GRAPHIC NO GRAPHIC U4S01460 0080 147 | END U4S01470 There were no errors in this assembly === CROSS REFERENCES ========================================================== Name Val Defd Referenced PT3EB 0000R 19