ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:09 2020
Source File: \u4cpebc.asm
1 | * JUNE 19,1967 U4D00010
2 | *************************************************** U4D00020
3 | * * U4D00030
4 | * SUBROUTINE NAME- * U4D00040
5 | * FULLNAME- CONSOLE PRINTER CODE TO EBCDIC * U4D00050
6 | * CONVERSION TABLE. * U4D00060
7 | * CODE NAME- CPEBC * U4D00070
8 | * METHOD- * U4D00080
9 | * SEE IBM 1130 SUBROUTINE LIBRARY MANUAL * U4D00090
10 | * CAPABILITIES AND LIMITATIONS- * U4D00100
11 | * SEE IBM 1130 SUBROUTINE LIBRARY MANUAL * U4D00110
12 | * SPECIAL FEATURES- NON-EXECUTABLE * U4D00120
13 | * ADDITIONAL INFORMATION- * U4D00130
14 | * ESTIMATED EXECUTION TIME- N/A * U4D00140
15 | * * U4D00150
16 | *************************************************** U4D00160
CONSOLE PRINTER TO EBCDIC
18 | ENT CPEBC U4D00180
0000 6B4B 19 | CPEBC DC /6B4B ,(COMMA) .PERIOD U4D00190
0001 1540 20 | DC /1540 NL NO GRAPHIC U4D00200
0002 7A4A 21 | DC /7A4A : ยข U4D00210
0003 4025 22 | DC /4025 NO GRAPHIC LF U4D00220
0004 607C 23 | DC /607C - DASH @ U4D00230
0005 4014 24 | DC /4014 NO GRAPHIC RES U4D00240
0006 6F6C 25 | DC /6F6C ? % U4D00250
0007 4040 26 | DC /4040 NO GRAPHIC NO GRAPHIC U4D00260
0008 4040 27 | DC /4040 NO GRAPHIC NO GRAPHIC U4D00270
0009 4035 28 | DC /4035 NO GRAPHIC RS U4D00280
000A 4040 29 | DC /4040 NO GRAPHIC NO GRAPHIC U4D00290
000B 4040 30 | DC /4040 NO GRAPHIC NO GRAPHIC U4D00300
000C 4040 31 | DC /4040 NO GRAPHIC NO GRAPHIC U4D00310
000D 4040 32 | DC /4040 NO GRAPHIC NO GRAPHIC U4D00320
000E 4040 33 | DC /4040 NO GRAPHIC NO GRAPHIC U4D00330
000F 4040 34 | DC /4040 NO GRAPHIC NO GRAPHIC U4D00340
0010 E6C6 35 | DC /E6C6 W F U4D00350
0011 4016 36 | DC /4016 NO GRAPHIC BS U4D00360
0012 E6C6 37 | DC /E6C6 W F U4D00370
0013 4040 38 | DC /4040 NO GRAPHIC NO GRAPHIC U4D00380
0014 E7C7 39 | DC /E7C7 X G U4D00390
0015 4040 40 | DC /4040 NO GRAPHIC NO GRAPHIC U4D00400
0016 E7C7 41 | DC /E7C7 X G U4D00410
0017 4040 42 | DC /4040 NO GRAPHIC NO GRAPHIC U4D00420
0018 E2C2 43 | DC /E2C2 S B U4D00430
0019 4040 44 | DC /4040 NO GRAPHIC NO GRAPHIC U4D00440
001A E2C2 45 | DC /E2C2 S B U4D00450
001B 4040 46 | DC /4040 NO GRAPHIC NO GRAPHIC U4D00460
001C E3C3 47 | DC /E3C3 T C U4D00470
001D 4040 48 | DC /4040 NO GRAPHIC NO GRAPHIC U4D00480
001E E3C3 49 | DC /E3C3 T C U4D00490
001F 4040 50 | DC /4040 NO GRAPHIC NO GRAPHIC U4D00500
0020 E9C9 51 | DC /E9C9 Z I U4D00510
0021 4040 52 | DC /4040 NO GRAPHIC SPACE U4D00520
0022 E9C9 53 | DC /E9C9 A I U4D00530
0023 4040 54 | DC /4040 NO GRAPHIC NO GRAPHIC U4D00540
0024 E8C8 55 | DC /E8C8 Y H U4D00550
0025 4040 56 | DC /4040 NO GRAPHIC NO GRAPHIC U4D00560
0026 E8C8 57 | DC /E8C8 Y H U4D00570
0027 4040 58 | DC /4040 NO GRAPHIC NO GRAPHIC U4D00580
0028 4040 59 | DC /4040 NO GRAPHIC NO GRAPHIC U4D00590
0029 4040 60 | DC /4040 NO GRAPHIC NO GRAPHIC U4D00600
002A 4040 61 | DC /4040 NO GRAPHIC NO GRAPHIC U4D00610
002B 4040 62 | DC /4040 NO GRAPHIC NO GRAPHIC U4D00620
002C 4040 63 | DC /4040 NO GRAPHIC NO GRAPHIC U4D00630
002D 4040 64 | DC /4040 NO GRAPHIC NO GRAPHIC U4D00640
002E 4040 65 | DC /4040 NO GRAPHIC NO GRAPHIC U4D00650
002F 4040 66 | DC /4040 NO GRAPHIC NO GRAPHIC U4D00660
0030 E4C4 67 | DC /E4C4 U D U4D00670
0031 4040 68 | DC /4040 NO GRAPHIC NO GRAPHIC U4D00680
0032 E4C4 69 | DC /E4C4 U D U4D00690
0033 4040 70 | DC /4040 NO GRAPHIC NO GRAPHIC U4D00700
0034 E5C5 71 | DC /E5C5 V E U4D00710
0035 4040 72 | DC /4040 NO GRAPHIC NO GRAPHIC U4D00720
0036 E5C5 73 | DC /E5C5 V E U4D00730
0037 4040 74 | DC /4040 NO GRAPHIC NO GRAPHIC U4D00740
0038 4040 75 | DC /4040 NO GRAPHIC NO GRAPHIC U4D00750
0039 4040 76 | DC /4040 NO GRAPHIC NO GRAPHIC U4D00760
003A 4040 77 | DC /4040 NO GRAPHIC NO GRAPHIC U4D00770
003B 4040 78 | DC /4040 NO GRAPHIC NO GRAPHIC U4D00780
003C 61C1 79 | DC /61C1 / A U4D00790
003D 4040 80 | DC /4040 NO GRAPHIC NO GRAPHIC U4D00800
003E 6DC1 81 | DC /6DC1 UNDERSCORE A U4D00810
003F 4040 82 | DC /4040 NO GRAPHIC NO GRAPHIC U4D00820
0040 7B5B 83 | DC /7B5B # $ U4D00830
0041 4005 84 | DC /4005 NO GRAPHIC HTAB U4D00840
0042 7E5A 85 | DC /7E5A = ! U4D00850
0043 4040 86 | DC /4040 NO GRAPHIC NO GRAPHIC U4D00860
0044 F050 87 | DC /F050 0(ZERO) & U4D00870
0045 4040 88 | DC /4040 NO GRAPHIC NO GRAPHIC U4D00880
0046 4F6E 89 | DC /4F6E LOGICAL OR > U4D00890
0047 4040 90 | DC /4040 NO GRAPHIC NO GRAPHIC U4D00900
0048 4040 91 | DC /4040 NO GRAPHIC NO GRAPHIC U4D00910
0049 4040 92 | DC /4040 NO GRAPHIC NO GRAPHIC U4D00920
004A 4040 93 | DC /4040 NO GRAPHIC NO GRAPHIC U4D00930
004B 4040 94 | DC /4040 NO GRAPHIC NO GRAPHIC U4D00940
004C 4040 95 | DC /4040 NO GRAPHIC NO GRAPHIC U4D00950
004D 4040 96 | DC /4040 NO GRAPHIC NO GRAPHIC U4D00960
004E 4040 97 | DC /4040 NO GRAPHIC NO GRAPHIC U4D00970
004F 4040 98 | DC /4040 NO GRAPHIC NO GRAPHIC U4D00980
0050 F6D6 99 | DC /F6D6 6 O U4D00990
0051 4040 100 | DC /4040 NO GRAPHIC NO GRAPHIC U4D01000
0052 5ED6 101 | DC /5ED6 ; O U4D01010
0053 4040 102 | DC /4040 NO GRAPHIC NO GRAPHIC U4D01020
0054 F7D7 103 | DC /F7D7 7 P U4D01030
0055 4040 104 | DC /4040 NO GRAPHIC NO GRAPHIC U4D01040
0056 5CD7 105 | DC /5CD7 * P U4D01050
0057 4040 106 | DC /4040 NO GRAPHIC NO GRAPHIC U4D01060
0058 F2D2 107 | DC /F2D2 2 K U4D01070
0059 4040 108 | DC /4040 NO GRAPHIC NO GRAPHIC U4D01080
005A 4ED2 109 | DC /4ED2 + K U4D01090
005B 4040 110 | DC /4040 NO GRAPHIC NO GRAPHIC U4D01100
005C F3D3 111 | DC /F3D3 3 L U4D01110
005D 4040 112 | DC /4040 NO GRAPHIC NO GRAPHIC U4D01120
005E 4CD3 113 | DC /4CD3 < L U4D01130
005F 4040 114 | DC /4040 NO GRAPHIC NO GRAPHIC U4D01140
0060 F9D9 115 | DC /F9D9 9 R U4D01150
0061 4040 116 | DC /4040 NO GRAPHIC NO GRAPHIC U4D01160
0062 7FD9 117 | DC /7FD9 QUOTE R U4D01170
0063 4040 118 | DC /4040 NO GRAPHIC NO GRAPHIC U4D01180
0064 F8D8 119 | DC /F8D8 8 Q U4D01190
0065 4040 120 | DC /4040 NO GRAPHIC NO GRAPHIC U4D01200
0066 7DD8 121 | DC /7DD8 APOSTROPHE Q U4D01210
0067 4040 122 | DC /4040 NO GRAPHIC NO GRAPHIC U4D01220
0068 4040 123 | DC /4040 NO GRAPHIC NO GRAPHIC U4D01230
0069 4040 124 | DC /4040 NO GRAPHIC NO GRAPHIC U4D01240
006A 4040 125 | DC /4040 NO GRAPHIC NO GRAPHIC U4D01250
006B 4040 126 | DC /4040 NO GRAPHIC NO GRAPHIC U4D01260
006C 4040 127 | DC /4040 NO GRAPHIC NO GRAPHIC U4D01270
006D 4040 128 | DC /4040 NO GRAPHIC NO GRAPHIC U4D01280
006E 4040 129 | DC /4040 NO GRAPHIC NO GRAPHIC U4D01290
006F 4040 130 | DC /4040 NO GRAPHIC NO GRAPHIC U4D01300
0070 F4D4 131 | DC /F4D4 4 M U4D01310
0071 4040 132 | DC /4040 NO GRAPHIC NO GRAPHIC U4D01320
0072 5FD4 133 | DC /5FD4 LOGICAL NOT M U4D01330
0073 4040 134 | DC /4040 NO GRAPHIC NO GRAPHIC U4D01340
0074 F5D5 135 | DC /F5D5 5 N U4D01350
0075 4040 136 | DC /4040 NO GRAPHIC NO GRAPHIC U4D01360
0076 5DD5 137 | DC /5DD5 ) N U4D01370
0077 4040 138 | DC /4040 NO GRAPHIC NO GRAPHIC U4D01380
0078 4040 139 | DC /4040 NO GRAPHIC NO GRAPHIC U4D01390
0079 4040 140 | DC /4040 NO GRAPHIC NO GRAPHIC U4D01400
007A 4040 141 | DC /4040 NO GRAPHIC NO GRAPHIC U4D01410
007B 4040 142 | DC /4040 NO GRAPHIC NO GRAPHIC U4D01420
007C F1D1 143 | DC /F1D1 1 J U4D01430
007D 4040 144 | DC /4040 NO GRAPHIC NO GRAPHIC U4D01440
007E 4DD1 145 | DC /4DD1 ( J U4D01450
007F 4040 146 | DC /4040 NO GRAPHIC NO GRAPHIC U4D01460
0080 147 | END U4D01470
There were no errors in this assembly
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
CPEBC 0000R 19