ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:10 2020
Source File: \u4cphol.asm
1 | * JUNE 19,1967 U4E00010
2 | *************************************************** U4E00020
3 | * * U4E00030
4 | * SUBROUTINE NAME- * U4E00040
5 | * FULL NAME-CONSOLE PRINTER CODE TO HOLLERITH* U4E00050
6 | * CONVERSION TABLE. * U4E00060
7 | * CODE NAME- CPHOL * U4E00070
8 | * METHOD- * U4E00080
9 | * SEE IBM 1130 SUBROUTINE LIBRARY MANUAL * U4E00090
10 | * CAPABILITIES AND LIMITATIONS- * U4E00100
11 | * SEE IBM 1130 SUBROUTINE LIBRARY MANUAL * U4E00110
12 | * SPECIAL FEATURES- NON-EXECUTABLE * U4E00120
13 | * ADDITIONAL INFORMATION- * U4E00130
14 | * ESTIMATED EXECUTION TIME- N/A * U4E00140
15 | * * U4E00150
16 | *************************************************** U4E00160
CONSOLE PRINTER TO HOLLERITH
18 | ENT CPHOL U4E00180
0000 2E8E 19 | CPHOL DC /2E8E ,COMMA .PERIOD U4E00190
0001 5500 20 | DC /5500 NEW LINE NO GRAPHIC U4E00200
0002 0A8A 21 | DC /0A8A : ยข U4E00210
0003 0035 22 | DC /0035 NO GRAPHIC LF U4E00220
0004 4012 23 | DC /4012 - @ U4E00230
0005 0051 24 | DC /0051 NO GRAPHIC RESTORE U4E00240
0006 3E32 25 | DC /3E32 ? % U4E00250
0007 0000 26 | DC /0 NO GRAPHIC NO GRAPHIC U4E00260
0008 0000 27 | DC /0 NO GRAPHIC NO GRAPHIC U4E00270
0009 0015 28 | DC /0015 NO GRAPHIC RS U4E00280
000A 0000 29 | DC /0 NO GRAPHIC NO GRAPHIC U4E00290
000B 0000 30 | DC /0 NO GRAPHIC NO GRAPHIC U4E00300
000C 0000 31 | DC /0 NO GRAPHIC NO GRAPHIC U4E00310
000D 0000 32 | DC /0 NO GRAPHIC NO GRAPHIC U4E00320
000E 0000 33 | DC /0 NO GRAPHIC NO GRAPHIC U4E00330
000F 0000 34 | DC /0 NO GRAPHIC NO GRAPHIC U4E00340
0010 3898 35 | DC /3898 W F U4E00350
0011 0059 36 | DC /0059 NO GRAPHIC BS U4E00360
0012 3898 37 | DC /3898 W F U4E00370
0013 0000 38 | DC /0 NO GRAPHIC NO GRAPHIC U4E00380
0014 3C9C 39 | DC /3C9C X G U4E00390
0015 0000 40 | DC /0 NO GRAPHIC NO GRAPHIC U4E00400
0016 3C9C 41 | DC /3C9C X G U4E00410
0017 0000 42 | DC /0 NO GRAPHIC NO GRAPHIC U4E00420
0018 2888 43 | DC /2888 S B U4E00430
0019 0000 44 | DC /0 NO GRAPHIC NO GRAPHIC U4E00440
001A 2888 45 | DC /2888 S B U4E00450
001B 0000 46 | DC /0 NO GRAPHIC NO GRAPHIC U4E00460
001C 2C8C 47 | DC /2C8C T C U4E00470
001D 0000 48 | DC /0 NO GRAPHIC NO GRAPHIC U4E00480
001E 2C8C 49 | DC /2C8C T C U4E00490
001F 0000 50 | DC /0 NO GRAPHIC NO GRAPHIC U4E00500
0020 2181 51 | DC /2181 Z I U4E00510
0021 0000 52 | DC /0 NO GRAPHIC NO GRAPHIC U4E00520
0022 2181 53 | DC /2181 Z I U4E00530
0023 0000 54 | DC /0 NO GRAPHIC NO GRAPHIC U4E00540
0024 2282 55 | DC /2282 Y H U4E00550
0025 0000 56 | DC /0 NO GRAPHIC NO GRAPHIC U4E00560
0026 2282 57 | DC /2282 Y H U4E00570
0027 0000 58 | DC /0 NO GRAPHIC NO GRAPHIC U4E00580
0028 0000 59 | DC /0 NO GRAPHIC NO GRAPHIC U4E00590
0029 0000 60 | DC /0 NO GRAPHIC NO GRAPHIC U4E00600
002A 0000 61 | DC /0 NO GRAPHIC NO GRAPHIC U4E00610
002B 0000 62 | DC /0 NO GRAPHIC NO GRAPHIC U4E00620
002C 0000 63 | DC /0 NO GRAPHIC NO GRAPHIC U4E00630
002D 0000 64 | DC /0 NO GRAPHIC NO GRAPHIC U4E00640
002E 0000 65 | DC /0 NO GRAPHIC NO GRAPHIC U4E00650
002F 0000 66 | DC /0 NO GRAPHIC NO GRAPHIC U4E00660
0030 3090 67 | DC /3090 U D U4E00670
0031 0000 68 | DC /0 NO GRAPHIC NO GRAPHIC U4E00680
0032 3090 69 | DC /3090 U D U4E00690
0033 0000 70 | DC /0 NO GRAPHIC NO GRAPHIC U4E00700
0034 3494 71 | DC /3494 V E U4E00710
0035 0000 72 | DC /0 NO GRAPHIC NO GRAPHIC U4E00720
0036 3494 73 | DC /3494 V E U4E00730
0037 0000 74 | DC /0 NO GRAPHIC NO GRAPHIC U4E00740
0038 0000 75 | DC /0 NO GRAPHIC NO GRAPHIC U4E00750
0039 0000 76 | DC /0 NO GRAPHIC NO GRAPHIC U4E00760
003A 0000 77 | DC /0 NO GRAPHIC NO GRAPHIC U4E00770
003B 0000 78 | DC /0 NO GRAPHIC NO GRAPHIC U4E00780
003C 2484 79 | DC /2484 / A U4E00790
003D 0000 80 | DC /0 NO GRAPHIC NO GRAPHIC U4E00800
003E 3684 81 | DC /3684 UNDERSCORE A U4E00810
003F 0000 82 | DC /0 NO GRAPHIC NO GRAPHIC U4E00820
0040 0E4E 83 | DC /0E4E # $ U4E00830
0041 0095 84 | DC /0095 NO GRAPHIC H. TAB U4E00840
0042 1A4A 85 | DC /1A4A = ! U4E00850
0043 0000 86 | DC /0 NO GRAPHIC NO GRAPHIC U4E00860
0044 2080 87 | DC /2080 0(ZERO) & U4E00870
0045 0000 88 | DC /0 NO GRAPHIC NO GRAPHIC U4E00880
0046 9E3A 89 | DC /9E3A LOGICAL OR > U4E00890
0047 0000 90 | DC /0 NO GRAPHIC NO GRAPHIC U4E00900
0048 0000 91 | DC /0 NO GRAPHIC NO GRAPHIC U4E00910
0049 0000 92 | DC /0 NO GRAPHIC NO GRAPHIC U4E00920
004A 0000 93 | DC /0 NO GRAPHIC NO GRAPHIC U4E00930
004B 0000 94 | DC /0 NO GRAPHIC NO GRAPHIC U4E00940
004C 0000 95 | DC /0 NO GRAPHIC NO GRAPHIC U4E00950
004D 0000 96 | DC /0 NO GRAPHIC NO GRAPHIC U4E00960
004E 0000 97 | DC /0 NO GRAPHIC NO GRAPHIC U4E00970
004F 0000 98 | DC /0 NO GRAPHIC NO GRAPHIC U4E00980
0050 1858 99 | DC /1858 6 O U4E00990
0051 0000 100 | DC /0 NO GRAPHIC NO GRAPHIC U4E01000
0052 5A58 101 | DC /5A58 ; O U4E01010
0053 0000 102 | DC /0 NO GRAPHIC NO GRAPHIC U4E01020
0054 1C5C 103 | DC /1C5C 7 P U4E01030
0055 0000 104 | DC /0 NO GRAPHIC NO GRAPHIC U4E01040
0056 525C 105 | DC /525C * P U4E01050
0057 0000 106 | DC /0 NO GRAPHIC NO GRAPHIC U4E01060
0058 0848 107 | DC /0848 2 K U4E01070
0059 0000 108 | DC /0 NO GRAPHIC NO GRAPHIC U4E01080
005A 9A48 109 | DC /9A48 + K U4E01090
005B 0000 110 | DC /0 NO GRAPHIC NO GRAPHIC U4E01100
005C 0C4C 111 | DC /0C4C 3 L U4E01110
005D 0000 112 | DC /0 NO GRAPHIC NO GRAPHIC U4E01120
005E 924C 113 | DC /924C < L U4E01130
005F 0000 114 | DC /0 NO GRAPHIC NO GRAPHIC U4E01140
0060 0141 115 | DC /0141 9 R U4E01150
0061 0000 116 | DC /0 NO GRAPHIC NO GRAPHIC U4E01160
0062 1E41 117 | DC /1E41 QUOTE R U4E01170
0063 0000 118 | DC /0 NO GRAPHIC NO GRAPHIC U4E01180
0064 0242 119 | DC /0242 8 Q U4E01190
0065 0000 120 | DC /0 NO GRAPHIC NO GRAPHIC U4E01200
0066 1642 121 | DC /1642 APOSTROPHE Q U4E01210
0067 0000 122 | DC /0000 NO GRAPHIC NO GRAPHIC U4E01220
0068 0000 123 | DC /0 NO GRAPHIC NO GRAPHIC U4E01230
0069 0000 124 | DC /0 NO GRAPHIC NO GRAPHIC U4E01240
006A 0000 125 | DC /0 NO GRAPHIC NO GRAPHIC U4E01250
006B 0000 126 | DC /0 NO GRAPHIC NO GRAPHIC U4E01260
006C 0000 127 | DC /0 NO GRAPHIC NO GRAPHIC U4E01270
006D 0000 128 | DC /0 NO GRAPHIC NO GRAPHIC U4E01280
006E 0000 129 | DC /0 NO GRAPHIC NO GRAPHIC U4E01290
006F 0000 130 | DC /0 NO GRAPHIC NO GRAPHIC U4E01300
0070 1050 131 | DC /1050 4 M U4E01310
0071 0000 132 | DC /0 NO GRAPHIC NO GRAPHIC U4E01320
0072 5E50 133 | DC /5E50 LOGICAL NOT M U4E01330
0073 0000 134 | DC /0 NO GRAPHIC NO GRAPHIC U4E01340
0074 1454 135 | DC /1454 5 N U4E01350
0075 0000 136 | DC /0 NO GRAPHIC NO GRAPHIC U4E01360
0076 5654 137 | DC /5654 ) N U4E01370
0077 0000 138 | DC /0 NO GRAPHIC NO GRAPHIC U4E01380
0078 0000 139 | DC /0 NO GRAPHIC NO GRAPHIC U4E01390
0079 0000 140 | DC /0 NO GRAPHIC NO GRAPHIC U4E01400
007A 0000 141 | DC /0 NO GRAPHIC NO GRAPHIC U4E01410
007B 0000 142 | DC /0 NO GRAPHIC NO GRAPHIC U4E01420
007C 0444 143 | DC /0444 1 J U4E01430
007D 0000 144 | DC /0 NO GRAPHIC NO GRAPHIC U4E01440
007E 9644 145 | DC /9644 ( J U4E01450
007F 0000 146 | DC /0 NO GRAPHIC NO GRAPHIC U4E01460
0080 147 | END U4E01470
There were no errors in this assembly
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
CPHOL 0000R 19