ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:11 2020 Source File: \w1strtb.asm 4 OF 8 CODE AND EBCDIC TABLE 2 | *************************************************** W1G00020 3 | * TITLE - STRTB * W1G00030 4 | * STATUS - CHANGE LEVEL 0 * W1G00040 5 | * FUNCTION/OPERATION - .STRTB. IS A TABLE OF * W1G00050 6 | * 4-OF-8 CODE AND EBCDIC. THE LEFT-HALF IS 4-OF-8* W1G00060 7 | * AND THE RIGHT-HALF IS EBCDIC. * W1G00070 8 | * ENTRY POINTS - NONE * W1G00080 9 | * INPUT - NONE * W1G00090 10 | * OUTPUT - NONE * W1G00100 11 | * EXTERNAL ROUTINES - NONE * W1G00110 12 | * EXITS-NORMAL - NONE * W1G00120 13 | * -ERROR - NONE * W1G00130 14 | * TABLES/WORK AREAS - NONE * W1G00140 15 | * ATTRIBUTES - REUSABLE * W1G00150 16 | * NOTES - NONE * W1G00160 17 | *************************************************** W1G00170 4 OF 8 CODE AND EBCDIC TABLE 19 | LIBR W1G00190 20 | ENT STRTB W1G00200 0000 0000 21 | STRTB DC THE LOADER STORES THE TV W1G00210 0001 0000 22 | DC ADDRESS IN THE THIRD WORD, W1G00220 0002 0000 23 | DC SO THESE ARE NOT USED. W1G00230 0003 F07D 24 | DC /F07D BLANK APOSTROPHE W1G00240 0004 71F7 25 | DC /71F7 A 7 W1G00250 0005 727B 26 | DC /727B B POUND SIGN W1G00260 0006 637F 27 | DC /637F C QUOTE W1G00270 0007 747E 28 | DC /747E D EQUAL W1G00280 0008 65E7 29 | DC /65E7 E X W1G00290 0009 666B 30 | DC /666B F COMMA W1G00300 000A 876F 31 | DC /876F G QUESTION MARK W1G00310 000B 787A 32 | DC /787A H COLON W1G00320 000C 6940 33 | DC /6940 I W1G00330 000D 6A40 34 | DC /6A40 CENT W1G00340 000E 8B4E 35 | DC /8B4E PERIOD PLUS W1G00350 000F 6C40 36 | DC /6C40 LESS THAN W1G00360 0010 566E 37 | DC /566E LEFT PAREN GREATER THAN W1G00370 0011 365E 38 | DC /365E PLUS SEMICOLON W1G00380 0012 8DD7 39 | DC /8DD7 LOGICAL OR P W1G00390 0013 8E5B 40 | DC /8E5B AND DOLLAR SIGN W1G00400 0014 D15F 41 | DC /D15F J LOGICAL NOT W1G00410 0015 D260 42 | DC /D260 K DASH W1G00420 0016 C340 43 | DC /C340 L W1G00430 0017 D440 44 | DC /D440 M W1G00440 0018 C54D 45 | DC /C54D N LEFT PAREN W1G00450 0019 C640 46 | DC /C640 O W1G00460 001A 476D 47 | DC /476D P UNDERSCORE W1G00470 001B D85D 48 | DC /D85D Q RIGHT PAREN W1G00480 001C C9C3 49 | DC /C9C3 R C W1G00490 001D CAC5 50 | DC /CAC5 EXCLAMATION E W1G00500 001E 4BC6 51 | DC /4BC6 DOLLAR SIGN F W1G00510 001F CCC9 52 | DC /CCC9 ASTERISK I W1G00520 0020 5C4A 53 | DC /5C4A RIGHT PAREN CENT W1G00530 0021 3C4C 54 | DC /3C4C SEMICOLON LESS THAN W1G00540 0022 4DC1 55 | DC /4DC1 LOGICAL NOT A W1G00550 0023 4EC2 56 | DC /4EC2 DASH B W1G00560 0024 B1C4 57 | DC /B1C4 / D W1G00570 0025 B2C8 58 | DC /B2C8 S H W1G00580 0026 A3C7 59 | DC /A3C7 T G W1G00590 0027 B44B 60 | DC /B44B U P W1G00600 0028 A54F 61 | DC /A54F V LOGICAL OR W1G00610 0029 A650 62 | DC /A650 W AND W1G00620 002A 27F3 63 | DC /27F3 X 3 W1G00630 002B B8F5 64 | DC /B8F5 Y 5 W1G00640 002C A9F6 65 | DC /A9F6 Z 6 W1G00650 002D AAF9 66 | DC /AAF9 RECORD MARD 9 W1G00660 002E 2BF0 67 | DC /2BF0 COMMA 0 W1G00670 002F AC7C 68 | DC /AC7C PERCENT AT SIGN W1G00680 0030 5AE3 69 | DC /5AE3 UNDERSCORE T W1G00690 0031 3AE5 70 | DC /3AE5 GREATER THAN V W1G00700 0032 2DE6 71 | DC /2DE6 QUESTION MARK W W1G00710 0033 9AE9 72 | DC /9AE9 0 Z W1G00720 0034 E1E0 73 | DC /E1E0 1 RECORD MARK W1G00730 0035 E26C 74 | DC /E26C 2 PERCENT W1G00740 0036 9361 75 | DC /9361 3 / W1G00750 0037 E4E2 76 | DC /E4E2 4 S W1G00760 0038 95E4 77 | DC /95E4 5 U W1G00770 0039 96E8 78 | DC /96E8 6 Y W1G00780 003A 17D3 79 | DC /17D3 7 L W1G00790 003B E8D5 80 | DC /E8D5 8 N W1G00800 003C 99D6 81 | DC /99D6 9 O W1G00810 003D 2ED9 82 | DC /2ED9 COLON R W1G00820 003E 1B5A 83 | DC /1B5A POUND EXCLAMATION W1G00830 003F 9C5C 84 | DC /9C5C AT SIGN ASTERISK W1G00840 0040 0FD1 85 | DC /0FD1 APOSTROPHE J W1G00850 0041 1ED2 86 | DC /1ED2 EQUAL K W1G00860 0042 1DD4 87 | DC /1DD4 QUOTE M W1G00870 0043 00D8 88 | DC /00D8 Q W1G00880 0044 00F1 89 | DC /00F1 1 W1G00890 0045 00F2 90 | DC /00F2 2 W1G00900 0046 00F4 91 | DC /00F4 4 W1G00910 0047 00F8 92 | DC /00F8 8 W1G00920 0048 0040 93 | DC /0040 BLANK W1G00930 0049 94 | END W1G00940 There were no errors in this assembly === CROSS REFERENCES ========================================================== Name Val Defd Referenced STRTB 0000R 21