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