ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:08 2020 Source File: \t5holtb.asm 1 | * JULY 6,1967 T5E00010 HOLTB 3 | * SINGLE DEVICE HOLLERITH TABLE T5E00030 4 | LIBR T5E00040 5 | *************************************************** T5E00050 6 | * * T5E00060 7 | *STATUS-VERSION 2, MODIFICATION 0 * T5E00070 8 | * * T5E00080 9 | *FUNCTION/OPERATION- * T5E00090 10 | * TABLE OF HOLLERITH CHARACTERS USED BY THE * T5E00100 11 | * HOLEZ SUBROUTINE IN CONJUNCTION WITH THE EBCTB* T5E00110 12 | * TABLE TO CONVERT FROM HOLLERITH TO EBC CODE OR* T5E00120 13 | * VICE VERSA * T5E00130 14 | * THE TABLE ADDRESS IS OBTAINED FROM THE LIBF * T5E00140 15 | * TRANSFER VECTOR BY THE GETAD SUBROUTINE. * T5E00150 16 | * * T5E00160 17 | *ENTRY POINTS- * T5E00170 18 | * *HOLTB * T5E00180 19 | * * T5E00190 20 | *INPUT-N/A * T5E00200 21 | * * T5E00210 22 | *OUTPUT-N/A * T5E00220 23 | * * T5E00230 24 | *EXTERNAL REFERENCES-N/A * T5E00240 25 | * * T5E00250 26 | *EXITS-N/A * T5E00260 27 | * * T5E00270 28 | *TABLES/WORK AREAS-N/A * T5E00280 29 | * * T5E00290 30 | *ATTRIBUTES-RELOCATABLE * T5E00300 31 | * * T5E00310 32 | *NOTES-N/A * T5E00320 33 | * * T5E00330 34 | *************************************************** T5E00340 HOLTB 36 | * T5E00360 37 | * HOLLERITH TABLE T5E00370 38 | * T5E00380 39 | ENT HOLTB T5E00390 40 | * T5E00400 0000 0000 41 | DC 0 BLANK T5E00410 0001 2000 42 | DC /2000 0 T5E00420 0002 1000 43 | DC /1000 1 T5E00430 0003 0800 44 | DC /0800 2 T5E00440 0004 0400 45 | DC /0400 3 T5E00450 0005 0200 46 | DC /0200 4 T5E00460 0006 0100 47 | DC /0100 5 T5E00470 0007 0080 48 | DC /0080 6 T5E00480 0008 0040 49 | DC /0040 7 T5E00490 0009 0020 50 | DC /0020 8 T5E00500 000A 0010 51 | DC /0010 9 T5E00510 000B 4000 52 | DC /4000 - T5E00520 000C 8420 53 | DC /8420 . T5E00530 000D 8100 54 | DC /8100 E T5E00540 000E 80A0 55 | DC /80A0 PLUS T5E00550 000F 8000 56 | DC /8000 AMPERSAND T5E00560 0010 00A0 57 | DC /00A0 EQUAL T5E00570 0011 4120 58 | DC /4120 RIGHT PAREN T5E00580 0012 8120 59 | DC /8120 LEFT PAREN T5E00590 0013 2420 60 | DC /2420 , T5E00600 0014 0120 61 | DC /0120 APOSTROPHE T5E00610 0015 3000 62 | DC /3000 / T5E00620 0016 4220 63 | DC /4220 * T5E00630 0017 4420 64 | DC /4420 $ T5E00640 0018 8220 65 | DC /8220 LESS THAN T5E00650 0019 2220 66 | DC /2220 PERCENT T5E00660 001A 0420 67 | DC /0420 POUND SIGN T5E00670 001B 0220 68 | DC /0220 AT SIGN T5E00680 001C 9000 69 | DC /9000 A T5E00690 001D 8800 70 | DC /8800 B T5E00700 001E 8400 71 | DC /8400 C T5E00710 001F 8200 72 | DC /8200 D T5E00720 0020 8080 73 | DC /8080 F T5E00730 0021 8040 74 | DC /8040 G T5E00740 0022 8020 75 | DC /8020 H T5E00750 0023 8010 76 | DC /8010 I T5E00760 0024 5000 77 | DC /5000 J T5E00770 0025 4800 78 | DC /4800 K T5E00780 0026 4400 79 | DC /4400 L T5E00790 0027 4200 80 | DC /4200 M T5E00800 0028 4100 81 | DC /4100 N T5E00810 0029 4080 82 | DC /4080 O T5E00820 002A 4040 83 | DC /4040 P T5E00830 002B 4020 84 | DC /4020 Q T5E00840 002C 4010 85 | DC /4010 R T5E00850 002D 2800 86 | DC /2800 S T5E00860 002E 2400 87 | DC /2400 T T5E00870 002F 2200 88 | DC /2200 U T5E00880 0030 2100 89 | DC /2100 V T5E00890 0031 2080 90 | DC /2080 W T5E00900 0032 2040 91 | DC /2040 X T5E00910 0033 2020 92 | DC /2020 Y T5E00920 0034 2010 93 | DC /2010 Z T5E00930 0035 0000 94 | X DC 0 T5E00940 0033R 95 | HOLTB EQU X-2 T5E00950 0036 96 | END T5E00960 There were no errors in this assembly === CROSS REFERENCES ========================================================== Name Val Defd Referenced HOLTB 0033R 95 X 0035R 94 95