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