On Tue, 19 Mar 2019 19:15:37 +0000, Seymour J Metz <[email protected]> wrote:
>What translation of ASCII C-A through C-Z does PDOS/390 assume?
PDOS/390 just passes that through to the
application, but the applications are
expecting this:
static unsigned char atoe[256] = {
"\x00\x01\x02\x03\x37\x2D\x2E\x2F\x16\x05\x15\x0B\x0C\x0D\x0E\x0F"
"\x10\x11\x12\x13\x3C\x3D\x32\x26\x18\x19\x3F\x27\x1C\x1D\x1E\x1F"
Also I needed to add this table to micro-emacs:
static char mapctlbuf[256] = {
0x00, 'A' , 'B' , 'C' , 0x00, 'I' , 0x00, 0x00,
0x00, 0x00, 0x00, 'K' , 'L' , 'M' , 'N' , 'O' ,
'P' , 'Q' , 'R' , 'S' , 0x00, 'J' , 'H' , 0x00,
'X' , 'Y' , 0x00, 0x00, '\\', ']' , '^' , '_' ,
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 'W' , '[' ,
0x00, 0x00, 0x00, 0x00, 0x00, 'E' , 'F' , 'G' ,
0x00, 0x00, 'V' , 0x00, 0x00, 0x00, 0x00, 'D' ,
0x00, 0x00, 0x00, 0x00, 'T' , 'U' , 0x00, 'Z' ,
};
plus another one to reverse it.
BFN. Paul.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
