ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:10 2020
Source File: \u4pthol.asm
1 | * JUNE 19,1967 U4T00010
2 | *************************************************** U4T00020
3 | * * U4T00030
4 | * SUBROUTINE NAME- * U4T00040
5 | * FULL NAME- 1403 PRINTER CODE TO HOLLERITH * U4T00050
6 | * CONVERSION TABLE. * U4T00060
7 | * CODE NAME- PTHOL * U4T00070
8 | * METHOD- * U4T00080
9 | * SEE IBM 1130 SUBROUTINE LIBRARY MANUAL * U4T00090
10 | * CAPABILITIES AND LIMITATIONS- * U4T00100
11 | * SEE IBM 1130 SUBROUTINE LIBRARY MANUAL * U4T00110
12 | * SPECIAL FEATURES- NON-EXECUTABLE * U4T00120
13 | * ADDITIONAL INFORMATION- * U4T00130
14 | * ESTIMATED EXECUTION TIME- N/A * U4T00140
15 | * * U4T00150
16 | *************************************************** U4T00160
1403 PRINTER TO HOLLERITH
18 | ENT PTHOL U4T00180
0000 0000 19 | PTHOL DC /0000 NO GRAPHIC NO GRAPHIC U4T00190
0001 0008 20 | DC /0008 NO GRAPHIC 2 U4T00200
0002 000C 21 | DC /000C NO GRAPHIC 3 U4T00210
0003 0000 22 | DC /0000 NO GRAPHIC NO GRAPHIC U4T00220
0004 0014 23 | DC /0014 NO GRAPHIC 5 U4T00230
0005 0000 24 | DC /0000 NO GRAPHIC NO GRAPHIC U4T00240
0006 0000 25 | DC /0000 NO GRAPHIC NO GRAPHIC U4T00250
0007 0002 26 | DC /0002 NO GRAPHIC 8 U4T00260
0008 0001 27 | DC /0001 NO GRAPHIC 9 U4T00270
0009 0000 28 | DC /0000 NO GRAPHIC NO GRAPHIC U4T00280
000A 0000 29 | DC /0000 NO GRAPHIC NO GRAPHIC U4T00290
000B 0016 30 | DC /0016 NO GRAPHIC APOSTROPHE U4T00300
000C 0000 31 | DC /0000 NO GRAPHIC NO GRAPHIC U4T00310
000D 0028 32 | DC /0028 NO GRAPHIC S U4T00320
000E 002C 33 | DC /002C NO GRAPHIC T U4T00330
000F 0000 34 | DC /0000 NO GRAPHIC NO GRAPHIC U4T00340
0010 0034 35 | DC /0034 NO GRAPHIC V U4T00350
0011 0000 36 | DC /0000 NO GRAPHIC NO GRAPHIC U4T00360
0012 0000 37 | DC /0000 NO GRAPHIC NO GRAPHIC U4T00370
0013 0022 38 | DC /0022 NO GRAPHIC Y U4T00380
0014 0000 39 | DC /0000 NO GRAPHIC NO GRAPHIC U4T00390
0015 0080 40 | DC /0080 NO GRAPHIC & U4T00400
0016 002E 41 | DC /002E NO GRAPHIC ,(COMMA) U4T00410
0017 0000 42 | DC /0000 NO GRAPHIC NO GRAPHIC U4T00420
0018 0000 43 | DC /0000 NO GRAPHIC NO GRAPHIC U4T00430
0019 0048 44 | DC /0048 NO GRAPHIC K U4T00440
001A 004C 45 | DC /004C NO GRAPHIC L U4T00450
001B 0000 46 | DC /0000 NO GRAPHIC NO GRAPHIC U4T00460
001C 0054 47 | DC /0054 NO GRAPHIC N U4T00470
001D 0000 48 | DC /0000 NO GRAPHIC NO GRAPHIC U4T00480
001E 0000 49 | DC /0000 NO GRAPHIC NO GRAPHIC U4T00490
001F 0042 50 | DC /0042 NO GRAPHIC Q U4T00500
0020 0041 51 | DC /0041 NO GRAPHIC R U4T00510
0021 0000 52 | DC /0000 NO GRAPHIC NO GRAPHIC U4T00520
0022 0000 53 | DC /0000 NO GRAPHIC NO GRAPHIC U4T00530
0023 0052 54 | DC /0052 NO GRAPHIC * U4T00540
0024 0000 55 | DC /0000 NO GRAPHIC NO GRAPHIC U4T00550
0025 0088 56 | DC /0088 NO GRAPHIC B U4T00560
0026 008C 57 | DC /008C NO GRAPHIC C U4T00570
0027 0000 58 | DC /0000 NO GRAPHIC NO GRAPHIC U4T00580
0028 0000 59 | DC /0000 NO GRAPHIC NO GRAPHIC U4T00590
0029 0098 60 | DC /0098 NO GRAPHIC F U4T00600
002A 009C 61 | DC /009C NO GRAPHIC G U4T00610
002B 0000 62 | DC /0000 NO GRAPHIC NO GRAPHIC U4T00620
002C 0081 63 | DC /0081 NO GRAPHIC I U4T00630
002D 0000 64 | DC /0000 NO GRAPHIC NO GRAPHIC U4T00640
002E 0000 65 | DC /0000 NO GRAPHIC NO GRAPHIC U4T00650
002F 0056 66 | DC /0056 NO GRAPHIC ) U4T00660
0030 0000 67 | DC /0000 NO GRAPHIC NO GRAPHIC U4T00670
0031 0000 68 | DC /0000 NO GRAPHIC NO GRAPHIC U4T00680
0032 0000 69 | DC /0000 NO GRAPHIC NO GRAPHIC U4T00690
0033 0000 70 | DC /0000 NO GRAPHIC NO GRAPHIC U4T00700
0034 0000 71 | DC /0000 NO GRAPHIC NO GRAPHIC U4T00710
0035 0000 72 | DC /0000 NO GRAPHIC NO GRAPHIC U4T00720
0036 0000 73 | DC /0000 NO GRAPHIC NO GRAPHIC U4T00730
0037 0000 74 | DC /0000 NO GRAPHIC NO GRAPHIC U4T00740
0038 0000 75 | DC /0000 NO GRAPHIC NO GRAPHIC U4T00750
0039 0000 76 | DC /0000 NO GRAPHIC NO GRAPHIC U4T00760
003A 0000 77 | DC /0000 NO GRAPHIC NO GRAPHIC U4T00770
003B 0000 78 | DC /0000 NO GRAPHIC NO GRAPHIC U4T00780
003C 0000 79 | DC /0000 NO GRAPHIC NO GRAPHIC U4T00790
003D 0000 80 | DC /0000 NO GRAPHIC NO GRAPHIC U4T00800
003E 0000 81 | DC /0000 NO GRAPHIC NO GRAPHIC U4T00810
003F 0000 82 | DC /0000 NO GRAPHIC NO GRAPHIC U4T00820
0040 0004 83 | DC /0004 NO GRAPHIC 1 U4T00830
0041 0000 84 | DC /0000 NO GRAPHIC NO GRAPHIC U4T00840
0042 0000 85 | DC /0000 NO GRAPHIC NO GRAPHIC U4T00850
0043 0010 86 | DC /0010 NO GRAPHIC 4 U4T00860
0044 0000 87 | DC /0000 NO GRAPHIC NO GRAPHIC U4T00870
0045 0018 88 | DC /0018 NO GRAPHIC 6 U4T00880
0046 001C 89 | DC /001C NO GRAPHIC 7 U4T00890
0047 0000 90 | DC /0000 NO GRAPHIC NO GRAPHIC U4T00900
0048 0000 91 | DC /0000 NO GRAPHIC NO GRAPHIC U4T00910
0049 0020 92 | DC /0020 NO GRAPHIC 0(ZERO) U4T00920
004A 001A 93 | DC /001A NO GRAPHIC = U4T00930
004B 0000 94 | DC /0000 NO GRAPHIC NO GRAPHIC U4T00940
004C 0024 95 | DC /0024 NO GRAPHIC / U4T00950
004D 0000 96 | DC /0000 NO GRAPHIC NO GRAPHIC U4T00960
004E 0000 97 | DC /0000 NO GRAPHIC NO GRAPHIC U4T00970
004F 0030 98 | DC /0030 NO GRAPHIC U U4T00980
0050 0000 99 | DC /0000 NO GRAPHIC NO GRAPHIC U4T00990
0051 0038 100 | DC /0038 NO GRAPHIC W U4T01000
0052 003C 101 | DC /003C NO GRAPHIC X U4T01010
0053 0000 102 | DC /0000 NO GRAPHIC NO GRAPHIC U4T01020
0054 0021 103 | DC /0021 NO GRAPHIC Z U4T01030
0055 0000 104 | DC /0000 NO GRAPHIC NO GRAPHIC U4T01040
0056 0000 105 | DC /0000 NO GRAPHIC NO GRAPHIC U4T01050
0057 0096 106 | DC /0096 NO GRAPHIC ( U4T01060
0058 0044 107 | DC /0044 NO GRAPHIC J U4T01070
0059 0000 108 | DC /0000 NO GRAPHIC NO GRAPHIC U4T01080
005A 0000 109 | DC /0000 NO GRAPHIC NO GRAPHIC U4T01090
005B 0050 110 | DC /0050 NO GRAPHIC M U4T01100
005C 0000 111 | DC /0000 NO GRAPHIC NO GRAPHIC U4T01110
005D 0058 112 | DC /0058 NO GRAPHIC O U4T01120
005E 005C 113 | DC /005C NO GRAPHIC P U4T01130
005F 0000 114 | DC /0000 NO GRAPHIC NO GRAPHIC U4T01140
0060 0000 115 | DC /0000 NO GRAPHIC NO GRAPHIC U4T01150
0061 0040 116 | DC /0040 NO GRAPHIC - U4T01160
0062 004E 117 | DC /004E NO GRAPHIC $ U4T01170
0063 0000 118 | DC /0000 NO GRAPHIC NO GRAPHIC U4T01180
0064 0084 119 | DC /0084 NO GRAPHIC A U4T01190
0065 0000 120 | DC /0000 NO GRAPHIC NO GRAPHIC U4T01200
0066 0000 121 | DC /0000 NO GRAPHIC NO GRAPHIC U4T01210
0067 0090 122 | DC /0090 NO GRAPHIC D U4T01220
0068 0094 123 | DC /0094 NO GRAPHIC E U4T01230
0069 0000 124 | DC /0000 NO GRAPHIC NO GRAPHIC U4T01240
006A 0000 125 | DC /0000 NO GRAPHIC NO GRAPHIC U4T01250
006B 0082 126 | DC /0082 NO GRAPHIC H U4T01260
006C 0000 127 | DC /0000 NO GRAPHIC NO GRAPHIC U4T01270
006D 009A 128 | DC /009A NO GRAPHIC + U4T01280
006E 008E 129 | DC /008E NO GRAPHIC .PERIOD U4T01290
006F 0000 130 | DC /0000 NO GRAPHIC NO GRAPHIC U4T01300
0070 0000 131 | DC /0000 NO GRAPHIC NO GRAPHIC U4T01310
0071 0000 132 | DC /0000 NO GRAPHIC NO GRAPHIC U4T01320
0072 0000 133 | DC /0000 NO GRAPHIC NO GRAPHIC U4T01330
0073 0000 134 | DC /0000 NO GRAPHIC NO GRAPHIC U4T01340
0074 0000 135 | DC /0000 NO GRAPHIC NO GRAPHIC U4T01350
0075 0000 136 | DC /0000 NO GRAPHIC NO GRAPHIC U4T01360
0076 0000 137 | DC /0000 NO GRAPHIC NO GRAPHIC U4T01370
0077 0000 138 | DC /0000 NO GRAPHIC NO GRAPHIC U4T01380
0078 0000 139 | DC /0000 NO GRAPHIC NO GRAPHIC U4T01390
0079 0000 140 | DC /0000 NO GRAPHIC NO GRAPHIC U4T01400
007A 0000 141 | DC /0000 NO GRAPHIC NO GRAPHIC U4T01410
007B 0000 142 | DC /0000 NO GRAPHIC NO GRAPHIC U4T01420
007C 0000 143 | DC /0000 NO GRAPHIC NO GRAPHIC U4T01430
007D 0000 144 | DC /0000 NO GRAPHIC NO GRAPHIC U4T01440
007E 0000 145 | DC /0000 NO GRAPHIC NO GRAPHIC U4T01450
007F 0000 146 | DC /0000 NO GRAPHIC NO GRAPHIC U4T01460
0080 147 | END U4T01470
There were no errors in this assembly
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
PTHOL 0000R 19