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