TBM TITLE 'DMKTBM (CP) VM/370 - RELEASE 6' 00001000 ISEQ 73,80 VALIDATE SEQUENCING OF SYSIN @VM03172 00002000 *. 00003000 * MODULE NAME - 00004000 * 00005000 * DMKTBM 00006000 * 00007000 * FUNCTION - 00008000 * 00009000 * TERMINAL TRANSLATE TABLES FOR APL 00010000 * 00011000 * CONTENTS - 00012000 * 00013000 * DMKTBMZO - APL 3270 COMPOUND WRITE TRANSLATION 00014000 * DMKTBMZI - APL 3270 COMPOUND READ TRANSLATION 00015000 * DMKTBMMO - EBCDIC -> APL CORRESPONDENCE TERMINAL CODE 00016000 * DMKTBMMI - APL CORRESPONDENCE TERMINAL CODE -> EBCDIC 00017000 * DMKTBMNO - EBCDIC -> APL PTTC/EBCD TERMINAL CODE 00018000 * DMKTBMNI - APL PTTC/EBCD TERMINAL CODE -> EBCDIC 00019000 * DMKTBMTO - TEXT 3270 COMPOUND WRITE TRANSLATION 00019300 * DMKTBMTI - TEXT 3270 COMPOUND READ TRANSLATION 00019600 * 00020000 * ATTRIBUTES - 00021000 * 00022000 * NON-EXECUTABLE, PAGEABLE,CALLED VIA SVC 00023000 * 00024000 *. 00025000 EJECT 00026000 DMKTBM CSECT @VM03172 00027000 SPACE 3 00028000 ENTRY DMKTBMZO @VM03172 00029000 ENTRY DMKTBMZI @VM03172 00030000 ENTRY DMKTBMMO,DMKTBMMI @VM03172 00031000 ENTRY DMKTBMNO,DMKTBMNI @VM03172 00032000 ENTRY DMKTBMTO,DMKTBMTI @V387398 00032500 EJECT 00033000 * 00033300 * EBCDIC COMPOUND CHARACTERS -> 3270 APL 00033600 * 00034000 DMKTBMZO EQU * @VM03172 00035000 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 00036000 DC X'00000000000000000000000000000000' 00 @VM03172 00037000 DC X'0000000000000000000000BCAC00ABBB' 10 @V387398 00038000 DC X'8D9D8E8C00000000000000008FBF0000' 20 @V387398 00039000 DC X'B0B1B2B3B415B6B7B81900BD00ADBEAE' 30 @V387398 00040000 DC X'00818283848586878889000000000000' 40 @VM03172 00041000 DC X'00919293949596979899000000000000' 50 @VM03172 00042000 DC X'0000A2A3A4A5A6A7A8A9000000000000' 60 @VM03172 00043000 DC X'006AC38A9AAABAA16B00000000000000' 70 @V387398 00044000 DC X'7B00000000000000000000C200000000' 80 @VA04773 00045500 DC X'0000000000000000000000009B001E00' 90 @V387398 00046300 DC X'00000000000000000000000000000000' A0 @VA04773 00047100 DC X'00000000009F000000AF000000000000' B0 @V387398 00048000 DC X'900000000000000000004A4B004E004F' C0 @V387398 00048900 DC X'A0000000000000000000D2D3D6D75A5B' D0 @V387398 00049800 DC X'000000000000000000005E5F00E2E3E6' E0 @VM03172 00051000 DC X'0000000000000000000000C6F3C7E700' F0 @VM03172 00052000 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 00053000 EJECT 00054000 * 00055000 * 3270 APL ->EBCDIC COMPOUND CHARACTER TABLE 00056000 * 00057000 DMKTBMZI EQU * @VM03172 00058000 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 00059000 DC X'40404040404040404040404040404040' 00 @VM03172 00060000 DC X'40404040403540404039404040409E40' 10 @V387398 00061000 DC X'40404040404040404040404040404040' 20 @VM03172 00062000 DC X'40404040404040404040404040404040' 30 @VM03172 00063000 DC X'40404040404040404040CACB4040CDCF' 40 @VM03172 00064000 DC X'40404040404040404040DEDF4040EAEB' 50 @VM03172 00065000 DC X'40404040404040404040717840404040' 60 @VM03172 00066000 DC X'40404040404040404040408040404040' 70 @VA04773 00067500 DC X'4041424344454647484973402320222C' 80 @V387398 00068400 DC X'C0515253545556575859749C402140B5' 90 @V387398 00069300 DC X'D0776263646566676869751E1C3D3FB9' A0 @V387398 00070200 DC X'30313233344036373840761F1B3B3E2D' B0 @V387398 00071100 DC X'40408B724040FBFD4040404040404040' C0 @VM03172 00072000 DC X'4040DADB4040DCDD4040404040404040' D0 @VM03172 00073000 DC X'4040EDEE4040EFFE4040404040404040' E0 @VM03172 00074000 DC X'404040FC404040404040404040404040' F0 @VM03172 00075000 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 00076000 EJECT 00077000 * 00078000 * EBCDIC -> APL CORRESPONDENCE TERMINAL CODE 00079000 * 00080000 DMKTBMMO EQU * @VM03172 00081000 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 00082000 DC X'01010101017A7C7F0101010101010101' 00 @VM03172 00083000 DC X'5E010101585B5D5E0101010101010101' 10 @VM03172 00084000 DC X'01010101383B3D3E0101010101010101' 20 @VM03172 00085000 DC X'0101010101011C010101010101010101' 30 @VM03172 00086000 DC X'018284908D8E9693E464014587EB76C3' 40 @VM03172 00087000 DC X'01D7A9CAA0F3A6CCD1400101E8C9EE01' 50 @VM03172 00088000 DC X'F670C0CFD2AAE2B2E1B16B6E01E78BED' 60 @VM03172 00089000 DC X'4995A3AFC6B7A5F00101C50101AC8801' 70 @VM03172 00090000 DC X'01010101010101010101010101010101' 80 @VM03172 00091000 DC X'01010101010101010101010101010101' 90 @VM03172 00092000 DC X'01010101010101010101010101010101' A0 @VM03172 00093000 DC X'01010101010101010101010101010101' B0 @VM03172 00094000 DC X'014F372F2A296762324C010101010101' C0 @VM03172 00095000 DC X'01612C31432551686D4A010101010101' D0 @VM03172 00096000 DC X'01015220264657237315010101010101' E0 @VM03172 00097000 DC X'1302040710080D0B0E16010101010101' F0 @VM03172 00098000 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 00099000 EJECT 00100000 * 00101000 * APL CORRESPONDENCE TERMINAL CODE -> EBCDIC 00102000 * 00103000 DMKTBMMI EQU * @VM03172 00104000 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 00105000 DC X'4040F140F24040F3F54040F740F6F840' 00 @VM03172 00106000 DC X'F44040F040E9F9404040404036404037' 10 @VM03172 00107000 DC X'E34040E740D5E44040C5C440D24040C3' 20 @VM03172 00108000 DC X'40D3C840404040C24040404040404040' 30 @VM03172 00109000 DC X'594040D4404BE5404070D940C94040C1' 40 @VM03172 00110000 DC X'40D6E240404040E64040401540164040' 50 @VM03172 00111000 DC X'40D1C740494040C6D740406A40D86B40' 60 @VM03172 00112000 DC X'614040E840404E404040054006404040' 70 @VM03172 00113000 DC X'404041404240404C7E40406E40444540' 80 @VM03172 00114000 DC X'43404047407146404040404036404037' 90 @VM03172 00115000 DC X'5440407240765640405265407D404073' A0 @VM03172 00116000 DC X'40696740404040754040404040404040' B0 @VM03172 00117000 DC X'6240404F407A7440405D534057404063' C0 @VM03172 00118000 DC X'40586440404040514040401540164040' D0 @VM03172 00119000 DC X'406866404840406D5C40404D406F5E40' E0 @VM03172 00120000 DC X'77404055404060404040054006404040' F0 @VM03172 00121000 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 00122000 EJECT 00123000 * 00124000 * EBCDIC -> APL PTTC/EBCD TERMINAL CODE 00125000 * 00126000 DMKTBMNO EQU * @VM03172 00127000 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 00128000 DC X'01010101017A7C7F0101010101010101' 00 @VM03172 00129000 DC X'5E010101585B5D5E0101010101010101' 10 @VM03172 00130000 DC X'01010101383B3D3E0101010101010101' 20 @VM03172 00131000 DC X'0101010101011C010101010101010101' 30 @VM03172 00132000 DC X'018284888D909395E161017687D740C9' 40 @VM03172 00133000 DC X'01ACEBD2A6B1A9F3CC200101CF96B701' 50 @VM03172 00134000 DC X'C023A0E2A5E8EEF0C3C6573701ED8ED1' 60 @VM03172 00135000 DC X'16B2AFE7AAE4CAA30101F60101C58B01' 70 @VM03172 00136000 DC X'01010101010101010101010101010101' 80 @VM03172 00137000 DC X'01010101010101010101010101010101' 90 @VM03172 00138000 DC X'01010101010101010101010101010101' A0 @VM03172 00139000 DC X'01010101010101010101010101010101' B0 @VM03172 00140000 DC X'01626467686B6D6E7073010101010101' C0 @VM03172 00141000 DC X'01434546494A4C4F5152010101010101' D0 @VM03172 00142000 DC X'01012526292A2C2F3132010101010101' E0 @VM03172 00143000 DC X'15020407080B0D0E1013010101010101' F0 @VM03172 00144000 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 00145000 EJECT 00146000 * 00147000 * APL PTTC/EBCD TERMINAL CODE -> EBCDIC 00148000 * 00149000 DMKTBMNI EQU * @VM03172 00150000 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 00151000 DC X'4040F140F24040F3F44040F540F6F740' 00 @VM03172 00152000 DC X'F84040F940F070404040404036404037' 10 @VM03172 00153000 DC X'5940406140E2E34040E4E540E64040E7' 20 @VM03172 00154000 DC X'40E8E9404040406B4040402540264040' 30 @VM03172 00155000 DC X'4E4040D140D2D34040D4D540D64040D7' 40 @VM03172 00156000 DC X'40D8D9404040406A4040401540161740' 50 @VM03172 00157000 DC X'4049C140C24040C3C44040C540C6C740' 60 @VM03172 00158000 DC X'C84040C940404B404040054006404007' 70 @VM03172 00159000 DC X'404041404240404C4340407E40446E40' 80 @VM03172 00160000 DC X'4540404640475D404040404036404037' 90 @VM03172 00161000 DC X'62404077406454404056744051404072' A0 @VM03172 00162000 DC X'405571404040405E4040402540264040' B0 @VM03172 00163000 DC X'60404068407D6940404F76405840405C' C0 @VM03172 00164000 DC X'406F53404040404D4040401540161740' D0 @VM03172 00165000 DC X'404863407540407365404052406D6640' E0 @VM03172 00166000 DC X'6740405740407A404040054006404007' F0 @VM03172 00167000 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 00168000 EJECT 00168020 * 00168040 * EBCDIC COMPOUND CHARACTERS TRT TABLE 00168060 * 00168080 DMKTBMTO EQU * @V387398 00168100 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 00168120 DC X'00000000000000000000000000000000' 00 @V387398 00168140 DC X'00000000000000000000000000000000' 10 @V387398 00168160 DC X'00000000000000000000000000BF0000' 20 @VA08735 00168185 DC X'00000000000000000000000000000000' 30 @V387398 00168200 DC X'00000000000000000000000000000000' 40 @V387398 00168220 DC X'00515253000000000059000000000000' 50 @V387398 00168240 DC X'00000000000000000000000000000000' 60 @V387398 00168260 DC X'70000000000000000000000000000000' 70 @V387398 00168280 DC X'00000000000000000000008B008D8E8F' 80 @V387398 00168300 DC X'00000000000000000000009B9C9D9E9F' 90 @V387398 00168320 DC X'A0A1000000000000000000ABAC0000AF' A0 @V387398 00168340 DC X'B0B1B2B3B4B5B6B7B8B900BBBC0000BF' B0 @V387398 00168360 DC X'000000000000000000000000CCCDCECF' C0 @V387398 00168380 DC X'00000000000000000000DADBDCDD0000' D0 @V387398 00168400 DC X'00000000000000000000EAEBECEDEEEF' E0 @V387398 00168420 DC X'000000000000000000000000FCFD0000' F0 @V387398 00168440 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 00168460 * 00168480 * EBCDIC TEXT -> 3270 TEXT 00168500 * 00168520 ORG DMKTBMTO+256 THESE TABLES MUST BE CONTIGUOUS @V387398 00168540 * 00168560 * 00168580 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 00168600 DC X'40404040404040404040404040404040' 00 @V387398 00168620 DC X'404040404040404040404040401D4040' 10 @V387398 00168640 DC X'40404040404040404040404040404040' 20 @V387398 00168660 DC X'40404040404040404040404040404040' 30 @V387398 00168680 DC X'404040404040404040404A4B4C4D4E4F' 40 @V387398 00168700 DC X'508A9AAA4040404040C25A5B5C5D5E5F' 50 @V387398 00168720 DC X'60614040404040404040406B6C6D6E6F' 60 @V387398 00168740 DC X'BA4040404040404040407A7B7C7D7E7F' 70 @V387398 00168760 DC X'408182838485868788898A908C8D8E8F' 80 @V387398 00168780 DC X'9091929394959697989940A09B9D1E9F' 90 @V387398 00168800 DC X'8CA1A2A3A4A5A6A7A8A940ABACADAEAF' A0 @V387398 00168820 DC X'B0B1B2B3B415B6B7B819BABBBCBDBEBF' B0 @V387398 00168840 DC X'40C1C2C3C4C5C6C7C8C9BB8D6A6B5E5F' C0 @V387398 00168860 DC X'40D1D2D3D4D5D6D7D8D9E3F3C6C79F8F' D0 @V387398 00168880 DC X'B740E2E3E4E5E6E7E8E9BDBED6D7ADAE' E0 @V387398 00168900 DC X'F0F1F2F3F4F5F6F7F8F9BF8EE6E74040' F0 @V387398 00168920 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 00168940 EJECT 00168960 * 00168980 * 3270 TEXT ->EBCDIC COMPOUND CHARACTER TABLE 00169000 * 00169020 DMKTBMTI EQU * @V387398 00169040 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 00169060 DC X'40404040404040404040404040404040' 00 @V387398 00169080 DC X'4040404040B5404040B9404040409E40' 10 @V387398 00169100 DC X'40404040404040404040404040404040' 20 @V387398 00169120 DC X'40404040404040404040404040404040' 30 @V387398 00169140 DC X'40404040404040404040404040404040' 40 @V387398 00169160 DC X'4040404040404040404040404040CECF' 50 @V387398 00169180 DC X'40404040404040404040CCCD40404040' 60 @V387398 00169200 DC X'40404040404040404040404040404040' 70 @V387398 00169220 DC X'404040404040404040405140A08D8E8F' 80 @V387398 00169240 DC X'8B404040404040404040529C409D409F' 90 @V387398 00169260 DC X'9BA1404040404040404053ABACEEEFAF' A0 @V387398 00169280 DC X'B0B1B2B3B440B6B7B84070BBBCEAEB2D' B0 @VA08735 00169305 DC X'404059404040DCDD4040404040404040' C0 @V387398 00169320 DC X'404040404040ECED4040404040404040' D0 @V387398 00169340 DC X'404040DA4040FCFD4040404040404040' E0 @V387398 00169360 DC X'404040DB404040404040404040404040' F0 @V387398 00169380 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 00169400 * 00169420 * 3270 TEXT -> EBCDIC TEXT SINGLE BYTE CODES 00169440 * 00169460 ORG DMKTBMTI+256 THESE TABLES MUST BE CONTIGUOUS @V387398 00169480 * 00169500 * 00169520 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 00169540 DC X'40404040404040404040404040404040' 00 @V387398 00169560 DC X'40404040404040404040404040404040' 10 @V387398 00169580 DC X'40404040404040404040404040404040' 20 @V387398 00169600 DC X'40404040404040404040404040404040' 30 @V387398 00169620 DC X'404040404040404040404A4B4C4D4E4F' 40 @V387398 00169640 DC X'504040404040404040405A5B5C5D5E5F' 50 @V387398 00169660 DC X'606140404040404040406A6B6C6D6E6F' 60 @V387398 00169680 DC X'404040404040404040407A7B7C7D7E7F' 70 @V387398 00169700 DC X'408182838485868788898A408CCBFBDF' 80 @V387398 00169720 DC X'909192939495969798994040404040DE' 90 @V387398 00169740 DC X'4040A2A3A4A5A6A7A8A9404040ADAE40' A0 @V387398 00169760 DC X'40404040404040E04040BACA40BDBEFA' B0 @V387398 00169780 DC X'40C1C2C3C4C5C6C7C8C9404040404040' C0 @V387398 00169800 DC X'40D1D2D3D4D5D6D7D8D9404040404040' D0 @V387398 00169820 DC X'4040E2E3E4E5E6E7E8E9404040404040' E0 @V387398 00169840 DC X'F0F1F2F3F4F5F6F7F8F9404040404040' F0 @V387398 00169860 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 00169880 SPACE 00169900 END 00170000