ibm:vm370-lib:cp:dmktbl.assemble_src
Table of Contents
DMKTBL Source
References
- Fixes Applied : 6
- This Source Date : Thursday, December 7, 1978
- Last Fix ID : [HRC101DK]
Source Listing
- DMKTBL.ASSEMBLE.txt
- 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
ibm/vm370-lib/cp/dmktbl.assemble_src.txt · Last modified: 2023/08/06 13:37 by Site Administrator