ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:11 2020 Source File: \w1holca.asm HOLLERITH TABLE 2 | *************************************************** W1C00020 3 | * TITLE - HOLCA * W1C00030 4 | * STATUS - CHANGE LEVEL 0 * W1C00040 5 | * FUNCTION/OPERATION - .HOLCA. IS A TABLE OF IBM * W1C00050 6 | * CARD CODE CHARACTERS. ONE IBM CARD CODE CHAR. * W1C00060 7 | * FOR EACH 4-OF-8 CHARACTER * W1C00070 8 | * ENTRY POINTS - NONE * W1C00080 9 | * INPUT - NONE * W1C00090 10 | * OUTPUT - NONE * W1C00100 11 | * EXTERNAL ROUTINES - NONE * W1C00110 12 | * EXITS-NORMAL -NONE * W1C00120 13 | * -ERROR - NONE * W1C00130 14 | * TABLES/WORD AREAS - NONE * W1C00140 15 | * ATTRIBUTES - REUSABLE * W1C00150 16 | * NOTES - NONE * W1C00160 17 | *************************************************** W1C00170 HOLLERITH TABLE 19 | LIBR W1C00190 20 | ENT HOLCA W1C00200 0000 0000 21 | HOLCA DC THE LOADER STORES THE TV W1C00210 0001 0000 22 | DC ADDRESS IN THE THIRD WORD, W1C00220 0002 0000 23 | DC SO THESE ARE NOT USED. W1C00230 0003 0120 24 | DC /0120 APOSTROPHE W1C00240 0004 0040 25 | DC /0040 7 W1C00250 0005 0420 26 | DC /0420 POUND SIGN W1C00260 0006 0060 27 | DC /0060 QUOTATION MARK W1C00270 0007 00A0 28 | DC /00A0 EQUALS W1C00280 0008 2040 29 | DC /2040 X W1C00290 0009 2420 30 | DC /2420 COMMA W1C00300 000A 2060 31 | DC /2060 QUESTION MARK W1C00310 000B 0820 32 | DC /0820 COLON W1C00320 000C 0000 33 | DC 0 SPACER WD W1C00330 000D 0000 34 | DC 0 SPACER WD W1C00340 000E 80A0 35 | DC /80A0 PLUS W1C00350 000F 0000 36 | DC 0 SPACER WD W1C00360 0010 20A0 37 | DC /20A0 GREATER THAN W1C00370 0011 40A0 38 | DC /40A0 SEMICOLON W1C00380 0012 4040 39 | DC /4040 P W1C00390 0013 4420 40 | DC /4420 DOLLAR SIGN W1C00400 0014 4060 41 | DC /4060 LOGICAL NOT W1C00410 0015 4000 42 | DC /4000 DASH, MUNUS W1C00420 0016 0000 43 | DC 0 SPACER WD W1C00430 0017 0000 44 | DC 0 SPACER WD W1C00440 0018 8120 45 | DC /8120 LEFT PARENTHESIS W1C00450 0019 0000 46 | DC 0 SPACER WD W1C00460 001A 2120 47 | DC /2120 UNDERSCORE W1C00470 001B 4120 48 | DC /4120 RIGHT PARENTHESIS W1C00480 001C 8400 49 | DC /8400 C W1C00490 001D 8100 50 | DC /8100 E W1C00500 001E 8080 51 | DC /8080 F W1C00510 001F 8010 52 | DC /8010 I W1C00520 0020 8820 53 | DC /8820 CENT W1C00530 0021 8220 54 | DC /8220 LESS THAN W1C00540 0022 9000 55 | DC /9000 A W1C00550 0023 8800 56 | DC /8800 B W1C00560 0024 8200 57 | DC /8200 D W1C00570 0025 8020 58 | DC /8020 H W1C00580 0026 8040 59 | DC /8040 G W1C00590 0027 8420 60 | DC /8420 PERIOD W1C00600 0028 8060 61 | DC /8060 LOGICAL OR W1C00610 0029 8000 62 | DC /8000 AND W1C00620 002A 0400 63 | DC /0400 3 W1C00630 002B 0100 64 | DC /0100 5 W1C00640 002C 0080 65 | DC /0080 6 W1C00650 002D 0010 66 | DC /0010 9 W1C00660 002E 2000 67 | DC /2000 0 W1C00670 002F 0220 68 | DC /0220 AT SIGN W1C00680 0030 2400 69 | DC /2400 T W1C00690 0031 2100 70 | DC /2100 V W1C00700 0032 2080 71 | DC /2080 W W1C00710 0033 2010 72 | DC /2010 Z W1C00720 0034 2820 73 | DC /2820 RECORD MARK W1C00730 0035 2220 74 | DC /2220 PERCENT W1C00740 0036 3000 75 | DC /3000 / W1C00750 0037 2800 76 | DC /2800 S W1C00760 0038 2200 77 | DC /2200 U W1C00770 0039 2020 78 | DC /2020 Y W1C00780 003A 4400 79 | DC /4400 L W1C00790 003B 4100 80 | DC /4100 N W1C00800 003C 4080 81 | DC /4080 O W1C00810 003D 4010 82 | DC /4010 R W1C00820 003E 4820 83 | DC /4820 EXCLAMATION MARK W1C00830 003F 4220 84 | DC /4220 ASTERISK W1C00840 0040 5000 85 | DC /5000 J W1C00850 0041 4800 86 | DC /4800 K W1C00860 0042 4200 87 | DC /4200 M W1C00870 0043 4020 88 | DC /4020 Q W1C00880 0044 1000 89 | DC /1000 1 W1C00890 0045 0800 90 | DC /0800 2 W1C00900 0046 0200 91 | DC /0200 4 W1C00910 0047 0020 92 | DC /0020 8 W1C00920 0048 0000 93 | DC /0000 BLANK W1C00930 0049 94 | END W1C00940 There were no errors in this assembly === CROSS REFERENCES ========================================================== Name Val Defd Referenced HOLCA 0000R 21