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