1 /* BEGIN... remote_ttt_info.incl.pl1 ... 5/78 */ 2 3 dcl rttp ptr; /* ptr to data structure */ 4 5 6 dcl 1 remote_ttt_info based (rttp) aligned, /* data */ 7 2 ttt_bits, /* control bits */ 8 (3 escape_output bit (1), /* if on enables output escape processing */ 9 3 translate_output bit (1), /* if on enables output translation */ 10 3 translate_input bit (1), /* if on enables input translation */ 11 3 escape_input bit (1), /* if on enables input escape processing */ 12 3 erase_input bit (1), /* if on enables input erase processing */ 13 3 canonicalize_input bit (1), /* if on enables input canonicalization */ 14 3 edited bit (1)) unal, /* if on enables edited escape processing */ 15 2 terminal_type char (32), /* terminal type in TTT */ 16 2 kill_char char (1), /* specified kil character */ 17 2 erase_char char (1), /* and erase character */ 18 2 ttt_ptrs, /* ptr to various ttt tables */ 19 3 input_mvtp ptr, /* input translation table */ 20 3 output_mvtp ptr, /* output translation table */ 21 3 input_tctp ptr, /* input escape table */ 22 3 output_tctp ptr, /* output escape table */ 23 3 specp ptr; /* special table */ 24 25 /* END remote_ttt_info.incl.pl1 */