ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:10 2020
Source File: \u4ebpt3.asm
1 | *************************************************** U4L00010
2 | * * U4L00020
3 | * SUBROUTINE NAME- * U4L00030
4 | * FULL NAME- EBCDIC TO 1403 PRINTER CODE * U4L00040
5 | * CONVERSION TABLE SUBROUTINE * U4L00050
6 | * CODE NAME- EBPT3 * U4L00060
7 | * PURPOSE- EBPT3 IS A TABLE OF PACKED 8-BIT * U4L00070
8 | * 1403 PRINTER CODES TO BE USED BY ZIPCO, * U4L00080
9 | * THE SPEED CONVERSION ROUTINE. * U4L00090
10 | * METHOD- * U4L00100
11 | * SEE IBM 1130 SUBROUTINE LIBRARY MANUAL * U4L00110
12 | * CAPABILITIES AND LIMITATIONS- * U4L00120
13 | * SEE IBM 1130 SUBROUTINE LIBRARY MANUAL * U4L00130
14 | * SPECIAL FEATURES- NON-EXECUTABLE * U4L00140
15 | * ADDITIONAL INFORMATION- * U4L00150
16 | * ESTIMATED EXECUTION TIME- N/A * U4L00160
17 | * * U4L00170
18 | *************************************************** U4L00180
EBCDIC TO 1403 CONV TABLE FOR ZIPCO
20 | ENT EBPT3 U4L00200
0000 7F7F 21 | EBPT3 DC /7F7F NO GRAPHIC NUL U4L00210
0001 7F7F 22 | DC /7F7F NO GRAPHIC NO GRAPHIC U4L00220
0002 7F7F 23 | DC /7F7F NO GRAPHIC NO GRAPHIC U4L00230
0003 7F7F 24 | DC /7F7F NO GRAPHIC NO GRAPHIC U4L00240
0004 7F7F 25 | DC /7F7F NO GRAPHIC PF U4L00250
0005 7F7F 26 | DC /7F7F NO GRAPHIC HT U4L00260
0006 7F7F 27 | DC /7F7F NO GRAPHIC LC U4L00270
0007 7F7F 28 | DC /7F7F NO GRAPHIC DEL U4L00280
0008 7F7F 29 | DC /7F7F NO GRAPHIC NO GRAPHIC U4L00290
0009 7F7F 30 | DC /7F7F NO GRAPHIC NO GRAPHIC U4L00300
000A 7F7F 31 | DC /7F7F NO GRAPHIC NO GRAPHIC U4L00310
000B 7F7F 32 | DC /7F7F NO GRAPHIC NO GRAPHIC U4L00320
000C 7F7F 33 | DC /7F7F NO GRAPHIC NO GRAPHIC U4L00330
000D 7F7F 34 | DC /7F7F NO GRAPHIC NO GRAPHIC U4L00340
000E 7F7F 35 | DC /7F7F NO GRAPHIC NO GRAPHIC U4L00350
000F 7F7F 36 | DC /7F7F NO GRAPHIC NO GRAPHIC U4L00360
0010 7F7F 37 | DC /7F7F NO GRAPHIC NO GRAPHIC U4L00370
0011 7F7F 38 | DC /7F7F NO GRAPHIC NO GRAPHIC U4L00380
0012 7F7F 39 | DC /7F7F NO GRAPHIC NO GRAPHIC U4L00390
0013 7F7F 40 | DC /7F7F NO GRAPHIC NO GRAPHIC U4L00400
0014 7F7F 41 | DC /7F7F NO GRAPHIC RES U4L00410
0015 7F7F 42 | DC /7F7F NO GRAPHIC NL U4L00420
0016 7F7F 43 | DC /7F7F NO GRAPHIC BS U4L00430
0017 7F7F 44 | DC /7F7F NO GRAPHIC IDL U4L00440
0018 7F7F 45 | DC /7F7F NO GRAPHIC NO GRAPHIC U4L00450
0019 7F7F 46 | DC /7F7F NO GRAPHIC NO GRAPHIC U4L00460
001A 7F7F 47 | DC /7F7F NO GRAPHIC NO GRAPHIC U4L00470
001B 7F7F 48 | DC /7F7F NO GRAPHIC NO GRAPHIC U4L00480
001C 7F7F 49 | DC /7F7F NO GRAPHIC NO GRAPHIC U4L00490
001D 7F7F 50 | DC /7F7F NO GRAPHIC NO GRAPHIC U4L00500
001E 7F7F 51 | DC /7F7F NO GRAPHIC NO GRAPHIC U4L00510
001F 7F7F 52 | DC /7F7F NO GRAPHIC NO GRAPHIC U4L00520
0020 7F7F 53 | DC /7F7F NO GRAPHIC NO GRAPHIC U4L00530
0021 7F7F 54 | DC /7F7F NO GRAPHIC NO GRAPHIC U4L00540
0022 7F7F 55 | DC /7F7F NO GRAPHIC NO GRAPHIC U4L00550
0023 7F7F 56 | DC /7F7F NO GRAPHIC NO GRAPHIC U4L00560
0024 7F7F 57 | DC /7F7F NO GRAPHIC BYP U4L00570
0025 7F7F 58 | DC /7F7F NO GRAPHIC LF U4L00580
0026 7F7F 59 | DC /7F7F NO GRAPHIC EOB U4L00590
0027 7F7F 60 | DC /7F7F NO GRAPHIC PRE U4L00600
0028 7F7F 61 | DC /7F7F NO GRAPHIC NO GRAPHIC U4L00610
0029 7F7F 62 | DC /7F7F NO GRAPHIC NO GRAPHIC U4L00620
002A 7F7F 63 | DC /7F7F NO GRAPHIC NO GRAPHIC U4L00630
002B 7F7F 64 | DC /7F7F NO GRAPHIC NO GRAPHIC U4L00640
002C 7F7F 65 | DC /7F7F NO GRAPHIC NO GRAPHIC U4L00650
002D 7F7F 66 | DC /7F7F NO GRAPHIC NO GRAPHIC U4L00660
002E 7F7F 67 | DC /7F7F NO GRAPHIC NO GRAPHIC U4L00670
002F 7F7F 68 | DC /7F7F NO GRAPHIC NO GRAPHIC U4L00680
0030 7F7F 69 | DC /7F7F NO GRAPHIC NO GRAPHIC U4L00690
0031 7F7F 70 | DC /7F7F NO GRAPHIC NO GRAPHIC U4L00700
0032 7F7F 71 | DC /7F7F NO GRAPHIC U4L00710
0033 7F7F 72 | DC /7F7F NO GRAPHIC NO GRAPHIC U4L00720
0034 7F7F 73 | DC /7F7F NO GRAPHIC PN U4L00730
0035 7F7F 74 | DC /7F7F NO GRAPHIC RS U4L00740
0036 7F7F 75 | DC /7F7F NO GRAPHIC UC U4L00750
0037 7F7F 76 | DC /7F7F NO GRAPHIC EOT U4L00760
0038 7F7F 77 | DC /7F7F NO GRAPHIC NO GRAPHIC U4L00770
0039 7F7F 78 | DC /7F7F NO GRAPHIC NO GRAPHIC U4L00780
003A 7F7F 79 | DC /7F7F NO GRAPHIC NO GRAPHIC U4L00790
003B 7F7F 80 | DC /7F7F NO GRAPHIC NO GRAPHIC U4L00800
003C 7F7F 81 | DC /7F7F NO GRAPHIC NO GRAPHIC U4L00810
003D 7F7F 82 | DC /7F7F NO GRAPHIC NO GRAPHIC U4L00820
003E 7F7F 83 | DC /7F7F NO GRAPHIC NO GRAPHIC U4L00830
003F 7F7F 84 | DC /7F7F NO GRAPHIC NO GRAPHIC U4L00840
0040 7F7F 85 | DC /7F7F (+ZERO) (SPACE) U4L00850
0041 647F 86 | DC /647F A NO GRAPHIC U4L00860
0042 257F 87 | DC /257F B NO GRAPHIC U4L00870
0043 267F 88 | DC /267F C NO GRAPHIC U4L00880
0044 677F 89 | DC /677F D NO GRAPHIC U4L00890
0045 687F 90 | DC /687F E NO GRAPHIC U4L00900
0046 297F 91 | DC /297F F NO GRAPHIC U4L00910
0047 2A7F 92 | DC /2A7F G NO GRAPHIC U4L00920
0048 6B7F 93 | DC /6B7F H NO GRAPHIC U4L00930
0049 2C7F 94 | DC /2C7F I NO GRAPHIC U4L00940
004A 7F7F 95 | DC /7F7F NO GRAPHIC NO GRAPHIC U4L00950
004B 7F6E 96 | DC /7F6E NO GRAPHIC . U4L00960
004C 7F7F 97 | DC /7F7F NO GRAPHIC NO GRAPHIC U4L00970
004D 7F57 98 | DC /7F57 NO GRAPHIC ( U4L00980
004E 7F6D 99 | DC /7F6D NO GRAPHIC NO GRAPHIC U4L00990
004F 7F7F 100 | DC /7F7F NO GRAPHIC LOGICAL OR U4L01000
0050 7F15 101 | DC /7F15 NO GRAPHIC AMPERSAND U4L01010
0051 587F 102 | DC /587F J NO GRAPHIC U4L01020
0052 197F 103 | DC /197F K NO GRAPHIC U4L01030
0053 1A7F 104 | DC /1A7F L NO GRAPHIC U4L01040
0054 5B7F 105 | DC /5B7F M NO GRAPHIC U4L01050
0055 1C7F 106 | DC /1C7F N NO GRAPHIC U4L01060
0056 5D7F 107 | DC /5D7F O NO GRAPHIC U4L01070
0057 5E7F 108 | DC /5E7F P NO GRAPHIC U4L01080
0058 1F7F 109 | DC /1F7F Q NO GRAPHIC U4L01090
0059 207F 110 | DC /207F R NO GRAPHIC U4L01100
005A 7F7F 111 | DC /7F7F NO GRAPHIC NO GRAPHIC U4L01110
005B 7F62 112 | DC /7F62 NO GRAPHIC $ U4L01120
005C 7F23 113 | DC /7F23 NO GRAPHIC * U4L01130
005D 7F2F 114 | DC /7F2F NO GRAPHIC ) U4L01140
005E 7F7F 115 | DC /7F7F NO GRAPHIC ; U4L01150
005F 7F7F 116 | DC /7F7F NO GRAPHIC LOGICAL NOT U4L01160
0060 7F61 117 | DC /7F61 NO GRAPHIC - U4L01170
0061 7F4C 118 | DC /7F4C NO GRAPHIC / U4L01180
0062 0D7F 119 | DC /0D7F S NO GRAPHIC U4L01190
0063 0E7F 120 | DC /0E7F T NO GRAPHIC U4L01200
0064 4F7F 121 | DC /4F7F U NO GRAPHIC U4L01210
0065 107F 122 | DC /107F V NO GRAPHIC U4L01220
0066 517F 123 | DC /517F W NO GRAPHIC U4L01230
0067 527F 124 | DC /527F X NO GRAPHIC U4L01240
0068 137F 125 | DC /137F Y NO GRAPHIC U4L01250
0069 547F 126 | DC /547F Z NO GRAPHIC U4L01260
006A 7F7F 127 | DC /7F7F NO GRAPHIC NO GRAPHIC U4L01270
006B 7F16 128 | DC /7F16 NO GRAPHIC , U4L01280
006C 7F7F 129 | DC /7F7F NO GRAPHIC % U4L01290
006D 7F7F 130 | DC /7F7F NO GRAPHIC UNDERSCORE U4L01300
006E 7F7F 131 | DC /7F7F NO GRAPHIC > U4L01310
006F 7F7F 132 | DC /7F7F NO GRAPHIC ? U4L01320
0070 497F 133 | DC /497F 0 NO GRAPHIC U4L01330
0071 407F 134 | DC /407F 1 NO GRAPHIC U4L01340
0072 017F 135 | DC /017F 2 NO GRAPHIC U4L01350
0073 027F 136 | DC /027F 3 NO GRAPHIC U4L01360
0074 437F 137 | DC /437F 4 NO GRAPHIC U4L01370
0075 047F 138 | DC /047F 5 NO GRAPHIC U4L01380
0076 457F 139 | DC /457F 6 NO GRAPHIC U4L01390
0077 467F 140 | DC /467F 7 NO GRAPHIC U4L01400
0078 077F 141 | DC /077F 8 NO GRAPHIC U4L01410
0079 087F 142 | DC /087F 9 NO GRAPHIC U4L01420
007A 7F7F 143 | DC /7F7F NO GRAPHIC NO GRAPHIC U4L01430
007B 7F7F 144 | DC /7F7F NO GRAPHIC NO GRAPHIC U4L01440
007C 7F7F 145 | DC /7F7F NO GRAPHIC NO GRAPHIC U4L01450
007D 7F0B 146 | DC /7F0B NO GRAPHIC ' U4L01460
007E 7F4A 147 | DC /7F4A NO GRAPHIC = U4L01470
007F 7F7F 148 | DC /7F7F NO GRAPHIC NO GRAPHIC U4L01480
0080 149 | END U4L01490
There were no errors in this assembly
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
EBPT3 0000R 21