Common ZTDTTAB

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.ztdttab +++|*NOSEQ
00002  M00S00002.ztdttab +++|*WIDTH 95
00003  M00S00003.ztdttab +++|
00004  M00S00004.ztdttab +++|{ ZTDTTAB  contains type declarations used by the TDU table handler et. al. }
00005  M00S00005.ztdttab +++|
00006  M00S00006.ztdttab +++|  CONST
00007  M00S00007.ztdttab +++|     communications_type_max = 3,     { actual ordinal values }
00008  M00S00008.ztdttab +++|     invalid_cursor = 0,              { 'ordinal' value }
00009  M00S00009.ztdttab +++|     asynch_comm = 1,                 { 'ordinal' value }

Line S00001 Modification History
`M01` (Added by)	`ns2664`

Seq #  *Modification Id* Act 
----------------------------+
00010  M01S00001.ns2664  +++|     binary_cursor = 1,               { 'ordinal' value }
00011  M00S00010.ztdttab +++|     cursor_encoding_max = 6,         { 'invalid' is always #0 }
00012  M00S00011.ztdttab +++|     parm_flag_max = 56,              { upper bound of parm flag array }
00013  M00S00012.ztdttab +++|     screen_size_max = 3,             { up to 4 screen sizes }

Line S00013 Modification History
`M01` (Removed by)	`ns2583`

Seq #  *Modification Id* Act 
----------------------------+
00014  M01S00013.ns2583  ---|     size_row_max = 127,              { number of rows on a screen }

Line S00001 Modification History
`M01` (Added by)	`ns2583`

Seq #  *Modification Id* Act 
----------------------------+
00015  M01S00001.ns2583  +++|     size_row_max = 64,               { number of rows on a screen }
00016  M00S00014.ztdttab +++|     size_col_max = 255,              { number of columns on a screen }

Line S00002 Modification History
`M01` (Added by)	`ns2664`

Seq #  *Modification Id* Act 
----------------------------+
00017  M01S00002.ns2664  +++|     binary_col_max = 128,            { binary_cursor maximum screen columns }
00018  M00S00015.ztdttab +++|     cursor_behavior_max_ord = 6,     { cursor behavior maximum ordinal }
00019  M00S00016.ztdttab +++|     cursor_behavior_max = 14,        { upper bound for wrap/scroll etc. }
00020  M00S00017.ztdttab +++|     cursor_behavior_div = 6,         { upper bound for wrap/scroll etc. }
00021  M00S00018.ztdttab +++|     no_ordinal = 0,                  { enumerated-style ordinal value }
00022  M00S00019.ztdttab +++|     overstrike_ordinal = 37;         { VIRTERM-compatible }
00023  M00S00020.ztdttab +++|
00024  M00S00021.ztdttab +++|  TYPE
00025  M00S00022.ztdttab +++|     ordinal_type = 0 .. 255,         { input and output VIRTERM ordinals }
00026  M00S00023.ztdttab +++|
00027  M00S00024.ztdttab +++|     communications_type = 0 .. communications_type_max,
00028  M00S00025.ztdttab +++|        { invalid, asynch, synch, sna }
00029  M00S00026.ztdttab +++|
00030  M00S00027.ztdttab +++|     cursor_encoding_type = 0 .. cursor_encoding_max,
00031  M00S00028.ztdttab +++|        { these ordinals indicate what method of cursor positioning is used  }

Line S00029 Modification History
`M01` (Removed by)	`ns2665`

Seq #  *Modification Id* Act 
----------------------------+
00032  M01S00029.ns2665  ---|        { invalid_cursor, binary, cdc721, ansi, ibm3270, reserved, user }

Line S00001 Modification History
`M01` (Added by)	`ns2665`

Seq #  *Modification Id* Act 
----------------------------+
00033  M01S00001.ns2665  +++|        { invalid_cursor, binary, cdc721, ansi, ibm3270, ibm3151, user }
00034  M00S00030.ztdttab +++|
00035  M00S00031.ztdttab +++|     parameter_record = RECORD        { contains non-input/output parameters }
00036  M00S00032.ztdttab +++|        model_name: STRING (7),       { terminal-type code as known by users }
00037  M00S00033.ztdttab +++|        model_name_len: 0 .. 7,       { length of model name string used  }
00038  M00S00034.ztdttab +++|        communications: communications_type,   { asynch, synch, SNA, etc. }
00039  M00S00035.ztdttab +++|        cursor_encoding: cursor_encoding_type, { cursor-positioning info  }

Line S00036 Modification History
`M01` (Removed by)	`ns2717`

Seq #  *Modification Id* Act 
----------------------------+
00040  M01S00036.ns2717  ---|        cursor_bias: -255 .. 255,     { cursor addressing offset          }

Line S00001 Modification History
`M01` (Added by)	`ns2717`

Seq #  *Modification Id* Act 
----------------------------+
00041  M01S00001.ns2717  +++|        cursor_bias: -127 .. 127,     { cursor addressing offset          }
00042  M00S00037.ztdttab +++|        flag: ARRAY [ 0 .. parm_flag_max ] OF BOOLEAN, { various flags    }
00043  M00S00038.ztdttab +++|        size: ARRAY [ 0 .. screen_size_max ] OF RECORD { screen sizes }
00044  M00S00039.ztdttab +++|           cols: 0 .. size_col_max,
00045  M00S00040.ztdttab +++|           rows: 0 .. size_row_max,
00046  M00S00041.ztdttab +++|        RECEND,
00047  M00S00042.ztdttab +++|        cursor_behavior: ARRAY [ 0 .. cursor_behavior_max ]
00048  M00S00043.ztdttab +++|                           OF -1 .. cursor_behavior_max_ord ,
00049  M00S00044.ztdttab +++|        cursor_pos_column_flag: BOOLEAN, { TRUE if column pos goes first }
00050  M00S00045.ztdttab +++|        cursor_pos_length: ARRAY [ 0 .. 1 ] OF 0 .. 7, { # digits per x/y }
00051  M00S00046.ztdttab +++|        function_key_mark: 0 .. 7,    { # chars of blotch left by function key}
00052  M00S00047.ztdttab +++|     RECEND,
00053  M00S00048.ztdttab +++|
00054  M00S00049.ztdttab +++|     string_node = PACKED RECORD      { an ordinal-designated char sequence }
00055  M00S00050.ztdttab +++|        length: 0 .. 32767,           { length of char_sequence }
00056  M00S00051.ztdttab +++|        chars: ^STRING(*),            { the sequence itself }
00057  M00S00052.ztdttab +++|     RECEND,
00058  M00S00053.ztdttab +++|
00059  M00S00054.ztdttab +++|     dump_procedure_type =            { dumps string nodes from tables }
00060  M00S00055.ztdttab +++|        ^PROCEDURE ( ordinal: ordinal_type;
00061  M00S00056.ztdttab +++|                     VAR length: INTEGER;
00062  M00S00057.ztdttab +++|                     VAR chars: ^STRING(*);
00063  M00S00058.ztdttab +++|                     VAR total_ordinals: INTEGER; { last ordinal in table }
00064  M00S00059.ztdttab +++|                     VAR total_characters: INTEGER;
00065  M00S00060.ztdttab +++|                     VAR node_returned: BOOLEAN),
00066  M00S00061.ztdttab +++|
00067  M00S00062.ztdttab +++|     opcode_type = (fail, list, range, single_action_range), { input opcodes }
00068  M00S00063.ztdttab +++|
00069  M00S00064.ztdttab +++|     input_action = PACKED RECORD     { ordinal/pointer pair }
00070  M00S00065.ztdttab +++|        ordinal: ordinal_type,        { 0 = no ordinal, look at next_node }
00071  M00S00066.ztdttab +++|        next_offset: 0 .. 4095,       { output-table-style pointer }
00072  M00S00067.ztdttab +++|        next_level: ALIGNED ^input_node, { points to another node }
00073  M00S00068.ztdttab +++|     RECEND,
00074  M00S00069.ztdttab +++|
00075  M00S00070.ztdttab +++|     list_node = PACKED ARRAY [1 .. *] OF { 1 element for each char in list }
00076  M00S00071.ztdttab +++|        PACKED RECORD                 { each node of an input-parse list }
00077  M00S00072.ztdttab +++|           character: CHAR,           { character to match }
00078  M00S00073.ztdttab +++|           action: input_action,      { ordinal/pointer pair }
00079  M00S00074.ztdttab +++|        RECEND,
00080  M00S00075.ztdttab +++|
00081  M00S00076.ztdttab +++|     range_node = PACKED ARRAY [ * ] OF { 1 action for each char in range }
00082  M00S00077.ztdttab +++|        input_action,                 { ordinal/pointer pair }
00083  M00S00078.ztdttab +++|
00084  M00S00079.ztdttab +++|     input_node = BOUND RECORD        { linked list of input-parsing rules }
00085  M00S00080.ztdttab +++|        next_node: ^input_node,       { 'real' table will use consecutive mem }
00086  M00S00081.ztdttab +++|        offset: 0 .. 4095,            { target table offset of this node }
00087  M00S00082.ztdttab +++|        node_visited: BOOLEAN,        { node has been visited in this pass }
00088  M00S00083.ztdttab +++|        CASE opcode: opcode_type OF   { fail, list, range, single-action range}
00089  M00S00084.ztdttab +++|           = fail =                   { fail }
00090  M00S00085.ztdttab +++|              ,                       { no parameters }
00091  M00S00086.ztdttab +++|           = list =                   { list }
00092  M00S00087.ztdttab +++|              list_character_count: 1 .. 1023,  {  count of chars in list  }
00093  M00S00088.ztdttab +++|              list_pointer: ^ list_node, { list of char/action pairs }
00094  M00S00089.ztdttab +++|           = range =                  { range }
00095  M00S00090.ztdttab +++|              range_lower_bound: CHAR,{ first character of range }
00096  M00S00091.ztdttab +++|              range_upper_bound: CHAR,{ last character in range }
00097  M00S00092.ztdttab +++|              range_pointer: ^ range_node, { list of actions, 1/char in range}
00098  M00S00093.ztdttab +++|           = single_action_range =    { single-action range }
00099  M00S00094.ztdttab +++|              sar_lower_bound: CHAR,  { first char of range }
00100  M00S00095.ztdttab +++|              sar_upper_bound: CHAR,  { last char in range }
00101  M00S00096.ztdttab +++|              sar_action: input_action,{ ordinal/pointer pair }
00102  M00S00097.ztdttab +++|        CASEND,
00103  M00S00098.ztdttab +++|     RECEND,
00104  M00S00099.ztdttab +++|
00105  M00S00100.ztdttab +++|     appstr_node = RECORD             { linked list of application strings }
00106  M00S00101.ztdttab +++|        next_node: ^appstr_node,      { 'real' table will use consecutive mem }
00107  M00S00102.ztdttab +++|        name: STRING(31),             { non-unique key for this applictn stng }
00108  M00S00103.ztdttab +++|        value: string_node,           { length and contents of the string }
00109  M00S00104.ztdttab +++|     RECEND;