TBL TITLE 'DMKTBL (CP) VM/370 - RELEASE 6' 00001000 ISEQ 73,80 VALIDATE SEQUENCING OF SYSIN 00002000 *. 00003000 * MODULE NAME - 00004000 * 00005000 * DMKTBL 00006000 * 00007000 * FUNCTION - 00008000 * 00009000 * TERMINAL TRANSLATE TABLES 00010000 * 00011000 * CONTENTS - 00012000 * 00013000 * DMKTBLUC - LOWER-CASE EBCDIC -> UPPER-CASE EBCDIC 00014000 * DMKTBLCO - EBCDIC -> CORRESPONDENCE TERMINAL CODE 00015000 * DMKTBLCI - CORRESPONDENCE TERMINAL CODE -> EBCDIC 00016000 * DMKTBLPO - EBCDIC -> PTTC/EBCD TERMINAL CODE 00017000 * DMKTBLPI - PTTC/EBCD TERMINAL CODE -> EBCDIC 00018000 * DMKTBLTO - EBCDIC -> UASCII-8 LEVEL TERMINAL CODE 00019000 * DMKTBLTI - UASCII-8 LEVEL TERMINAL CODE -> EBCDIC 00020000 * DMKTBLRG - EBCDIC -> 3270 DISPLAY CODE (REMOTE 3270) 00020100 * DMKTBLGR - EBCDIC -> 3066 DISPLAY CODE (REMOTE 3270) 00021100 * DMKTBLGL - EBCDIC -> 3066 DISPLAY CODE (LOCAL) 00021200 * 00022000 * ATTRIBUTES - 00023000 * 00024000 * NON-EXECUTABLE, RESIDENT 00025000 * 00026000 *. 00027000 EJECT 00028000 DMKTBL CSECT 00029000 SPACE 3 00030000 ENTRY DMKTBLUP,DMKTBLLC HRC010DK 00031490 ENTRY DMKTBLCO,DMKTBLCI 00032000 ENTRY DMKTBLPO,DMKTBLPI 00033000 ENTRY DMKTBLTO,DMKTBLTI 00034000 ENTRY DMKTBLGR @V200730 00035000 ENTRY DMKTBLRG @VA06170 00035100 ENTRY DMKTBLGL @VA08002 00035200 ENTRY DMKTBLSF @VA13421 00035600 EJECT 00036000 * 00037000 * LOWER-CASE EBCDIC -> UPPER-CASE EBCDIC 00038000 * 00039000 DMKTBLUP EQU * 00040000 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 00041000 DC X'000102030405060708090A0B0C0D0E0F' 00 00042000 DC X'101112131415161718191A1B1C1D1E1F' 10 00043000 DC X'202122232425262728292A2B2C2D2E2F' 20 00044000 DC X'303132333435363738393A3B3C3D3E3F' 30 00045000 DC X'404142434445464748494A4B4C4D4E4F' 40 00046000 DC X'505152535455565758595A5B5C5D5E5F' 50 00047000 DC X'606162636465666768696A6B6C6D6E6F' 60 00048000 DC X'707172737475767778797A7B7C7D7E7F' 70 00049000 DC X'80C1C2C3C4C5C6C7C8C98A8B8C8D8E8F' 80 00050000 DC X'90D1D2D3D4D5D6D7D8D99A9B9C9D9E9F' 90 00051000 DC X'A0A1E2E3E4E5E6E7E8E9AAABACADAEAF' A0 00052000 DC X'B0B1B2B3B4B5B6B7B8B9BABBBCBDBEBF' B0 00053000 DC X'C0C1C2C3C4C5C6C7C8C9CACBCCCDCECF' C0 00054000 DC X'D0D1D2D3D4D5D6D7D8D9DADBDCDDDEDF' D0 00055000 DC X'E0E1E2E3E4E5E6E7E8E9EAEBECEDEEEF' E0 00056000 DC X'F0F1F2F3F4F5F6F7F8F9FAFBFCFDFEFF' F0 00057000 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 00058000 EJECT HRC010DK 00058040 * HRC010DK 00058080 * UPPER-CASE EBCDIC -> LOWER-CASE EBCDIC HRC010DK 00058120 * HRC010DK 00058160 DMKTBLLC EQU * HRC010DK 00058200 * 0 1 2 3 4 5 6 7 8 9 A B C D E F HRC010DK 00058240 DC X'000102030405060708090A0B0C0D0E0F' 00 HRC010DK 00058280 DC X'101112131415161718191A1B1C1D1E1F' 10 HRC010DK 00058320 DC X'202122232425262728292A2B2C2D2E2F' 20 HRC010DK 00058360 DC X'303132333435363738393A3B3C3D3E3F' 30 HRC010DK 00058400 DC X'404142434445464748494A4B4C4D4E4F' 40 HRC010DK 00058440 DC X'505152535455565758595A5B5C5D5E5F' 50 HRC010DK 00058480 DC X'606162636465666768696A6B6C6D6E6F' 60 HRC010DK 00058520 DC X'707172737475767778797A7B7C7D7E7F' 70 HRC010DK 00058560 DC X'808182838485868788898A8B8C8D8E8F' 80 HRC010DK 00058600 DC X'909192939495969798999A9B9C9D9E9F' 90 HRC010DK 00058640 DC X'A0A1A2A3A4A5A6A7A8A9AAABACADAEAF' A0 HRC010DK 00058680 DC X'B0B1B2B3B4B5B6B7B8B9BABBBCBDBEBF' B0 HRC010DK 00058720 DC X'C0818283848586878889CACBCCCDCECF' C0 HRC010DK 00058760 DC X'D0919293949596979899DADBDCDDDEDF' D0 HRC010DK 00058800 DC X'E0E1A2A3A4A5A6A7A8A9EAEBECEDEEEF' E0 HRC010DK 00058840 DC X'F0F1F2F3F4F5F6F7F8F9FAFBFCFDFEFF' F0 HRC010DK 00058880 * 0 1 2 3 4 5 6 7 8 9 A B C D E F HRC010DK 00058920 EJECT 00059000 * 00060000 * 3270 EBCDIC APL -> EBCDIC 00061000 * EBCDIC -> 3270 EBCDC APL 00062000 * 00063000 DMKTBLGR EQU * @V305798 00064000 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 00065000 DC X'00404040406A40404040404040404040' 00 @VA04928 00066100 DC X'404040404040404040404040401D4040' 10 HRC101DK 00067390 DC X'2021222340404040404040402C404040' 20 @VA05894 00067900 DC X'30313233344036373839403B40403E3F' 30 @VA05894 00068800 DC X'404142434445464748494A4B4C4D4E4F' 40 @V305798 00070000 DC X'505152535455565758595A5B5C5D5E5F' 50 @V305798 00071000 DC X'606162636465666768696A6B6C6D6E6F' 60 @V305798 00072000 DC X'707172737475767778797A7B7C7D7E7F' 70 @V387398 00073000 DC X'808182838485868788898A8B8C8D8E8F' 80 @V305798 00074000 DC X'909192939495969798999A9B9C9D9E9F' 90 @V387398 00075000 DC X'A0A1A2A3A4A5A6A7A8A9AAABACADAEAF' A0 @V305798 00076000 DC X'B0B1B2B3B4B5B6B7B8B9BABBBCBDBEBF' B0 @V387398 00077000 DC X'C0C1C2C3C4C5C6C7C8C9CACBCCCDCECF' C0 @V305798 00078000 DC X'D0D1D2D3D4D5D6D7D8D9DADBDCDDDEDF' D0 @V305798 00079000 DC X'E040E2E3E4E5E6E7E8E9EAEBECEDEEEF' E0 @V305798 00080000 DC X'F0F1F2F3F4F5F6F7F8F9FAFBFCFDFE40' F0 @VA04884 00081500 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 00082000 EJECT 00083000 SPACE 3 00084000 * 00085000 * 00086000 * EBCDIC -> CORRESPONDENCE TERMINAL CODE 00087000 * 00088000 DMKTBLCO EQU * 00089000 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 00090000 DC X'01010101017A7C7F0101010101010101' 00 00091000 DC X'01010101585B5D5E0101010101010101' 10 00092000 DC X'01010101383B01010101010101010101' 20 00093000 DC X'0101010101011C010101010101010101' 30 00094000 DC X'810101010101010101018D450196E440' 40 00095000 DC X'8B01010101010101010140908E936BC0' 50 00096000 DC X'76700101010101010101016E88F682F0' 60 00097000 DC X'01010101010101010101EB87844964C9' 70 00098000 DC X'014F372F2A296762324C010101010101' 80 00099000 DC X'01612C31432551686D4A010101010101' 90 00100000 DC X'01015220264657237315010101010101' A0 00101000 DC X'01010101010101010101010101010101' B0 00102000 DC X'01CFB7AFAAA9E7E2B2CC010101010101' C0 00103000 DC X'01E1ACB1C3A5D1E8EDCA010101010101' D0 00104000 DC X'0101D2A0A6C6D7A3F395010101010101' E0 00105000 DC X'1302040710080D0B0E16010101010101' F0 00106000 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 00107000 SPACE 3 00108000 * 00109000 * CORRESPONDENCE TERMINAL CODE -> EBCDIC 00110000 * 00111000 DMKTBLCI EQU * 00112000 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 00113000 DC X'4040F140F24040F3F54040F740F6F840' 00 00114000 DC X'F44040F040A9F9404040404036404037' 10 00115000 DC X'A34040A74095A4404085844092404083' 20 00116000 DC X'40938840404040824040404040404040' 30 00117000 DC X'4F404094404BA540407D994089404081' 40 00118000 DC X'4096A240404040A64040401540161740' 50 00119000 DC X'409187407E4040869740405E40986B40' 60 00120000 DC X'614040A8404060404040054006404040' 70 00121000 DC X'40406E407C40407B6C404050404A5C40' 80 00122000 DC X'5B40405D40E94D404040404036404037' 90 00123000 DC X'E34040E740D5E44040C5C440D24040C3' A0 00124000 DC X'40D3C840404040C24040404040404040' B0 00125000 DC X'5F4040D4404BE540407FD940C94040C1' C0 00126000 DC X'40D6E240404040E64040401540161740' D0 00127000 DC X'40D1C7404E4040C6D740407A40D86B40' E0 00128000 DC X'6F4040E840406D404040054006404040' F0 00129000 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 00130000 EJECT 00131000 * 00132000 * EBCDIC -> PTTC/EBCD TERMINAL CODE 00133000 * 00134000 DMKTBLPO EQU * 00135000 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 00136000 DC X'01010101797A7C7F0101010101010101' 00 00137000 DC X'01010101585B5D5E0101010101010101' 10 00138000 DC X'01010101383B3D3E0101010101010101' 20 00139000 DC X'01010101191A1C010101010101010101' 30 00140000 DC X'81010101010101010101A0768493E1B7' 40 00141000 DC X'61010101010101010101D757909587F6' 50 00142000 DC X'4023010101010101010101378BC08EA3' 60 00143000 DC X'010101010101010101018816208D8296' 70 00144000 DC X'01626467686B6D6E7073010101010101' 80 00145000 DC X'01434546494A4C4F5152010101010101' 90 00146000 DC X'01012526292A2C2F3132010101010101' A0 00147000 DC X'01010101010101010101010101010101' B0 00148000 DC X'01E2E4E7E8EBEDEEF0F3010101010101' C0 00149000 DC X'01C3C5C6C9CACCCFD1D2010101010101' D0 00150000 DC X'0101A5A6A9AAACAFB1B2010101010101' E0 00151000 DC X'15020407080B0D0E1013010101010101' F0 00152000 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 00153000 SPACE 3 00154000 * 00155000 * PTTC/EBCD TERMINAL CODE -> EBCDIC 00156000 * 00157000 DMKTBLPI EQU * 00158000 * 01 2 3 4 5 6 7 8 9 A B C D E F 00159000 DC X'4040F140F24040F3F44040F540F6F740' 00 00160000 DC X'F84040F940F07B404034354036404037' 10 00161000 DC X'7C40406140A2A34040A4A540A64040A7' 20 00162000 DC X'40A8A9404040406B2440402540262740' 30 00163000 DC X'60404091409293404094954096404097' 40 00164000 DC X'409899404040405B1440401540161740' 50 00165000 DC X'40508140824040838440408540868740' 60 00166000 DC X'8840408940404B404004054006404007' 70 00167000 DC X'40407E404C40405E7A40406C407D6E40' 80 00168000 DC X'5C40404D405D7F404034354036404037' 90 00169000 DC X'4A40406F40E2E34040E4E540E64040E7' A0 00170000 DC X'40E8E9404040404F2440402540262740' B0 00171000 DC X'6D4040D140D2D34040D4D540D64040D7' C0 00172000 DC X'40D8D9404040405A1440401540161740' D0 00173000 DC X'404EC140C24040C3C44040C540C6C740' E0 00174000 DC X'C84040C940405F404004054006404007' F0 00175000 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 00176000 EJECT 00177000 * 00178000 * EBCDIC -> TTY UASCII-8 LEVEL TERMINAL CODE 00179000 * 00180000 DMKTBLTO EQU * 00181000 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 00182000 DC X'018141C1FF91FFFFFFFFFFD131B171F1' 00 @VA11467 00183100 DC X'098949C9FF5111FF1999FFFF39B979F9' 10 @VA11467 00184100 DC X'FFFFFFFFFF51E9D9FFFFFFFFFFA161E1' 20 @VA11467 00185100 DC X'FFFF69FFFFFFFF21FFFFFFFF29A9FF59' 30 @VA11467 00186100 DC X'05FFFFFFFFFFFFFFFFFFFF753D15D53F' 40 @VA11467 00187100 DC X'65FFFFFFFFFFFFFFFFFF85255595DD7B' 50 @VA11467 00188100 DC X'B5F5FFFFFFFFFFFFFFFF3F35A5FB7DFD' 60 @VA11467 00189100 DC X'FFFFFFFFFFFFFFFFFF075DC503E5BD45' 70 @VA11467 00190100 DC X'FF8747C727A767E71797FFFFFFFFFFFF' 80 @VA11467 00191100 DC X'FF57D737B777F70F8F4FFFFFFFFFFFFF' 90 @VA11467 00192100 DC X'FF7FCF2FAF6FEF1F9F5FFFFFFFDBFFFF' A0 @VA11467 00193100 DC X'FFFFFFFFFFFFFFFFFFFFFFFFFFBBFFFF' B0 @VA11467 00194100 DC X'DE8343C323A363E31393FFFFFFFFFFFF' C0 @VA11467 00195100 DC X'BF53D333B373F30B8B4BFFFFFFFFFFFF' D0 @VA11467 00196100 DC X'3BFFCB2BAB6BEB1B9B5BFFFFFFFFFFFF' E0 @VA11467 00197100 DC X'0D8D4DCD2DAD6DED1D9DFFFFFFFFFFFF' F0 @VA11467 00198100 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 00199000 SPACE 3 00200000 * 00201000 * TTY UASCII-8 LEVEL TERMINAL CODE -> EBCDIC 00202000 * 00203000 DMKTBLTI EQU * 00204000 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 00205000 DC X'00007C7C404079791010D7D7F0F09797' 00 @V64E7A0 00206100 DC X'1616C8C84D4D88881818E7E7F8F8A7A7' 10 00207000 DC X'3737C4C45B5B84843C3CE3E3F4F4A3A3' 20 00208000 DC X'0C0CD3D36B6B93931C1CE0E04C4C4F4F' 30 @V64E7A0 00209100 DC X'0202C2C27F7F82821212D9D9F2F29999' 40 00210000 DC X'2525D1D15C5C91913F3FE9E97A7AA9A9' 50 00211000 DC X'2E2EC6C6505086863232E5E5F6F6A5A5' 60 00212000 DC X'0E0ED5D54B4B95951E1E5F5F6E6EA1A1' 70 @V64E7A0 00213100 DC X'0101C1C15A5A81811111D8D8F1F19898' 80 00214000 DC X'0505C9C95D5D89891919E8E8F9F9A8A8' 90 00215000 DC X'2D2DC5C56C6C85853D3DE4E4F5F5A4A4' A0 00216000 DC X'0D0DD4D4606094941D1DBDBD7E7ED0D0' B0 @V64E7A0 00217100 DC X'0303C3C37B7B83831313E2E2F3F3A2A2' C0 @V64E7A0 00218100 DC X'0B0BD2D24E4E92922727ADAD5E5EC0C0' D0 @V64E7A0 00219100 DC X'2F2FC7C77D7D87872626E6E6F7F7A6A6' E0 00220000 DC X'0F0FD6D6616196961F1F6D6D6F6F0707' F0 @V64E7A0 00221100 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 00222000 EJECT 1 00223000 * 00223100 * EBCDIC -> 3270 EBCDIC (REMOTE, NO TEXT OR APL) 00223200 * 00223300 SPACE 1 00223400 DMKTBLRG EQU * @VA06170 00223500 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 00223600 DC X'00404040406A40400840404040404040' 00 @VA06170 00223700 DC X'404040404015404040404040401D4040' 10 @VA06170 00223800 DC X'40404040404040402840404040404040' 20 @VA06170 00223900 DC X'40404040404040404040404040404040' 30 @VA06170 00224000 DC X'404142434445464748494A4B4C4D4E4F' 40 @VA06170 00224100 DC X'505152535455565758595A5B5C5D5E5F' 50 @VA06170 00224200 DC X'606162636465666768696A6B6C6D6E6F' 60 @VA06170 00224300 DC X'707172737475767778797A7B7C7D7E7F' 70 @VA06170 00224400 DC X'808182838485868788898A8B8C8D8E8F' 80 @VA06170 00224500 DC X'909192939495969798999A9B9C9D9E9F' 90 @VA06170 00224600 DC X'A0A1A2A3A4A5A6A7A8A9AAABACADAEAF' A0 @VA06170 00224700 DC X'B0B1B2B3B4B5B6B7B8B9BABBBCBDBEBF' B0 @VA06170 00224800 DC X'C0C1C2C3C4C5C6C7C8C9CACBCCCDCECF' C0 @VA06170 00224900 DC X'D0D1D2D3D4D5D6D7D8D9DADBDCDDDEDF' D0 @VA06170 00225000 DC X'E040E2E3E4E5E6E7E8E9EAEBECEDEEEF' E0 @VA06170 00225100 DC X'F0F1F2F3F4F5F6F7F8F9FAFBFCFDFE40' F0 @VA06170 00225200 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 00225300 SPACE 2 00225400 * 00225600 * EBCDIC -> 3066 DISPLAY CODE (LOCAL) 00225700 * 00225800 DMKTBLGL EQU * @VA08002 00225900 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 00226000 DC X'00404040406A40404040404040404040' 00 @VA08002 00226100 DC X'404040404040404040404040401D4040' 10 HRC101DK 00226240 DC X'2021222340404040404040402C2D4040' 20 @VA08002 00226300 DC X'30313233343536373839403B403D3E3F' 30 @VA08002 00226400 DC X'404142434445464748494A4B4C4D4E4F' 40 @VA08002 00226500 DC X'505152535455565758595A5B5C5D5E5F' 50 @VA08002 00226600 DC X'606162636465666768696A6B6C6D6E6F' 60 @VA08002 00226700 DC X'707172737475767778797A7B7C7D7E7F' 70 @VA08002 00226800 DC X'808182838485868788898A8B8C8D8E8F' 80 @VA08002 00226900 DC X'909192939495969798999A9B9C9D9E9F' 90 @VA08002 00227000 DC X'A0A1A2A3A4A5A6A7A8A9AAABACADAEAF' A0 @VA08002 00227100 DC X'B0B1B2B3B4B5B6B7B8B9BABBBCBDBEBF' B0 @VA08002 00227200 DC X'C0C1C2C3C4C5C6C7C8C9CACBCCCDCECF' C0 @VA08002 00227300 DC X'D0D1D2D3D4D5D6D7D8D9DADBDCDDDEDF' D0 @VA08002 00227400 DC X'E040E2E3E4E5E6E7E8E9EAEBECEDEEEF' E0 @VA08002 00227500 DC X'F0F1F2F3F4F5F6F7F8F9FAFBFCFDFE40' F0 @VA08002 00227600 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 00227700 EJECT @VA13421 00227800 * @VA13421 00228800 * REMOVE 3270 START FIELD ORDERS AND ATTRIBUTES @VA13421 00229800 * @VA13421 00230800 DMKTBLSF EQU * @VA13421 00231800 DC 256AL1(0) @VA13421 00232800 ORG DMKTBLSF+X'1D' @VA13421 00233800 DC X'1D' @VA13421 00234800 ORG DMKTBLSF+256 @VA13421 00235800 END DMKTBL @VA13421 00236800