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