	COMPILATION LISTING OF SEGMENT display_ttt
	Compiled by: Multics PL/I Compiler, Release 31a, of October 12, 1988
	Compiled at: Honeywell Bull, Phoenix AZ, SysM
	Compiled on: 10/20/88  1426.7 mst Thu
	    Options: optimize map

        1 /****^  ***********************************************************
        2*        *                                                         *
        3*        * Copyright, (C) Honeywell Bull Inc., 1987                *
        4*        *                                                         *
        5*        * Copyright, (C) Honeywell Information Systems Inc., 1982 *
        6*        *                                                         *
        7*        * Copyright (c) 1972 by Massachusetts Institute of        *
        8*        * Technology and Honeywell Information Systems, Inc.      *
        9*        *                                                         *
       10*        *********************************************************** */
       11 
       12 /* format: style4 */
       13 
       14 /* this command displays the contents of the TTT on user_output (or writes it
       15*   into a file) in the form of a TTF that will retranslate back into the same
       16*   TTT.
       17*
       18*   Usage:  display_ttt {-pn path} {-nhe | -no_header} {-type type_name}
       19*   {-output_file | -of path}
       20**/
       21 
       22 /****^  HISTORY COMMENTS:
       23*  1) change(77-05-27,RCoren), approve(), audit(), install():
       24*     Written Modified 4/25/78 by Robert S. Coren to add framing_chars Modified
       25*     05/03/78 by Robert Coren & Dave Vinograd to increase length of
       26*        conversion/translation tables to 256 characters Modified 05/29/81 by
       27*     Suzanne Krupp to add function key information
       28*        and also to make display_ttt reject noncurrent version of ttt.
       29*     Modified: 9 June 1981 by G. Palter to convert from X/Y to LINE/COLUMN
       30*  2) change(86-07-10,Parisek), approve(86-08-27,MCR7522),
       31*     audit(86-09-02,GDixon), install(86-09-03,MR12.0-1145):
       32*     Enabled the addition of a ".ttf" suffix to a user created ttf via the
       33*     "-of" ctl argument.  Also corrected the use of the "-pn" ctl argument to
       34*     assume a ".ttt" suffix on the input ttf pathname if user doesn't supply
       35*     it.
       36*  3) change(87-03-10,LJAdams), approve(87-04-03,MCR7646),
       37*     audit(87-05-05,Gilcrease), install(87-05-14,MR12.1-1030):
       38*     Add code to display the protocol field if present.
       39*  4) change(87-06-15,LJAdams), approve(87-06-15,MCR7646),
       40*     audit(87-07-23,Gilcrease), install(87-08-04,MR12.1-1055):
       41*     Changed name of include file from terminal_type_protocols.incl.pl1 which
       42*     was to long to term_type_protocols.incl.pl1.
       43*  5) change(87-06-25,LJAdams), approve(87-06-25,MCR7646),
       44*     audit(87-07-23,Gilcrease), install(87-08-04,MR12.1-1055):
       45*     Add display of DSA extended table.
       46*  6) change(88-01-15,Brunelle), approve(88-01-15,MCR7804),
       47*     audit(88-02-09,Lippard), install(88-02-16,MR12.2-1023):
       48*     Allow expansion of LIKE terminal types.  Accept starname in NAME field of
       49*     -terminal_type (-ttp) or -table (-tb) options. Allow
       50*     printer_terminal_types to accept starname for terminal type and make
       51*     terminal_type  default argument with -pathname (-pn) used to define which
       52*     TTT to use.
       53*  7) change(88-01-22,Brunelle), approve(88-01-22,MCR7813),
       54*     audit(88-10-13,Blair), install(88-10-17,MR12.2-1171):
       55*     Allow processing of version 4 TTT which has 15 char special_chars
       56*     sequences.  Also changed the format of the unexpanded initial_string to
       57*     have fixed bin (18) unsigned delimiters instead of fixed bin (9) unsigned.
       58*  8) change(88-10-20,Brunelle), approve(88-10-20,PBF7813),
       59*     audit(88-10-20,Farley), install(88-10-20,MR12.2-1175):
       60*     Correct "ptr referenced but never set" error.
       61*                                                   END HISTORY COMMENTS */
       62 
       63 
       64 display_ttt: proc;
       65 
       66 /* ENTRIES */
       67 
       68 dcl  absolute_pathname_$add_suffix entry (char (*), char (*), char (*), fixed bin (35));
       69 dcl  check_star_name_ entry (char (*), bit (36), fixed bin (2), fixed bin (35));
       70 dcl  clock_ entry returns (fixed bin (71));
       71 dcl  com_err_ entry () options (variable);
       72 dcl  cu_$arg_count entry (fixed bin);
       73 dcl  cu_$arg_ptr entry (fixed bin, ptr, fixed bin, fixed bin (35));
       74 dcl  date_time_ entry (fixed bin (71), char (*));
       75 dcl  expand_pathname_$add_suffix entry (char (*), char (*), char (*), char (*), fixed bin (35));
       76 dcl  hcs_$initiate entry (char (*), char (*), char (*), fixed bin (1), fixed bin (2), ptr, fixed bin (35));
       77 dcl  hcs_$terminate_noname entry (ptr, fixed bin (35));
       78 dcl  ioa_ entry () options (variable);
       79 dcl  ioa_$ioa_switch entry () options (variable);
       80 dcl  ioa_$ioa_switch_nnl entry options (variable);
       81 dcl  ioa_$rsnnl entry () options (variable);
       82 dcl  iox_$attach_name entry (char (*), ptr, char (*), ptr, fixed bin (35));
       83 dcl  iox_$close entry (ptr, fixed bin (35));
       84 dcl  iox_$detach_iocb entry (ptr, fixed bin (35));
       85 dcl  iox_$open entry (ptr, fixed bin, bit (*), fixed bin (35));
       86 dcl  match_star_name_ entry (char (*), char (*), fixed bin (35));
       87 dcl  requote_string_ entry (char (*)) returns (char (*));
       88 dcl  ttt_info_$ttt_path entry (char (*), char (*));
       89 
       90 /* EXT STATIC */
       91 
       92 dcl  iox_$user_output ext static ptr;
       93 dcl  (error_table_$noarg,
       94      error_table_$badopt,
       95      error_table_$nomatch,
       96      error_table_$unimplemented_version,
       97      error_table_$wrong_no_of_args) ext static fixed bin (35);
       98 
       99 
      100 /* INT STATIC */
      101 
      102 dcl  SHOW_ALL fixed bin init (2) int static options (constant);
      103 dcl  SHOW_MATCH fixed bin init (1) int static options (constant);
      104 dcl  SHOW_NONE fixed bin init (0) int static options (constant);
      105 dcl  prog_name char (11) int static options (constant) init ("display_ttt");
      106 dcl  com_name char (20) int static options (constant) init ("print_terminal_types");
      107 dcl  SYS_DIR char (17) int static options (constant) init (">system_control_1");
      108 dcl  all_caps char (26) int static options (constant) init
      109 	("ABCDEFGHIJKLMNOPQRSTUVWXYZ");
      110 dcl  all_lowercase char (26) int static options (constant) init
      111 	("abcdefghijklmnopqrstuvwxyz");
      112 dcl  NUL char (1) int static options (constant) init (" "); /* \000 */
      113 dcl  table_name (6) char (18) int static options (constant) init (
      114 	"input_translation",
      115 	"output_translation",
      116 	"input_conversion",
      117 	"output_conversion",
      118 	"special",
      119 	"function_keys");
      120 
      121 dcl  spec_field (11) char (15) int static options (constant) init (
      122 	"new_line",
      123 	"carriage_return",
      124 	"backspace",
      125 	"tab",
      126 	"vertical_tab",
      127 	"form_feed",
      128 	"printer_on",
      129 	"printer_off",
      130 	"red_shift",
      131 	"black_shift",
      132 	"end_of_page");
      133 
      134 dcl  delay_name (6) char (9) int static options (constant) init (
      135 	"vert_nl",
      136 	"horz_nl",
      137 	"const_tab",
      138 	"var_tab",
      139 	"backspace",
      140 	"vt_ff");
      141 
      142 dcl  video_seq_names (14) char (20) int static options (constant) init (
      143 	"abs_pos",
      144 	"clear_screen",
      145 	"clear_to_eos",
      146 	"home",
      147 	"clear_to_eol",
      148 	"cursor_up",
      149 	"cursor_right",
      150 	"cursor_down",
      151 	"cursor_left",
      152 	"insert_chars",
      153 	"end_insert_chars",
      154 	"delete_chars",
      155 	"insert_lines",
      156 	"delete_lines");
      157 
      158 dcl  fkey_seq_names (5) char (5) int static options (constant) init (
      159 	"home",
      160 	"left",
      161 	"right",
      162 	"up",
      163 	"down");
      164 
      165 /* AUTOMATIC */
      166 
      167 dcl  nargs fixed bin;
      168 dcl  iarg fixed bin;
      169 dcl  argp ptr;
      170 dcl  argl fixed bin;
      171 dcl  arg char (argl) based (argp);
      172 
      173 dcl  ttt_dir char (168);
      174 dcl  ttt_ent char (32);
      175 dcl  only_type char (32);
      176 dcl  only_table char (32);
      177 dcl  (type_starname_type, table_starname_type) fixed bin (2);
      178 dcl  (show_types, show_tables) fixed bin;		/* 0 = none, 1 = specified one, 2 = all */
      179 dcl  dft_header bit (1);
      180 dcl  header_spec bit (1);				/* on if -he or -nhe specified */
      181 dcl  header bit (1);
      182 dcl  general_tables bit (1);
      183 dcl  output_file char (168);
      184 dcl  found bit (1);
      185 dcl  found_one bit (1);
      186 dcl  (attached, opened) bit (1);
      187 dcl  iocbp ptr;
      188 dcl  debug_sw bit (1);
      189 dcl  using_default_ttt_path bit (1);
      190 dcl  expand_like bit (1);
      191 dcl  display_all_tables bit (1);
      192 dcl  keep_looping bit (1);
      193 
      194 dcl  code fixed bin (35);
      195 dcl  date_str char (24);
      196 dcl  ttx fixed bin;
      197 dcl  (i, j) fixed bin;
      198 dcl  temp_ttep ptr;
      199 dcl  delayx fixed bin;
      200 dcl  special_tablep ptr;
      201 dcl  specialp ptr;
      202 dcl  copy_offset_ptr ptr;
      203 dcl  offset_array_ptr ptr;
      204 dcl  p ptr;
      205 dcl  n fixed bin;
      206 dcl  charx fixed bin;
      207 dcl  ans_spec char (1);
      208 dcl  file_err bit (1);
      209 dcl  key char (12);
      210 dcl  table_len fixed bin;
      211 dcl  c_chars_length fixed bin;
      212 
      213 dcl  1 copy_of_tte like tte;
      214 
      215 dcl  print_extended_table (3) entry (fixed bin (18)) variable init (
      216 	print_video_table, print_function_key_table, print_dsa_table);
      217 dcl  fkey_seqs_ptr (5) ptr;
      218 dcl  sourcep ptr;
      219 
      220 /* BASED */
      221 
      222 dcl  based_bit9 bit (9) based unal;
      223 dcl  based_bit18 bit (18) based unal;
      224 dcl  based_fb8 fixed bin (8) based unal;
      225 dcl  based_fb17 fixed bin (17) based unal;
      226 dcl  based_seq (n) fixed bin (8) unal based;
      227 dcl  table_array (8) bit (9) unal based;
      228 dcl  table_offset (6) fixed bin (18) based (offset_array_ptr); /* overlay for table offsets in tte */
      229 
      230 dcl  1 float_delays aligned based (delay_tablep),
      231        2 x fixed bin,				/* holds n_bauds */
      232        2 array (n refer (float_delays.x)),
      233          3 stuff (3) fixed bin,			/* header */
      234          3 delays (6) float bin;			/* delay values as floating-point numbers */
      235 
      236 dcl  1 seq (11) based aligned,
      237        2 count fixed bin (8) unal,
      238        2 entries (c_chars_length) fixed bin (8) unal; /* like c_chars, but for numeric printing */
      239 
      240 dcl  cleanup condition;
      241 
      242 dcl  (addr, addrel, byte, divide, hbound, index, lbound, length, low, null, ptr, rank, rel, rtrim, string,
      243      substr, translate, unspec, char, currentsize, ltrim, min, mod) builtin;
      244 
      245 	only_table,
      246 	     only_type = "";
      247 	type_starname_type,
      248 	     table_starname_type = 0;
      249 	dft_header = "1"b;
      250 	general_tables = "1"b;
      251 	header_spec = "0"b;
      252 	output_file = "";
      253 	debug_sw = "0"b;
      254 	expand_like = "0"b;
      255 	display_all_tables = "0"b;
      256 
      257 	call ttt_info_$ttt_path (ttt_dir, ttt_ent);	/* default if no pathname specified */
      258 
      259 	call cu_$arg_count (nargs);
      260 
      261 	if nargs > 0				/* process arguments if any */
      262 	then do iarg = 1 to nargs;
      263 	     call cu_$arg_ptr (iarg, argp, argl, code);
      264 	     if arg = "-pn" | arg = "-pathname"		/* not installed ttt */
      265 	     then do;
      266 		call get_next_arg;			/* updates iarg */
      267 		if code ^= 0 then return;		/* get_next_arg prints error message */
      268 		call expand_pathname_$add_suffix (arg, "ttt", ttt_dir, ttt_ent, code);
      269 						/* append suffix if missing */
      270 		if code ^= 0 then go to argerr;
      271 	     end;
      272 
      273 	     else
      274 		if arg = "-type" | arg = "-tp" | arg = "-ttp" | arg = "-terminal_type" /* one type entry only */
      275 	     then do;
      276 		call get_next_arg;
      277 		if code ^= 0 then return;
      278 
      279 		only_type = translate (arg, all_caps, all_lowercase);
      280 		call check_star_name_ (only_type, CHECK_STAR_IGNORE_ALL, type_starname_type, code);
      281 		if code ^= 0 then go to argerr;
      282 		general_tables,
      283 		     dft_header = "0"b;
      284 	     end;
      285 
      286 	     else
      287 		if arg = "-tb" | arg = "-table"	/* specific table wanted */
      288 	     then do;
      289 		call get_next_arg;
      290 		if code ^= 0 then return;
      291 
      292 		only_table = arg;
      293 		call check_star_name_ (only_table, CHECK_STAR_IGNORE_ALL, table_starname_type, code);
      294 		if code ^= 0 then go to argerr;
      295 		general_tables,
      296 		     dft_header = "0"b;
      297 	     end;
      298 
      299 	     else
      300 		if arg = "-of" | arg = "-output_file"
      301 	     then do;
      302 		call get_next_arg;
      303 		if code ^= 0 then return;
      304 		call absolute_pathname_$add_suffix (arg, "ttf", output_file, code);
      305 		if code ^= 0 then go to argerr;
      306 	     end;
      307 
      308 	     else
      309 		if arg = "-nhe" | arg = "-no_header"
      310 	     then do;
      311 		header_spec = "1"b;
      312 		header = "0"b;
      313 	     end;
      314 
      315 	     else
      316 		if arg = "-he" | arg = "-header"
      317 	     then do;
      318 		header_spec = "1"b;
      319 		header = "1"b;
      320 	     end;
      321 	     else if arg = "-debug" | arg = "-db" then debug_sw = "1"b;
      322 	     else if arg = "-expand" | arg = "-exp" then expand_like = "1"b;
      323 
      324 	     else do;
      325 		code = error_table_$badopt;
      326 argerr:		call com_err_ (code, prog_name, arg);
      327 		return;
      328 	     end;
      329 	end;
      330 
      331 	if expand_like & output_file ^= "" then do;
      332 	     call com_err_ (0, prog_name, "-output_file and -expand are incompatible options.");
      333 	     return;
      334 	end;
      335 
      336 	if ^header_spec then header = dft_header;
      337 	if only_type = ""
      338 	then if only_table = ""
      339 	     then show_tables, show_types = SHOW_ALL;	/* nothing specified, show them all */
      340 	     else do;
      341 		show_types = SHOW_NONE;		/* no type entries */
      342 		show_tables = SHOW_MATCH;		/* specified table */
      343 	     end;
      344 
      345 	else if only_table = ""			/* type specified, table not */
      346 	then do;
      347 	     show_types = SHOW_MATCH;
      348 	     show_tables = SHOW_NONE;
      349 	end;
      350 	else show_types, show_tables = SHOW_MATCH;	/* show one of each */
      351 
      352 	tttp = null;
      353 	attached, opened = "0"b;
      354 	on cleanup call clean_up;
      355 
      356 	if output_file = ""				/* default to user_output */
      357 	then iocbp = iox_$user_output;
      358 
      359 	else do;
      360 	     call iox_$attach_name ("ttt_output", iocbp, "vfile_ " || output_file, null, code);
      361 	     if code ^= 0
      362 	     then do;
      363 		call com_err_ (code, prog_name, "Could not attach to ^a", output_file);
      364 		return;
      365 	     end;
      366 
      367 	     attached = "1"b;
      368 	     call iox_$open (iocbp, 2, ""b, code);
      369 	     if code ^= 0
      370 	     then do;
      371 		call com_err_ (code, prog_name, "Could not open file ^a", output_file);
      372 		call iox_$detach_iocb (iocbp, code);
      373 		return;
      374 	     end;
      375 	     opened = "1"b;
      376 	end;
      377 
      378 	call hcs_$initiate (ttt_dir, ttt_ent, "", 0, 1, tttp, code);
      379 	if tttp = null
      380 	then do;
      381 	     call com_err_ (code, prog_name, "Could not initiate ^a>^a", ttt_dir, ttt_ent);
      382 	     call clean_up;
      383 	     return;
      384 	end;
      385 
      386 	if ttt.version ^= TTT_version_4
      387 	then do;
      388 	     call com_err_ (error_table_$unimplemented_version, prog_name, "^/^a>^a is version ^d; the current version is ^d.^/Please recompile your ttf.^/", ttt_dir, ttt_ent, ttt.version, TTT_version_4);
      389 	     return;
      390 	end;
      391 
      392 /* now start printing stuff */
      393 
      394 	if header
      395 	then do;
      396 	     call date_time_ (clock_ (), date_str);
      397 	     call ioa_$ioa_switch (iocbp, "^-/* terminal type file derived from ^a>^a at ^a
      398 ^-^3xTTT version ^d, created by ^a^/	*/",
      399 		ttt_dir, ttt_ent, date_str, ttt.version, ttt.author.proc_group_id);
      400 	end;
      401 
      402 	if show_types ^= SHOW_NONE
      403 	then do;
      404 	     keep_looping = "1"b;
      405 	     found_one = "0"b;
      406 	     do ttx = 1 to ttt.n_tt_entries while (keep_looping);
      407 		ttep = addr (ttt.tt_entries (ttx));
      408 		if show_types = SHOW_MATCH then do;
      409 		     found = check_for_match_name (tte.name, only_type, type_starname_type);
      410 		     if ^found then goto end_of_tte;
      411 		     if found & type_starname_type = STAR_TYPE_USE_PL1_COMPARE then
      412 			keep_looping = "0"b;
      413 		     found_one = "1"b;
      414 		end;
      415 
      416 		if debug_sw then call ioa_ ("^a at ^p", tte.name, ttep);
      417 		if tte.like_type = 0		/* no like to refer back to */
      418 		     | (tte.like_type ^= 0 & expand_like) /* or there is a like but expansion wanted */
      419 		then do;				/* so print all fields that don't have default values */
      420 		     if tte.like_type ^= 0 then do;
      421 			call ioa_$ioa_switch_nnl (iocbp, "/* ");
      422 			call trace_like_tte_chain (ttep); /* recurse to see who is liked together */
      423 			call ioa_$ioa_switch_nnl (iocbp, " */");
      424 		     end;
      425 		     call ioa_$ioa_switch (iocbp, "^/^/^-terminal_type:  ^a;", tte.name);
      426 		     call print_modes;
      427 		     call print_protocol ("0"b);
      428 		     call print_str ("initial_string", tte.initial_string, "0"b);
      429 		     call print_str ("additional_info", tte.additional_info, "0"b);
      430 		     call print_all_delays;
      431 
      432 		     offset_array_ptr = addr (tte.input_translation_rp);
      433 		     do i = 1 to 6;
      434 			call print_table (i, "0"b);
      435 		     end;
      436 
      437 		     call print_line_types ("0"b);
      438 		     call print_erase ("0"b);
      439 		     call print_kill ("0"b);
      440 		     call print_frame ("0"b);
      441 		     call print_ifc ("0"b);
      442 		     call print_ofc ("0"b);
      443 		     call print_line_delimiter ("0"b);
      444 		     call print_all_flags;
      445 		     call print_old_type ("0"b);
      446 		     call print_extended_tables ("0"b);
      447 		end;
      448 		else do;				/* like, get copy of original */
      449 		     temp_ttep = addr (ttt.tt_entries (tte.like_type));
      450 		     copy_of_tte = temp_ttep -> tte;
      451 
      452 		     call ioa_$ioa_switch (iocbp, "^/^/^-terminal_type:  ^a like ^a;", tte.name, copy_of_tte.name);
      453 
      454 		     copy_of_tte.name = tte.name;	/* so we can compare */
      455 		     copy_of_tte.like_type = tte.like_type;
      456 		     if unspec (copy_of_tte) ^= unspec (tte) /* see if anything overridden */
      457 		     then do;			/* if so, find out what */
      458 			if tte.modes ^= copy_of_tte.modes
      459 			then call print_modes;
      460 
      461 			if tte.protocol ^= copy_of_tte.protocol
      462 			then call print_protocol ("1"b);
      463 
      464 			if tte.initial_string.offset ^= copy_of_tte.initial_string.offset
      465 			then call print_str ("initial_string", tte.initial_string, "1"b);
      466 
      467 			if tte.additional_info.offset ^= copy_of_tte.additional_info.offset
      468 			then call print_str ("additional_info", tte.additional_info, "1"b);
      469 
      470 			if tte.bauds_overridden	/* entirely fresh delay table */
      471 			then call print_all_delays;
      472 			else do;
      473 			     delay_tablep = ptr (tttp, tte.delay_rp);
      474 			     do delayx = 1 to 6;
      475 				if tte.delay_overridden (delayx)
      476 				then call print_delay (delayx);
      477 			     end;
      478 			end;
      479 
      480 			copy_offset_ptr = addr (copy_of_tte.input_translation_rp);
      481 			offset_array_ptr = addr (tte.input_translation_rp);
      482 			do i = 1 to 6;
      483 			     if table_offset (i) ^= copy_offset_ptr -> table_offset (i)
      484 			     then call print_table (i, "1"b);
      485 			end;
      486 
      487 			if tte.line_types ^= copy_of_tte.line_types
      488 			then call print_line_types ("1"b);
      489 
      490 			if tte.erase ^= copy_of_tte.erase
      491 			then call print_erase ("1"b);
      492 
      493 			if tte.kill ^= copy_of_tte.kill
      494 			then call print_kill ("1"b);
      495 
      496 			if string (tte.framing_chars) ^= string (copy_of_tte.framing_chars)
      497 			then call print_frame ("1"b);
      498 
      499 			if tte.input_suspend ^= copy_of_tte.input_suspend |
      500 			     tte.input_resume ^= copy_of_tte.input_resume |
      501 			     tte.input_timeout ^= copy_of_tte.input_timeout
      502 			then call print_ifc ("1"b);
      503 
      504 			if tte.output_suspend_etb ^= copy_of_tte.output_suspend_etb |
      505 			     tte.output_resume_ack ^= copy_of_tte.output_resume_ack |
      506 			     tte.output_buffer_size ^= copy_of_tte.output_buffer_size |
      507 			     tte.output_block_acknowledge ^= copy_of_tte.output_block_acknowledge
      508 			then call print_ofc ("1"b);
      509 
      510 			if tte.line_delimiter ^= copy_of_tte.line_delimiter
      511 			then call print_line_delimiter ("1"b);
      512 			if tte.keyboard_addressing ^= copy_of_tte.keyboard_addressing
      513 			then call print_kybd_addr;
      514 
      515 			if tte.print_preaccess_message ^= copy_of_tte.print_preaccess_message
      516 			then call print_ppm;
      517 
      518 			if tte.conditional_printer_off ^= copy_of_tte.conditional_printer_off
      519 			then call print_cpo;
      520 			if tte.old_type ^= copy_of_tte.old_type
      521 			then call print_old_type ("1"b);
      522 			call print_extended_tables ("1"b);
      523 		     end;
      524 		end;
      525 
      526 end_of_tte:
      527 	     end;
      528 	end;
      529 
      530 	if show_types = SHOW_MATCH & ^found_one		/* we were looking for a specific one and didn't find it */
      531 	then call com_err_ (0, prog_name, "No entry found for type ^a", only_type);
      532 
      533 	if show_tables ^= SHOW_NONE			/* not just asking for single type entry, print tables */
      534 	then do;
      535 	     keep_looping = "1"b;
      536 	     found_one = "0"b;
      537 						/* conversion & translation tables */
      538 	     do i = 1 to ttt.n_tables while (keep_looping);
      539 		tablep = addr (ttt.tables (i));
      540 
      541 		if show_tables = SHOW_MATCH then do;
      542 		     found = check_for_match_name (table_entry.name, only_table, table_starname_type);
      543 		     if ^found then goto next_ct_table;
      544 		     if found & table_starname_type = STAR_TYPE_USE_PL1_COMPARE then
      545 			keep_looping = "0"b;
      546 		     found_one = "1"b;
      547 		end;
      548 
      549 		call ioa_$ioa_switch (iocbp, "^/^-^a_table:  ^a;",
      550 		     table_types (table_entry.type), table_entry.name);
      551 		table_len = CV_TRANS_SIZE (table_entry.version);
      552 		do j = 0 to table_len by 8;
      553 		     call ioa_$ioa_switch (iocbp, "^-^8(^x^3.3b^)^[;^;^]",
      554 			addr (table_entry.value (j)) -> table_array, j = table_len - 7);
      555 		end;
      556 next_ct_table:
      557 	     end;
      558 
      559 	     special_tablep = addr (ttt.rest_of_ttt);	/* special_chars tables now */
      560 	     keep_looping = "1"b;
      561 	     do i = 1 to ttt.n_special_tables while (keep_looping);
      562 		specialp = addr (special_tablep -> special_table.special_chars);
      563 
      564 		if show_tables = SHOW_MATCH then do;
      565 		     found = check_for_match_name (special_tablep -> special_table.name, only_table, table_starname_type);
      566 		     if ^found then goto next_special;
      567 		     if found & table_starname_type = STAR_TYPE_USE_PL1_COMPARE then
      568 			keep_looping = "0"b;
      569 		     found_one = "1"b;
      570 		end;
      571 
      572 		call ioa_$ioa_switch (iocbp, "^/^-special_table:  ^a;", special_tablep -> special_table.name);
      573 
      574 		c_chars_length = hbound (specialp -> c_chars.chars, 1);
      575 		do j = 1 to 11;			/* do the standard sequences */
      576 		     call ioa_$ioa_switch (iocbp, "^-^x^a:^[^-^;^2-^]^v(^x^3o^);",
      577 			spec_field (j), j ^= 4, specialp -> seq (j).count,
      578 			specialp -> seq (j).entries (*));
      579 		end;
      580 
      581 		sc_escape_len = specialp -> special_chars.escape_length;
      582 		if sc_escape_len > 0
      583 		then do;
      584 		     call ioa_$ioa_switch (iocbp, "^-^xoutput_escapes:");
      585 		     p = addr (specialp -> special_chars.not_edited_escapes);
      586 
      587 		     do j = 1 to sc_escape_len;
      588 			n = p -> seq (j).count;
      589 			if n = 0
      590 			then call ioa_$ioa_switch (iocbp, "^-^2x^o^[,^;;^]", j + 16, j < sc_escape_len);
      591 			else call ioa_$ioa_switch (iocbp, "^-^2x^o^v(^x^3o^)^[,^;;^]", j + 16, n,
      592 				addr (p -> seq (j).entries (1)) -> based_seq, j < sc_escape_len);
      593 		     end;
      594 
      595 		     call ioa_$ioa_switch (iocbp, "^-^xedited_output_escapes:");
      596 		     p = addr (specialp -> special_chars.edited_escapes);
      597 
      598 		     do j = 1 to sc_escape_len;
      599 			n = p -> seq (j).count;
      600 			if n = 0
      601 			then call ioa_$ioa_switch (iocbp, "^-^2x^o^[,^;;^]", j + 16, j < sc_escape_len);
      602 			else call ioa_$ioa_switch (iocbp, "^-^2x^o^v(^x^3o^)^[,^;;^]", j + 16, n,
      603 				addr (p -> seq (j).entries (1)) -> based_seq, j < sc_escape_len);
      604 		     end;
      605 
      606 		end;
      607 
      608 		sc_input_escape_len = specialp -> special_chars.input_escapes.len;
      609 
      610 		if sc_input_escape_len > 0
      611 		then do;
      612 		     call ioa_$ioa_switch (iocbp, "^-^xinput_escapes:");
      613 
      614 		     do j = 1 to sc_input_escape_len;
      615 			call ioa_$ioa_switch (iocbp, "^-^2x^3o^x^3o^[,^;;^]",
      616 			     addr (substr (specialp -> special_chars.input_escapes.str, j, 1)) -> based_fb8,
      617 			     addr (substr (specialp -> special_chars.input_results.str, j, 1)) -> based_fb8,
      618 			     j < sc_input_escape_len);
      619 		     end;
      620 		end;
      621 
      622 next_special:
      623 		special_tablep = addrel (specialp, divide (length (unspec (specialp -> special_chars)) + 35,
      624 		     36, 18, 0));
      625 	     end;
      626 
      627 /* now function key tables */
      628 
      629 	     fkey_tablep = ptr (tttp, ttt.fkey_offset);
      630 	     function_key_data_ptr = addr (fkey_table.fkey_data);
      631 	     sourcep = ptr (tttp, fkey_table.seq_offset); /* ptr to sequences */
      632 
      633 	     do i = 1 to ttt.n_fkey_tables;
      634 
      635 		if show_tables = SHOW_MATCH then do;
      636 		     found = check_for_match_name (fkey_table.name, only_table, table_starname_type);
      637 		     if ^found then go to next_fkey;
      638 		     if found & table_starname_type = STAR_TYPE_USE_PL1_COMPARE then
      639 			keep_looping = "0"b;
      640 		     found_one = "1"b;
      641 		end;
      642 
      643 		call ioa_$ioa_switch (iocbp, "^/^-function_key_table:  ^a;", fkey_table.name);
      644 		fkey_seqs_ptr (1) = addr (function_key_data.home (0));
      645 		fkey_seqs_ptr (2) = addr (function_key_data.left (0));
      646 		fkey_seqs_ptr (3) = addr (function_key_data.right (0));
      647 		fkey_seqs_ptr (4) = addr (function_key_data.up (0));
      648 		fkey_seqs_ptr (5) = addr (function_key_data.down (0));
      649 
      650 		do j = 1 to 5;			/* go thru home, left, ... */
      651 		     call print_fkey_seqs (sourcep -> function_key_seqs, fkey_seq_names (j), fkey_seqs_ptr (j));
      652 		end;
      653 
      654 		do j = 0 to function_key_data.highest;
      655 		     call print_fkey_seqs (sourcep -> function_key_seqs, "key (" || ltrim (char (j)) || ")", addr (function_key_data.function_keys (j, 0)));
      656 		end;
      657 
      658 next_fkey:
      659 		fkey_tablep = addrel (fkey_tablep, currentsize (fkey_table) + currentsize (sourcep -> function_key_seqs));
      660 		function_key_data_ptr = addr (fkey_table.fkey_data);
      661 		sourcep = ptr (tttp, fkey_table.seq_offset);
      662 	     end;
      663 
      664 	     if show_tables = SHOW_MATCH & ^found_one
      665 	     then call com_err_ (0, prog_name, "table ^a not found.", only_table);
      666 	end;
      667 
      668 	if general_tables
      669 	then do;
      670 
      671 /* now default_types table */
      672 
      673 	     if ttt.default_type_offset ^= 0
      674 	     then do;
      675 		dfttp = ptr (tttp, ttt.default_type_offset);
      676 
      677 		if dftt.dft_count > 0
      678 		then do;
      679 		     call ioa_$ioa_switch (iocbp, "^/^/^-default_types:");
      680 		     do i = 1 to dftt.dft_count;
      681 			call ioa_$ioa_switch (iocbp, "^-^x^[any^s^;^d^] ^[any^s^;^a^] ^a^[,^;;^]",
      682 			     dftt.dftte (i).baud = 0, dftt.dftte (i).baud,
      683 			     dftt.dftte (i).line_type = 0, line_types (dftt.dftte (i).line_type),
      684 			     addr (ttt.tt_entries (dftt.dftte (i).term_type_index)) -> tte.name,
      685 			     i < dftt.dft_count);
      686 		     end;
      687 		end;
      688 	     end;
      689 
      690 /* now answerback table */
      691 
      692 	     answerback_entry_ptr = ptr (tttp, ttt.answerback_offset);
      693 
      694 	     do while (rel (answerback_entry_ptr));
      695 		call ioa_$ioa_switch_nnl (iocbp, "^/^-answerback:^3x");
      696 		charx = 1;
      697 
      698 		do while (charx <= answerback_entry.def_string.length);
      699 		     if charx > 1
      700 		     then call ioa_$ioa_switch_nnl (iocbp, ", ");
      701 
      702 		     ans_spec = answerback_entry.chars (charx);
      703 		     n = addr (answerback_entry.chars (charx + 1)) -> based_fb8;
      704 		     if ans_spec = "m" | ans_spec = "s"
      705 		     then if n < 0
      706 			then do;
      707 			     call ioa_$ioa_switch_nnl (iocbp, "^[match^;^search^] ^[letter^;digit^]",
      708 				ans_spec = "m", -n);
      709 			     charx = charx + 2;
      710 			end;
      711 
      712 			else do;
      713 			     call ioa_$ioa_switch_nnl (iocbp, "^[match^;search^] ^a",
      714 				ans_spec = "m",
      715 				requote_string_ (substr (answerback_entry.chars (1), charx + 2, n)));
      716 			     charx = charx + n + 2;
      717 			end;
      718 
      719 		     else do;
      720 			n = addr (answerback_entry.chars (charx + 1)) -> based_fb8;
      721 			if ans_spec = "k"
      722 			then call ioa_$ioa_switch_nnl (iocbp, "skip ^d", n);
      723 
      724 			else
      725 			     if ans_spec = "i"
      726 			then call ioa_$ioa_switch_nnl (iocbp, "id ^[rest^;^d^]", n = 0, n);
      727 
      728 			else call com_err_ (0, prog_name, "Unrecognized answerback specification ^a", ans_spec);
      729 
      730 			charx = charx + 2;
      731 		     end;
      732 		end;
      733 
      734 		if answerback_entry.term_type_index ^= 0
      735 		then call ioa_$ioa_switch (iocbp, ";^/^-^xtype:  ^a;",
      736 			addr (ttt.tt_entries (answerback_entry.term_type_index)) -> tte.name);
      737 
      738 		else call ioa_$ioa_switch (iocbp, ";");
      739 
      740 		answerback_entry_ptr = ptr (tttp, answerback_entry.next);
      741 	     end;
      742 
      743 	     call print_preaccess_type ("MAP", ttt.type_map);
      744 	     call print_preaccess_type ("963", ttt.type_963);
      745 	     call print_preaccess_type ("029", ttt.type_029);
      746 
      747 	     call ioa_$ioa_switch (iocbp, "^/^/^-end;");
      748 	end;
      749 
      750 	call clean_up;
      751 	return;
      752 
      753 check_for_match_name: proc (name_to_check, name_to_match, type_match) returns (bit (1));
      754 
      755 /* see if this entry matches the name desired by the user */
      756 
      757 dcl  name_to_check char (*);				/* name to check for match */
      758 dcl  name_to_match char (*);				/* possible starname to match for */
      759 dcl  type_match fixed bin (2);			/* type of equal match to be made */
      760 
      761 dcl  my_code fixed bin (35);
      762 
      763 	if type_match = STAR_TYPE_MATCHES_EVERYTHING then
      764 	     my_code = 0;
      765 	else if type_match = STAR_TYPE_USE_MATCH_PROCEDURE then
      766 	     call match_star_name_ (name_to_check, name_to_match, my_code);
      767 	else if type_match = STAR_TYPE_USE_PL1_COMPARE then do;
      768 	     if name_to_check = name_to_match then
      769 		my_code = 0;
      770 	     else my_code = error_table_$nomatch;
      771 	end;
      772 
      773 	if my_code = 0 then
      774 	     return ("1"b);
      775 	else return ("0"b);
      776 
      777      end check_for_match_name;
      778 
      779 trace_like_tte_chain: proc (my_ttep);
      780 
      781 /* recurse down through all LIKE table entries so we can name who is in the chain */
      782 
      783 dcl  my_ttep ptr;
      784 
      785 	call ioa_$ioa_switch_nnl (iocbp, "^a", my_ttep -> tte.name);
      786 
      787 /* recurse to the next level if this isn't the last one */
      788 	if my_ttep -> tte.like_type ^= 0 then do;
      789 	     call ioa_$ioa_switch_nnl (iocbp, " -> ");
      790 	     call trace_like_tte_chain (addr (ttt.tt_entries (my_ttep -> tte.like_type)));
      791 	end;
      792 
      793      end trace_like_tte_chain;
      794 
      795 get_next_arg: proc;
      796 
      797 /* gets value of a keyword-value option */
      798 
      799 	iarg = iarg + 1;
      800 	key = substr (arg, 2);
      801 	call cu_$arg_ptr (iarg, argp, argl, code);
      802 	if code ^= 0 then
      803 complain:	     call com_err_ (code, prog_name, key);
      804 	else if substr (arg, 1, 1) = "-" then do;
      805 	     code = error_table_$noarg;
      806 	     goto complain;
      807 	end;
      808 	return;
      809 
      810      end /* get_next_arg */;
      811 
      812 clean_up: proc;
      813 
      814 /* clenup handler and final wrapup */
      815 
      816 	file_err = "0"b;
      817 	if opened
      818 	then do;
      819 	     call iox_$close (iocbp, code);
      820 	     if code ^= 0
      821 	     then do;
      822 		call com_err_ (code, prog_name, "Could not close file ^a", output_file);
      823 		file_err = "1"b;
      824 	     end;
      825 
      826 	     opened = "0"b;
      827 	end;
      828 	if attached
      829 	then do;
      830 	     call iox_$detach_iocb (iocbp, code);
      831 	     if code ^= 0
      832 	     then if ^file_err
      833 		then call com_err_ (code, prog_name, "Could not detach file ^a", output_file);
      834 	     attached = "0"b;
      835 	end;
      836 
      837 	if tttp ^= null
      838 	then call hcs_$terminate_noname (tttp, code);
      839 	return;
      840 
      841      end /* clean_up */;
      842 
      843 print_terminal_types: ptt: entry;
      844 
      845 /* user command to print names of all terminal types defined in TTT */
      846 
      847 dcl  match_name char (32);
      848 dcl  pn_given bit (1);
      849 dcl  ttp_given bit (1);
      850 
      851 	ttp_given, pn_given = "0"b;
      852 	using_default_ttt_path = "0"b;
      853 	call cu_$arg_count (nargs);
      854 	do iarg = 1 to nargs;
      855 	     call cu_$arg_ptr (iarg, argp, argl, code);
      856 	     if arg = "-pn" | arg = "-pathname" then do;
      857 		if pn_given then do;
      858 		     call com_err_ (error_table_$wrong_no_of_args, com_name, "Only one ttt pathname allowed");
      859 		     return;
      860 		end;
      861 		call expand_pathname_$add_suffix (arg, "ttt", ttt_dir, ttt_ent, code);
      862 		if code ^= 0 then do;
      863 		     call com_err_ (code, com_name, arg);
      864 		     return;
      865 		end;
      866 		pn_given = "1"b;
      867 	     end;
      868 	     else if arg = "-ttp" | arg = "-terminal_type" then do;
      869 		if ttp_given then do;
      870 		     call com_err_ (error_table_$wrong_no_of_args, com_name, "Only one -match name allowed");
      871 		     return;
      872 		end;
      873 		call get_next_arg;
      874 		if code ^= 0 then return;
      875 		match_name = translate (arg, all_caps, all_lowercase);
      876 		ttp_given = "1"b;
      877 	     end;
      878 	     else do;
      879 		if ttp_given then do;
      880 		     call com_err_ (error_table_$wrong_no_of_args, com_name, "Only one -match name allowed");
      881 		     return;
      882 		end;
      883 		match_name = translate (arg, all_caps, all_lowercase);
      884 		ttp_given = "1"b;
      885 	     end;
      886 	end;
      887 
      888 	if ^pn_given then do;
      889 	     using_default_ttt_path = "1"b;
      890 	     call ttt_info_$ttt_path (ttt_dir, ttt_ent);
      891 	end;
      892 
      893 	call hcs_$initiate (ttt_dir, ttt_ent, "", 0, 1, tttp, code);
      894 	if tttp = null then do;
      895 	     call com_err_ (code, com_name, "Could not initiate ^a>^a", ttt_dir, ttt_ent);
      896 	     return;
      897 	end;
      898 
      899 	if using_default_ttt_path then
      900 	     if ttt_dir ^= SYS_DIR | ttt_ent ^= "ttt" then
      901 		call ioa_ ("Using ^a>^a", ttt_dir, ttt_ent);
      902 
      903 	do i = 1 to ttt.n_tt_entries;
      904 	     if ^ttp_given then
      905 		code = 0;
      906 	     else call match_star_name_ (ttt.tt_entries (i).name, match_name, code);
      907 	     if code = 0 then
      908 		call ioa_ ("^-^a", ttt.tt_entries (i).name);
      909 	end;
      910 
      911 	return;
      912 
      913 /* various internal procedures for outputting parts of a terminal type entry
      914*   *
      915*   *  many of these take a bit(1) argument indicating whether or not the entry being processed
      916*   *  is "like" another entry. If this bit is on, the field is always printed out;
      917*   *  otherwise, it is only printed if it has a non-default value
      918**/
      919 
      920 
      921 print_modes: proc;
      922 
      923 	if tte.modes ^= "" then
      924 	     call ioa_$ioa_switch (iocbp, "^-^xmodes:  ^a;", tte.modes);
      925 	return;
      926      end /* print_modes */;
      927 
      928 
      929 print_str: proc (title, source, like);
      930 
      931 dcl  title char (*);
      932 dcl  1 source aligned,
      933        2 offset fixed bin (18),
      934        2 len fixed bin;
      935 
      936 dcl  like bit (1);
      937 
      938 dcl  code_len fixed bin;
      939 dcl  stringp ptr;
      940 dcl  stringl fixed bin;
      941 dcl  cur fixed bin;
      942 dcl  lb bit (1);
      943 dcl  (i, j) fixed bin;
      944 dcl  work char (2500) var;
      945 dcl  temp char (16) var;
      946 dcl  str char (stringl) based (stringp);
      947 
      948 /* there is no string defined or it is LIKEd to another string */
      949 	if source.offset = 0 then
      950 	     if like then
      951 		call ioa_$ioa_switch (iocbp, "^-^x^a:  ;", title);
      952 	     else ;
      953 
      954 /* string is defined */
      955 	else do;
      956 	     stringp = ptr (tttp, source.offset);
      957 	     stringl = source.len;
      958 	     code_len = addr (substr (str, source.len + 1, 2)) -> based_fb17;
      959 
      960 /* all chars in string are printable chars */
      961 	     if code_len = 0 then
      962 		call ioa_$ioa_switch (iocbp, "^-^x^a:  ^a;", title, requote_string_ (str));
      963 
      964 /* some of chars in string are no printable but there are no replication factors */
      965 	     else if code_len = -1 then do;
      966 		work = "";
      967 		do i = 1 to source.len;
      968 		     call count_text;		/* scan for printable chars */
      969 		     if j > 1 then do;		/* if any, print them as they are */
      970 			work = work || requote_string_ (substr (str, i, j));
      971 			i = i + j - 1;
      972 		     end;
      973 
      974 /* else convert to printable value */
      975 		     else work = work || tchar (substr (str, i, 1));
      976 		     work = work || " ";
      977 		end;
      978 		call ioa_$ioa_switch (iocbp, "^-^x^a:  ^a;", title, work);
      979 	     end;
      980 
      981 /* there are replication factors defined in the encoded string */
      982 	     else do;
      983 		work = "";
      984 		stringp = addr (substr (str, source.len + 2));
      985 
      986 		lb = "0"b;
      987 		do i = 1 to code_len;
      988 		     cur = rank (substr (str, i, 1));
      989 		     if cur > 255 then do;		/* coded value */
      990 			cur = addr (substr (str, i, 1)) -> based_fb17;
      991 /*			cur = cur - 512;		/* use negative for coded values */
      992 			i=i+1;
      993 		     end;
      994 		     if cur >= 0 then do;		/* real octal char value */
      995 			if ^lb then
      996 			     work = work || " ";
      997 			call count_text;
      998 			if j > 1 then do;
      999 			     work = work || requote_string_ (substr (str, i, j));
     1000 			     i = i + j - 1;
     1001 			end;
     1002 			else work = work || tchar (byte (cur));
     1003 		     end;
     1004 
     1005 		     else if cur = -1 then
     1006 			work = work || ">";
     1007 
     1008 		     else do;
     1009 			if ^lb then
     1010 			     work = work || " ";
     1011 			call ioa_$rsnnl ("(^d) <", temp, (0), -cur);
     1012 			work = work || temp;
     1013 		     end;
     1014 
     1015 		     lb = (cur < -1);
     1016 		end;
     1017 
     1018 		call ioa_$ioa_switch (iocbp, "^-^x^a:  ^a;", title, work);
     1019 	     end;
     1020 	end;
     1021 
     1022 	return;
     1023 
     1024 count_text: proc;
     1025 
     1026 	     do j = i to source.len
     1027 		while (rank (substr (str, j, 1)) >= 32 & rank (substr (str, j, 1)) <= 126);
     1028 	     end;
     1029 	     j = j - i;
     1030 	     return;
     1031 
     1032 	end count_text;
     1033 
     1034      end /* print_str */;
     1035 
     1036 
     1037 print_all_delays: proc;
     1038 
     1039 	if tte.delay_rp = 0
     1040 	then return;
     1041 
     1042 	delay_tablep = ptr (tttp, tte.delay_rp);
     1043 
     1044 	call ioa_$ioa_switch_nnl (iocbp, "^-^xbauds:^2-");
     1045 	do i = 1 to delay_table.n_bauds;
     1046 	     call ioa_$ioa_switch_nnl (iocbp, "^[ other^;^6d^]", delay_table.baud_rate (i) = 0,
     1047 		delay_table.baud_rate (i));
     1048 	end;
     1049 	call ioa_$ioa_switch (iocbp, ";");
     1050 
     1051 	do delayx = 1 to 6;
     1052 	     call print_delay (delayx);
     1053 	end;
     1054 
     1055 	return;
     1056      end /* print_all_delays */;
     1057 
     1058 
     1059 print_delay: proc (delayx);
     1060 
     1061 dcl  delayx fixed bin;
     1062 
     1063 	n = delay_table.n_bauds;
     1064 	if delayx = 2 | delayx = 4			/* floating-point type */
     1065 	then call ioa_$ioa_switch (iocbp, "^-^x^a_delays:^-^v(^6.3f^);", delay_name (delayx), n,
     1066 		float_delays.array (*).delays (delayx));
     1067 
     1068 	else call ioa_$ioa_switch (iocbp, "^-^x^a_delays:^-^v(^6d^);", delay_name (delayx), n,
     1069 		delay_table.delay_array (*).delays (delayx));
     1070 
     1071 	return;
     1072      end /* print_delay */;
     1073 
     1074 
     1075 print_table: proc (tablex, like);
     1076 
     1077 dcl  tablex fixed bin;
     1078 dcl  like bit (1);
     1079 
     1080 	if table_offset (tablex) = 0
     1081 	then if like
     1082 	     then call ioa_$ioa_switch (iocbp, "^-^x^a:  ;", table_name (tablex));
     1083 	     else ;
     1084 
     1085 	else call ioa_$ioa_switch (iocbp, "^-^x^a:  ^a;", table_name (tablex),
     1086 		ptr (tttp, table_offset (tablex)) -> table_entry.name);
     1087 	return;
     1088      end /* print_table */;
     1089 
     1090 
     1091 print_line_types: proc (like);
     1092 
     1093 dcl  like bit (1);
     1094 dcl  line_type_str char (168);
     1095 
     1096 	if tte.line_types = (72)"1"b & ^like
     1097 	then return;
     1098 
     1099 	line_type_str = "";
     1100 	do i = 1 to max_line_type;
     1101 	     if substr (tte.line_types, i, 1)
     1102 	     then call ioa_$rsnnl ("^a, ^a", line_type_str, n, line_type_str, line_types (i));
     1103 	end;
     1104 
     1105 	substr (line_type_str, 1, 1) = " ";		/* get rid of first comma */
     1106 	call ioa_$ioa_switch (iocbp, "^-^xline_types:  ^a;", line_type_str);
     1107 	return;
     1108      end /* print_line_type */;
     1109 
     1110 
     1111 print_protocol: proc (like);
     1112 
     1113 dcl  like bit (1);
     1114 
     1115 	if tte.protocol = NO_PROTOCOL & ^like
     1116 	then return;
     1117 
     1118 	call ioa_$ioa_switch (iocbp, "^-^xprotocol:  ^a;", protocol_names (tte.protocol));
     1119 	return;
     1120 
     1121      end /* print_protocol */;
     1122 
     1123 print_erase: proc (like);
     1124 
     1125 dcl  like bit (1);
     1126 
     1127 	if tte.erase = "#" & ^like
     1128 	then return;
     1129 
     1130 	call ioa_$ioa_switch (iocbp, "^-^xerase: ^a;", tchar (tte.erase));
     1131 	return;
     1132      end /* print_erase */;
     1133 
     1134 
     1135 print_kill: proc (like);
     1136 
     1137 dcl  like bit (1);
     1138 
     1139 	if tte.kill = "@" & ^like
     1140 	then return;
     1141 
     1142 	call ioa_$ioa_switch (iocbp, "^-^xkill: ^a;", tchar (tte.kill));
     1143 	return;
     1144      end /* print_kill */;
     1145 
     1146 
     1147 print_frame: proc (like);
     1148 
     1149 dcl  like bit (1);
     1150 
     1151 	if addr (tte.framing_chars) -> based_bit18 = "0"b & ^like /* default */
     1152 	then return;
     1153 
     1154 	call ioa_$ioa_switch (iocbp, "^-^xframing_chars: ^a ^a;",
     1155 	     tchar (tte.frame_begin), tchar (tte.frame_end));
     1156 	return;
     1157      end /* print_frame */;
     1158 
     1159 print_ifc:
     1160      proc (like);
     1161 
     1162 dcl  like bit (1);
     1163 
     1164 	if tte.input_suspend ^= NUL | like
     1165 	then call ioa_$ioa_switch (iocbp, "^-^xinput_suspend: ^3.3b;",
     1166 		addr (tte.input_suspend) -> based_bit9);
     1167 
     1168 	if tte.input_resume ^= NUL | like
     1169 	then call ioa_$ioa_switch (iocbp, "^-^xinput_resume: ^3.3b^[, timeout^;^];",
     1170 		addr (tte.input_resume) -> based_bit9, tte.input_timeout);
     1171 
     1172 	return;
     1173      end /* print_ifc */;
     1174 
     1175 
     1176 print_ofc:
     1177      proc (like);
     1178 
     1179 dcl  like bit (1);
     1180 
     1181 	if addr (tte.output_suspend_etb) -> based_bit18 = "0"b & ^like
     1182 	then return;
     1183 
     1184 	call ioa_$ioa_switch (iocbp, "^-^xoutput_^[end_of_block^;suspend^]: ^3.3b;",
     1185 	     tte.output_block_acknowledge, addr (tte.output_suspend_etb) -> based_bit9);
     1186 
     1187 	call ioa_$ioa_switch (iocbp, "^-^xoutput_^[acknowledge^;resume^]: ^3.3b;",
     1188 	     tte.output_block_acknowledge, addr (tte.output_resume_ack) -> based_bit9);
     1189 
     1190 	if tte.output_buffer_size > 0 & tte.output_block_acknowledge
     1191 	then call ioa_$ioa_switch (iocbp, "^-^xbuffer_size: ^d;",
     1192 		tte.output_buffer_size);
     1193 
     1194      end /* print_ofc */;
     1195 
     1196 
     1197 print_line_delimiter:
     1198      proc (like);
     1199 
     1200 dcl  like bit (1);
     1201 
     1202 	if tte.line_delimiter = low (1) & ^like then return;
     1203 	call ioa_$ioa_switch (iocbp, "^-^xline_delimiter: ^3.3b;",
     1204 	     addr (tte.line_delimiter) -> based_bit9);
     1205      end;
     1206 
     1207 print_all_flags: proc;
     1208 
     1209 	if tte.keyboard_addressing
     1210 	then call ioa_$ioa_switch (iocbp, "^-^xkeyboard_addressing: yes;");
     1211 
     1212 	if tte.print_preaccess_message
     1213 	then call ioa_$ioa_switch (iocbp, "^-^xprint_preaccess_message: yes;");
     1214 
     1215 	if tte.conditional_printer_off
     1216 	then call ioa_$ioa_switch (iocbp, "^-^xconditional_printer_off: yes;");
     1217 
     1218 	return;
     1219      end /* print_all_flags */;
     1220 
     1221 
     1222 print_old_type: proc (like);
     1223 
     1224 dcl  like bit (1);
     1225 
     1226 	if tte.old_type <= 0 & ^like
     1227 	then return;
     1228 
     1229 	call ioa_$ioa_switch (iocbp, "^-^xold_type: ^d;", tte.old_type);
     1230 	return;
     1231      end /* print_old_type */;
     1232 
     1233 
     1234 print_kybd_addr: proc;
     1235 
     1236 	call ioa_$ioa_switch (iocbp, "^-^xkeyboard_addressing: ^[yes^;no^];", tte.keyboard_addressing);
     1237 	return;
     1238      end /* print_kybd_addr */;
     1239 
     1240 
     1241 print_ppm: proc;
     1242 
     1243 	call ioa_$ioa_switch (iocbp, "^-^xprint_preaccess_message: ^[yes^;no^];", tte.print_preaccess_message);
     1244 	return;
     1245      end /* print_ppm */;
     1246 
     1247 
     1248 print_cpo: proc;
     1249 
     1250 	call ioa_$ioa_switch (iocbp, "^-^xconditional_printer_off: ^[yes^;no^];", tte.conditional_printer_off);
     1251 	return;
     1252      end /* print_cpo */;
     1253 
     1254 
     1255 print_preaccess_type: proc (name, idx);
     1256 
     1257 dcl  name char (*);
     1258 dcl  idx fixed bin;
     1259 
     1260 	if idx > 0 then do;
     1261 	     ttep = addr (ttt.tt_entries (idx));
     1262 	     call ioa_$ioa_switch (iocbp, "^/^-preaccess_command: ^a;^/^-^xtype: ^a;",
     1263 		name, tte.name);
     1264 	end;
     1265 
     1266 	return;
     1267 
     1268      end /* print_preaccess_type */;
     1269 
     1270 /* procedures for printing various extended tables */
     1271 
     1272 print_extended_tables: proc (like);
     1273 
     1274 dcl  like bit (1);
     1275 dcl  like_extended_tablesp ptr;
     1276 dcl  ntables fixed bin;
     1277 dcl  i fixed bin;
     1278 
     1279 	ntables = min (hbound (print_extended_table, 1), extended_tables_ntables);
     1280 	if tte.extended_tables_rp = 0 then extended_tablesp = null ();
     1281 	else extended_tablesp = ptr (tttp, tte.extended_tables_rp);
     1282 
     1283 	if like then
     1284 	     if copy_of_tte.extended_tables_rp = 0 then like_extended_tablesp = null ();
     1285 	     else like_extended_tablesp = ptr (tttp, copy_of_tte.extended_tables_rp);
     1286 	else like_extended_tablesp = null ();
     1287 
     1288 	if extended_tablesp = null () then do;		/* this type has no extended tables */
     1289 	     if like_extended_tablesp = null () then return;
     1290 	     do i = 1 to min (ntables, like_extended_tablesp -> extended_tables.ntables);
     1291 		if like_extended_tablesp -> extended_tables.tables_rp (i) ^= 0 then
     1292 		     call print_extended_table (i) (0);
     1293 	     end;
     1294 	     return;
     1295 	end;
     1296 
     1297 	if like_extended_tablesp = null then do;	/* not like a terminal type with tables */
     1298 	     do i = 1 to min (ntables, extended_tables.ntables);
     1299 		if extended_tables.tables_rp (i) ^= 0 then
     1300 		     call print_extended_table (i) (extended_tables.tables_rp (i));
     1301 	     end;
     1302 	     return;
     1303 	end;
     1304 
     1305 /* both this type and the like type have tables.  Print only differences */
     1306 
     1307 	do i = 1 to min (ntables, extended_tables.ntables);
     1308 	     if extended_tables.tables_rp (i) ^= like_extended_tablesp -> extended_tables.tables_rp (i) then
     1309 		call print_extended_table (i) (extended_tables.tables_rp (i));
     1310 	end;
     1311 	return;
     1312 
     1313      end print_extended_tables;
     1314 
     1315 print_dsa_table: proc (dsa_rp);
     1316 
     1317 dcl  dsa_rp fixed bin (18);
     1318 dcl  i fixed bin;
     1319 dcl  j fixed bin;
     1320 
     1321 	call ioa_$ioa_switch (iocbp, "^-^xdsatm_device:^[ ;^]", (dsa_rp = 0));
     1322 	if dsa_rp = 0 then return;
     1323 	dsatmdevp = ptr (tttp, dsa_rp);
     1324 
     1325 	do i = lbound (dsatm_device.dpp, 1) to hbound (dsatm_device.dpp, 1);
     1326 	     if dsatm_device.dpp (i) > 0 then
     1327 		call ioa_$ioa_switch (iocbp, "^13tdata_presentation: ^a;", DPP_NAME (dsatm_device.dpp (i)));
     1328 	end;
     1329 
     1330 	do i = lbound (dsatm_device.sdp_dpp.sdp_class, 1) to
     1331 	     hbound (dsatm_device.sdp_dpp.sdp_class, 1);
     1332 	     if dsatm_device.sdp_dpp.sdp_class (i) > 0 then
     1333 		call ioa_$ioa_switch (iocbp, "^13tsdp_class: ^a;", SC_NAME (dsatm_device.sdp_dpp.sdp_class (i)));
     1334 	end;
     1335 
     1336 	do i = lbound (dsatm_device.real_dpp.real_class, 1) to
     1337 	     hbound (dsatm_device.real_dpp.real_class, 1);
     1338 	     if dsatm_device.real_dpp.real_class (i) > 0 then
     1339 		call ioa_$ioa_switch (iocbp, "^13treal_class: ^a;", RC_NAME (dsatm_device.real_dpp.real_class (i)));
     1340 	end;
     1341 
     1342 	if dsatm_device.dev_id > 0 then
     1343 	     call ioa_$ioa_switch (iocbp, "^13tdevice_id: ^d;", dsatm_device.dev_id);
     1344 
     1345 	if dsatm_device.dev_type > 0 then
     1346 	     call ioa_$ioa_switch (iocbp, "^13tdevice_type: ^a;", DT_NAME (dsatm_device.dev_type));
     1347 
     1348 	if dsatm_device.shareability > 0 then
     1349 	     call ioa_$ioa_switch (iocbp, "^13tshareability: ^a;", SH_NAME (dsatm_device.shareability));
     1350 
     1351 	j = 0;
     1352 	do i = 0 to 9 while (j = 0);
     1353 	     if substr (string (dsatm_device.alloc_unit), i) = "1"b then
     1354 		j = i;
     1355 	end;
     1356 	if j > 0 then
     1357 	     call ioa_$ioa_switch (iocbp, "^13tallocation_unit: ^a;", AU_NAME (j));
     1358 
     1359 	if dsatm_device.line_overflow > 0 then
     1360 	     call ioa_$ioa_switch (iocbp, "^13tline_overflow: ^a;", LO_NAME (dsatm_device.line_overflow));
     1361 
     1362 	if dsatm_device.page_overflow > 0 then
     1363 	     call ioa_$ioa_switch (iocbp, "^13tpage_overflow: ^a;", PO_NAME (dsatm_device.page_overflow));
     1364 
     1365 	do i = lbound (dsatm_device.char_encoding, 1) to
     1366 	     hbound (dsatm_device.char_encoding, 1);
     1367 	     if dsatm_device.char_encoding (i) > 0 then
     1368 		call ioa_$ioa_switch (iocbp, "^13tcharacter_encoding: ^a;", CE_NAME (dsatm_device.char_encoding (i)));
     1369 	end;
     1370 
     1371 	do i = lbound (dsatm_device.char_set, 1) to
     1372 	     hbound (dsatm_device.char_set, 1);
     1373 	     if dsatm_device.char_set (i) > 0 then
     1374 		call ioa_$ioa_switch (iocbp, "^13tcharacter_set: ^a;", CS_NAME (dsatm_device.char_set (i)));
     1375 	end;
     1376 
     1377 	do i = lbound (dsatm_device.char_subset, 1) to
     1378 	     hbound (dsatm_device.char_subset, 1);
     1379 	     if dsatm_device.char_subset (i) > 0 then
     1380 		call ioa_$ioa_switch (iocbp, "^13tcharacter_subset: ^a;", CSS_NAME (dsatm_device.char_subset (i)));
     1381 	end;
     1382 
     1383 	do i = lbound (dsatm_device.nat_lang, 1) to
     1384 	     hbound (dsatm_device.nat_lang, 1);
     1385 	     if dsatm_device.nat_lang (i) > 0 then
     1386 		call ioa_$ioa_switch (iocbp, "^13tnational_language: ^a;", NL_NAME (dsatm_device.nat_lang (i)));
     1387 	end;
     1388 
     1389 	do i = lbound (dsatm_device.compression, 1) to
     1390 	     hbound (dsatm_device.compression, 1);
     1391 	     if dsatm_device.compression (i) > 0 then
     1392 		call ioa_$ioa_switch (iocbp, "^13tcompression_algorithm: ^a;", CA_NAME (dsatm_device.compression (i)));
     1393 	end;
     1394 
     1395 	do i = lbound (dsatm_device.char_font, 1) to
     1396 	     hbound (dsatm_device.char_font, 1);
     1397 	     if dsatm_device.char_font (i) > 0 then
     1398 		call ioa_$ioa_switch (iocbp, "^13tcharacter_font: ^a;", CF_NAME (dsatm_device.char_font (i)));
     1399 	end;
     1400 
     1401 	if dsatm_device.max_rec_size > 0 then
     1402 	     call ioa_$ioa_switch (iocbp, "^13tmax_record_size: ^d;", dsatm_device.max_rec_size);
     1403 
     1404 
     1405 	i = 1;					/* get attention keys			*/
     1406 	do while (i <= 2);
     1407 	     if dsatm_device.attentions.attn (i).invocation.break then
     1408 		call ioa_$ioa_switch (iocbp, "^13t^[attd;att1^]: BREAK;", (i = 1));
     1409 	     if dsatm_device.attentions.attn (i).invocation.sec_dialog then
     1410 		call ioa_$ioa_switch (iocbp, "^13t^[attd;att1^]: SEC_DIALOG;", (i = 1));
     1411 	     if dsatm_device.attentions.attn (i).invocation.string then
     1412 		call ioa_$ioa_switch (iocbp, "^13t^[attd;att1^]: ^a;", dsatm_device.attentions.attn (i).string_value (1));
     1413 	     i = i + 1;
     1414 	end;
     1415 
     1416 	if dsatm_device.stc_available then
     1417 	     call ioa_$ioa_switch (iocbp, "^13tstc_available: YES;");
     1418 
     1419 	return;
     1420 
     1421      end print_dsa_table;
     1422 
     1423 print_video_table: proc (video_rp);
     1424 
     1425 dcl  video_rp fixed bin (18);
     1426 dcl  i fixed bin;
     1427 
     1428 	call ioa_$ioa_switch (iocbp, "^-^xvideo_info:^[ ;^]", (video_rp = 0));
     1429 	if video_rp = 0 then return;
     1430 	ttyvtblp = ptr (tttp, video_rp);
     1431 	video_chars_ptr = addr (tty_video_table.video_chars);
     1432 
     1433 	if tty_video_table.screen_height ^= 0 then
     1434 	     call ioa_$ioa_switch (iocbp, "^13tscreen_height: ^d;", tty_video_table.screen_height);
     1435 	if tty_video_table.screen_line_length ^= 0 then
     1436 	     call ioa_$ioa_switch (iocbp, "^13tscreen_line_length: ^d;", tty_video_table.screen_line_length);
     1437 	if tty_video_table.scroll_count ^= 0 then
     1438 	     call ioa_$ioa_switch (iocbp, "^13tscroll_count: ^d;", tty_video_table.scroll_count);
     1439 
     1440 	do i = 1 to min (hbound (video_seq_names, 1), tty_video_table.nseq);
     1441 	     call print_seq (i);
     1442 	end;
     1443 
     1444 	return;
     1445 
     1446      end print_video_table;
     1447 
     1448 print_seq: proc (seqx);
     1449 
     1450 dcl  seqx fixed bin;
     1451 
     1452 dcl  i fixed bin;
     1453 dcl  p ptr;
     1454 dcl  cpad_to_print fixed bin (35);
     1455 dcl  cpad_units char (3);
     1456 dcl  1 test_numeric_encoding like tty_numeric_encoding automatic;
     1457 
     1458 	ttyvseqp = addr (tty_video_table.sequences (seqx));
     1459 	if ^tty_video_seq.present then return;
     1460 	call ioa_$ioa_switch_nnl (iocbp, "^13t^a:^29t", video_seq_names (seqx));
     1461 	p = addr (test_numeric_encoding);
     1462 	do i = tty_video_seq.seq_index to tty_video_seq.seq_index + tty_video_seq.len - 1;
     1463 	     unspec (test_numeric_encoding) = unspec (substr (video_chars, i, min (2, length (video_chars) - i + 1)));
     1464 	     if p -> tty_numeric_encoding.must_be_on then do;
     1465 		call ioa_$ioa_switch_nnl (iocbp, " (^[decimal ^]^[octal ^]^[^d ^;^s^]^[LINE^;COLUMN^;N^]",
     1466 		     p -> tty_numeric_encoding.express_in_decimal,
     1467 		     p -> tty_numeric_encoding.express_in_octal,
     1468 		     (p -> tty_numeric_encoding.num_digits ^= 0),
     1469 		     p -> tty_numeric_encoding.num_digits,
     1470 		     p -> tty_numeric_encoding.l_c_or_n + 1);
     1471 		if ^p -> tty_numeric_encoding.offset_is_0 then
     1472 		     if p -> tty_numeric_encoding.offset < 0 then
     1473 			call ioa_$ioa_switch_nnl (iocbp, " - ^a", tchar (byte (-p -> tty_numeric_encoding.offset)));
     1474 		     else call ioa_$ioa_switch_nnl (iocbp, " + ^a", tchar (byte (+p -> tty_numeric_encoding.offset)));
     1475 		call ioa_$ioa_switch_nnl (iocbp, ")");
     1476 		if ^p -> tty_numeric_encoding.offset_is_0 then
     1477 		     i = i + 1;
     1478 	     end;
     1479 	     else call ioa_$ioa_switch_nnl (iocbp, " ^a", tchar (substr (video_chars, i, 1)));
     1480 	end;
     1481 	if tty_video_seq.cpad_present then do;
     1482 	     if tty_video_seq.cpad_in_chars then do;
     1483 		cpad_to_print = tty_video_seq.cpad;
     1484 		cpad_units = "";
     1485 	     end;
     1486 	     else if mod (tty_video_seq.cpad, 10) = 0 then do;
     1487 		cpad_to_print = divide (tty_video_seq.cpad, 10, 17, 0);
     1488 		cpad_units = " ms";
     1489 	     end;
     1490 	     else do;
     1491 		cpad_to_print = tty_video_seq.cpad * 100;
     1492 		cpad_units = " us";
     1493 	     end;
     1494 	     call ioa_$ioa_switch_nnl (iocbp, ", pad ^d^a", cpad_to_print, cpad_units);
     1495 	end;
     1496 
     1497 	call ioa_$ioa_switch (iocbp, ";");
     1498 	return;
     1499 
     1500      end print_seq;
     1501 
     1502 print_function_key_table: proc (function_key_rp);
     1503 
     1504 dcl  function_key_rp fixed bin (18);
     1505 
     1506 	return;
     1507 
     1508      end print_function_key_table;
     1509 
     1510 print_fkey_seqs: proc (seqs, seqs_name, temp_key_infop);
     1511 
     1512 dcl  seqs char (*);
     1513 dcl  seqs_name char (*);
     1514 dcl  (i, j, highest) fixed bin;
     1515 
     1516 dcl  temp_key_index fixed bin;
     1517 dcl  temp_key_infop ptr;
     1518 dcl  1 temp_key_info (0:3) aligned based (temp_key_infop) like key_info;
     1519 
     1520 	highest = highest_defined ();
     1521 	if highest < 0 then return;			/* no seqs defined for this fcn key */
     1522 	call ioa_$ioa_switch_nnl (iocbp, "^2-^a:  ", seqs_name);
     1523 	do temp_key_index = 0 to highest;
     1524 
     1525 	     do i = 0 to temp_key_info (temp_key_index).sequence_length - 1;
     1526 		j = temp_key_info (temp_key_index).sequence_index + i;
     1527 		call ioa_$ioa_switch_nnl (iocbp, "^[ ^]^a", i ^= 0, tchar (substr (seqs, j, 1)));
     1528 	     end;
     1529 
     1530 	     if temp_key_index < highest
     1531 	     then call ioa_$ioa_switch_nnl (iocbp, ", ");
     1532 
     1533 	end;
     1534 
     1535 	call ioa_$ioa_switch (iocbp, ";");
     1536 	return;
     1537 
     1538 highest_defined: proc returns (fixed bin);
     1539 
     1540 	     do temp_key_index = 3 to 0 by -1;
     1541 		if temp_key_info (temp_key_index).sequence_length > 0
     1542 		then return (temp_key_index);
     1543 	     end;
     1544 	     return (-1);
     1545 
     1546 	end highest_defined;
     1547 
     1548      end print_fkey_seqs;
     1549 
     1550 /* return prettyest representation of a character */
     1551 
     1552 tchar: proc (c) returns (char (4) var);
     1553 
     1554 dcl  c char (1);
     1555 dcl  i fixed bin;
     1556 dcl  temp char (4);
     1557 
     1558 dcl  asc_value (0:32) char (3) static options (constant) init
     1559 	("NUL", "SOH", "STX", "ETX", "EOT", "ENQ", "ACK", "BEL",
     1560 	"BS ", "TAB", "LF ", "VT ", "FF ", "CR ", "SO ", "SI ",
     1561 	"DLE", "DC1", "DC2", "DC3", "DC4", "NAK", "SYN", "ETB",
     1562 	"CAN", "EM ", "SUB", "ESC", "FS ", "GS ", "RS ", "US ", "SP ");
     1563 
     1564 	i = rank (c);
     1565 	if i <= hbound (asc_value, 1) then return (rtrim (asc_value (i)));
     1566 	if i > 126 then do;
     1567 	     call ioa_$rsnnl ("^o", temp, (0), i);
     1568 	     return (temp);
     1569 	end;
     1570 	if index ("0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ", c) > 0 then return (c);
     1571 	if c = """" then return ("""""""""");
     1572 	else return ("""" || c || """");
     1573 
     1574      end tchar;
     1575 
  1     1 /*  BEGIN:   ttt.incl.pl1				  *  *  *  *  *  */
  1     2 
  1     3 /* This include file describes the terminal type table (TTT) and
  1     4*   the various subtables it contains. */
  1     5 
  1     6 
  1     7 /****^  HISTORY COMMENTS:
  1     8*  1) change(77-05-18,RCoren), approve(), audit(), install():
  1     9*     Created
  1    10*     Modified 5/29/81 by Suzanne Krupp to make TTT_version = 2,
  1    11*        to change ttt and tte structures to include function key info
  1    12*  2) change(84-12-17,Negaret), approve(87-07-28,MCR7742),
  1    13*     audit(87-07-23,Gilcrease), install(87-08-04,MR12.1-1056):
  1    14*     Add the dsatm_device table.
  1    15*  3) change(87-03-05,LJAdams), approve(87-03-05,MCR7646),
  1    16*     audit(87-05-05,Gilcrease), install(87-05-08,MR12.1-1029):
  1    17*     Add the protocol field to the terminal type entry table.  Change
  1    18*     TTT_version to TTT_version_3.
  1    19*  4) change(87-06-26,LJAdams), approve(87-07-09,MCR7742),
  1    20*     audit(87-07-23,Gilcrease), install(87-08-04,MR12.1-1056):
  1    21*     Changed constant value for extended_tables_ntables from 2 to 3 in order to
  1    22*     accommodate addition of DSA table.
  1    23*  5) change(88-01-22,Brunelle), approve(88-01-22,MCR7813),
  1    24*     audit(88-10-05,Blair), install(88-10-17,MR12.2-1171):
  1    25*     1. Extend special character definition to 15 chars instead of three.
  1    26*     2. add comment field to tte.
  1    27*                                                   END HISTORY COMMENTS */
  1    28 
  1    29 
  1    30 dcl  TTT_version_4 fixed bin int static options (constant) init (4);
  1    31 
  1    32 dcl  tttp ptr;
  1    33 
  1    34 dcl 1 ttt aligned based (tttp),
  1    35       2 author like author_dcl.author,
  1    36       2 version fixed bin,
  1    37       2 n_tt_entries fixed bin,
  1    38       2 n_tables fixed bin,
  1    39       2 n_special_tables fixed bin,
  1    40       2 n_fkey_tables fixed bin,
  1    41       2 fkey_offset fixed bin(18),
  1    42       2 default_type_offset fixed bin (18),
  1    43       2 answerback_offset fixed bin (18),
  1    44       2 total_ttt_size fixed bin (18),
  1    45       2 type_map fixed bin,			/* index of type implied by MAP command */
  1    46       2 type_963 fixed bin,			/* likewise for 963 command */
  1    47       2 type_029 fixed bin,			/* likewise for 029 command */
  1    48       2 highest_coded_type fixed bin,		/* highest value used so far for coded_type */
  1    49 					/* start entries on 8-word boundary */
  1    50       2 tt_entries (0 refer (ttt.n_tt_entries)) like tte,
  1    51       2 tables (0 refer (ttt.n_tables)) like table_entry, /* conversion and translation tables */
  1    52       2 rest_of_ttt (1) fixed bin;		/* placeholder for special_tables, function_key_tables,
  1    53*					*  delay tables, initial strings,
  1    54*					*  additional_info strings, default_types table,
  1    55*					*  answerback table */
  1    56 
  1    57 dcl  ttep ptr;
  1    58 
  1    59 dcl 1 tte based (ttep) aligned,		/* terminal type entry */
  1    60       2 name char (32) unal,
  1    61       2 modes char (256),
  1    62       2 initial_string,
  1    63         3 offset fixed bin (18),
  1    64         3 length fixed bin,
  1    65       2 additional_info,
  1    66         3 offset fixed bin (18),
  1    67         3 length fixed bin,
  1    68       2 comment,
  1    69         3 offset fixed bin (18),
  1    70         3 length fixed bin,
  1    71       2 tables,
  1    72         3 input_translation_rp fixed bin (18),	/* offset of input translation table */
  1    73         3 output_translation_rp fixed bin (18),	/*   "     " output      "      "    */
  1    74         3 input_conversion_rp fixed bin (18),	/*   "     " input conversion   "    */
  1    75         3 output_conversion_rp fixed bin (18),	/*   "     " output      "      "    */
  1    76         3 special_rp fixed bin (18),		/*   "     " special_chars table */
  1    77         3 fkey_rp fixed bin(18),
  1    78         3 delay_rp fixed bin (18),		/* offset of array of delay tables */
  1    79       2 line_types bit (72),			/* terminal type is possible only if corresponding line_type bit is on */
  1    80       2 editing_chars aligned,
  1    81         3 erase char (1) unal,
  1    82         3 kill char (1) unal,
  1    83         3 framing_chars unal,
  1    84           4 frame_begin char (1) unal,
  1    85           4 frame_end char (1) unal,
  1    86       2 flags aligned,
  1    87         3 keyboard_addressing bit (1) unal,
  1    88         3 print_preaccess_message bit (1) unal,
  1    89         3 conditional_printer_off bit (1) unal,
  1    90         3 input_timeout bit (1) unal,
  1    91         3 output_block_acknowledge bit (1) unal,
  1    92         3 pad bit (31) unal,
  1    93       2 old_type fixed bin,
  1    94       2 like_type fixed bin,			/* index of entry which this one is "like" */
  1    95       2 like_flags unal,			/* only meaningful if like_type is non-0 */
  1    96         3 bauds_overridden bit (1),
  1    97         3 delay_overridden (6) bit (1),		/* one for each kind of delay statement */
  1    98         3 pad bit (11) unal,
  1    99       2 line_delimiter char (1) unal,		/* default line delimiter, untanslated */
  1   100       2 pad1 bit (9) unal,
  1   101       2 coded_type fixed bin,			/* used for storing type values in PDT & PNT */
  1   102       2 flow_control_chars unal,
  1   103         3 input_suspend char (1),
  1   104         3 input_resume char (1),
  1   105         3 output_suspend_etb char (1),
  1   106         3 output_resume_ack char (1),
  1   107       2 output_buffer_size fixed bin,
  1   108       2 extended_tables_rp fixed bin (18),	/* rel pointer to extended_tables */
  1   109       2 protocol fixed bin;                       /* 0=NONE    1=MOWSE */
  1   110                                                   /* 2=MOWSE_FANSI     */
  1   111 
  1   112 dcl  extended_tablesp ptr;
  1   113 
  1   114 dcl 1 extended_tables aligned based (extended_tablesp),
  1   115       2 ntables fixed bin,
  1   116       2 tables_rp (extended_tables_ntables refer (extended_tables.ntables)) fixed bin (18);
  1   117 
  1   118 dcl (VIDEO_RP init (1),			/* indexes in tables_rp */
  1   119      FUNCTION_KEY_RP init (2),
  1   120      DSATM_DEVICE_RP init (3)) fixed bin int static options (constant);
  1   121 
  1   122 dcl  extended_tables_ntables fixed bin int static options (constant) init (3);
  1   123 
  1   124 
  1   125 dcl  dfttp ptr;
  1   126 
  1   127 dcl 1 dftt based (dfttp) aligned,		/* default_types table */
  1   128       2 dft_count fixed bin,
  1   129       2 dftte (0 refer (dftt.dft_count)),
  1   130         3 baud fixed bin,
  1   131         3 line_type fixed bin,
  1   132         3 term_type_index fixed bin;
  1   133 
  1   134 
  1   135 dcl  tablep ptr;
  1   136 
  1   137 dcl 1 table_entry aligned based (tablep),
  1   138       2 name char (32) unal,
  1   139       2 type fixed bin,			/* 1 = conversion, 2 = translation */
  1   140       2 table like cv_trans_struc;
  1   141 
  1   142 
  1   143 dcl 1 special_table aligned based,
  1   144       2 name char (32) unal,
  1   145       2 type fixed bin,
  1   146       2 table,
  1   147         3 version fixed bin,
  1   148         3 default fixed bin,				/* non-zero indicates use default */
  1   149         3 special_chars,				/* same as level-1 above */
  1   150 						/* has to be spelled out instead of using like */
  1   151 						/* because of refer options */
  1   152           4 nl_seq aligned like c_chars,			/* new-line sequence */
  1   153           4 cr_seq aligned like c_chars,			/* carriage-return sequence */
  1   154           4 bs_seq aligned like c_chars,			/* backspace sequence */
  1   155           4 tab_seq aligned like c_chars,			/* horizontal tab sequence */
  1   156           4 vt_seq aligned like c_chars,			/* vertical tab sequence */
  1   157           4 ff_seq aligned like c_chars,			/* form-feed sequence */
  1   158           4 printer_on aligned like c_chars,		/* printer-on sequence */
  1   159           4 printer_off aligned like c_chars,		/* printer_off sequence */
  1   160           4 red_ribbon_shift aligned like c_chars,		/* red ribbon shift sequence */
  1   161           4 black_ribbon_shift aligned like c_chars,		/* black ribbon shift sequence */
  1   162           4 end_of_page aligned like c_chars,		/* end-of-page warning sequence */
  1   163 
  1   164           4 escape_length fixed bin,			/* number of escape sequences */
  1   165           4 not_edited_escapes (sc_escape_len refer (special_table.escape_length)) like c_chars, /* use in ^edited mode */
  1   166           4 edited_escapes (sc_escape_len refer (special_table.escape_length)) like c_chars, /* use in edited mode */
  1   167 
  1   168           4 input_escapes aligned,
  1   169             5 len fixed bin (8) unaligned,			/* length of string */
  1   170             5 str char (sc_input_escape_len refer (special_table.input_escapes.len)) unaligned, /* escape sequence characters */
  1   171           4 input_results aligned,
  1   172             5 pad bit (9) unaligned,			/* so that strings will look the same */
  1   173             5 str char (sc_input_escape_len refer (special_table.input_escapes.len)) unaligned; /* results of escape sequences */
  1   174 
  1   175 dcl fkey_tablep ptr;
  1   176 
  1   177 dcl 1 fkey_table aligned based (fkey_tablep),
  1   178       2 name char(32) unal,
  1   179       2 fkey_data aligned,
  1   180         3 version fixed bin,
  1   181         3 highest fixed bin,
  1   182         3 sequence,					/* string of all seqs*/
  1   183           4 seq_offset fixed bin(18),			/* offset in ttt of sequence */
  1   184 	4 pad bit(36),				/* pad makes overlay of function_key_data struct possible */
  1   185 	4 seq_len fixed bin(21),
  1   186         3 cursor_motion_keys,
  1   187           4 home (0:3) like template,
  1   188 	4 left (0:3) like template,
  1   189 	4 up (0:3) like template,
  1   190 	4 right (0:3) like template,
  1   191 	4 down (0:3) like template,
  1   192         3 function_keys (0:function_key_data_highest refer(fkey_table.highest), 0:3) like template;
  1   193 
  1   194 dcl template_ptr ptr;
  1   195 
  1   196 dcl 1 template unaligned based(template_ptr),
  1   197       2 sequence_index fixed bin(12) unsigned unaligned,
  1   198       2 sequence_length fixed bin(6) unsigned unaligned;
  1   199 
  1   200 dcl  delay_tablep ptr;
  1   201 
  1   202 dcl 1 delay_table based (delay_tablep) aligned,
  1   203       2 n_bauds fixed bin,
  1   204       2 delay_array (0 refer (delay_table.n_bauds)),
  1   205         3 baud_rate fixed bin,
  1   206         3 version fixed bin,
  1   207         3 mbz fixed bin,
  1   208         3 delays (6) fixed bin;
  1   209 
  1   210 
  1   211 dcl  answerback_entry_ptr ptr;
  1   212 dcl  answerback_length fixed bin;		/* automatic copy of length of char string */
  1   213 
  1   214 dcl 1 answerback_entry based (answerback_entry_ptr) aligned,
  1   215       2 next fixed bin (18),			/* offset of next answerback table entry */
  1   216       2 term_type_index fixed bin,
  1   217       2 def_string,
  1   218         3 length fixed bin,
  1   219         3 chars (answerback_length refer (answerback_entry.length)) char (1) unal;
  1   220 
  1   221 dcl  CONV_TYPE fixed bin int static options (constant) init (1);
  1   222 dcl  TRANS_TYPE fixed bin int static options (constant) init (2);
  1   223 dcl  SPEC_TYPE fixed bin int static options (constant) init (3);
  1   224 dcl  FKEY_TYPE fixed bin int static options (constant) init (4);
  1   225 
  1   226 dcl  table_types (4) char (12) int static options (constant) init
  1   227 		("conversion", "translation", "special", "function_key");
  1   228 
  1   229 dcl  pa_name (3) char (3) int static options (constant) init
  1   230 		("MAP", "963", "029");
  1   231 
  2     1 /*	BEGIN INCLUDE FILE ... tty_convert.incl.pl1	*/
  2     2 
  2     3 /* tty_ conversion tables */
  2     4 /* Created 11/3/75 by Robert S. Coren */
  2     5 /* Info structures added 5/19/77 by Robert S. Coren */
  2     6 /* Length of cv_trans changed from 128 to 256 05/03/78 by Robert Coren */
  2     7 /* conversion table mnemonics added JRDavis 21 Aug 80 */
  2     8 /* fix special_chars_struc to have good refers Fri 13 Feb 81 JRDavis */
  2     9 
  2    10 
  2    11 /****^  HISTORY COMMENTS:
  2    12*  1) change(85-12-01,Negaret), approve(87-07-23,MCR7742),
  2    13*     audit(87-07-23,GDixon), install(87-08-04,MR12.1-1056):
  2    14*      Added INPUT_CONVERT_DSA_CR_PROCESSING constant.
  2    15*  2) change(88-01-22,Brunelle), approve(88-01-22,MCR7813),
  2    16*     audit(88-10-05,Blair), install(88-10-17,MR12.2-1171):
  2    17*     Expand c_chars definition from 3 chars to 15.  Change SPECIAL_VERSION
  2    18*     from 1 to 2.  Add version variable to get_special_info_struc and define
  2    19*     SPECIAL_INFO_STRUCT_VERSION_1.
  2    20*                                                   END HISTORY COMMENTS */
  2    21 
  2    22 
  2    23 /* format: style2,linecom,^indnoniterdo,indcomtxt,^inditerdo,dclind5,idind25 */
  2    24 
  2    25 
  2    26      dcl	1 special_chars	     aligned based,		/* table of special character sequences */
  2    27 	  2 nl_seq	     aligned like c_chars,	/* new-line sequence */
  2    28 	  2 cr_seq	     aligned like c_chars,	/* carriage-return sequence */
  2    29 	  2 bs_seq	     aligned like c_chars,	/* backspace sequence */
  2    30 	  2 tab_seq	     aligned like c_chars,	/* horizontal tab sequence */
  2    31 	  2 vt_seq	     aligned like c_chars,	/* vertical tab sequence */
  2    32 	  2 ff_seq	     aligned like c_chars,	/* form-feed sequence */
  2    33 	  2 printer_on	     aligned like c_chars,	/* printer-on sequence */
  2    34 	  2 printer_off	     aligned like c_chars,	/* printer_off sequence */
  2    35 	  2 red_ribbon_shift     aligned like c_chars,	/* red ribbon shift sequence */
  2    36 	  2 black_ribbon_shift   aligned like c_chars,	/* black ribbon shift sequence */
  2    37 	  2 end_of_page	     aligned like c_chars,	/* end-of-page warning sequence */
  2    38 	  2 escape_length	     fixed bin,		/* number of escape sequences */
  2    39 	  2 not_edited_escapes   (sc_escape_len refer (special_chars.escape_length)) like c_chars,
  2    40 						/* use in ^edited mode */
  2    41 	  2 edited_escapes	     (sc_escape_len refer (special_chars.escape_length)) like c_chars,
  2    42 						/* use in edited mode */
  2    43 	  2 input_escapes	     aligned,
  2    44 	    3 len		     fixed bin (8) unaligned, /* length of string */
  2    45 	    3 str		     char (sc_input_escape_len refer (special_chars.input_escapes.len)) unaligned,
  2    46 						/* escape sequence characters */
  2    47 	  2 input_results	     aligned,
  2    48 	    3 pad		     bit (9) unaligned,	/* so that strings will look the same */
  2    49 	    3 str		     char (sc_input_escape_len refer (special_chars.input_escapes.len)) unaligned;
  2    50 						/* results of escape sequences */
  2    51 
  2    52 
  2    53      dcl	c_chars_ptr	     ptr;
  2    54      dcl	1 c_chars		     based (c_chars_ptr) aligned,
  2    55 	  2 count		     fixed bin (8) unaligned,
  2    56 	  2 chars		     (15) char (1) unaligned;
  2    57 
  2    58      dcl	sc_escape_len	     fixed bin;		/* count of output escapes to allocate in special_chars  */
  2    59      dcl	sc_input_escape_len	     fixed bin;		/* count of input escapes to allocate in special_chars  */
  2    60 
  2    61 
  2    62      dcl	1 cv_trans	     based aligned,		/* conversion/translation table format */
  2    63 	  2 value		     (0:255) fixed bin (8) unal;
  2    64 
  2    65 
  2    66      dcl	1 delay		     based aligned,		/* delay counts for output */
  2    67 	  2 vert_nl	     fixed bin,
  2    68 	  2 horz_nl	     float bin,
  2    69 	  2 const_tab	     fixed bin,
  2    70 	  2 var_tab	     float bin,
  2    71 	  2 backspace	     fixed bin,
  2    72 	  2 vt_ff		     fixed bin;
  2    73 
  2    74 /* info structures used with orders */
  2    75 
  2    76      dcl	1 special_chars_struc    aligned based,
  2    77 	  2 version	     fixed bin,
  2    78 	  2 default	     fixed bin,		/* non-zero indicates use default */
  2    79 	  2 special_chars,				/* same as level-1 above */
  2    80 						/* has to be spelled out instead of using like */
  2    81 						/* because of refer options */
  2    82 	    3 nl_seq	     aligned like c_chars,	/* new-line sequence */
  2    83 	    3 cr_seq	     aligned like c_chars,	/* carriage-return sequence */
  2    84 	    3 bs_seq	     aligned like c_chars,	/* backspace sequence */
  2    85 	    3 tab_seq	     aligned like c_chars,	/* horizontal tab sequence */
  2    86 	    3 vt_seq	     aligned like c_chars,	/* vertical tab sequence */
  2    87 	    3 ff_seq	     aligned like c_chars,	/* form-feed sequence */
  2    88 	    3 printer_on	     aligned like c_chars,	/* printer-on sequence */
  2    89 	    3 printer_off	     aligned like c_chars,	/* printer_off sequence */
  2    90 	    3 red_ribbon_shift   aligned like c_chars,	/* red ribbon shift sequence */
  2    91 	    3 black_ribbon_shift aligned like c_chars,	/* black ribbon shift sequence */
  2    92 	    3 end_of_page	     aligned like c_chars,	/* end-of-page warning sequence */
  2    93 	    3 escape_length	     fixed bin,		/* number of escape sequences */
  2    94 	    3 not_edited_escapes (sc_escape_len refer (special_chars_struc.escape_length)) like c_chars,
  2    95 						/* use in ^edited mode */
  2    96 	    3 edited_escapes     (sc_escape_len refer (special_chars_struc.escape_length)) like c_chars,
  2    97 						/* use in edited mode */
  2    98 	    3 input_escapes	     aligned,
  2    99 	      4 len	     fixed bin (8) unaligned, /* length of string */
  2   100 	      4 str	     char (sc_input_escape_len refer (special_chars_struc.input_escapes.len)) unaligned,
  2   101 						/* escape sequence characters */
  2   102 	    3 input_results	     aligned,
  2   103 	      4 pad	     bit (9) unaligned,	/* so that strings will look the same */
  2   104 	      4 str	     char (sc_input_escape_len refer (special_chars_struc.input_escapes.len)) unaligned;
  2   105 						/* results of escape sequences */
  2   106 
  2   107      dcl	1 cv_trans_struc	     aligned based,		/* all conversion/translation tables */
  2   108 	  2 version	     fixed bin,
  2   109 	  2 default	     fixed bin,		/* as above */
  2   110 	  2 cv_trans	     like cv_trans;
  2   111 
  2   112      dcl	1 delay_struc	     aligned based,
  2   113 	  2 version	     fixed bin,
  2   114 	  2 default	     fixed bin,		/* as above */
  2   115 	  2 delay		     like delay;
  2   116 
  2   117      dcl	1 get_special_info_struc based aligned,		/* get_special order */
  2   118 	  2 version	     char (8),
  2   119 	  2 area_ptr	     pointer,
  2   120 	  2 table_ptr	     pointer;
  2   121 
  2   122      dcl	SPECIAL_INFO_STRUCT_VERSION_1
  2   123 			     char (8) int static options (constant) init ("sisv1000");
  2   124      dcl	SPECIAL_VERSION	     fixed bin int static options (constant) init (1);
  2   125      dcl	SPECIAL_VERSION_2	     fixed bin int static options (constant) init (2);
  2   126      dcl	DELAY_VERSION	     fixed bin int static options (constant) init (1);
  2   127      dcl	CV_TRANS_VERSION	     fixed bin int static options (constant) init (2);
  2   128 
  2   129      dcl	CV_TRANS_SIZE	     (2) fixed bin int static options (constant) init (127, 255);
  2   130 						/* indexed by version number */
  2   131 
  2   132 
  2   133 /* values for input and output conversion tables */
  2   134 
  2   135      dcl	(
  2   136 	INPUT_CONVERT_ORDINARY   init (0),
  2   137 	INPUT_CONVERT_BREAK	     init (1),
  2   138 	INPUT_CONVERT_ESCAPE     init (2),
  2   139 	INPUT_CONVERT_DISCARD    init (3),
  2   140 	INPUT_CONVERT_FORMFEED   init (4),
  2   141 	INPUT_CONVERT_PRECEDENCE_DISCARD
  2   142 			     init (5),
  2   143 	INPUT_CONVERT_DSA_CR_PROCESSING
  2   144 			     init (6)
  2   145 	)		     fixed bin (8) unaligned internal static options (constant);
  2   146 
  2   147      dcl	(
  2   148 	OUTPUT_CONVERT_ORDINARY  init (0),
  2   149 	OUTPUT_CONVERT_NEWLINE   init (1),
  2   150 	OUTPUT_CONVERT_CR	     init (2),
  2   151 	OUTPUT_CONVERT_HT	     init (3),
  2   152 	OUTPUT_CONVERT_BS	     init (4),
  2   153 	OUTPUT_CONVERT_VT	     init (5),
  2   154 	OUTPUT_CONVERT_FF	     init (6),
  2   155 	OUTPUT_CONVERT_OCTAL     init (7),
  2   156 	OUTPUT_CONVERT_RRS	     init (8),
  2   157 	OUTPUT_CONVERT_BRS	     init (9),
  2   158 	OUTPUT_CONVERT_NO_MOTION init (10),
  2   159 	OUTPUT_CONVERT_PRECEDENCE_NO_MOTION
  2   160 			     init (11),
  2   161 	OUTPUT_CONVERT_DONT_SEND init (12),
  2   162 	OUTPUT_CONVERT_NOT_USED_13
  2   163 			     init (13),
  2   164 	OUTPUT_CONVERT_NOT_USED_14
  2   165 			     init (14),
  2   166 	OUTPUT_CONVERT_NOT_USED_15
  2   167 			     init (15),
  2   168 	OUTPUT_CONVERT_NOT_USED_16
  2   169 			     init (16),
  2   170 	OUTPUT_CONVERT_FIRST_SPECIAL
  2   171 			     init (17)
  2   172 	)		     fixed bin (8) unaligned internal static options (constant);
  2   173 
  2   174 /*	END INCLUDE FILE ... tty_convert.incl.pl1 */
  1   232 
  1   233 
  1   234 /*  END OF:  ttt.incl.pl1				  *  *  *  *  *  */
     1576 
     1577 
  3     1 /* BEGIN INCLUDE FILE ... term_type_protocols.incl.pl1 */
  3     2 
  3     3 
  3     4 /****^  HISTORY COMMENTS:
  3     5*  1) change(87-03-09,LJAdams), approve(87-04-03,MCR7646),
  3     6*     audit(87-05-05,Gilcrease), install(87-05-14,MR12.1-1029):
  3     7*     Created
  3     8*  2) change(87-05-20,LJAdams), approve(87-05-20,MCR7699),
  3     9*     audit(87-06-30,RBarstad), install(87-08-04,MR12.1-1056):
  3    10*     Added support for MOWSE_FANSI protocol.
  3    11*  3) change(87-06-15,LJAdams), approve(87-06-15,MCR7699),
  3    12*     audit(87-06-30,RBarstad), install(87-08-04,MR12.1-1056):
  3    13*     Changed name to term_type_protocols.incl.pl1 from
  3    14*     terminal_type_protocols.incl.pl1 which was too long.
  3    15*                                                   END HISTORY COMMENTS */
  3    16 
  3    17 dcl  NO_PROTOCOL fixed bin int static options (constant) init (0);
  3    18 dcl  MOWSE_PROTOCOL fixed bin int static options (constant) init (1);
  3    19 dcl  MOWSE_FANSI_PROTOCOL fixed bin int static options (constant) init (2);
  3    20 
  3    21 dcl  protocol_names (0:2) char (32) int static options (constant) init (
  3    22      "",               /* 0 */
  3    23      "MOWSE",          /* 1 */
  3    24      "MOWSE_FANSI");   /* 2 */
  3    25 
  3    26 dcl  protocol_values (0:2) fixed bin int static options (constant) init (
  3    27      0,                /* No Protocol */
  3    28      1,                /* MOWSE       */
  3    29      2);               /* MOWSE_FANSI */
  3    30 
  3    31 /* END INCLUDE FILE ... term_type_protocols.incl.pl1 */
     1578 
     1579 
  4     1 /* BEGIN INCLUDE FILE ... author_dcl.incl.pl1 */
  4     2 
  4     3 /* This include file declares the "author" substructure
  4     4*   in a form suitable for using the PL/I "like" attribute.
  4     5*
  4     6*   Written 750304 by PG
  4     7**/
  4     8 
  4     9 dcl 1 author_dcl aligned based,
  5     1 /* BEGIN INCLUDE FILE author.incl.pl1 */
  5     2 
  5     3 /* the "author" items must always be the first ones in the table. The
  5     4*   module which moves the converted table to the System Control process
  5     5*   fills in these data items and assumes them to be at the head of the segment
  5     6*   regardless of the specific table's actual declaration. The variables
  5     7*   "lock" and "last_install_time" used to be "process_id" and "ev_channel"
  5     8*    respectively. For tables installed in multiple processes, these
  5     9*    are to be used to lock out multiple installations. */
  5    10 
  5    11 /*  Lock should be used as a modification lock. Since, in general,
  5    12*    entries may not be moved in system tables, even by installations,
  5    13*    it is sufficient for only installers and programs that change threads
  5    14*    to set or respect the lock. Simply updating data in an entry
  5    15*    requires no such protection.
  5    16*
  5    17*    Last_install_time is used by readers of system tables to detect
  5    18*    installations or other serious modifications. By checking it before
  5    19*    and after copying a block of data, they can be protected against
  5    20*    modifications.
  5    21*
  5    22*    Modules that set the lock should save proc_group_id, and then
  5    23*    put their group id there for the time they hold the lock.
  5    24*    if they do not actually install the, they should restore the group id.
  5    25**/
  5    26 
  5    27     2 author aligned,				/* validation data about table's author */
  5    28       3 proc_group_id char (32),			/* process-group-id  (personid.projectid.tag) */
  5    29       3 lock bit (36),				/* installation lock */
  5    30       3 update_attributes bit (1) unal,			/* update/add/delete attributes */
  5    31       3 update_authorization bit (1) unal,		/* update only authorizations */
  5    32       3 deferral_notified bit (1) unal,			/* installer notified of deferral of installation */
  5    33       3 pad bit (33) unaligned,
  5    34       3 last_install_time fixed bin (71),
  5    35       3 table char (4),				/* name of table, e.g., SAT MGT TTT RTDT PDT etc. */
  5    36       3 w_dir char (64),				/* author's working directory */
  5    37 
  5    38 /* END INCLUDE FILE author.incl.pl1 */
  4    10 
  4    11     2 pad;
  4    12 
  4    13 /* END INCLUDE FILE ... author_dcl.incl.pl1 */
     1580 
     1581 
  6     1 /* BEGIN INCLUDE FILE ... line_types.incl.pl1  */
  6     2 
  6     3 /* Written  November 10 1975 by Paul Green */
  6     4 /* Modified October 1978 by Larry Johnson to include line_type_names */
  6     5 /* Modified 12/19/78 by J. Stern to add POLLED_VIP line type */
  6     6 /* Modified 9/27/79 by J. Stern to add X25LAP line type */
  6     7 /* Modified Spring 1981 by Charles Hornig to add HDLC line type */
  6     8 /* Modified May 1981 by Robert Coren to add COLTS line type */
  6     9 /* Modified September 1984 by Robert Coren to correctly count VIP as a synchronous line type */
  6    10 
  6    11 
  6    12 /****^  HISTORY COMMENTS:
  6    13*  1) change(86-02-25,Negaret), approve(87-07-13,MCR7679),
  6    14*     audit(87-07-16,Brunelle), install(87-08-04,MR12.1-1056):
  6    15*     Add a DSA line type.
  6    16*  2) change(87-03-17,Beattie), approve(87-07-13,MCR7656),
  6    17*     audit(87-07-16,Brunelle), install(87-08-04,MR12.1-1056):
  6    18*     Add HASP_OPR to identify HASP workstation consoles with login service.
  6    19*                                                   END HISTORY COMMENTS */
  6    20 
  6    21 
  6    22 declare   (LINE_MC            initial (-2),
  6    23        	 LINE_TELNET	initial (-1),
  6    24            LINE_UNKNOWN       initial (0),
  6    25 	 LINE_ASCII	initial (1),
  6    26 	 LINE_1050	initial (2),
  6    27 	 LINE_2741	initial (3),
  6    28 	 LINE_ARDS	initial (4),
  6    29 	 LINE_SYNCH	initial (5),
  6    30 	 LINE_G115	initial (6),
  6    31 	 LINE_BSC		initial (7),
  6    32 	 LINE_ETX		initial (8),
  6    33 	 LINE_VIP		initial (9),
  6    34 	 LINE_ASYNC1	initial (10),
  6    35 	 LINE_ASYNC2	initial (11),
  6    36 	 LINE_ASYNC3	initial (12),
  6    37 	 LINE_SYNC1	initial (13),
  6    38 	 LINE_SYNC2	initial (14),
  6    39 	 LINE_SYNC3	initial (15),
  6    40 	 LINE_POLLED_VIP	initial (16),
  6    41 	 LINE_X25LAP	initial (17),
  6    42 	 LINE_HDLC	initial (18),
  6    43 	 LINE_COLTS	initial (19),
  6    44 	 LINE_DSA           initial (20),
  6    45 	 LINE_HASP_OPR	initial (21)
  6    46 	) fixed bin internal static options (constant);
  6    47 
  6    48 dcl  max_line_type fixed bin int static options (constant) init (21);
  6    49 
  6    50 declare  n_sync_line_types fixed bin int static options (constant) init (10);
  6    51 
  6    52 declare  sync_line_type (10) fixed bin int static options (constant) init (5, 6, 7, 9, 13, 14, 15, 16, 17, 18);
  6    53 
  6    54 dcl  line_types (-2:21) char (16) int static options (constant) init (
  6    55      "MC",                                                  /* -2 */
  6    56      "TELNET",					/* -1 */
  6    57      "none",					/* 0 */
  6    58      "ASCII",					/* 1 */
  6    59      "1050",					/* 2 */
  6    60      "2741",					/* 3 */
  6    61      "ARDS",					/* 4 */
  6    62      "Sync",					/* 5 */
  6    63      "G115",					/* 6 */
  6    64      "BSC",					/* 7 */
  6    65      "202ETX",					/* 8 */
  6    66      "VIP",					/* 9 */
  6    67      "ASYNC1",					/* 10 */
  6    68      "ASYNC2",					/* 11 */
  6    69      "ASYNC3",					/* 12 */
  6    70      "SYNC1",					/* 13 */
  6    71      "SYNC2",					/* 14 */
  6    72      "SYNC3",					/* 15 */
  6    73      "POLLED_VIP",					/* 16 */
  6    74      "X25LAP",					/* 17 */
  6    75      "HDLC",					/* 18 */
  6    76      "COLTS",					/* 19 */
  6    77      "DSA",					/* 20 */
  6    78      "HASP_OPR");					/* 21 */
  6    79 
  6    80 /* END INCLUDE FILE ... line_types.incl.pl1  */
     1582 
     1583 
  7     1 /* BEGIN INCLUDE FILE...  tty_video_tables.incl.pl1 */
  7     2 /* Created:  3 June 1979 by Bernard S. Greenberg */
  7     3 /* Modified: 9 June 1981 by G. Palter to switch to line/column orientation */
  7     4 
  7     5 /* Definition of the video operations supported by a terminal */
  7     6 
  7     7 dcl  tty_video_tables_version_1 fixed binary static options (constant) initial (1);
  7     8 
  7     9 dcl  ttyvtblp pointer;
  7    10 dcl  tty_video_table_video_chars_len fixed binary (21);
  7    11 
  7    12 dcl 1 tty_video_table aligned based (ttyvtblp),
  7    13       2 version fixed binary initial (tty_video_tables_version_1),
  7    14       2 screen_height fixed binary,			/* # of lines on screen */
  7    15       2 screen_line_length fixed binary,		/* # of characters on a line */
  7    16       2 scroll_count fixed binary,			/* # of lines scrolled by LF at bottom */
  7    17       2 flags,
  7    18         3 overstrike_available bit (1) unaligned,		/* ON => overstrike works */
  7    19         3 automatic_crlf bit (1) unaligned,		/* ON => automatically goes to next line from last column */
  7    20         3 simulate_eol bit (1) unaligned,		/* ON => program must simulate clear-to-end-of-line */
  7    21         3 pad bit (33) unaligned,
  7    22       2 video_chars_len fixed binary (21),		/* combined length of all sequences used */
  7    23       2 pad (2) bit (36),
  7    24       2 nseq fixed binary,				/* # of video sequences defined */
  7    25       2 sequences (N_VIDEO_SEQUENCES refer (tty_video_table.nseq)) like tty_video_seq aligned,
  7    26 						/* the control sequences */
  7    27       2 video_chars character (tty_video_table_video_chars_len refer (tty_video_table.video_chars_len)) unaligned;
  7    28 
  7    29 dcl  video_chars_ptr pointer;				/* -> tty_video_table.video_chars */
  7    30 dcl  video_chars character (tty_video_table.video_chars_len) based (video_chars_ptr);
  7    31 
  7    32 
  7    33 /* A single video sequence: it may contain encoded screen coordinates or a repeat counter */
  7    34 
  7    35 dcl  ttyvseqp pointer;
  7    36 
  7    37 dcl 1 tty_video_seq based (ttyvseqp) aligned,
  7    38       2 flags unaligned,				/* first 2 characters */
  7    39         3 present bit (1) unaligned,			/* ON => this feature is present */
  7    40         3 interpret bit (1) unaligned,			/* ON => sequence contains encoded coordinates/repeat count */
  7    41         3 able_to_repeat bit (1) unaligned,		/* ON => sequence contains a repeat count */
  7    42         3 cpad_present bit (1) unaligned,		/* ON => this operation must be padded */
  7    43         3 cpad_in_chars bit (1) unaligned,		/* ON => pad expressed in characters */
  7    44         3 pad bit (7) unaligned,
  7    45         3 general bit (6) unaligned,			/* reserved for per-operation flags */
  7    46       2 cpad fixed binary (18) unsigned unaligned,	/* padding in characters of .1 millisecond units */
  7    47       2 pad bit (15) unal,
  7    48       2 len fixed binary (9) unsigned unaligned,		/* # of valid characters in sequence */
  7    49       2 seq_index fixed binary (12) unsigned unaligned;	/* start of string in character data */
  7    50 
  7    51 
  7    52 /* Available operations */
  7    53 
  7    54 dcl (ABS_POS	initial (1),	CLEAR_SCREEN	initial (2),
  7    55      CLEAR_TO_EOS	initial (3),	HOME		initial (4),
  7    56      CLEAR_TO_EOL	initial (5),	CURSOR_UP		initial (6),
  7    57      CURSOR_RIGHT	initial (7),	CURSOR_DOWN	initial (8),
  7    58      CURSOR_LEFT	initial (9),	INSERT_CHARS	initial (10),
  7    59      END_INSERT_CHARS   /* if not present, insert-chars opens up N spaces */
  7    60 		initial (11),	DELETE_CHARS	initial (12),
  7    61      INSERT_LINES	initial (13),	DELETE_LINES	initial (14))
  7    62 	fixed binary static options (constant);
  7    63 
  7    64 dcl  N_VIDEO_SEQUENCES fixed binary static options (constant) initial (14);
  7    65 
  7    66 
  7    67 /* Encoding of special values (eg: coordinates or the repeat count) */
  7    68 
  7    69 dcl 1 tty_numeric_encoding based unaligned,
  7    70       2 flags,
  7    71         3 must_be_on bit (1) unaligned,			/* ON => an encoding; not a character */
  7    72         3 express_in_decimal bit (1) unaligned,		/* ON => express it as decimal digits */
  7    73         3 express_in_octal bit (1) unaligned,		/* ON => express it as octal digits; both OFF => in binary */
  7    74 
  7    75         3 offset_is_0 bit (1) unaligned,		/* ON => offset is not stored as it's zero */
  7    76       2 l_c_or_n fixed binary (2) unsigned unaligned,	/* 0 = line, 1= column, 2 = repeat-count */
  7    77       2 num_digits fixed bin (2) unsigned unaligned,	/* # of digits for decimal/octal; 0 => as many as needed */
  7    78       2 pad bit (1) unaligned,
  7    79       2 offset fixed bin (8) unaligned;			/* offset to add to the number */
  7    80 
  7    81 /* END INCLUDE FILE tty_video_tables.incl.pl1 */
     1584 
     1585 
  8     1 /* BEGIN INCLUDE FILE ... function_key_data.incl.pl1 
  8     2*
  8     3*   This include file defines the structure used for ttt_info_$function_key_data
  8     4*   MCR 4671      James R. Davis Sept 80
  8     5**/
  8     6 
  8     7 dcl 1 function_key_data aligned based (function_key_data_ptr),
  8     8       2 version fixed bin,
  8     9       2 highest fixed bin,				/* highest fkey */
  8    10       2 sequence,					/* string of all seqs. */
  8    11         3 seq_ptr pointer,
  8    12         3 seq_len fixed bin (21),
  8    13       2 cursor_motion_keys,
  8    14         3 home (0:3) like key_info,
  8    15         3 left (0:3) like key_info,
  8    16         3 up (0:3) like key_info,
  8    17         3 right (0:3) like key_info,
  8    18         3 down (0:3) like key_info,
  8    19       2 function_keys (0:function_key_data_highest refer
  8    20 	(function_key_data.highest), 0:3) like key_info;
  8    21 
  8    22 dcl (KEY_PLAIN init (0),
  8    23      KEY_SHIFT init (1),
  8    24      KEY_CTRL init (2),
  8    25      KEY_CTRL_AND_SHIFT init (3)
  8    26      ) fixed bin internal static options (constant);
  8    27 
  8    28 dcl 1 key_info unaligned based (key_info_ptr),
  8    29       2 sequence_index fixed bin (12) unsigned unaligned,
  8    30       2 sequence_length fixed bin (6) unsigned unaligned;	/* 0 -> not exist */
  8    31 
  8    32 dcl function_key_seqs char (function_key_data.sequence.seq_len)
  8    33 	based (function_key_data.sequence.seq_ptr);
  8    34 dcl function_key_data_ptr ptr;
  8    35 dcl function_key_data_highest fixed bin;
  8    36 dcl function_key_data_version_1
  8    37 	fixed bin internal static options (constant) init (1);
  8    38 dcl key_info_ptr ptr;
  8    39 
  8    40 
  8    41 /* END INCLUDE FILE ... function_key_data.incl.pl1 */
     1586 
     1587 
  9     1 /*  BEGIN:   dsatm_negotiate_info.incl.pl1		  *  *  *  *  *  */
  9     2 
  9     3 /****^  HISTORY COMMENTS:
  9     4*  1) change(84-06-01,Negaret), approve(87-07-23,MCR7742),
  9     5*     audit(87-07-23,GDixon), install(87-08-04,MR12.1-1056):
  9     6*     Created.
  9     7*                                                   END HISTORY COMMENTS */
  9     8 
  9     9 /*^*************************************************************************^*/
  9    10 /*							       */
  9    11 /*   Here are all the information involved in the negotiation phase of a     */
  9    12 /*   connection.   						       */
  9    13 /*   dsatm_neg_info        (Negotiation information) 		       */
  9    14 /*   dsatm_presentation    (Negotiation about the presentation control layer)*/
  9    15 /*   dsatm_station         (Negotiation about the station)                   */
  9    16 /*   dsatm_device          (Negotiation about each device of the station)    */
  9    17 /*   dsatm_network         (Information about the secondary network)         */
  9    18 /*   dsatm_sw_dev_info     (Switch in the device negotiated information)     */
  9    19 /*							       */
  9    20 /*   neg = negotiation, ctl = control, ptcl = protocol		       */
  9    21 /*   dev = device,  rec = record  				       */
  9    22 /*							       */
  9    23 /*   This include uses the following include file:                           */
  9    24 /*                dsatm_attn_fcn_info.incl.pl1                               */
  9    25 /*                                                                           */
  9    26 /*   Written by Roger Negaret in June 1984			       */
  9    27 /*^*************************************************************************^*/
  9    28 
  9    29 /* format: style3,dclind5,idind32,insnl,delnl */
  9    30 
  9    31 /*****************************************************************************/
  9    32 /*							       */
  9    33 /*   describes all the options to be negotiated (input) or already	       */
  9    34 /*   negotiated (output) for a session between the Terminal Manager	       */
  9    35 /*   Correspondent (TMC) and the front-end Terminal Manager (TM).            */
  9    36 /*   Some parameters may be set with several values; the current value       */
  9    37 /*   is the first one in the array of values;  The others can be selected    */
  9    38 /*   during the life of the session by the corresponding switch order;       */
  9    39 /*   (Now, only the switch_logical_device order is implemented).             */
  9    40 /*   The newly selected value becomes current and is put in the first        */
  9    41 /*   position of the array of values, switching its place with the previous  */
  9    42 /*   current value.						       */
  9    43 /*   The default values, for the TM protocol and for Multics are defined in: */
  9    44 /*        o dsatm_data_                                                      */
  9    45 /*        o the TTF for overriding the device negotiation parameters.        */
  9    46 /*****************************************************************************/
  9    47 
  9    48 dcl  dsatm_data_$max_logical_devices fixed bin ext;
  9    49 dcl  dsatm_data_$max_networks	       fixed bin ext;
  9    50 dcl  dsatm_max_logical_devices       fixed bin;
  9    51 dcl  dsatm_max_networks	       fixed bin;
  9    52 
  9    53 /* dsatm_neg_info: all the information for the negotiation of a TM session */
  9    54 
  9    55 dcl  dsatmnip		       ptr;
  9    56 
  9    57 dcl  1 dsatm_neg_info	       based (dsatmnip) aligned,
  9    58        2 version		       char (8),
  9    59        2 tws_session	       bit (1),
  9    60        2 max_letter_size	       fixed bin (16) uns aligned,
  9    61        2 presentation	       like dsatm_presentation aligned,
  9    62        2 station		       like dsatm_station aligned,
  9    63        2 n_networks		       fixed bin,		/* number of networks */
  9    64        2 device		       (dsatm_max_logical_devices refer (dsatm_neg_info.station.n_devices))
  9    65 			       like dsatm_device aligned,
  9    66 						/* the actual number of devices is in */
  9    67 						/* station.n_devices.                 */
  9    68        2 network		       (dsatm_max_networks refer (dsatm_neg_info.n_networks)) like dsatm_network aligned;
  9    69 
  9    70 
  9    71 /* dsatm_presentation: presentation layer information */
  9    72 
  9    73 dcl  dsatmprep		       ptr;
  9    74 
  9    75 dcl  1 dsatm_presentation	       based (dsatmprep) aligned,
  9    76        2 pc_level,					/* presentation_control protocol level */
  9    77          3 ptcl_level	       bit (8) unal,
  9    78          3 pl_rejected	       bit (1) unal,
  9    79        2 dfd,					/* data_format_description */
  9    80          3 char_encoding	       (8) fixed bin,
  9    81          3 char_set		       (14) fixed bin,
  9    82          3 char_subset	       (4) fixed bin,
  9    83          3 nat_lang		       (4) fixed bin,
  9    84          3 compression	       (4) fixed bin,
  9    85          3 max_rec_size	       fixed bin (16) uns,
  9    86          3 repetitive_parm_nb,			/* number of current values      */
  9    87 						/* for each repetitive parameter */
  9    88 	 4 ce_nb		       fixed bin,
  9    89 	 4 cs_nb		       fixed bin,
  9    90 	 4 css_nb		       fixed bin,
  9    91 	 4 nl_nb		       fixed bin,
  9    92 	 4 ca_nb		       fixed bin,
  9    93          3 parm_rejected,
  9    94 	 4 ce_rejected	       bit (1) unal,
  9    95 	 4 cs_rejected	       bit (1) unal,
  9    96 	 4 css_rejected	       bit (1) unal,
  9    97 	 4 nl_rejected	       bit (1) unal,
  9    98 	 4 ca_rejected	       bit (1) unal,
  9    99 	 4 mrs_rejected	       bit (1) unal,
  9   100        2 ptcl_id,					/* protocol_id */
  9   101          3 ptcl_name	       fixed bin,
  9   102          3 ptcl_level	       bit (8) unal,
  9   103          3 tm_version	       fixed bin,
  9   104          3 pid_rejected	       bit (1) unal,
  9   105        2 init_corr,					/* initial correspondent */
  9   106          3 string		       char (32) var;
  9   107 
  9   108 /* dsatm_station: information shared by all the logical devices */
  9   109 /* of the terminal station.                                     */
  9   110 
  9   111 dcl  dsatmstap		       ptr;
  9   112 
  9   113 dcl  1 dsatm_station	       based (dsatmstap) aligned,
  9   114        2 init_accept_confg	       fixed bin,
  9   115        2 ctl_ptcl		       (4) fixed bin,
  9   116        2 options,
  9   117          3 sec_net_reconnection      bit (1) unal,
  9   118          3 remote_form_storage       bit (1) unal,
  9   119          3 badge_reader_option       bit (1) unal,
  9   120          3 renegotiation	       bit (1) unal,
  9   121          3 reserved		       bit (4) unal,
  9   122        2 n_devices		       fixed bin (16) uns,
  9   123        2 dev_id_for_data_att	       fixed bin (16) uns,
  9   124        2 max_sec_net_dis_time	       fixed bin (16) uns,
  9   125        2 repetitive_parm_nb,
  9   126          3 cp_nb		       fixed bin,
  9   127        2 parm_rejected,
  9   128          3 cp_rejected	       bit (1) unal,
  9   129          3 opt_rejected	       bit (1) unal,
  9   130          3 ndev_rejected	       bit (1) unal;
  9   131 
  9   132 /* dsatm_device: information specific to a logical device of the station */
  9   133 
  9   134 dcl  dsatmdevp		       ptr;
  9   135 
  9   136 dcl  1 dsatm_device		       based (dsatmdevp) aligned,
  9   137        2 init_accept_confg	       fixed bin,
  9   138        2 dpp		       (4) fixed bin,
  9   139        2 sdp_dpp,					/* sdp protocol */
  9   140          3 version		       fixed bin,
  9   141          3 sdp_class	       (4) fixed bin,
  9   142        2 real_dpp,					/* real protocol */
  9   143          3 version		       fixed bin,
  9   144          3 real_class	       (16) fixed bin,
  9   145          3 real_model	       char (12) var,
  9   146        2 trans_dpp,					/* transparent protocol */
  9   147          3 version		       fixed bin,
  9   148        2 dev_id		       fixed bin (16) uns,
  9   149        2 dev_type		       fixed bin,
  9   150        2 attribute,
  9   151          3 shareability	       fixed bin,
  9   152          3 alloc_unit	       bit (8),
  9   153        2 line_length	       fixed bin (8) uns,
  9   154        2 page_length	       fixed bin (8) uns,
  9   155        2 line_overflow	       fixed bin,
  9   156        2 page_overflow	       fixed bin,
  9   157        2 char_encoding	       (8) fixed bin,
  9   158        2 char_set		       (14) fixed bin,
  9   159        2 char_subset	       (4) fixed bin,
  9   160        2 nat_lang		       (4) fixed bin,
  9   161        2 compression	       (4) fixed bin,
  9   162        2 char_font		       (6) fixed bin,
  9   163        2 terminal_type	       char (12) var,
  9   164        2 ete_ack_level	       fixed bin,
  9   165        2 max_rec_size	       fixed bin (16) uns,
  9   166        2 attentions		       like attention_fcn aligned,
  9   167        2 stc_available	       bit (1),
  9   168        2 repetitive_parm_nb,
  9   169          3 dpp_nb		       fixed bin,
  9   170          3 sc_nb		       fixed bin,
  9   171          3 rc_nb		       fixed bin,
  9   172          3 ce_nb		       fixed bin,
  9   173          3 cs_nb		       fixed bin,
  9   174          3 css_nb		       fixed bin,
  9   175          3 cf_nb		       fixed bin,
  9   176          3 nl_nb		       fixed bin,
  9   177          3 ca_nb		       fixed bin,
  9   178        2 parm_rejected,
  9   179          3 dpp_rejected	       bit (1) unal,
  9   180          3 attr_rejected	       bit (1) unal,
  9   181          3 ce_rejected	       bit (1) unal,
  9   182          3 cs_rejected	       bit (1) unal,
  9   183          3 css_rejected	       bit (1) unal,
  9   184          3 cf_rejected	       bit (1) unal,
  9   185          3 nl_rejected	       bit (1) unal,
  9   186          3 ca_rejected	       bit (1) unal,
  9   187          3 mrs_rejected	       bit (1) unal;
  9   188 
  9   189 
  9   190 /* dsatm_network: addressing information to establish a session */
  9   191 /* through the secondary network.                               */
  9   192 
  9   193 dcl  dsatmnetp		       ptr;
  9   194 
  9   195 dcl  1 dsatm_network	       based (dsatmnetp) aligned,
  9   196        2 sec_link_ptcl	       fixed bin,
  9   197        2 na_nb		       fixed bin,
  9   198        2 na_rejected	       bit (1) unal,
  9   199        2 net_addr		       (4),		/* in the order of the networks */
  9   200          3 net_type		       fixed bin,
  9   201          3 addr_str		       char (32) var,
  9   202        2 add_info		       char (32) var;	/* additional info network specific */
  9   203 
  9   204 
  9   205 
  9   206 dcl  DSATM_NEG_INFO_V1	       char (8) int static options (constant) init ("TMNI_V1");
  9   207 
  9   208 /* dsatm_sw_dev_info: give the current or new value of the switchable  */
  9   209 /* parameters for a given logical device.                              */
  9   210 
  9   211 dcl  dsatmsdip		       ptr;
  9   212 
  9   213 dcl  1 dsatm_sw_dev_info	       based (dsatmsdip) aligned,
  9   214        2 version		       char (8),
  9   215        2 set,
  9   216          3 dpp		       bit (1) unal,
  9   217          3 ce		       bit (1) unal,
  9   218          3 cs		       bit (1) unal,
  9   219          3 css		       bit (1) unal,
  9   220          3 cf		       bit (1) unal,
  9   221          3 nl		       bit (1) unal,
  9   222          3 ca		       bit (1) unal,
  9   223        2 value,
  9   224          3 dpp		       fixed bin,
  9   225          3 sdp_dpp,
  9   226 	 4 version	       fixed bin,
  9   227 	 4 sdp_class	       fixed bin,
  9   228          3 real_dpp,
  9   229 	 4 version	       fixed bin,
  9   230 	 4 real_class	       fixed bin,
  9   231 	 4 real_model	       char (12) var,
  9   232          3 trans_dpp,
  9   233 	 4 version	       fixed bin,
  9   234          3 dev_id		       fixed bin (16) uns,
  9   235          3 char_encoding	       fixed bin,
  9   236          3 char_set		       fixed bin,
  9   237          3 char_subset	       fixed bin,
  9   238          3 char_font	       fixed bin,
  9   239          3 nat_lang		       fixed bin,
  9   240          3 compression	       fixed bin;
  9   241 
  9   242 
  9   243 dcl  DSATM_SW_DEV_INFO_V1	       char (8) int static init ("TMSDI_V1");
  9   244 
  9   245 
  9   246 /* presentation control level */
  9   247 
  9   248 dcl  PC_LEVEL_DSA300	       bit (8) int static options (constant) init ("00000001"b);
  9   249 
  9   250 /* character encoding: indexes in arrays, names array, values array */
  9   251 
  9   252 dcl  CE_ISO_7BITS		       fixed bin int static options (constant) init (1);
  9   253 dcl  CE_ISO_8BITS		       fixed bin int static options (constant) init (2);
  9   254 dcl  CE_EBCDIC		       fixed bin int static options (constant) init (3);
  9   255 dcl  CE_TELETEX		       fixed bin int static options (constant) init (4);
  9   256 dcl  CE_BINARY_8BITS	       fixed bin int static options (constant) init (5);
  9   257 
  9   258 dcl  CE_NAME		       (0:8) char (12) int static options (constant)
  9   259 			       init ("UNDEFINED", "ISO_7BITS", "ISO_8BITS", "EBCDIC", "TELETEX", "BINARY_8BITS",
  9   260 			       (3) (""));
  9   261 
  9   262 dcl  CE_VALUE		       (0:8) fixed bin (8) uns int static options (constant)
  9   263 			       init (0, 1, 2, 3, 4, 5, (3) (0));
  9   264 
  9   265 /* character set: indexes in arrays, names array, values array */
  9   266 
  9   267 dcl  CS_ISO		       fixed bin int static options (constant) init (1);
  9   268 dcl  CS_ASCII		       fixed bin int static options (constant) init (2);
  9   269 dcl  CS_UK		       fixed bin int static options (constant) init (3);
  9   270 dcl  CS_NORWEGIAN_DANISH	       fixed bin int static options (constant) init (4);
  9   271 dcl  CS_SWEDISH_FINISH	       fixed bin int static options (constant) init (5);
  9   272 dcl  CS_PORTUGUESE		       fixed bin int static options (constant) init (6);
  9   273 dcl  CS_FRENCH		       fixed bin int static options (constant) init (7);
  9   274 dcl  CS_GREEK		       fixed bin int static options (constant) init (8);
  9   275 dcl  CS_SPANISH		       fixed bin int static options (constant) init (9);
  9   276 dcl  CS_GERMAN		       fixed bin int static options (constant) init (10);
  9   277 dcl  CS_PSEUDO_GRAPHIC	       fixed bin int static options (constant) init (11);
  9   278 
  9   279 dcl  CS_NAME		       (0:14) char (16) int static options (constant)
  9   280 			       init ("UNDEFINED", "ISO", "ASCII", "UK", "NORWEGIAN_DANISH", "SWEDISH_FINISH",
  9   281 			       "PORTUGUESE", "FRENCH", "GREEK", "SPANISH", "GERMAN", "PSEUDO_GRAPHIC", (3) (""));
  9   282 
  9   283 dcl  CS_VALUE		       (0:14) bit (8) int static options (constant)
  9   284 			       init ("00000000"b, "01000000"b /* 4/0  */, "01000010"b /* 4/2  */,
  9   285 			       "01000001"b /* 4/1  */, "01000011"b /* 4/3  */, "01001000"b /* 4/8  */,
  9   286 			       "01001100"b /* 4/12 */, "01010010"b /* 5/2  */, "01010101"b /* 5/5  */,
  9   287 			       "01011010"b /* 5/10 */, "01011011"b /* 5/11 */, "00110001"b /* 3/1  */,
  9   288 			       (3) ("00000000"b));
  9   289 
  9   290 /* character subset: indexes in arrays, names array, values array */
  9   291 
  9   292 dcl  CSS_UPPER_CASE		       fixed bin int static options (constant) init (1);
  9   293 dcl  CSS_UPPER_LOWER_CASE	       fixed bin int static options (constant) init (2);
  9   294 
  9   295 dcl  CSS_NAME		       (0:4) char (16) int static options (constant)
  9   296 			       init ("UNDEFINED", "UPPER_CASE", "UPPER_LOWER_CASE", (2) (""));
  9   297 
  9   298 dcl  CSS_VALUE		       (0:4) fixed bin (8) uns int static options (constant) init (0, 1, 2, (2) (0));
  9   299 
  9   300 /* national language: indexes in arrays, names array, values array */
  9   301 /* FFS */
  9   302 
  9   303 dcl  NL_FFS		       fixed bin int static options (constant) init (1);
  9   304 
  9   305 dcl  NL_NAME		       (0:4) char (9) int static options (constant) init ("UNDEFINED", "FFS", (3) (""));
  9   306 
  9   307 dcl  NL_VALUE		       (0:4) fixed bin (8) uns int static options (constant) init (0, 1, (3) (0));
  9   308 
  9   309 /* compression algorithm: indexes in arrays, names array, values array */
  9   310 
  9   311 dcl  CA_NO_COMPRESSION	       fixed bin int static options (constant) init (1);
  9   312 
  9   313 dcl  CA_NAME		       (0:4) char (16) int static options (constant)
  9   314 			       init ("NO_COMPRESSION", "NO_COMPRESSION", (3) (""));
  9   315 
  9   316 dcl  CA_VALUE		       (0:4) fixed bin (8) uns int static options (constant) init (0, 0, (3) (0));
  9   317 
  9   318 /* protocol id */
  9   319 
  9   320 /* protocol name */
  9   321 dcl  PN_TM		       fixed bin int static options (constant) init (1);
  9   322 dcl  PN_NAME		       (0:1) char (9) int static options (constant) init ("UNDEFINED", "TM");
  9   323 dcl  PN_VALUE		       (0:1) fixed bin (8) uns int static options (constant) init (0, 128);
  9   324 
  9   325 /* protocol level */
  9   326 dcl  TM_LEVEL_DSA300	       bit (8) int static options (constant) init ("00000001"b);
  9   327 
  9   328 /* protocol version */
  9   329 dcl  PV_TM_NO_STC		       fixed bin int static options (constant) init (1);
  9   330 dcl  PV_TM_FULL_STC		       fixed bin int static options (constant) init (2);
  9   331 dcl  PV_NAME		       (0:2) char (12) int static options (constant)
  9   332 			       init ("UNDEFINED", "TM_NO_STC", "TM_FULL_STC");
  9   333 dcl  PV_VALUE		       (0:2) fixed bin int static options (constant) init (0, 1, 2);
  9   334 
  9   335 
  9   336 /* initiator/acceptor: indexes in arrays, names array, values array */
  9   337 
  9   338 dcl  IA_INITIATOR		       fixed bin int static options (constant) init (1);
  9   339 dcl  IA_ACCEPTOR		       fixed bin int static options (constant) init (2);
  9   340 
  9   341 dcl  IA_NAME		       (0:2) char (12) int static options (constant)
  9   342 			       init ("UNDEFINED", "INITIATOR", "ACCEPTOR");
  9   343 dcl  IA_VALUE		       (0:2) fixed bin (8) uns int static options (constant) init (0, 1, 2);
  9   344 
  9   345 
  9   346 /* control protocol: indexes in arrays, names array, values array */
  9   347 
  9   348 dcl  CP_STANDARD		       fixed bin int static options (constant) init (1);
  9   349 dcl  CP_NO_CONTROL		       fixed bin int static options (constant) init (2);
  9   350 
  9   351 dcl  CP_NAME		       (0:4) char (12) int static options (constant)
  9   352 			       init ("NO_CONTROL", "STANDARD", "NO_CONTROL", (2) (""));
  9   353 
  9   354 dcl  CP_VALUE		       (0:4) bit (8) int static options (constant)
  9   355 			       init ("00000000"b, "10000000"b, "00000000"b, (2) ("00000000"b));
  9   356 
  9   357 /* data presentation protocol: indexes in arrays, names array, values array */
  9   358 
  9   359 dcl  DPP_SDP		       fixed bin int static options (constant) init (1);
  9   360 dcl  DPP_REAL		       fixed bin int static options (constant) init (2);
  9   361 dcl  DPP_TRANSPARENT	       fixed bin int static options (constant) init (3);
  9   362 
  9   363 dcl  DPP_NAME		       (0:4) char (12) int static options (constant)
  9   364 			       init ("UNDEFINED", "SDP", "REAL", "TRANSPARENT", (""));
  9   365 
  9   366 dcl  DPP_VALUE		       (0:4) fixed bin (8) uns int static options (constant) init (0, 1, 2, 3, 0);
  9   367 
  9   368 /* sdp class: indexes in arrays, names array, values array */
  9   369 
  9   370 dcl  SC_MANDATORY		       fixed bin int static options (constant) init (1);
  9   371 
  9   372 dcl  SC_NAME		       (0:4) char (12) int static options (constant)
  9   373 			       init ("UNDEFINED", "MANDATORY", (3) (""));
  9   374 
  9   375 dcl  SC_VALUE		       (0:4) fixed bin (8) uns int static options (constant) init (0, 128, (3) (0));
  9   376 
  9   377 
  9   378 /* real class: indexes in arrays, names array, values array */
  9   379 
  9   380 dcl  RC_UNDEFINED		       fixed bin int static options (constant) init (0);
  9   381 dcl  RC_VIP77XX		       fixed bin int static options (constant) init (1);
  9   382 dcl  RC_VIP78XX		       fixed bin int static options (constant) init (2);
  9   383 dcl  RC_327X		       fixed bin int static options (constant) init (3);
  9   384 dcl  RC_TTY		       fixed bin int static options (constant) init (4);
  9   385 dcl  RC_BATCH_RCI		       fixed bin int static options (constant) init (5);
  9   386 dcl  RC_TMMVU		       fixed bin int static options (constant) init (6);
  9   387 dcl  RC_2780		       fixed bin int static options (constant) init (7);
  9   388 dcl  RC_UNSPECIFIED		       fixed bin int static options (constant) init (8);
  9   389 dcl  RC_TMMRB		       fixed bin int static options (constant) init (9);
  9   390 dcl  RC_2780_3780_RJE	       fixed bin int static options (constant) init (10);
  9   391 
  9   392 dcl  RC_NAME		       (0:16) char (16) int static options (constant)
  9   393 			       init ("UNDEFINED", "VIP77XX", "VIP78XX", "327X", "TTY", "BATCH_RCI", "TMMVU", "2780",
  9   394 			       "UNSPECIFIED", "TMMRB", "2780_3780_RJE", (6) (""));
  9   395 
  9   396 dcl  RC_VALUE		       (0:16) fixed bin (8) uns int static options (constant)
  9   397 			       init (0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, (6) (0));
  9   398 
  9   399 /* device types: indexes in arrays, names array, values array */
  9   400 
  9   401 dcl  DT_UNDEFINED		       fixed bin int static options (constant) init (0);
  9   402 dcl  DT_DISPLAY		       fixed bin int static options (constant) init (1);
  9   403 dcl  DT_KEYBOARD		       fixed bin int static options (constant) init (2);
  9   404 dcl  DT_RO_PRINTER		       fixed bin int static options (constant) init (3);
  9   405 dcl  DT_KEYBOARD_PRINTER	       fixed bin int static options (constant) init (4);
  9   406 dcl  DT_KEYBOARD_DISPLAY	       fixed bin int static options (constant) init (5);
  9   407 dcl  DT_CARD_READER		       fixed bin int static options (constant) init (6);
  9   408 dcl  DT_PAPER_TAPE_READER	       fixed bin int static options (constant) init (7);
  9   409 dcl  DT_BADGE_READER	       fixed bin int static options (constant) init (8);
  9   410 dcl  DT_RFE		       fixed bin int static options (constant) init (9);
  9   411 dcl  DT_CASSETTE		       fixed bin int static options (constant) init (10);
  9   412 dcl  DT_DISKETTE		       fixed bin int static options (constant) init (11);
  9   413 dcl  DT_CARD_PUNCH		       fixed bin int static options (constant) init (12);
  9   414 dcl  DT_PAPER_TAPE_PUNCH	       fixed bin int static options (constant) init (13);
  9   415 
  9   416 
  9   417 dcl  DT_NAME		       (0:16) char (20) int static options (constant)
  9   418 			       init ("UNDEFINED", "DISPLAY", "KEYBOARD", "RO_PRINTER", "KEYBOARD_PRINTER",
  9   419 			       "KEYBOARD_DISPLAY", "CARD_READER", "PAPER_TAPE_READER", "BADGE_READER", "RFE",
  9   420 			       "CASSETTE", "DISKETTE", "CARD_PUNCH", "PAPER_TAPE_PUNCH", (3) (""));
  9   421 
  9   422 dcl  DT_VALUE		       (0:16) fixed bin (8) uns int static options (constant)
  9   423 			       init (0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, (3) (0));
  9   424 
  9   425 /* device resource attributes: indexes in arrays, names array, values array */
  9   426 
  9   427 dcl  SH_DEDICATED		       fixed bin int static options (constant) init (1);
  9   428 dcl  SH_DEDICATED_OR_SHAREABLE       fixed bin int static options (constant) init (2);
  9   429 dcl  SH_EXCLUSIVELY_SHAREABLE	       fixed bin int static options (constant) init (3);
  9   430 
  9   431 dcl  SH_NAME		       (0:4) char (24) int static options (constant)
  9   432 			       init ("UNDEFINED", "DEDICATED", "DEDICATED_OR_SHAREABLE", "EXCLUSIVELY_SHAREABLE",
  9   433 			       "");
  9   434 
  9   435 dcl  SH_VALUE		       (0:4) bit (2) int static options (constant) init ("00"b, "01"b, "10"b, "11"b, "00"b);
  9   436 
  9   437 
  9   438 dcl  AU_END_OF_RECORD	       fixed bin int static options (constant) init (1);
  9   439 dcl  AU_END_OF_QUARANTINE_UNIT       fixed bin int static options (constant) init (2);
  9   440 dcl  AU_END_OF_INTERACTION_UNIT      fixed bin int static options (constant) init (3);
  9   441 dcl  AU_END_OF_SESSION	       fixed bin int static options (constant) init (4);
  9   442 dcl  AU_REPORT_UNIT		       fixed bin int static options (constant) init (5);
  9   443 dcl  AU_ACKNOWLEDGMENT_UNIT	       fixed bin int static options (constant) init (6);
  9   444 dcl  AU_USER_DEFINED_UNIT	       fixed bin int static options (constant) init (7);
  9   445 dcl  AU_RFU		       fixed bin int static options (constant) init (8);
  9   446 
  9   447 dcl  AU_NAME		       (0:8) char (16) int static options (constant)
  9   448 			       init ("UNDEFINED", "RECORD", "QUARANTINE_UNIT", "INTERACTION_UNIT", "SESSION",
  9   449 			       "RFU_REPORT_UNIT", "RFU_ACK_UNIT", "RFU_USER", "RFU");
  9   450 
  9   451 dcl  AU_VALUE		       (0:8) bit (8) int static options (constant)
  9   452 			       init ("00000000"b, "10000000"b, "01000000"b, "00100000"b, "00010000"b, "00001000"b,
  9   453 			       "00000100"b, "00000010"b, "00000001"b);
  9   454 
  9   455 /* line overflow condition: indexes in arrays, names array, values array */
  9   456 
  9   457 dcl  LO_TRUNCATION		       fixed bin int static options (constant) init (1);
  9   458 dcl  LO_FOLDING		       fixed bin int static options (constant) init (2);
  9   459 dcl  LO_NO_FOLDING		       fixed bin int static options (constant) init (3);
  9   460 
  9   461 dcl  LO_NAME		       (0:3) char (12) int static options (constant)
  9   462 			       init ("TRUNCATION", "TRUNCATION", "FOLDING", "NO_FOLDING");
  9   463 
  9   464 dcl  LO_VALUE		       (0:3) fixed bin (8) uns int static options (constant) init (0, 0, 1, 2);
  9   465 
  9   466 /* page overflow condition: indexes in arrays, names array, values array */
  9   467 
  9   468 dcl  PO_TRUNCATION		       fixed bin int static options (constant) init (1);
  9   469 dcl  PO_CLEAR		       fixed bin int static options (constant) init (2);
  9   470 dcl  PO_SCROLL		       fixed bin int static options (constant) init (3);
  9   471 dcl  PO_NO_PAGING		       fixed bin int static options (constant) init (4);
  9   472 
  9   473 dcl  PO_NAME		       (0:4) char (12) int static options (constant)
  9   474 			       init ("TRUNCATION", "TRUNCATION", "CLEAR", "SCROLL", "NO_PAGING");
  9   475 
  9   476 dcl  PO_VALUE		       (0:4) fixed bin (8) uns int static options (constant) init (0, 0, 1, 2, 3);
  9   477 
  9   478 /* character font: indexes in arrays, names array, values array */
  9   479 
  9   480 dcl  CF_ANY		       fixed bin int static options (constant) init (1);
  9   481 dcl  CF_ITALICS		       fixed bin int static options (constant) init (2);
  9   482 dcl  CF_ELITE		       fixed bin int static options (constant) init (3);
  9   483 dcl  CF_PICA		       fixed bin int static options (constant) init (4);
  9   484 
  9   485 dcl  CF_NAME		       (0:6) char (9) int static options (constant)
  9   486 			       init ("UNDEFINED", "ANY", "ITALICS", "ELITE", "PICA", (2) (""));
  9   487 
  9   488 dcl  CF_VALUE		       (0:6) fixed bin (8) uns int static options (constant) init (0, 1, 2, 3, 4, (2) (0));
  9   489 
  9   490 /* end_to_end acknowledgment support: indexes in arrays, names array, */
  9   491 /*                                    values array.                   */
  9   492 
  9   493 dcl  EAL_IO_TM		       fixed bin int static options (constant) init (1);
  9   494 dcl  EAL_DATA_ACK		       fixed bin int static options (constant) init (2);
  9   495 dcl  EAL_FCN_COMPLETE	       fixed bin int static options (constant) init (3);
  9   496 dcl  EAL_RFU		       fixed bin int static options (constant) init (4);
  9   497 
  9   498 dcl  EAL_NAME		       (0:4) char (12) int static options (constant)
  9   499 			       init ("IO_TM", "IO_TM", "DATA_ACK", "FCN_COMPLETE", "RFU");
  9   500 
  9   501 dcl  EAL_VALUE		       (0:4) fixed bin (16) uns int static options (constant) init (0, 0, 1, 2, 3);
  9   502 
  9   503 /* Secondary Link Protocol */
  9   504 
  9   505 dcl  SLP_ASYNCHRONOUS	       fixed bin int static options (constant) init (1);
  9   506 dcl  SLP_VIP_MULTIPOINT	       fixed bin int static options (constant) init (2);
  9   507 dcl  SLP_TMMVU_MULTIPOINT	       fixed bin int static options (constant) init (3);
  9   508 dcl  SLP_TMMRB_MULTIPOINT	       fixed bin int static options (constant) init (4);
  9   509 dcl  SLP_BSC_MULTIPOINT	       fixed bin int static options (constant) init (5);
  9   510 dcl  SLP_BSC_POINT_TO_POINT	       fixed bin int static options (constant) init (6);
  9   511 dcl  SLP_RCI_POINT_TO_POINT	       fixed bin int static options (constant) init (7);
  9   512 dcl  SLP_HDLC_MULTIPOINT	       fixed bin int static options (constant) init (8);
  9   513 dcl  SLP_HDLC_POINT_TO_POINT	       fixed bin int static options (constant) init (9);
  9   514 
  9   515 dcl  SLP_NAME		       (0:12) char (20) int static options (constant)
  9   516 			       init ("UNDEFINED", "ASYNCHRONOUS", "VIP_MULTIPOINT", "TMMVU_MULTIPOINT",
  9   517 			       "TMMRB_MULTIPOINT", "BSC_MULTIPOINT", "BSC_POINT_TO_POINT", "RCI_POINT_TO_POINT",
  9   518 			       "HDLC_MULTIPOINT", "HDLC_POINT_TO_POINT", (3) (""));
  9   519 
  9   520 dcl  SLP_VALUE		       (0:12) fixed bin (8) uns int static options (constant)
  9   521 			       init (0, 1, 2, 3, 4, 5, 6, 7, 10, 11, (3) (0));
  9   522 
  9   523 /* Type of Network */
  9   524 
  9   525 dcl  NT_SWITCHED		       fixed bin int static options (constant) init (1);
  9   526 dcl  NT_X21		       fixed bin int static options (constant) init (2);
  9   527 dcl  NT_X25		       fixed bin int static options (constant) init (3);
  9   528 
  9   529 dcl  NT_NAME		       (0:4) char (9) int static options (constant)
  9   530 			       init ("UNDEFINED", "SWITCHED", "X21", "X25", "");
  9   531 
  9   532 dcl  NT_VALUE		       (0:4) fixed bin (8) uns int static options (constant) init (0, 1, 2, 3, 0);
  9   533 
  9   534 /* miscellaneous */
  9   535 
  9   536 dcl  TM_OFFER		       fixed bin int static options (constant) init (1);
  9   537 dcl  TM_ACCEPT		       fixed bin int static options (constant) init (2);
  9   538 dcl  TM_REJECT		       fixed bin int static options (constant) init (3);
  9   539 dcl  TM_SWITCH		       fixed bin int static options (constant) init (4);
  9   540 
  9   541 /*  END OF:  dsatm_negotiate_info.incl.pl1		  *  *  *  *  *  */
     1588 
 10     1 /*--------------------BEGIN dsatm_attn_fcn_info.incl.pl1---------------------*/
 10     2 
 10     3 
 10     4 /****^  HISTORY COMMENTS:
 10     5*  1) change(87-07-01,LJAdams), approve(87-07-28,MCR7742),
 10     6*     audit(87-07-23,Gilcrease), install(87-08-04,MR12.1-1056):
 10     7*     Declared ptr orderip within the include file.
 10     8*                                                   END HISTORY COMMENTS */
 10     9 
 10    10 /*****************************************************************************/
 10    11 /*							       */
 10    12 /*   Define the attention functions.				       */
 10    13 /*   There are two types of attention:                                       */
 10    14 /*    	destructive:     the session is recovered.                         */
 10    15 /*	non-destructive: ATTENTION 1 to 9.                                 */
 10    16 /*                                                                           */
 10    17 /*   A new set of attentions replaced the previous one.                      */
 10    18 /*   The attentions can be cancelled as following:                           */
 10    19 /*   - The destructive attention (all the invocations)                       */
 10    20 /*   - The non destructive attentions (all the invocations)                  */
 10    21 /*   - The attention i, and only the invocations specified in the structure. */
 10    22 /*							       */
 10    23 /*   Invocation:                                                             */
 10    24 /*   - An attention may have up to four invocation types.                    */
 10    25 /*   - BREAK KEY : can be mapped on only one attention at the same time.     */
 10    26 /*   - SEC_DIALOG: the attention cannot be invoked directly, but instead via */
 10    27 /*                 the secondary dialogue.                                   */
 10    28 /*                                                                           */
 10    29 /*   Written by Roger Negaret in June 1984.			       */
 10    30 /*****************************************************************************/
 10    31 
 10    32 /* format: style3,dclind5,idind32,insnl,delnl */
 10    33 
 10    34 dcl  orderip                         ptr;
 10    35 
 10    36 dcl  1 attention_fcn_info	       based (orderip) aligned,
 10    37        2 version		       char (8),
 10    38        2 attention_fcn	       like attention_fcn aligned;
 10    39 
 10    40 dcl  attn_fcn_ptr		       ptr;
 10    41 
 10    42 dcl  1 attention_fcn	       based (attn_fcn_ptr) aligned,
 10    43        2 cancelled		       (0:9) bit (1) unal,
 10    44        2 attn		       (0:9),
 10    45          3 invocation,
 10    46 	 4 break		       bit (1) unal,
 10    47 	 4 string		       bit (1) unal,
 10    48 	 4 fcn_key	       bit (1) unal,
 10    49 	 4 sec_dialog	       bit (1) unal,
 10    50          3 string_value	       (4) char (2) unal;	/* up to four invocation strings */
 10    51 
 10    52 /* Attention types */
 10    53 
 10    54 dcl  AT_DESTRUCTIVE		       fixed bin int static options (constant) init (1);
 10    55 dcl  AT_NON_DESTRUCTIVE	       fixed bin int static options (constant) init (2);
 10    56 
 10    57 /* Some attention codes */
 10    58 
 10    59 dcl  AC_ATTD		       fixed bin int static options (constant) init (0);
 10    60 dcl  AC_ATT1		       fixed bin int static options (constant) init (1);
 10    61 dcl  AC_ATT2		       fixed bin int static options (constant) init (2);
 10    62 
 10    63 /* Attention invocations */
 10    64 
 10    65 dcl  AI_STRING		       fixed bin int static options (constant) init (1);
 10    66 dcl  AI_FCN_KEY		       fixed bin int static options (constant) init (2);
 10    67 dcl  AI_BREAK		       fixed bin int static options (constant) init (3);
 10    68 dcl  AI_SEC_DIALOG		       fixed bin int static options (constant) init (4);
 10    69 
 10    70 
 10    71 dcl  ATTENTION_FCN_INFO_V1	       char (8) int static options (constant) init ("ATTFCNV1");
 10    72 
 10    73 /*----------------------END dsatm_attn_fcn_info.incl.pl1---------------------*/
 10    74 
     1589 
 11     1 /*  BEGIN:   check_star_name.incl.pl1			  *  *  *  *  *  */
 11     2 
 11     3 /****^  HISTORY COMMENTS:
 11     4*  1) change(86-08-14,JSLove), approve(86-08-14,MCR7518),
 11     5*     audit(86-08-14,FCSmith), install(86-10-02,MR12.0-1174):
 11     6*     Created, to support check_star_name_ entrypoint.
 11     7*  2) change(87-06-01,GDixon), approve(87-07-13,MCR7740),
 11     8*     audit(87-06-24,Hartogs), install(87-08-04,MR12.1-1056):
 11     9*     Change structures and bit structures to be unaligned, to match the
 11    10*     check_star_name_ parameters to which such strings are passed.
 11    11*                                                   END HISTORY COMMENTS */
 11    12 
 11    13 /* format: style3,comcol71,ifthenstmt,indcomtxt,indproc,idind30 */
 11    14 
 11    15 declare	1 check_star		aligned based,
 11    16 	  2 reject_wild		bit (1) unaligned,
 11    17 	  2 ignore_archive		bit (1) unaligned,
 11    18 	  2 process_archive		bit (1) unaligned,
 11    19 	  2 ignore_entrypoint	bit (1) unaligned,
 11    20 	  2 process_entrypoint	bit (1) unaligned,
 11    21 	  2 ignore_path		bit (1) unaligned,
 11    22 	  2 process_path		bit (1) unaligned,
 11    23 	  2 ignore_equal		bit (1) unaligned,
 11    24 	  2 ignore_length		bit (1) unaligned,
 11    25 	  2 ignore_nonascii		bit (1) unaligned,
 11    26 	  2 ignore_null		bit (1) unaligned,
 11    27 	  2 unimplemented		bit (25) unaligned;
 11    28 
 11    29 declare	(
 11    30 	CHECK_STAR_ENTRY_DEFAULT	initial ("00010001000"b),	/* Behavior of check_star_name_$entry (obsolete). */
 11    31 	CHECK_STAR_IGNORE_ALL	initial ("01010101111"b),	/* Check for *** and classify only.		*/
 11    32 	CHECK_STAR_IGNORE_ARCHIVE	initial ("01000000000"b),	/* Do not reject archive convention "::".	*/
 11    33 	CHECK_STAR_IGNORE_ENTRYPOINT	initial ("00010000000"b),	/* Do not reject "$" or "|" characters.		*/
 11    34 	CHECK_STAR_IGNORE_EQUAL	initial ("00000001000"b),	/* Do not reject "=" or "%" characters.		*/
 11    35 	CHECK_STAR_IGNORE_LENGTH	initial ("00000000100"b),	/* Do not reject star names longer than 32 chars.	*/
 11    36 	CHECK_STAR_IGNORE_NONASCII	initial ("00000000010"b),	/* No not reject star names with nonASCII chars.	*/
 11    37 	CHECK_STAR_IGNORE_NULL	initial ("00000000001"b),	/* Do not reject names with null components.	*/
 11    38 	CHECK_STAR_IGNORE_PATH	initial ("00000100000"b),	/* Do not reject "<" or ">" characters.		*/
 11    39 	CHECK_STAR_PATH_DEFAULT	initial ("00110011100"b),	/* Behavior of check_star_name_$path (obsolete).	*/
 11    40 	CHECK_STAR_PROCESS_ARCHIVE	initial ("00100000000"b),	/* Process "::" as archive delimiter.		*/
 11    41 	CHECK_STAR_PROCESS_ENTRYPOINT initial ("00001000000"b),	/* Ignore trailing entrypoint if present.	*/
 11    42 	CHECK_STAR_PROCESS_PATH	initial ("00000010000"b),	/* Ignore leading directory path if present.	*/
 11    43 	CHECK_STAR_REJECT_WILD	initial ("10000000000"b),	/* Return error_table_$nostars if type not zero.	*/
 11    44 	CHECK_STAR_UNIMPLEMENTED	initial ("001FFFFFF"b4)	/* Nonexistent test flags.  Reject them.	*/
 11    45 	)			bit (36) static options (constant);
 11    46 
 11    47 declare	(
 11    48 	STAR_TYPE_MATCHES_EVERYTHING	initial (2),
 11    49 	STAR_TYPE_USE_MATCH_PROCEDURE	initial (1),
 11    50 	STAR_TYPE_USE_PL1_COMPARE	initial (0)
 11    51 	)			fixed bin (2) static options (constant);
 11    52 
 11    53 /*  END OF:  check_star_name.incl.pl1			  *  *  *  *  *  */
     1590 
     1591 
     1592      end /* display_ttt */;
	SOURCE FILES USED IN THIS COMPILATION.

LINE      NUMBER  DATE MODIFIED     NAME			PATHNAME
             0    10/20/88  1422.8  display_ttt.pl1                   >spec>install>1175>display_ttt.pl1
1576         1    10/18/88  1210.6  ttt.incl.pl1                      >ldd>include>ttt.incl.pl1
1-232        2    10/18/88  1210.6  tty_convert.incl.pl1              >ldd>include>tty_convert.incl.pl1
1578         3    08/06/87  0913.5  term_type_protocols.incl.pl1      >ldd>include>term_type_protocols.incl.pl1
1580         4    09/09/75  2007.3  author_dcl.incl.pl1               >ldd>include>author_dcl.incl.pl1
4-10         5    04/21/82  1211.8  author.incl.pl1                   >ldd>include>author.incl.pl1
1582         6    08/06/87  0913.4  line_types.incl.pl1               >ldd>include>line_types.incl.pl1
1584         7    08/11/81  1106.2  tty_video_tables.incl.pl1         >ldd>include>tty_video_tables.incl.pl1
1586         8    02/23/81  2146.3  function_key_data.incl.pl1        >ldd>include>function_key_data.incl.pl1
1588         9    08/06/87  0913.4  dsatm_negotiate_info.incl.pl1     >ldd>include>dsatm_negotiate_info.incl.pl1
1589        10    08/06/87  0912.7  dsatm_attn_fcn_info.incl.pl1      >ldd>include>dsatm_attn_fcn_info.incl.pl1
1590        11    08/06/87  0913.4  check_star_name.incl.pl1          >ldd>include>check_star_name.incl.pl1
	NAMES DECLARED IN THIS COMPILATION.

IDENTIFIER	     OFFSET    LOC STORAGE CLASS   DATA TYPE		ATTRIBUTES AND REFERENCES
								(* indicates a set context)

NAMES DECLARED BY DECLARE STATEMENT.
AU_NAME                         000105 constant        char(16)                 initial array packed unaligned dcl 9-447 set ref
                                                                                  1356*
CA_NAME                         000476 constant        char(16)                 initial array packed unaligned dcl 9-313 set ref
                                                                                  1391*
CE_NAME                         000656 constant        char(12)                 initial array packed unaligned dcl 9-258 set ref
                                                                                  1367*
CF_NAME                         000032 constant        char(9)                  initial array packed unaligned dcl 9-485 set ref
                                                                                  1397*
CHECK_STAR_IGNORE_ALL           000031 constant        bit(36)                  initial packed unaligned dcl 11-29 set ref 280* 293*
CSS_NAME                        000536 constant        char(16)                 initial array packed unaligned dcl 9-295 set ref
                                                                                  1379*
CS_NAME                         000562 constant        char(16)                 initial array packed unaligned dcl 9-279 set ref
                                                                                  1373*
CV_TRANS_SIZE                   001102 constant        fixed bin(17,0)          initial array dcl 2-129 ref 551
DPP_NAME                        000457 constant        char(12)                 initial array packed unaligned dcl 9-363 set ref
                                                                                  1326*
DT_NAME                         000207 constant        char(20)                 initial array packed unaligned dcl 9-417 set ref
                                                                                  1345*
LO_NAME                         000071 constant        char(12)                 initial array packed unaligned dcl 9-461 set ref
                                                                                  1359*
NL_NAME                         000522 constant        char(9)                  initial array packed unaligned dcl 9-305 set ref
                                                                                  1385*
NO_PROTOCOL                            constant        fixed bin(17,0)          initial dcl 3-17 ref 1115
NUL                                    constant        char(1)                  initial packed unaligned dcl 112 ref 1164 1168
PO_NAME                         000052 constant        char(12)                 initial array packed unaligned dcl 9-473 set ref
                                                                                  1362*
RC_NAME                         000334 constant        char(16)                 initial array packed unaligned dcl 9-392 set ref
                                                                                  1338*
SC_NAME                         000440 constant        char(12)                 initial array packed unaligned dcl 9-372 set ref
                                                                                  1332*
SHOW_ALL                               constant        fixed bin(17,0)          initial dcl 102 ref 337
SHOW_MATCH                             constant        fixed bin(17,0)          initial dcl 103 ref 342 347 350 408 530 541 564 635
                                                                                  664
SHOW_NONE                              constant        fixed bin(17,0)          initial dcl 104 ref 341 348 402 533
SH_NAME                         000151 constant        char(24)                 initial array packed unaligned dcl 9-431 set ref
                                                                                  1348*
STAR_TYPE_MATCHES_EVERYTHING           constant        fixed bin(2,0)           initial dcl 11-47 ref 763
STAR_TYPE_USE_MATCH_PROCEDURE          constant        fixed bin(2,0)           initial dcl 11-47 ref 765
STAR_TYPE_USE_PL1_COMPARE              constant        fixed bin(2,0)           initial dcl 11-47 ref 411 544 567 638 767
SYS_DIR                         001376 constant        char(17)                 initial packed unaligned dcl 107 ref 899
TTT_version_4                   001564 constant        fixed bin(17,0)          initial dcl 1-30 set ref 386 388*
absolute_pathname_$add_suffix   000010 constant        entry                    external dcl 68 ref 304
additional_info         112     000347 automatic       structure                level 2 in structure "copy_of_tte" unaligned dcl 213
                                                                                  in procedure "display_ttt"
additional_info         112            based           structure                level 2 in structure "tte" dcl 1-59 in procedure
                                                                                  "display_ttt" set ref 429* 467*
addr                                                   builtin function         dcl 242 ref 407 432 449 480 481 539 553 559 562 585
                                                                                  591 596 602 615 615 630 644 645 646 647 648 655
                                                                                  655 660 681 703 720 734 790 790 958 984 990 1151
                                                                                  1164 1168 1181 1184 1187 1203 1261 1431 1458 1461
addrel                                                 builtin function         dcl 242 ref 622 658
all_caps                        001367 constant        char(26)                 initial packed unaligned dcl 108 ref 279 875 883
all_lowercase                   001360 constant        char(26)                 initial packed unaligned dcl 110 ref 279 875 883
alloc_unit               43            based           bit(8)                   level 3 dcl 9-136 ref 1353
ans_spec                        000340 automatic       char(1)                  packed unaligned dcl 207 set ref 702* 704 704 707
                                                                                  713 721 724 728*
answerback_entry                       based           structure                level 1 dcl 1-214
answerback_entry_ptr            000576 automatic       pointer                  dcl 1-211 set ref 692* 694 698 702 703 713 713 720
                                                                                  734 734 740* 740
answerback_offset        44            based           fixed bin(18,0)          level 2 dcl 1-34 ref 692
arg                                    based           char                     packed unaligned dcl 171 set ref 264 264 268* 273
                                                                                  273 273 273 279 286 286 292 299 299 304* 308 308
                                                                                  315 315 321 321 322 322 326* 800 804 856 856 861*
                                                                                  863* 868 868 875 883
argl                            000104 automatic       fixed bin(17,0)          dcl 170 set ref 263* 264 264 268 268 273 273 273 273
                                                                                  279 286 286 292 299 299 304 304 308 308 315 315
                                                                                  321 321 322 322 326 326 800 801* 804 855* 856 856
                                                                                  861 861 863 863 868 868 875 883
argp                            000102 automatic       pointer                  dcl 169 set ref 263* 264 264 268 273 273 273 273 279
                                                                                  286 286 292 299 299 304 308 308 315 315 321 321
                                                                                  322 322 326 800 801* 804 855* 856 856 861 863 868
                                                                                  868 875 883
array                     1            based           structure                array level 2 dcl 230
asc_value                       000000 constant        char(3)                  initial array packed unaligned dcl 1558 ref 1565
                                                                                  1565
attached                        000273 automatic       bit(1)                   packed unaligned dcl 186 set ref 353* 367* 828 834*
attention_fcn                          based           structure                level 1 dcl 10-42
attentions              126            based           structure                level 2 dcl 9-136
attn                    127            based           structure                array level 3 dcl 9-136
attribute                42            based           structure                level 2 dcl 9-136
author                                 based           structure                level 2 in structure "ttt" dcl 1-34 in procedure
                                                                                  "display_ttt"
author                                 based           structure                level 2 in structure "author_dcl" dcl 4-9
                                                                                  in procedure "display_ttt"
author_dcl                             based           structure                level 1 dcl 4-9
based_bit18                            based           bit(18)                  packed unaligned dcl 223 ref 1151 1181
based_bit9                             based           bit(9)                   packed unaligned dcl 222 set ref 1164* 1168* 1184*
                                                                                  1187* 1203*
based_fb17                             based           fixed bin(17,0)          packed unaligned dcl 225 ref 958 990
based_fb8                              based           fixed bin(8,0)           packed unaligned dcl 224 set ref 615* 615* 703 720
based_seq                              based           fixed bin(8,0)           array packed unaligned dcl 226 set ref 591* 602*
baud                      1            based           fixed bin(17,0)          array level 3 dcl 1-127 set ref 681 681*
baud_rate                 1            based           fixed bin(17,0)          array level 3 dcl 1-202 set ref 1046 1046*
bauds_overridden        133            based           bit(1)                   level 3 packed packed unaligned dcl 1-59 ref 470
break                   127            based           bit(1)                   array level 5 packed packed unaligned dcl 9-136 ref
                                                                                  1407
byte                                                   builtin function         dcl 242 ref 1002 1002 1471 1471 1474 1474
c                                      parameter       char(1)                  packed unaligned dcl 1554 ref 1552 1564 1570 1570
                                                                                  1571 1572
c_chars                                based           structure                level 1 dcl 2-54
c_chars_length                  000346 automatic       fixed bin(17,0)          dcl 211 set ref 574* 576 576 576 576 576 588 588 591
                                                                                  591 599 599 602 602
char                                                   builtin function         dcl 242 ref 655
char_encoding            50            based           fixed bin(17,0)          array level 2 dcl 9-136 ref 1365 1365 1367 1367
char_font               112            based           fixed bin(17,0)          array level 2 dcl 9-136 ref 1395 1395 1397 1397
char_set                 60            based           fixed bin(17,0)          array level 2 dcl 9-136 ref 1371 1371 1373 1373
char_subset              76            based           fixed bin(17,0)          array level 2 dcl 9-136 ref 1377 1377 1379 1379
chars                     3            based           char(1)                  array level 3 in structure "answerback_entry" packed
                                                                                  packed unaligned dcl 1-214 in procedure
                                                                                  "display_ttt" set ref 702 703 713 713 720
chars                     0(09)        based           char(1)                  array level 2 in structure "c_chars" packed packed
                                                                                  unaligned dcl 2-54 in procedure "display_ttt" ref
                                                                                  574
charx                           000337 automatic       fixed bin(17,0)          dcl 206 set ref 696* 698 699 702 703 709* 709 713
                                                                                  713 716* 716 720 730* 730
check_star_name_                000012 constant        entry                    external dcl 69 ref 280 293
cleanup                         000540 stack reference condition                dcl 240 ref 354
clock_                          000014 constant        entry                    external dcl 70 ref 396 396
code                            000305 automatic       fixed bin(35,0)          dcl 194 set ref 263* 267 268* 270 277 280* 281 290
                                                                                  293* 294 303 304* 305 325* 326* 360* 361 363* 368*
                                                                                  369 371* 372* 378* 381* 801* 802 802* 805* 819*
                                                                                  820 822* 830* 831 831* 837* 855* 861* 862 863* 874
                                                                                  893* 895* 904* 906* 907
code_len                        000666 automatic       fixed bin(17,0)          dcl 938 set ref 958* 961 965 987
com_err_                        000016 constant        entry                    external dcl 71 ref 326 332 363 371 381 388 530 664
                                                                                  728 802 822 831 858 863 870 880 895
com_name                        001403 constant        char(20)                 initial packed unaligned dcl 106 set ref 858* 863*
                                                                                  870* 880* 895*
compression             106            based           fixed bin(17,0)          array level 2 dcl 9-136 ref 1389 1389 1391 1391
conditional_printer_off
                        130(02) 000347 automatic       bit(1)                   level 3 in structure "copy_of_tte" packed packed
                                                                                  unaligned dcl 213 in procedure "display_ttt" set
                                                                                  ref 518
conditional_printer_off
                        130(02)        based           bit(1)                   level 3 in structure "tte" packed packed unaligned
                                                                                  dcl 1-59 in procedure "display_ttt" set ref 518
                                                                                  1215 1250*
copy_of_tte                     000347 automatic       structure                level 1 unaligned dcl 213 set ref 450* 456
copy_offset_ptr                 000330 automatic       pointer                  dcl 202 set ref 480* 483
count                                  based           fixed bin(8,0)           array level 2 packed packed unaligned dcl 236 set
                                                                                  ref 576* 588 599
cpad                      0(18)        based           fixed bin(18,0)          level 2 packed packed unsigned unaligned dcl 7-37
                                                                                  ref 1483 1486 1487 1491
cpad_in_chars             0(04)        based           bit(1)                   level 3 packed packed unaligned dcl 7-37 ref 1482
cpad_present              0(03)        based           bit(1)                   level 3 packed packed unaligned dcl 7-37 ref 1481
cpad_to_print                   000114 automatic       fixed bin(35,0)          dcl 1454 set ref 1483* 1487* 1491* 1494*
cpad_units                      000115 automatic       char(3)                  packed unaligned dcl 1455 set ref 1484* 1488* 1492*
                                                                                  1494*
cu_$arg_count                   000020 constant        entry                    external dcl 72 ref 259 853
cu_$arg_ptr                     000022 constant        entry                    external dcl 73 ref 263 801 855
cur                             000673 automatic       fixed bin(17,0)          dcl 941 set ref 988* 989 990* 994 1002 1002 1005
                                                                                  1011 1015
currentsize                                            builtin function         dcl 242 ref 658 658
cursor_motion_keys        5            based           structure                level 2 dcl 8-7
cv_trans                               based           structure                level 1 dcl 2-62 in procedure "display_ttt"
cv_trans                 13            based           structure                level 3 in structure "table_entry" dcl 1-137
                                                                                  in procedure "display_ttt"
cv_trans_struc                         based           structure                level 1 dcl 2-107
date_str                        000306 automatic       char(24)                 packed unaligned dcl 195 set ref 396* 397*
date_time_                      000024 constant        entry                    external dcl 74 ref 396
debug_sw                        000300 automatic       bit(1)                   packed unaligned dcl 188 set ref 253* 321* 416
def_string                2            based           structure                level 2 dcl 1-214
default_type_offset      43            based           fixed bin(18,0)          level 2 dcl 1-34 ref 673 675
delay                                  based           structure                level 1 dcl 2-66
delay_array               1            based           structure                array level 2 dcl 1-202
delay_name                      001235 constant        char(9)                  initial array packed unaligned dcl 134 set ref 1064*
                                                                                  1068*
delay_overridden        133(01)        based           bit(1)                   array level 3 packed packed unaligned dcl 1-59 ref
                                                                                  475
delay_rp                124            based           fixed bin(18,0)          level 3 dcl 1-59 ref 473 1039 1042
delay_table                            based           structure                level 1 dcl 1-202
delay_tablep                    000574 automatic       pointer                  dcl 1-200 set ref 473* 1042* 1045 1046 1046 1063
                                                                                  1064 1068
delays                    4            based           fixed bin(17,0)          array level 3 in structure "delay_table" dcl 1-202
                                                                                  in procedure "display_ttt" set ref 1068*
delays                    4            based           float bin(27)            array level 3 in structure "float_delays" dcl 230
                                                                                  in procedure "display_ttt" set ref 1064*
delayx                                 parameter       fixed bin(17,0)          dcl 1061 in procedure "print_delay" ref 1059 1064
                                                                                  1064 1064 1064 1068 1068
delayx                          000322 automatic       fixed bin(17,0)          dcl 199 in procedure "display_ttt" set ref 474* 475
                                                                                  475* 1051* 1052*
dev_id                   40            based           fixed bin(16,0)          level 2 unsigned dcl 9-136 set ref 1342 1342*
dev_type                 41            based           fixed bin(17,0)          level 2 dcl 9-136 ref 1345 1345
dft_count                              based           fixed bin(17,0)          level 2 dcl 1-127 ref 677 680 681
dft_header                      000213 automatic       bit(1)                   packed unaligned dcl 179 set ref 249* 282* 295* 336
dftt                                   based           structure                level 1 dcl 1-127
dftte                     1            based           structure                array level 2 dcl 1-127
dfttp                           000566 automatic       pointer                  dcl 1-125 set ref 675* 677 680 681 681 681 681 681
                                                                                  681
display_all_tables              000303 automatic       bit(1)                   packed unaligned dcl 191 set ref 255*
divide                                                 builtin function         dcl 242 ref 622 1487
down                     25            based           structure                array level 3 dcl 8-7 set ref 648
dpp                       1            based           fixed bin(17,0)          array level 2 dcl 9-136 ref 1325 1325 1326 1326
dsa_rp                                 parameter       fixed bin(18,0)          dcl 1317 ref 1315 1321 1322 1323
dsatm_device                           based           structure                level 1 dcl 9-136
dsatm_network                          based           structure                level 1 dcl 9-195
dsatm_presentation                     based           structure                level 1 dcl 9-75
dsatm_station                          based           structure                level 1 dcl 9-113
dsatmdevp                       000612 automatic       pointer                  dcl 9-134 set ref 1323* 1325 1325 1326 1326 1330
                                                                                  1330 1332 1332 1336 1336 1338 1338 1342 1342 1345
                                                                                  1345 1348 1348 1353 1359 1359 1362 1362 1365 1365
                                                                                  1367 1367 1371 1371 1373 1373 1377 1377 1379 1379
                                                                                  1383 1383 1385 1385 1389 1389 1391 1391 1395 1395
                                                                                  1397 1397 1401 1401 1407 1409 1411 1411 1416
edited_escapes                         based           structure                array level 2 dcl 2-26 set ref 596
editing_chars           127            based           structure                level 2 in structure "tte" dcl 1-59 in procedure
                                                                                  "display_ttt"
editing_chars           127     000347 automatic       structure                level 2 in structure "copy_of_tte" dcl 213
                                                                                  in procedure "display_ttt"
entries                   0(09)        based           fixed bin(8,0)           array level 2 packed packed unaligned dcl 236 set
                                                                                  ref 576* 591 602
erase                   127     000347 automatic       char(1)                  level 3 in structure "copy_of_tte" packed packed
                                                                                  unaligned dcl 213 in procedure "display_ttt" set
                                                                                  ref 490
erase                   127            based           char(1)                  level 3 in structure "tte" packed packed unaligned
                                                                                  dcl 1-59 in procedure "display_ttt" set ref 490
                                                                                  1127 1130*
error_table_$badopt             000066 external static fixed bin(35,0)          dcl 93 ref 325
error_table_$noarg              000064 external static fixed bin(35,0)          dcl 93 ref 805
error_table_$nomatch            000070 external static fixed bin(35,0)          dcl 93 ref 770
error_table_$unimplemented_version
                                000072 external static fixed bin(35,0)          dcl 93 set ref 388*
error_table_$wrong_no_of_args   000074 external static fixed bin(35,0)          dcl 93 set ref 858* 870* 880*
escape_length            54            based           fixed bin(17,0)          level 2 dcl 2-26 ref 581 596 608 608 615 615 615 615
                                                                                  615 615 615 615 615 615 622 622 622 622 622 622
expand_like                     000302 automatic       bit(1)                   packed unaligned dcl 190 set ref 254* 322* 331 417
expand_pathname_$add_suffix     000026 constant        entry                    external dcl 75 ref 268 861
express_in_decimal        0(01)        based           bit(1)                   level 3 packed packed unaligned dcl 7-69 set ref
                                                                                  1465*
express_in_octal          0(02)        based           bit(1)                   level 3 packed packed unaligned dcl 7-69 set ref
                                                                                  1465*
extended_tables                        based           structure                level 1 dcl 1-114
extended_tables_ntables                constant        fixed bin(17,0)          initial dcl 1-122 ref 1279
extended_tables_rp      137     000347 automatic       fixed bin(18,0)          level 2 in structure "copy_of_tte" dcl 213
                                                                                  in procedure "display_ttt" set ref 1283 1285
extended_tables_rp      137            based           fixed bin(18,0)          level 2 in structure "tte" dcl 1-59 in procedure
                                                                                  "display_ttt" ref 1280 1281
extended_tablesp                000564 automatic       pointer                  dcl 1-112 set ref 1280* 1281* 1288 1298 1299 1299
                                                                                  1307 1308 1308
file_err                        000341 automatic       bit(1)                   packed unaligned dcl 208 set ref 816* 823* 831
fkey_data                10            based           structure                level 2 dcl 1-177 set ref 630 660
fkey_offset              42            based           fixed bin(18,0)          level 2 dcl 1-34 ref 629
fkey_seq_names                  001120 constant        char(5)                  initial array packed unaligned dcl 158 set ref 651*
fkey_seqs_ptr                   000524 automatic       pointer                  array dcl 217 set ref 644* 645* 646* 647* 648* 651*
fkey_table                             based           structure                level 1 dcl 1-177 set ref 658
fkey_tablep                     000572 automatic       pointer                  dcl 1-175 set ref 629* 630 631 636 643 658* 658 658
                                                                                  660 661
flags                                  based           structure                level 2 in structure "tty_numeric_encoding" packed
                                                                                  packed unaligned dcl 7-69 in procedure
                                                                                  "display_ttt"
flags                   130            based           structure                level 2 in structure "tte" dcl 1-59 in procedure
                                                                                  "display_ttt"
flags                                  based           structure                level 2 in structure "tty_video_seq" packed packed
                                                                                  unaligned dcl 7-37 in procedure "display_ttt"
flags                   130     000347 automatic       structure                level 2 in structure "copy_of_tte" dcl 213
                                                                                  in procedure "display_ttt"
float_delays                           based           structure                level 1 dcl 230
flow_control_chars      135     000347 automatic       structure                level 2 in structure "copy_of_tte" packed packed
                                                                                  unaligned dcl 213 in procedure "display_ttt"
flow_control_chars      135            based           structure                level 2 in structure "tte" packed packed unaligned
                                                                                  dcl 1-59 in procedure "display_ttt"
found                           000271 automatic       bit(1)                   packed unaligned dcl 184 set ref 409* 410 411 542*
                                                                                  543 544 565* 566 567 636* 637 638
found_one                       000272 automatic       bit(1)                   packed unaligned dcl 185 set ref 405* 413* 530 536*
                                                                                  546* 569* 640* 664
frame_begin             127(18)        based           char(1)                  level 4 packed packed unaligned dcl 1-59 set ref
                                                                                  1154*
frame_end               127(27)        based           char(1)                  level 4 packed packed unaligned dcl 1-59 set ref
                                                                                  1154*
framing_chars           127(18)        based           structure                level 3 in structure "tte" packed packed unaligned
                                                                                  dcl 1-59 in procedure "display_ttt" set ref 496
                                                                                  1151
framing_chars           127(18) 000347 automatic       structure                level 3 in structure "copy_of_tte" packed packed
                                                                                  unaligned dcl 213 in procedure "display_ttt" set
                                                                                  ref 496
function_key_data                      based           structure                level 1 dcl 8-7
function_key_data_ptr           000610 automatic       pointer                  dcl 8-34 set ref 630* 644 645 646 647 648 651 651
                                                                                  654 655 655 655 655 658 658 660*
function_key_rp                        parameter       fixed bin(18,0)          dcl 1504 ref 1502
function_key_seqs                      based           char                     packed unaligned dcl 8-32 set ref 651* 655* 658
function_keys            31            based           structure                array level 2 dcl 8-7 set ref 655 655
general_tables                  000216 automatic       bit(1)                   packed unaligned dcl 182 set ref 250* 282* 295* 668
hbound                                                 builtin function         dcl 242 ref 574 1279 1325 1330 1336 1365 1371 1377
                                                                                  1383 1389 1395 1440 1565
hcs_$initiate                   000030 constant        entry                    external dcl 76 ref 378 893
hcs_$terminate_noname           000032 constant        entry                    external dcl 77 ref 837
header                          000215 automatic       bit(1)                   packed unaligned dcl 181 set ref 312* 319* 336* 394
header_spec                     000214 automatic       bit(1)                   packed unaligned dcl 180 set ref 251* 311* 318* 336
highest                  11            based           fixed bin(17,0)          level 3 in structure "fkey_table" dcl 1-177
                                                                                  in procedure "display_ttt" set ref 658
highest                         000102 automatic       fixed bin(17,0)          dcl 1514 in procedure "print_fkey_seqs" set ref
                                                                                  1520* 1521 1523 1530
highest                   1            based           fixed bin(17,0)          level 2 in structure "function_key_data" dcl 8-7
                                                                                  in procedure "display_ttt" ref 654
home                      5            based           structure                array level 3 dcl 8-7 set ref 644
i                               000315 automatic       fixed bin(17,0)          dcl 197 in procedure "display_ttt" set ref 433* 434*
                                                                                  482* 483 483 483* 538* 539* 561* 633* 680* 681 681
                                                                                  681 681 681 681* 903* 906 907* 1045* 1046 1046*
                                                                                  1100* 1101 1101*
i                               000100 automatic       fixed bin(17,0)          dcl 1318 in procedure "print_dsa_table" set ref
                                                                                  1325* 1326 1326* 1330* 1332 1332* 1336* 1338 1338*
                                                                                  1352* 1353 1353* 1365* 1367 1367* 1371* 1373 1373*
                                                                                  1377* 1379 1379* 1383* 1385 1385* 1389* 1391 1391*
                                                                                  1395* 1397 1397* 1405* 1406 1407 1407 1409 1409
                                                                                  1411 1411 1413* 1413
i                               000100 automatic       fixed bin(17,0)          dcl 1514 in procedure "print_fkey_seqs" set ref
                                                                                  1525* 1526 1527*
i                               000110 automatic       fixed bin(17,0)          dcl 1452 in procedure "print_seq" set ref 1462* 1463
                                                                                  1463 1476* 1476 1479 1479*
i                               000675 automatic       fixed bin(17,0)          dcl 943 in procedure "print_str" set ref 967* 970
                                                                                  970 971* 971 975 975* 987* 988 990 992* 992 999
                                                                                  999 1000* 1000* 1026 1029
i                               002335 automatic       fixed bin(17,0)          dcl 1277 in procedure "print_extended_tables" set
                                                                                  ref 1290* 1291 1291* 1298* 1299 1299 1299* 1307*
                                                                                  1308 1308 1308 1308*
i                               000100 automatic       fixed bin(17,0)          dcl 1426 in procedure "print_video_table" set ref
                                                                                  1440* 1441*
i                               000100 automatic       fixed bin(17,0)          dcl 1555 in procedure "tchar" set ref 1564* 1565
                                                                                  1565 1566 1567*
iarg                            000101 automatic       fixed bin(17,0)          dcl 168 set ref 261* 263* 799* 799 801* 854* 855*
idx                                    parameter       fixed bin(17,0)          dcl 1258 ref 1255 1260 1261
index                                                  builtin function         dcl 242 ref 1570
initial_string          110     000347 automatic       structure                level 2 in structure "copy_of_tte" unaligned dcl 213
                                                                                  in procedure "display_ttt"
initial_string          110            based           structure                level 2 in structure "tte" dcl 1-59 in procedure
                                                                                  "display_ttt" set ref 428* 464*
input_escapes                          based           structure                level 2 dcl 2-26
input_results                          based           structure                level 2 dcl 2-26
input_resume            135(09) 000347 automatic       char(1)                  level 3 in structure "copy_of_tte" packed packed
                                                                                  unaligned dcl 213 in procedure "display_ttt" set
                                                                                  ref 499
input_resume            135(09)        based           char(1)                  level 3 in structure "tte" packed packed unaligned
                                                                                  dcl 1-59 in procedure "display_ttt" set ref 499
                                                                                  1168 1168
input_suspend           135     000347 automatic       char(1)                  level 3 in structure "copy_of_tte" packed packed
                                                                                  unaligned dcl 213 in procedure "display_ttt" set
                                                                                  ref 499
input_suspend           135            based           char(1)                  level 3 in structure "tte" packed packed unaligned
                                                                                  dcl 1-59 in procedure "display_ttt" set ref 499
                                                                                  1164 1164
input_timeout           130(03) 000347 automatic       bit(1)                   level 3 in structure "copy_of_tte" packed packed
                                                                                  unaligned dcl 213 in procedure "display_ttt" set
                                                                                  ref 499
input_timeout           130(03)        based           bit(1)                   level 3 in structure "tte" packed packed unaligned
                                                                                  dcl 1-59 in procedure "display_ttt" set ref 499
                                                                                  1168*
input_translation_rp    116     000347 automatic       fixed bin(18,0)          level 3 in structure "copy_of_tte" dcl 213
                                                                                  in procedure "display_ttt" set ref 480
input_translation_rp    116            based           fixed bin(18,0)          level 3 in structure "tte" dcl 1-59 in procedure
                                                                                  "display_ttt" set ref 432 481
invocation              127            based           structure                array level 4 dcl 9-136
ioa_                            000034 constant        entry                    external dcl 78 ref 416 899 907
ioa_$ioa_switch                 000036 constant        entry                    external dcl 79 ref 397 425 452 549 553 572 576 584
                                                                                  589 591 595 600 602 612 615 643 679 681 734 738
                                                                                  747 923 949 961 978 1018 1049 1064 1068 1080 1085
                                                                                  1106 1118 1130 1142 1154 1164 1168 1184 1187 1190
                                                                                  1203 1209 1212 1215 1229 1236 1243 1250 1262 1321
                                                                                  1326 1332 1338 1342 1345 1348 1356 1359 1362 1367
                                                                                  1373 1379 1385 1391 1397 1401 1407 1409 1411 1416
                                                                                  1428 1433 1435 1437 1497 1535
ioa_$ioa_switch_nnl             000040 constant        entry                    external dcl 80 ref 421 423 695 699 707 713 721 724
                                                                                  785 789 1044 1046 1460 1465 1471 1474 1475 1479
                                                                                  1494 1522 1527 1530
ioa_$rsnnl                      000042 constant        entry                    external dcl 81 ref 1011 1101 1567
iocbp                           000276 automatic       pointer                  dcl 187 set ref 356* 360* 368* 372* 397* 421* 423*
                                                                                  425* 452* 549* 553* 572* 576* 584* 589* 591* 595*
                                                                                  600* 602* 612* 615* 643* 679* 681* 695* 699* 707*
                                                                                  713* 721* 724* 734* 738* 747* 785* 789* 819* 830*
                                                                                  923* 949* 961* 978* 1018* 1044* 1046* 1049* 1064*
                                                                                  1068* 1080* 1085* 1106* 1118* 1130* 1142* 1154*
                                                                                  1164* 1168* 1184* 1187* 1190* 1203* 1209* 1212*
                                                                                  1215* 1229* 1236* 1243* 1250* 1262* 1321* 1326*
                                                                                  1332* 1338* 1342* 1345* 1348* 1356* 1359* 1362*
                                                                                  1367* 1373* 1379* 1385* 1391* 1397* 1401* 1407*
                                                                                  1409* 1411* 1416* 1428* 1433* 1435* 1437* 1460*
                                                                                  1465* 1471* 1474* 1475* 1479* 1494* 1497* 1522*
                                                                                  1527* 1530* 1535*
iox_$attach_name                000044 constant        entry                    external dcl 82 ref 360
iox_$close                      000046 constant        entry                    external dcl 83 ref 819
iox_$detach_iocb                000050 constant        entry                    external dcl 84 ref 372 830
iox_$open                       000052 constant        entry                    external dcl 85 ref 368
iox_$user_output                000062 external static pointer                  dcl 92 ref 356
j                               000676 automatic       fixed bin(17,0)          dcl 943 in procedure "print_str" set ref 969 970 970
                                                                                  971 998 999 999 1000 1026* 1026 1026* 1029* 1029
j                               000316 automatic       fixed bin(17,0)          dcl 197 in procedure "display_ttt" set ref 552* 553
                                                                                  553* 575* 576 576 576 576* 587* 588 589 589 591
                                                                                  591 591* 598* 599 600 600 602 602 602* 614* 615
                                                                                  615 615* 650* 651 651* 654* 655 655 655*
j                               000101 automatic       fixed bin(17,0)          dcl 1319 in procedure "print_dsa_table" set ref
                                                                                  1351* 1352 1353* 1356 1356
j                               000101 automatic       fixed bin(17,0)          dcl 1514 in procedure "print_fkey_seqs" set ref
                                                                                  1526* 1527 1527
keep_looping                    000304 automatic       bit(1)                   packed unaligned dcl 192 set ref 404* 406 411* 535*
                                                                                  538 544* 560* 561 567* 638*
key                             000342 automatic       char(12)                 packed unaligned dcl 209 set ref 800* 802*
key_info                               based           structure                level 1 packed packed unaligned dcl 8-28
keyboard_addressing     130            based           bit(1)                   level 3 in structure "tte" packed packed unaligned
                                                                                  dcl 1-59 in procedure "display_ttt" set ref 512
                                                                                  1209 1236*
keyboard_addressing     130     000347 automatic       bit(1)                   level 3 in structure "copy_of_tte" packed packed
                                                                                  unaligned dcl 213 in procedure "display_ttt" set
                                                                                  ref 512
kill                    127(09)        based           char(1)                  level 3 in structure "tte" packed packed unaligned
                                                                                  dcl 1-59 in procedure "display_ttt" set ref 493
                                                                                  1139 1142*
kill                    127(09) 000347 automatic       char(1)                  level 3 in structure "copy_of_tte" packed packed
                                                                                  unaligned dcl 213 in procedure "display_ttt" set
                                                                                  ref 493
l_c_or_n                  0(04)        based           fixed bin(2,0)           level 2 packed packed unsigned unaligned dcl 7-69
                                                                                  ref 1465
lb                              000674 automatic       bit(1)                   packed unaligned dcl 942 set ref 986* 995 1009 1015*
lbound                                                 builtin function         dcl 242 ref 1325 1330 1336 1365 1371 1377 1383 1389
                                                                                  1395
left                     11            based           structure                array level 3 dcl 8-7 set ref 645
len                                    based           fixed bin(8,0)           level 3 in structure "special_chars" packed packed
                                                                                  unaligned dcl 2-26 in procedure "display_ttt" ref
                                                                                  608 615 615 615 622 622
len                       1            parameter       fixed bin(17,0)          level 2 in structure "source" dcl 932 in procedure
                                                                                  "print_str" ref 957 958 967 984 1026
len                       1(15)        based           fixed bin(9,0)           level 2 in structure "tty_video_seq" packed packed
                                                                                  unsigned unaligned dcl 7-37 in procedure
                                                                                  "display_ttt" ref 1462
length                                                 builtin function         dcl 242 in procedure "display_ttt" ref 622 1463
length                    2            based           fixed bin(17,0)          level 3 in structure "answerback_entry" dcl 1-214
                                                                                  in procedure "display_ttt" ref 698
like                                   parameter       bit(1)                   packed unaligned dcl 936 in procedure "print_str"
                                                                                  ref 929 949
like                                   parameter       bit(1)                   packed unaligned dcl 1162 in procedure "print_ifc"
                                                                                  ref 1159 1164 1168
like                                   parameter       bit(1)                   packed unaligned dcl 1179 in procedure "print_ofc"
                                                                                  ref 1176 1181
like                                   parameter       bit(1)                   packed unaligned dcl 1224 in procedure
                                                                                  "print_old_type" ref 1222 1226
like                                   parameter       bit(1)                   packed unaligned dcl 1093 in procedure
                                                                                  "print_line_types" ref 1091 1096
like                                   parameter       bit(1)                   packed unaligned dcl 1200 in procedure
                                                                                  "print_line_delimiter" ref 1197 1202
like                                   parameter       bit(1)                   packed unaligned dcl 1137 in procedure "print_kill"
                                                                                  ref 1135 1139
like                                   parameter       bit(1)                   packed unaligned dcl 1078 in procedure "print_table"
                                                                                  ref 1075 1080
like                                   parameter       bit(1)                   packed unaligned dcl 1274 in procedure
                                                                                  "print_extended_tables" ref 1272 1283
like                                   parameter       bit(1)                   packed unaligned dcl 1149 in procedure "print_frame"
                                                                                  ref 1147 1151
like                                   parameter       bit(1)                   packed unaligned dcl 1125 in procedure "print_erase"
                                                                                  ref 1123 1127
like                                   parameter       bit(1)                   packed unaligned dcl 1113 in procedure
                                                                                  "print_protocol" ref 1111 1115
like_extended_tablesp           002332 automatic       pointer                  dcl 1275 set ref 1283* 1285* 1286* 1289 1290 1291
                                                                                  1297 1308
like_flags              133            based           structure                level 2 packed packed unaligned dcl 1-59
like_type               132     000347 automatic       fixed bin(17,0)          level 2 in structure "copy_of_tte" dcl 213
                                                                                  in procedure "display_ttt" set ref 455*
like_type               132            based           fixed bin(17,0)          level 2 in structure "tte" dcl 1-59 in procedure
                                                                                  "display_ttt" ref 417 417 420 449 455 788 790 790
line_delimiter          133(18)        based           char(1)                  level 2 in structure "tte" packed packed unaligned
                                                                                  dcl 1-59 in procedure "display_ttt" set ref 510
                                                                                  1202 1203
line_delimiter          133(18) 000347 automatic       char(1)                  level 2 in structure "copy_of_tte" packed packed
                                                                                  unaligned dcl 213 in procedure "display_ttt" set
                                                                                  ref 510
line_overflow            46            based           fixed bin(17,0)          level 2 dcl 9-136 ref 1359 1359
line_type                 2            based           fixed bin(17,0)          array level 3 dcl 1-127 ref 681 681
line_type_str                   002132 automatic       char(168)                packed unaligned dcl 1094 set ref 1099* 1101* 1101*
                                                                                  1105* 1106*
line_types              125     000347 automatic       bit(72)                  level 2 in structure "copy_of_tte" packed packed
                                                                                  unaligned dcl 213 in procedure "display_ttt" set
                                                                                  ref 487
line_types              125            based           bit(72)                  level 2 in structure "tte" dcl 1-59 in procedure
                                                                                  "display_ttt" ref 487 1096 1101
line_types                      000711 constant        char(16)                 initial array packed unaligned dcl 6-54 in procedure
                                                                                  "display_ttt" set ref 681* 1101*
low                                                    builtin function         dcl 242 ref 1202
ltrim                                                  builtin function         dcl 242 ref 655
match_name                      000546 automatic       char(32)                 packed unaligned dcl 847 set ref 875* 883* 906*
match_star_name_                000054 constant        entry                    external dcl 86 ref 765 906
max_line_type                          constant        fixed bin(17,0)          initial dcl 6-48 ref 1100
max_rec_size            125            based           fixed bin(16,0)          level 2 unsigned dcl 9-136 set ref 1401 1401*
min                                                    builtin function         dcl 242 ref 1279 1290 1298 1307 1440 1463
mod                                                    builtin function         dcl 242 ref 1486
modes                    10     000347 automatic       char(256)                level 2 in structure "copy_of_tte" packed packed
                                                                                  unaligned dcl 213 in procedure "display_ttt" set
                                                                                  ref 458
modes                    10            based           char(256)                level 2 in structure "tte" dcl 1-59 in procedure
                                                                                  "display_ttt" set ref 458 923 923*
must_be_on                             based           bit(1)                   level 3 packed packed unaligned dcl 7-69 ref 1464
my_code                         000642 automatic       fixed bin(35,0)          dcl 761 set ref 763* 765* 768* 770* 773
my_ttep                                parameter       pointer                  dcl 783 ref 779 785 788 790 790
n                               000336 automatic       fixed bin(17,0)          dcl 205 set ref 588* 589 591* 591 599* 600 602* 602
                                                                                  703* 704 707 713 713 716 720* 721* 724 724* 1063*
                                                                                  1064* 1068* 1101*
n_bauds                                based           fixed bin(17,0)          level 2 dcl 1-202 ref 1045 1063 1068
n_fkey_tables            41            based           fixed bin(17,0)          level 2 dcl 1-34 ref 633
n_special_tables         40            based           fixed bin(17,0)          level 2 dcl 1-34 ref 561
n_tables                 37            based           fixed bin(17,0)          level 2 dcl 1-34 ref 538 559
n_tt_entries             36            based           fixed bin(17,0)          level 2 dcl 1-34 ref 406 539 559 903
name                                   parameter       char                     packed unaligned dcl 1257 in procedure
                                                                                  "print_preaccess_type" set ref 1255 1262*
name                                   based           char(32)                 level 2 in structure "tte" packed packed unaligned
                                                                                  dcl 1-59 in procedure "display_ttt" set ref 409*
                                                                                  416* 425* 452* 454 681* 734* 785* 1262*
name                                   based           char(32)                 level 2 in structure "special_table" packed packed
                                                                                  unaligned dcl 1-143 in procedure "display_ttt" set
                                                                                  ref 565* 572*
name                                   based           char(32)                 level 2 in structure "fkey_table" packed packed
                                                                                  unaligned dcl 1-177 in procedure "display_ttt" set
                                                                                  ref 636* 643*
name                            000347 automatic       char(32)                 level 2 in structure "copy_of_tte" packed packed
                                                                                  unaligned dcl 213 in procedure "display_ttt" set
                                                                                  ref 452* 454*
name                                   based           char(32)                 level 2 in structure "table_entry" packed packed
                                                                                  unaligned dcl 1-137 in procedure "display_ttt" set
                                                                                  ref 542* 549* 1085*
name                     52            based           char(32)                 array level 3 in structure "ttt" packed packed
                                                                                  unaligned dcl 1-34 in procedure "display_ttt" set
                                                                                  ref 906* 907*
name_to_check                          parameter       char                     packed unaligned dcl 757 set ref 753 765* 768
name_to_match                          parameter       char                     packed unaligned dcl 758 set ref 753 765* 768
nargs                           000100 automatic       fixed bin(17,0)          dcl 167 set ref 259* 261 261 853* 854
nat_lang                102            based           fixed bin(17,0)          array level 2 dcl 9-136 ref 1383 1383 1385 1385
next                                   based           fixed bin(18,0)          level 2 dcl 1-214 ref 740
not_edited_escapes       55            based           structure                array level 2 dcl 2-26 set ref 585
nseq                     10            based           fixed bin(17,0)          level 2 dcl 7-12 ref 1431 1440
ntables                         002334 automatic       fixed bin(17,0)          dcl 1276 in procedure "print_extended_tables" set
                                                                                  ref 1279* 1290 1298 1307
ntables                                based           fixed bin(17,0)          level 2 in structure "extended_tables" dcl 1-114
                                                                                  in procedure "display_ttt" ref 1290 1298 1307
null                                                   builtin function         dcl 242 ref 352 360 360 379 837 894 1280 1283 1286
                                                                                  1288 1289 1297
num_digits                0(06)        based           fixed bin(2,0)           level 2 packed packed unsigned unaligned dcl 7-69
                                                                                  set ref 1465 1465*
offset                  112     000347 automatic       fixed bin(18,0)          level 3 in structure "copy_of_tte" dcl 213
                                                                                  in procedure "display_ttt" set ref 467
offset                  110     000347 automatic       fixed bin(18,0)          level 3 in structure "copy_of_tte" dcl 213
                                                                                  in procedure "display_ttt" set ref 464
offset                    0(09)        based           fixed bin(8,0)           level 2 in structure "tty_numeric_encoding" packed
                                                                                  packed unaligned dcl 7-69 in procedure
                                                                                  "display_ttt" ref 1471 1471 1471 1474 1474
offset                  112            based           fixed bin(18,0)          level 3 in structure "tte" dcl 1-59 in procedure
                                                                                  "display_ttt" set ref 467
offset                  110            based           fixed bin(18,0)          level 3 in structure "tte" dcl 1-59 in procedure
                                                                                  "display_ttt" set ref 464
offset                                 parameter       fixed bin(18,0)          level 2 in structure "source" dcl 932 in procedure
                                                                                  "print_str" ref 949 956
offset_array_ptr                000332 automatic       pointer                  dcl 203 set ref 432* 481* 483 1080 1085
offset_is_0               0(03)        based           bit(1)                   level 3 packed packed unaligned dcl 7-69 ref 1471
                                                                                  1476
old_type                131            based           fixed bin(17,0)          level 2 in structure "tte" dcl 1-59 in procedure
                                                                                  "display_ttt" set ref 520 1226 1229*
old_type                131     000347 automatic       fixed bin(17,0)          level 2 in structure "copy_of_tte" dcl 213
                                                                                  in procedure "display_ttt" set ref 520
only_table                      000177 automatic       char(32)                 packed unaligned dcl 176 set ref 245* 292* 293* 337
                                                                                  345 542* 565* 636* 664*
only_type                       000167 automatic       char(32)                 packed unaligned dcl 175 set ref 245* 279* 280* 337
                                                                                  409* 530*
opened                          000274 automatic       bit(1)                   packed unaligned dcl 186 set ref 353* 375* 817 826*
output_block_acknowledge
                        130(04)        based           bit(1)                   level 3 in structure "tte" packed packed unaligned
                                                                                  dcl 1-59 in procedure "display_ttt" set ref 504
                                                                                  1184* 1187* 1190
output_block_acknowledge
                        130(04) 000347 automatic       bit(1)                   level 3 in structure "copy_of_tte" packed packed
                                                                                  unaligned dcl 213 in procedure "display_ttt" set
                                                                                  ref 504
output_buffer_size      136            based           fixed bin(17,0)          level 2 in structure "tte" dcl 1-59 in procedure
                                                                                  "display_ttt" set ref 504 1190 1190*
output_buffer_size      136     000347 automatic       fixed bin(17,0)          level 2 in structure "copy_of_tte" dcl 213
                                                                                  in procedure "display_ttt" set ref 504
output_file                     000217 automatic       char(168)                packed unaligned dcl 183 set ref 252* 304* 331 356
                                                                                  360 363* 371* 822* 831*
output_resume_ack       135(27) 000347 automatic       char(1)                  level 3 in structure "copy_of_tte" packed packed
                                                                                  unaligned dcl 213 in procedure "display_ttt" set
                                                                                  ref 504
output_resume_ack       135(27)        based           char(1)                  level 3 in structure "tte" packed packed unaligned
                                                                                  dcl 1-59 in procedure "display_ttt" set ref 504
                                                                                  1187
output_suspend_etb      135(18)        based           char(1)                  level 3 in structure "tte" packed packed unaligned
                                                                                  dcl 1-59 in procedure "display_ttt" set ref 504
                                                                                  1181 1184
output_suspend_etb      135(18) 000347 automatic       char(1)                  level 3 in structure "copy_of_tte" packed packed
                                                                                  unaligned dcl 213 in procedure "display_ttt" set
                                                                                  ref 504
p                               000112 automatic       pointer                  dcl 1453 in procedure "print_seq" set ref 1461* 1464
                                                                                  1465 1465 1465 1465 1465 1471 1471 1471 1471 1474
                                                                                  1474 1476
p                               000334 automatic       pointer                  dcl 204 in procedure "display_ttt" set ref 585* 588
                                                                                  591 596* 599 602
page_overflow            47            based           fixed bin(17,0)          level 2 dcl 9-136 ref 1362 1362
pn_given                        000556 automatic       bit(1)                   packed unaligned dcl 848 set ref 851* 857 866* 888
present                                based           bit(1)                   level 3 packed packed unaligned dcl 7-37 ref 1459
print_extended_table            000510 automatic       entry variable           initial array dcl 215 set ref 215* 215* 215* 1279
                                                                                  1291 1299 1308
print_preaccess_message
                        130(01)        based           bit(1)                   level 3 in structure "tte" packed packed unaligned
                                                                                  dcl 1-59 in procedure "display_ttt" set ref 515
                                                                                  1212 1243*
print_preaccess_message
                        130(01) 000347 automatic       bit(1)                   level 3 in structure "copy_of_tte" packed packed
                                                                                  unaligned dcl 213 in procedure "display_ttt" set
                                                                                  ref 515
proc_group_id                          based           char(32)                 level 3 dcl 1-34 set ref 397*
prog_name                       001410 constant        char(11)                 initial packed unaligned dcl 105 set ref 326* 332*
                                                                                  363* 371* 381* 388* 530* 664* 728* 802* 822* 831*
protocol                140     000347 automatic       fixed bin(17,0)          level 2 in structure "copy_of_tte" dcl 213
                                                                                  in procedure "display_ttt" set ref 461
protocol                140            based           fixed bin(17,0)          level 2 in structure "tte" dcl 1-59 in procedure
                                                                                  "display_ttt" ref 461 1115 1118
protocol_names                  001051 constant        char(32)                 initial array packed unaligned dcl 3-21 set ref
                                                                                  1118*
ptr                                                    builtin function         dcl 242 ref 473 629 631 661 675 692 740 956 1042
                                                                                  1085 1281 1285 1323 1430
rank                                                   builtin function         dcl 242 ref 988 1026 1026 1564
real_class               13            based           fixed bin(17,0)          array level 3 dcl 9-136 ref 1336 1336 1338 1338
real_dpp                 12            based           structure                level 2 dcl 9-136
rel                                                    builtin function         dcl 242 ref 694
requote_string_                 000056 constant        entry                    external dcl 87 ref 713 961 970 999
rest_of_ttt                            based           fixed bin(17,0)          array level 2 dcl 1-34 set ref 559
right                    21            based           structure                array level 3 dcl 8-7 set ref 646
rtrim                                                  builtin function         dcl 242 ref 1565
sc_escape_len                   000600 automatic       fixed bin(17,0)          dcl 2-58 set ref 581* 582 587 589 591 598 600 602
sc_input_escape_len             000601 automatic       fixed bin(17,0)          dcl 2-59 set ref 608* 610 614 615
screen_height             1            based           fixed bin(17,0)          level 2 dcl 7-12 set ref 1433 1433*
screen_line_length        2            based           fixed bin(17,0)          level 2 dcl 7-12 set ref 1435 1435*
scroll_count              3            based           fixed bin(17,0)          level 2 dcl 7-12 set ref 1437 1437*
sdp_class                 6            based           fixed bin(17,0)          array level 3 dcl 9-136 ref 1330 1330 1332 1332
sdp_dpp                   5            based           structure                level 2 dcl 9-136
sec_dialog              127(03)        based           bit(1)                   array level 5 packed packed unaligned dcl 9-136 ref
                                                                                  1409
seq                                    based           structure                array level 1 dcl 236
seq_index                 1(24)        based           fixed bin(12,0)          level 2 packed packed unsigned unaligned dcl 7-37
                                                                                  ref 1462 1462
seq_len                   4            based           fixed bin(21,0)          level 3 dcl 8-7 ref 651 651 655 655 658 658
seq_offset               12            based           fixed bin(18,0)          level 4 dcl 1-177 set ref 631 661
seqs                                   parameter       char                     packed unaligned dcl 1512 ref 1510 1527 1527
seqs_name                              parameter       char                     packed unaligned dcl 1513 set ref 1510 1522*
sequence                  2            based           structure                level 2 in structure "function_key_data" dcl 8-7
                                                                                  in procedure "display_ttt"
sequence                 12            based           structure                level 3 in structure "fkey_table" dcl 1-177
                                                                                  in procedure "display_ttt"
sequence_index                         based           fixed bin(12,0)          array level 2 packed packed unsigned unaligned
                                                                                  dcl 1518 ref 1526
sequence_length           0(12)        based           fixed bin(6,0)           array level 2 packed packed unsigned unaligned
                                                                                  dcl 1518 ref 1525 1541
sequences                11            based           structure                array level 2 dcl 7-12 set ref 1458
seqx                                   parameter       fixed bin(17,0)          dcl 1450 ref 1448 1458 1460
shareability             42            based           fixed bin(17,0)          level 3 dcl 9-136 ref 1348 1348
show_tables                     000212 automatic       fixed bin(17,0)          dcl 178 set ref 337* 342* 348* 350* 533 541 564 635
                                                                                  664
show_types                      000211 automatic       fixed bin(17,0)          dcl 178 set ref 337* 341* 347* 350* 402 408 530
source                                 parameter       structure                level 1 dcl 932 ref 929
sourcep                         000536 automatic       pointer                  dcl 218 set ref 631* 651 655 658 661*
spec_field                      001253 constant        char(15)                 initial array packed unaligned dcl 121 set ref 576*
special_chars                          based           structure                level 1 dcl 2-26 in procedure "display_ttt" set ref
                                                                                  622
special_chars            13            based           structure                level 3 in structure "special_table" dcl 1-143
                                                                                  in procedure "display_ttt" set ref 562
special_table                          based           structure                level 1 dcl 1-143
special_tablep                  000324 automatic       pointer                  dcl 200 set ref 559* 562 565 572 622*
specialp                        000326 automatic       pointer                  dcl 201 set ref 562* 574 576 576 581 585 596 608 615
                                                                                  615 622 622
stc_available           165            based           bit(1)                   level 2 dcl 9-136 ref 1416
str                                    based           char                     packed unaligned dcl 946 in procedure "print_str"
                                                                                  set ref 958 961* 970 970 975 975 984 988 990 999
                                                                                  999 1026 1026
str                                    based           char                     level 3 in structure "special_chars" packed packed
                                                                                  unaligned dcl 2-26 in procedure "display_ttt" set
                                                                                  ref 615
str                                    based           char                     level 3 in structure "special_chars" packed packed
                                                                                  unaligned dcl 2-26 in procedure "display_ttt" set
                                                                                  ref 615
string                                                 builtin function         dcl 242 in procedure "display_ttt" ref 496 496 1353
string                  127(01)        based           bit(1)                   array level 5 in structure "dsatm_device" packed
                                                                                  packed unaligned dcl 9-136 in procedure
                                                                                  "display_ttt" ref 1411
string_value            130            based           char(2)                  array level 4 packed packed unaligned dcl 9-136 set
                                                                                  ref 1411*
stringl                         000672 automatic       fixed bin(17,0)          dcl 940 set ref 957* 958 961 961 970 970 975 975 984
                                                                                  988 990 999 999 1026 1026
stringp                         000670 automatic       pointer                  dcl 939 set ref 956* 958 961 970 970 975 975 984*
                                                                                  984 988 990 999 999 1026 1026
substr                                                 builtin function         dcl 242 set ref 615 615 713 713 800 804 958 970 970
                                                                                  975 975 984 988 990 999 999 1026 1026 1101 1105*
                                                                                  1353 1463 1479 1479 1527 1527
table                    11            based           structure                level 2 in structure "table_entry" dcl 1-137
                                                                                  in procedure "display_ttt"
table                    11            based           structure                level 2 in structure "special_table" dcl 1-143
                                                                                  in procedure "display_ttt"
table_array                            based           bit(9)                   array packed unaligned dcl 227 set ref 553*
table_entry                            based           structure                level 1 dcl 1-137
table_len                       000345 automatic       fixed bin(17,0)          dcl 210 set ref 551* 552 553
table_name                      001325 constant        char(18)                 initial array packed unaligned dcl 113 set ref 1080*
                                                                                  1085*
table_offset                           based           fixed bin(18,0)          array dcl 228 ref 483 483 1080 1085
table_starname_type             000210 automatic       fixed bin(2,0)           dcl 177 set ref 247* 293* 542* 544 565* 567 636* 638
table_types                     001104 constant        char(12)                 initial array packed unaligned dcl 1-226 set ref
                                                                                  549*
tablep                          000570 automatic       pointer                  dcl 1-135 set ref 539* 542 549 549 551 553
tables                  116     000347 automatic       structure                level 2 in structure "copy_of_tte" unaligned dcl 213
                                                                                  in procedure "display_ttt"
tables                                 based           structure                array level 2 in structure "ttt" dcl 1-34
                                                                                  in procedure "display_ttt" set ref 539
tables                  116            based           structure                level 2 in structure "tte" dcl 1-59 in procedure
                                                                                  "display_ttt"
tables_rp                 1            based           fixed bin(18,0)          array level 2 dcl 1-114 set ref 1291 1299 1299* 1308
                                                                                  1308 1308*
tablex                                 parameter       fixed bin(17,0)          dcl 1077 ref 1075 1080 1080 1085 1085
temp                            000101 automatic       char(4)                  packed unaligned dcl 1556 in procedure "tchar" set
                                                                                  ref 1567* 1568
temp                            002061 automatic       varying char(16)         dcl 945 in procedure "print_str" set ref 1011* 1012
temp_key_index                  000103 automatic       fixed bin(17,0)          dcl 1516 set ref 1523* 1525 1526 1530* 1540* 1541
                                                                                  1541*
temp_key_info                          based           structure                array level 1 dcl 1518
temp_key_infop                         parameter       pointer                  dcl 1517 ref 1510 1525 1526 1541
temp_ttep                       000320 automatic       pointer                  dcl 198 set ref 449* 450
template                               based           structure                level 1 packed packed unaligned dcl 1-196
term_type_index           3            based           fixed bin(17,0)          array level 3 in structure "dftt" dcl 1-127
                                                                                  in procedure "display_ttt" ref 681
term_type_index           1            based           fixed bin(17,0)          level 2 in structure "answerback_entry" dcl 1-214
                                                                                  in procedure "display_ttt" ref 734 734
test_numeric_encoding           000116 automatic       structure                level 1 packed packed unaligned dcl 1456 set ref
                                                                                  1461 1463*
title                                  parameter       char                     packed unaligned dcl 931 set ref 929 949* 961* 978*
                                                                                  1018*
translate                                              builtin function         dcl 242 ref 279 875 883
tt_entries               52            based           structure                array level 2 dcl 1-34 set ref 407 449 681 734 790
                                                                                  790 1261
tte                                    based           structure                level 1 dcl 1-59 set ref 450 456
ttep                            000562 automatic       pointer                  dcl 1-57 set ref 407* 409 416 416* 417 417 420 422*
                                                                                  425 428 429 432 449 452 454 455 456 458 461 464
                                                                                  464 467 467 470 473 475 481 487 490 493 496 499
                                                                                  499 499 504 504 504 504 510 512 515 518 520 923
                                                                                  923 1039 1042 1096 1101 1115 1118 1127 1130 1139
                                                                                  1142 1151 1154 1154 1164 1164 1168 1168 1168 1181
                                                                                  1184 1184 1187 1187 1190 1190 1190 1202 1203 1209
                                                                                  1212 1215 1226 1229 1236 1243 1250 1261* 1262 1280
                                                                                  1281
ttp_given                       000557 automatic       bit(1)                   packed unaligned dcl 849 set ref 851* 869 876* 879
                                                                                  884* 904
ttt                                    based           structure                level 1 dcl 1-34
ttt_dir                         000105 automatic       char(168)                packed unaligned dcl 173 set ref 257* 268* 378* 381*
                                                                                  388* 397* 861* 890* 893* 895* 899 899*
ttt_ent                         000157 automatic       char(32)                 packed unaligned dcl 174 set ref 257* 268* 378* 381*
                                                                                  388* 397* 861* 890* 893* 895* 899 899*
ttt_info_$ttt_path              000060 constant        entry                    external dcl 88 ref 257 890
tttp                            000560 automatic       pointer                  dcl 1-32 set ref 352* 378* 379 386 388 397 397 406
                                                                                  407 449 473 538 539 559 561 629 629 631 633 661
                                                                                  673 675 675 681 692 692 734 740 743 744 745 790
                                                                                  790 837 837* 893* 894 903 906 907 956 1042 1085
                                                                                  1261 1281 1285 1323 1430
ttx                             000314 automatic       fixed bin(17,0)          dcl 196 set ref 406* 407*
tty_numeric_encoding                   based           structure                level 1 packed packed unaligned dcl 7-69
tty_video_seq                          based           structure                level 1 dcl 7-37
tty_video_table                        based           structure                level 1 dcl 7-12
tty_video_tables_version_1             internal static fixed bin(17,0)          initial dcl 7-7 ref 7-12
ttyvseqp                        000606 automatic       pointer                  dcl 7-35 set ref 1458* 1459 1462 1462 1462 1481 1482
                                                                                  1483 1486 1487 1491
ttyvtblp                        000602 automatic       pointer                  dcl 7-9 set ref 1430* 1431 1433 1433 1435 1435 1437
                                                                                  1437 1440 1458 1463 1463 1479 1479
type                     10            based           fixed bin(17,0)          level 2 dcl 1-137 ref 549
type_029                 50            based           fixed bin(17,0)          level 2 dcl 1-34 set ref 745*
type_963                 47            based           fixed bin(17,0)          level 2 dcl 1-34 set ref 744*
type_map                 46            based           fixed bin(17,0)          level 2 dcl 1-34 set ref 743*
type_match                             parameter       fixed bin(2,0)           dcl 759 ref 753 763 765 767
type_starname_type              000207 automatic       fixed bin(2,0)           dcl 177 set ref 247* 280* 409* 411
unspec                                                 builtin function         dcl 242 set ref 456 456 622 1463* 1463
up                       15            based           structure                array level 3 dcl 8-7 set ref 647
using_default_ttt_path          000301 automatic       bit(1)                   packed unaligned dcl 189 set ref 852* 889* 899
value                    13            based           fixed bin(8,0)           array level 4 packed packed unaligned dcl 1-137 set
                                                                                  ref 553
version                  11            based           fixed bin(17,0)          level 3 in structure "table_entry" dcl 1-137
                                                                                  in procedure "display_ttt" ref 551
version                  35            based           fixed bin(17,0)          level 2 in structure "ttt" dcl 1-34 in procedure
                                                                                  "display_ttt" set ref 386 388* 397*
video_chars                            based           char                     packed unaligned dcl 7-30 in procedure "display_ttt"
                                                                                  ref 1463 1463 1479 1479
video_chars                            based           char                     level 2 in structure "tty_video_table" packed packed
                                                                                  unaligned dcl 7-12 in procedure "display_ttt" set
                                                                                  ref 1431
video_chars_len           5            based           fixed bin(21,0)          level 2 dcl 7-12 ref 1431 1463 1463 1479 1479
video_chars_ptr                 000604 automatic       pointer                  dcl 7-29 set ref 1431* 1463 1463 1479 1479
video_rp                               parameter       fixed bin(18,0)          dcl 1425 ref 1423 1428 1429 1430
video_seq_names                 001127 constant        char(20)                 initial array packed unaligned dcl 142 set ref 1440
                                                                                  1460*
work                            000677 automatic       varying char(2500)       dcl 944 set ref 966* 970* 970 975* 975 976* 976 978*
                                                                                  983* 995* 995 999* 999 1002* 1002 1005* 1005 1009*
                                                                                  1009 1012* 1012 1018*
x                                      based           fixed bin(17,0)          level 2 dcl 230 ref 1064

NAMES DECLARED BY DECLARE STATEMENT AND NEVER REFERENCED.
ABS_POS                                internal static fixed bin(17,0)          initial dcl 7-54
AC_ATT1                                internal static fixed bin(17,0)          initial dcl 10-60
AC_ATT2                                internal static fixed bin(17,0)          initial dcl 10-61
AC_ATTD                                internal static fixed bin(17,0)          initial dcl 10-59
AI_BREAK                               internal static fixed bin(17,0)          initial dcl 10-67
AI_FCN_KEY                             internal static fixed bin(17,0)          initial dcl 10-66
AI_SEC_DIALOG                          internal static fixed bin(17,0)          initial dcl 10-68
AI_STRING                              internal static fixed bin(17,0)          initial dcl 10-65
ATTENTION_FCN_INFO_V1                  internal static char(8)                  initial packed unaligned dcl 10-71
AT_DESTRUCTIVE                         internal static fixed bin(17,0)          initial dcl 10-54
AT_NON_DESTRUCTIVE                     internal static fixed bin(17,0)          initial dcl 10-55
AU_ACKNOWLEDGMENT_UNIT                 internal static fixed bin(17,0)          initial dcl 9-443
AU_END_OF_INTERACTION_UNIT             internal static fixed bin(17,0)          initial dcl 9-440
AU_END_OF_QUARANTINE_UNIT              internal static fixed bin(17,0)          initial dcl 9-439
AU_END_OF_RECORD                       internal static fixed bin(17,0)          initial dcl 9-438
AU_END_OF_SESSION                      internal static fixed bin(17,0)          initial dcl 9-441
AU_REPORT_UNIT                         internal static fixed bin(17,0)          initial dcl 9-442
AU_RFU                                 internal static fixed bin(17,0)          initial dcl 9-445
AU_USER_DEFINED_UNIT                   internal static fixed bin(17,0)          initial dcl 9-444
AU_VALUE                               internal static bit(8)                   initial array packed unaligned dcl 9-451
CA_NO_COMPRESSION                      internal static fixed bin(17,0)          initial dcl 9-311
CA_VALUE                               internal static fixed bin(8,0)           initial array unsigned dcl 9-316
CE_BINARY_8BITS                        internal static fixed bin(17,0)          initial dcl 9-256
CE_EBCDIC                              internal static fixed bin(17,0)          initial dcl 9-254
CE_ISO_7BITS                           internal static fixed bin(17,0)          initial dcl 9-252
CE_ISO_8BITS                           internal static fixed bin(17,0)          initial dcl 9-253
CE_TELETEX                             internal static fixed bin(17,0)          initial dcl 9-255
CE_VALUE                               internal static fixed bin(8,0)           initial array unsigned dcl 9-262
CF_ANY                                 internal static fixed bin(17,0)          initial dcl 9-480
CF_ELITE                               internal static fixed bin(17,0)          initial dcl 9-482
CF_ITALICS                             internal static fixed bin(17,0)          initial dcl 9-481
CF_PICA                                internal static fixed bin(17,0)          initial dcl 9-483
CF_VALUE                               internal static fixed bin(8,0)           initial array unsigned dcl 9-488
CHECK_STAR_ENTRY_DEFAULT               internal static bit(36)                  initial packed unaligned dcl 11-29
CHECK_STAR_IGNORE_ARCHIVE              internal static bit(36)                  initial packed unaligned dcl 11-29
CHECK_STAR_IGNORE_ENTRYPOINT           internal static bit(36)                  initial packed unaligned dcl 11-29
CHECK_STAR_IGNORE_EQUAL                internal static bit(36)                  initial packed unaligned dcl 11-29
CHECK_STAR_IGNORE_LENGTH               internal static bit(36)                  initial packed unaligned dcl 11-29
CHECK_STAR_IGNORE_NONASCII             internal static bit(36)                  initial packed unaligned dcl 11-29
CHECK_STAR_IGNORE_NULL                 internal static bit(36)                  initial packed unaligned dcl 11-29
CHECK_STAR_IGNORE_PATH                 internal static bit(36)                  initial packed unaligned dcl 11-29
CHECK_STAR_PATH_DEFAULT                internal static bit(36)                  initial packed unaligned dcl 11-29
CHECK_STAR_PROCESS_ARCHIVE             internal static bit(36)                  initial packed unaligned dcl 11-29
CHECK_STAR_PROCESS_ENTRYPOINT          internal static bit(36)                  initial packed unaligned dcl 11-29
CHECK_STAR_PROCESS_PATH                internal static bit(36)                  initial packed unaligned dcl 11-29
CHECK_STAR_REJECT_WILD                 internal static bit(36)                  initial packed unaligned dcl 11-29
CHECK_STAR_UNIMPLEMENTED               internal static bit(36)                  initial packed unaligned dcl 11-29
CLEAR_SCREEN                           internal static fixed bin(17,0)          initial dcl 7-54
CLEAR_TO_EOL                           internal static fixed bin(17,0)          initial dcl 7-54
CLEAR_TO_EOS                           internal static fixed bin(17,0)          initial dcl 7-54
CONV_TYPE                              internal static fixed bin(17,0)          initial dcl 1-221
CP_NAME                                internal static char(12)                 initial array packed unaligned dcl 9-351
CP_NO_CONTROL                          internal static fixed bin(17,0)          initial dcl 9-349
CP_STANDARD                            internal static fixed bin(17,0)          initial dcl 9-348
CP_VALUE                               internal static bit(8)                   initial array packed unaligned dcl 9-354
CSS_UPPER_CASE                         internal static fixed bin(17,0)          initial dcl 9-292
CSS_UPPER_LOWER_CASE                   internal static fixed bin(17,0)          initial dcl 9-293
CSS_VALUE                              internal static fixed bin(8,0)           initial array unsigned dcl 9-298
CS_ASCII                               internal static fixed bin(17,0)          initial dcl 9-268
CS_FRENCH                              internal static fixed bin(17,0)          initial dcl 9-273
CS_GERMAN                              internal static fixed bin(17,0)          initial dcl 9-276
CS_GREEK                               internal static fixed bin(17,0)          initial dcl 9-274
CS_ISO                                 internal static fixed bin(17,0)          initial dcl 9-267
CS_NORWEGIAN_DANISH                    internal static fixed bin(17,0)          initial dcl 9-270
CS_PORTUGUESE                          internal static fixed bin(17,0)          initial dcl 9-272
CS_PSEUDO_GRAPHIC                      internal static fixed bin(17,0)          initial dcl 9-277
CS_SPANISH                             internal static fixed bin(17,0)          initial dcl 9-275
CS_SWEDISH_FINISH                      internal static fixed bin(17,0)          initial dcl 9-271
CS_UK                                  internal static fixed bin(17,0)          initial dcl 9-269
CS_VALUE                               internal static bit(8)                   initial array packed unaligned dcl 9-283
CURSOR_DOWN                            internal static fixed bin(17,0)          initial dcl 7-54
CURSOR_LEFT                            internal static fixed bin(17,0)          initial dcl 7-54
CURSOR_RIGHT                           internal static fixed bin(17,0)          initial dcl 7-54
CURSOR_UP                              internal static fixed bin(17,0)          initial dcl 7-54
CV_TRANS_VERSION                       internal static fixed bin(17,0)          initial dcl 2-127
DELAY_VERSION                          internal static fixed bin(17,0)          initial dcl 2-126
DELETE_CHARS                           internal static fixed bin(17,0)          initial dcl 7-54
DELETE_LINES                           internal static fixed bin(17,0)          initial dcl 7-54
DPP_REAL                               internal static fixed bin(17,0)          initial dcl 9-360
DPP_SDP                                internal static fixed bin(17,0)          initial dcl 9-359
DPP_TRANSPARENT                        internal static fixed bin(17,0)          initial dcl 9-361
DPP_VALUE                              internal static fixed bin(8,0)           initial array unsigned dcl 9-366
DSATM_DEVICE_RP                        internal static fixed bin(17,0)          initial dcl 1-118
DSATM_NEG_INFO_V1                      internal static char(8)                  initial packed unaligned dcl 9-206
DSATM_SW_DEV_INFO_V1                   internal static char(8)                  initial packed unaligned dcl 9-243
DT_BADGE_READER                        internal static fixed bin(17,0)          initial dcl 9-409
DT_CARD_PUNCH                          internal static fixed bin(17,0)          initial dcl 9-413
DT_CARD_READER                         internal static fixed bin(17,0)          initial dcl 9-407
DT_CASSETTE                            internal static fixed bin(17,0)          initial dcl 9-411
DT_DISKETTE                            internal static fixed bin(17,0)          initial dcl 9-412
DT_DISPLAY                             internal static fixed bin(17,0)          initial dcl 9-402
DT_KEYBOARD                            internal static fixed bin(17,0)          initial dcl 9-403
DT_KEYBOARD_DISPLAY                    internal static fixed bin(17,0)          initial dcl 9-406
DT_KEYBOARD_PRINTER                    internal static fixed bin(17,0)          initial dcl 9-405
DT_PAPER_TAPE_PUNCH                    internal static fixed bin(17,0)          initial dcl 9-414
DT_PAPER_TAPE_READER                   internal static fixed bin(17,0)          initial dcl 9-408
DT_RFE                                 internal static fixed bin(17,0)          initial dcl 9-410
DT_RO_PRINTER                          internal static fixed bin(17,0)          initial dcl 9-404
DT_UNDEFINED                           internal static fixed bin(17,0)          initial dcl 9-401
DT_VALUE                               internal static fixed bin(8,0)           initial array unsigned dcl 9-422
EAL_DATA_ACK                           internal static fixed bin(17,0)          initial dcl 9-494
EAL_FCN_COMPLETE                       internal static fixed bin(17,0)          initial dcl 9-495
EAL_IO_TM                              internal static fixed bin(17,0)          initial dcl 9-493
EAL_NAME                               internal static char(12)                 initial array packed unaligned dcl 9-498
EAL_RFU                                internal static fixed bin(17,0)          initial dcl 9-496
EAL_VALUE                              internal static fixed bin(16,0)          initial array unsigned dcl 9-501
END_INSERT_CHARS                       internal static fixed bin(17,0)          initial dcl 7-54
FKEY_TYPE                              internal static fixed bin(17,0)          initial dcl 1-224
FUNCTION_KEY_RP                        internal static fixed bin(17,0)          initial dcl 1-118
HOME                                   internal static fixed bin(17,0)          initial dcl 7-54
IA_ACCEPTOR                            internal static fixed bin(17,0)          initial dcl 9-339
IA_INITIATOR                           internal static fixed bin(17,0)          initial dcl 9-338
IA_NAME                                internal static char(12)                 initial array packed unaligned dcl 9-341
IA_VALUE                               internal static fixed bin(8,0)           initial array unsigned dcl 9-343
INPUT_CONVERT_BREAK                    internal static fixed bin(8,0)           initial packed unaligned dcl 2-135
INPUT_CONVERT_DISCARD                  internal static fixed bin(8,0)           initial packed unaligned dcl 2-135
INPUT_CONVERT_DSA_CR_PROCESSING        internal static fixed bin(8,0)           initial packed unaligned dcl 2-135
INPUT_CONVERT_ESCAPE                   internal static fixed bin(8,0)           initial packed unaligned dcl 2-135
INPUT_CONVERT_FORMFEED                 internal static fixed bin(8,0)           initial packed unaligned dcl 2-135
INPUT_CONVERT_ORDINARY                 internal static fixed bin(8,0)           initial packed unaligned dcl 2-135
INPUT_CONVERT_PRECEDENCE_DISCARD       internal static fixed bin(8,0)           initial packed unaligned dcl 2-135
INSERT_CHARS                           internal static fixed bin(17,0)          initial dcl 7-54
INSERT_LINES                           internal static fixed bin(17,0)          initial dcl 7-54
KEY_CTRL                               internal static fixed bin(17,0)          initial dcl 8-22
KEY_CTRL_AND_SHIFT                     internal static fixed bin(17,0)          initial dcl 8-22
KEY_PLAIN                              internal static fixed bin(17,0)          initial dcl 8-22
KEY_SHIFT                              internal static fixed bin(17,0)          initial dcl 8-22
LINE_1050                              internal static fixed bin(17,0)          initial dcl 6-22
LINE_2741                              internal static fixed bin(17,0)          initial dcl 6-22
LINE_ARDS                              internal static fixed bin(17,0)          initial dcl 6-22
LINE_ASCII                             internal static fixed bin(17,0)          initial dcl 6-22
LINE_ASYNC1                            internal static fixed bin(17,0)          initial dcl 6-22
LINE_ASYNC2                            internal static fixed bin(17,0)          initial dcl 6-22
LINE_ASYNC3                            internal static fixed bin(17,0)          initial dcl 6-22
LINE_BSC                               internal static fixed bin(17,0)          initial dcl 6-22
LINE_COLTS                             internal static fixed bin(17,0)          initial dcl 6-22
LINE_DSA                               internal static fixed bin(17,0)          initial dcl 6-22
LINE_ETX                               internal static fixed bin(17,0)          initial dcl 6-22
LINE_G115                              internal static fixed bin(17,0)          initial dcl 6-22
LINE_HASP_OPR                          internal static fixed bin(17,0)          initial dcl 6-22
LINE_HDLC                              internal static fixed bin(17,0)          initial dcl 6-22
LINE_MC                                internal static fixed bin(17,0)          initial dcl 6-22
LINE_POLLED_VIP                        internal static fixed bin(17,0)          initial dcl 6-22
LINE_SYNC1                             internal static fixed bin(17,0)          initial dcl 6-22
LINE_SYNC2                             internal static fixed bin(17,0)          initial dcl 6-22
LINE_SYNC3                             internal static fixed bin(17,0)          initial dcl 6-22
LINE_SYNCH                             internal static fixed bin(17,0)          initial dcl 6-22
LINE_TELNET                            internal static fixed bin(17,0)          initial dcl 6-22
LINE_UNKNOWN                           internal static fixed bin(17,0)          initial dcl 6-22
LINE_VIP                               internal static fixed bin(17,0)          initial dcl 6-22
LINE_X25LAP                            internal static fixed bin(17,0)          initial dcl 6-22
LO_FOLDING                             internal static fixed bin(17,0)          initial dcl 9-458
LO_NO_FOLDING                          internal static fixed bin(17,0)          initial dcl 9-459
LO_TRUNCATION                          internal static fixed bin(17,0)          initial dcl 9-457
LO_VALUE                               internal static fixed bin(8,0)           initial array unsigned dcl 9-464
MOWSE_FANSI_PROTOCOL                   internal static fixed bin(17,0)          initial dcl 3-19
MOWSE_PROTOCOL                         internal static fixed bin(17,0)          initial dcl 3-18
NL_FFS                                 internal static fixed bin(17,0)          initial dcl 9-303
NL_VALUE                               internal static fixed bin(8,0)           initial array unsigned dcl 9-307
NT_NAME                                internal static char(9)                  initial array packed unaligned dcl 9-529
NT_SWITCHED                            internal static fixed bin(17,0)          initial dcl 9-525
NT_VALUE                               internal static fixed bin(8,0)           initial array unsigned dcl 9-532
NT_X21                                 internal static fixed bin(17,0)          initial dcl 9-526
NT_X25                                 internal static fixed bin(17,0)          initial dcl 9-527
N_VIDEO_SEQUENCES                      internal static fixed bin(17,0)          initial dcl 7-64
OUTPUT_CONVERT_BRS                     internal static fixed bin(8,0)           initial packed unaligned dcl 2-147
OUTPUT_CONVERT_BS                      internal static fixed bin(8,0)           initial packed unaligned dcl 2-147
OUTPUT_CONVERT_CR                      internal static fixed bin(8,0)           initial packed unaligned dcl 2-147
OUTPUT_CONVERT_DONT_SEND               internal static fixed bin(8,0)           initial packed unaligned dcl 2-147
OUTPUT_CONVERT_FF                      internal static fixed bin(8,0)           initial packed unaligned dcl 2-147
OUTPUT_CONVERT_FIRST_SPECIAL           internal static fixed bin(8,0)           initial packed unaligned dcl 2-147
OUTPUT_CONVERT_HT                      internal static fixed bin(8,0)           initial packed unaligned dcl 2-147
OUTPUT_CONVERT_NEWLINE                 internal static fixed bin(8,0)           initial packed unaligned dcl 2-147
OUTPUT_CONVERT_NOT_USED_13             internal static fixed bin(8,0)           initial packed unaligned dcl 2-147
OUTPUT_CONVERT_NOT_USED_14             internal static fixed bin(8,0)           initial packed unaligned dcl 2-147
OUTPUT_CONVERT_NOT_USED_15             internal static fixed bin(8,0)           initial packed unaligned dcl 2-147
OUTPUT_CONVERT_NOT_USED_16             internal static fixed bin(8,0)           initial packed unaligned dcl 2-147
OUTPUT_CONVERT_NO_MOTION               internal static fixed bin(8,0)           initial packed unaligned dcl 2-147
OUTPUT_CONVERT_OCTAL                   internal static fixed bin(8,0)           initial packed unaligned dcl 2-147
OUTPUT_CONVERT_ORDINARY                internal static fixed bin(8,0)           initial packed unaligned dcl 2-147
OUTPUT_CONVERT_PRECEDENCE_NO_MOTION    internal static fixed bin(8,0)           initial packed unaligned dcl 2-147
OUTPUT_CONVERT_RRS                     internal static fixed bin(8,0)           initial packed unaligned dcl 2-147
OUTPUT_CONVERT_VT                      internal static fixed bin(8,0)           initial packed unaligned dcl 2-147
PC_LEVEL_DSA300                        internal static bit(8)                   initial packed unaligned dcl 9-248
PN_NAME                                internal static char(9)                  initial array packed unaligned dcl 9-322
PN_TM                                  internal static fixed bin(17,0)          initial dcl 9-321
PN_VALUE                               internal static fixed bin(8,0)           initial array unsigned dcl 9-323
PO_CLEAR                               internal static fixed bin(17,0)          initial dcl 9-469
PO_NO_PAGING                           internal static fixed bin(17,0)          initial dcl 9-471
PO_SCROLL                              internal static fixed bin(17,0)          initial dcl 9-470
PO_TRUNCATION                          internal static fixed bin(17,0)          initial dcl 9-468
PO_VALUE                               internal static fixed bin(8,0)           initial array unsigned dcl 9-476
PV_NAME                                internal static char(12)                 initial array packed unaligned dcl 9-331
PV_TM_FULL_STC                         internal static fixed bin(17,0)          initial dcl 9-330
PV_TM_NO_STC                           internal static fixed bin(17,0)          initial dcl 9-329
PV_VALUE                               internal static fixed bin(17,0)          initial array dcl 9-333
RC_2780                                internal static fixed bin(17,0)          initial dcl 9-387
RC_2780_3780_RJE                       internal static fixed bin(17,0)          initial dcl 9-390
RC_327X                                internal static fixed bin(17,0)          initial dcl 9-383
RC_BATCH_RCI                           internal static fixed bin(17,0)          initial dcl 9-385
RC_TMMRB                               internal static fixed bin(17,0)          initial dcl 9-389
RC_TMMVU                               internal static fixed bin(17,0)          initial dcl 9-386
RC_TTY                                 internal static fixed bin(17,0)          initial dcl 9-384
RC_UNDEFINED                           internal static fixed bin(17,0)          initial dcl 9-380
RC_UNSPECIFIED                         internal static fixed bin(17,0)          initial dcl 9-388
RC_VALUE                               internal static fixed bin(8,0)           initial array unsigned dcl 9-396
RC_VIP77XX                             internal static fixed bin(17,0)          initial dcl 9-381
RC_VIP78XX                             internal static fixed bin(17,0)          initial dcl 9-382
SC_MANDATORY                           internal static fixed bin(17,0)          initial dcl 9-370
SC_VALUE                               internal static fixed bin(8,0)           initial array unsigned dcl 9-375
SH_DEDICATED                           internal static fixed bin(17,0)          initial dcl 9-427
SH_DEDICATED_OR_SHAREABLE              internal static fixed bin(17,0)          initial dcl 9-428
SH_EXCLUSIVELY_SHAREABLE               internal static fixed bin(17,0)          initial dcl 9-429
SH_VALUE                               internal static bit(2)                   initial array packed unaligned dcl 9-435
SLP_ASYNCHRONOUS                       internal static fixed bin(17,0)          initial dcl 9-505
SLP_BSC_MULTIPOINT                     internal static fixed bin(17,0)          initial dcl 9-509
SLP_BSC_POINT_TO_POINT                 internal static fixed bin(17,0)          initial dcl 9-510
SLP_HDLC_MULTIPOINT                    internal static fixed bin(17,0)          initial dcl 9-512
SLP_HDLC_POINT_TO_POINT                internal static fixed bin(17,0)          initial dcl 9-513
SLP_NAME                               internal static char(20)                 initial array packed unaligned dcl 9-515
SLP_RCI_POINT_TO_POINT                 internal static fixed bin(17,0)          initial dcl 9-511
SLP_TMMRB_MULTIPOINT                   internal static fixed bin(17,0)          initial dcl 9-508
SLP_TMMVU_MULTIPOINT                   internal static fixed bin(17,0)          initial dcl 9-507
SLP_VALUE                              internal static fixed bin(8,0)           initial array unsigned dcl 9-520
SLP_VIP_MULTIPOINT                     internal static fixed bin(17,0)          initial dcl 9-506
SPECIAL_INFO_STRUCT_VERSION_1          internal static char(8)                  initial packed unaligned dcl 2-122
SPECIAL_VERSION                        internal static fixed bin(17,0)          initial dcl 2-124
SPECIAL_VERSION_2                      internal static fixed bin(17,0)          initial dcl 2-125
SPEC_TYPE                              internal static fixed bin(17,0)          initial dcl 1-223
TM_ACCEPT                              internal static fixed bin(17,0)          initial dcl 9-537
TM_LEVEL_DSA300                        internal static bit(8)                   initial packed unaligned dcl 9-326
TM_OFFER                               internal static fixed bin(17,0)          initial dcl 9-536
TM_REJECT                              internal static fixed bin(17,0)          initial dcl 9-538
TM_SWITCH                              internal static fixed bin(17,0)          initial dcl 9-539
TRANS_TYPE                             internal static fixed bin(17,0)          initial dcl 1-222
VIDEO_RP                               internal static fixed bin(17,0)          initial dcl 1-118
answerback_length                      automatic       fixed bin(17,0)          dcl 1-212
attention_fcn_info                     based           structure                level 1 dcl 10-36
attn_fcn_ptr                           automatic       pointer                  dcl 10-40
c_chars_ptr                            automatic       pointer                  dcl 2-53
check_star                             based           structure                level 1 dcl 11-15
delay_struc                            based           structure                level 1 dcl 2-112
dsatm_data_$max_logical_devices        external static fixed bin(17,0)          dcl 9-48
dsatm_data_$max_networks               external static fixed bin(17,0)          dcl 9-49
dsatm_max_logical_devices              automatic       fixed bin(17,0)          dcl 9-50
dsatm_max_networks                     automatic       fixed bin(17,0)          dcl 9-51
dsatm_neg_info                         based           structure                level 1 dcl 9-57
dsatm_sw_dev_info                      based           structure                level 1 dcl 9-213
dsatmnetp                              automatic       pointer                  dcl 9-193
dsatmnip                               automatic       pointer                  dcl 9-55
dsatmprep                              automatic       pointer                  dcl 9-73
dsatmsdip                              automatic       pointer                  dcl 9-211
dsatmstap                              automatic       pointer                  dcl 9-111
function_key_data_highest              automatic       fixed bin(17,0)          dcl 8-35
function_key_data_version_1            internal static fixed bin(17,0)          initial dcl 8-36
get_special_info_struc                 based           structure                level 1 dcl 2-117
key_info_ptr                           automatic       pointer                  dcl 8-38
n_sync_line_types                      internal static fixed bin(17,0)          initial dcl 6-50
orderip                                automatic       pointer                  dcl 10-34
pa_name                                internal static char(3)                  initial array packed unaligned dcl 1-229
protocol_values                        internal static fixed bin(17,0)          initial array dcl 3-26
special_chars_struc                    based           structure                level 1 dcl 2-76
sync_line_type                         internal static fixed bin(17,0)          initial array dcl 6-52
template_ptr                           automatic       pointer                  dcl 1-194
tty_video_table_video_chars_len        automatic       fixed bin(21,0)          dcl 7-10

NAMES DECLARED BY EXPLICIT CONTEXT.
argerr                          003557 constant        label                    dcl 326 ref 270 281 294 305
check_for_match_name            011322 constant        entry                    internal dcl 753 ref 409 542 565 636
clean_up                        011615 constant        entry                    internal dcl 812 ref 354 382 750
complain                        011560 constant        label                    dcl 802 ref 806
count_text                      012665 constant        entry                    internal dcl 1024 ref 968 997
display_ttt                     003104 constant        entry                    external dcl 64
end_of_tte                      005660 constant        label                    dcl 526 ref 410
get_next_arg                    011531 constant        entry                    internal dcl 795 ref 266 276 289 302 873
highest_defined                 017424 constant        entry                    internal dcl 1538 ref 1520
next_ct_table                   006125 constant        label                    dcl 556 ref 543
next_fkey                       007514 constant        label                    dcl 658 ref 637
next_special                    007157 constant        label                    dcl 622 ref 566
print_all_delays                012715 constant        entry                    internal dcl 1037 ref 430 470
print_all_flags                 014273 constant        entry                    internal dcl 1207 ref 444
print_cpo                       014511 constant        entry                    internal dcl 1248 ref 518
print_delay                     013056 constant        entry                    internal dcl 1059 ref 475 1052
print_dsa_table                 015010 constant        entry                    internal dcl 1315 ref 215
print_erase                     013522 constant        entry                    internal dcl 1123 ref 438 490
print_extended_tables           014614 constant        entry                    internal dcl 1272 ref 446 522
print_fkey_seqs                 017176 constant        entry                    internal dcl 1510 ref 651 655
print_frame                     013657 constant        entry                    internal dcl 1147 ref 440 496
print_function_key_table        017167 constant        entry                    internal dcl 1502 ref 215
print_ifc                       013750 constant        entry                    internal dcl 1159 ref 441 499
print_kill                      013577 constant        entry                    internal dcl 1135 ref 439 493
print_kybd_addr                 014431 constant        entry                    internal dcl 1234 ref 512
print_line_delimiter            014226 constant        entry                    internal dcl 1197 ref 443 510
print_line_types                013334 constant        entry                    internal dcl 1091 ref 437 487
print_modes                     011765 constant        entry                    internal dcl 921 ref 426 458
print_ofc                       014061 constant        entry                    internal dcl 1176 ref 442 504
print_old_type                  014371 constant        entry                    internal dcl 1222 ref 445 520
print_ppm                       014460 constant        entry                    internal dcl 1241 ref 515
print_preaccess_type            014542 constant        entry                    internal dcl 1255 ref 743 744 745
print_protocol                  013460 constant        entry                    internal dcl 1111 ref 427 461
print_seq                       016440 constant        entry                    internal dcl 1448 ref 1441
print_str                       012023 constant        entry                    internal dcl 929 ref 428 429 464 467
print_table                     013223 constant        entry                    internal dcl 1075 ref 434 483
print_terminal_types            010520 constant        entry                    external dcl 843
print_video_table               016237 constant        entry                    internal dcl 1423 ref 215
ptt                             010510 constant        entry                    external dcl 843
tchar                           017454 constant        entry                    internal dcl 1552 ref 975 1002 1130 1142 1154 1154
                                                                                  1471 1474 1479 1527
trace_like_tte_chain            011431 constant        entry                    internal dcl 779 ref 422 790

THERE WERE NO NAMES DECLARED BY CONTEXT OR IMPLICATION.

STORAGE REQUIREMENTS FOR THIS PROGRAM.

	Object	Text	Link	Symbol	Defs	Static
Start          0       0     20514       20612   20067       20524
Length     21416   20067        76         567     424           0

BLOCK NAME	         STACK SIZE     TYPE		WHY NONQUICK/WHO SHARES STACK FRAME
display_ttt                        1974 external procedure  is an external procedure.  
on unit on line 354                  64 on unit               
check_for_match_name                    internal procedure  shares stack frame of external procedure display_ttt.  
trace_like_tte_chain                 82 internal procedure  calls itself recursively.  
get_next_arg                            internal procedure  shares stack frame of external procedure display_ttt.  
clean_up                             88 internal procedure  is called by several nonquick procedures.  
print_modes                             internal procedure  shares stack frame of external procedure display_ttt.  
print_str                               internal procedure  shares stack frame of external procedure display_ttt.  
count_text                              internal procedure  shares stack frame of external procedure display_ttt.  
print_all_delays                        internal procedure  shares stack frame of external procedure display_ttt.  
print_delay                             internal procedure  shares stack frame of external procedure display_ttt.  
print_table                             internal procedure  shares stack frame of external procedure display_ttt.  
print_line_types                        internal procedure  shares stack frame of external procedure display_ttt.  
print_protocol                          internal procedure  shares stack frame of external procedure display_ttt.  
print_erase                             internal procedure  shares stack frame of external procedure display_ttt.  
print_kill                              internal procedure  shares stack frame of external procedure display_ttt.  
print_frame                             internal procedure  shares stack frame of external procedure display_ttt.  
print_ifc                               internal procedure  shares stack frame of external procedure display_ttt.  
print_ofc                               internal procedure  shares stack frame of external procedure display_ttt.  
print_line_delimiter                    internal procedure  shares stack frame of external procedure display_ttt.  
print_all_flags                         internal procedure  shares stack frame of external procedure display_ttt.  
print_old_type                          internal procedure  shares stack frame of external procedure display_ttt.  
print_kybd_addr                         internal procedure  shares stack frame of external procedure display_ttt.  
print_ppm                               internal procedure  shares stack frame of external procedure display_ttt.  
print_cpo                               internal procedure  shares stack frame of external procedure display_ttt.  
print_preaccess_type                    internal procedure  shares stack frame of external procedure display_ttt.  
print_extended_tables                   internal procedure  shares stack frame of external procedure display_ttt.  
print_dsa_table                     102 internal procedure  is assigned to an entry variable.  
print_video_table                   170 internal procedure  is assigned to an entry variable.  
print_seq                               internal procedure  shares stack frame of internal procedure print_video_table.  
print_function_key_table             64 internal procedure  is assigned to an entry variable.  
print_fkey_seqs                     116 internal procedure  is called during a stack extension.  
highest_defined                         internal procedure  shares stack frame of internal procedure print_fkey_seqs.  
tchar                                88 internal procedure  is called by several nonquick procedures.  

STORAGE FOR AUTOMATIC VARIABLES.

STACK FRAME                 LOC IDENTIFIER                  BLOCK NAME
display_ttt              000100 nargs                       display_ttt
                         000101 iarg                        display_ttt
                         000102 argp                        display_ttt
                         000104 argl                        display_ttt
                         000105 ttt_dir                     display_ttt
                         000157 ttt_ent                     display_ttt
                         000167 only_type                   display_ttt
                         000177 only_table                  display_ttt
                         000207 type_starname_type          display_ttt
                         000210 table_starname_type         display_ttt
                         000211 show_types                  display_ttt
                         000212 show_tables                 display_ttt
                         000213 dft_header                  display_ttt
                         000214 header_spec                 display_ttt
                         000215 header                      display_ttt
                         000216 general_tables              display_ttt
                         000217 output_file                 display_ttt
                         000271 found                       display_ttt
                         000272 found_one                   display_ttt
                         000273 attached                    display_ttt
                         000274 opened                      display_ttt
                         000276 iocbp                       display_ttt
                         000300 debug_sw                    display_ttt
                         000301 using_default_ttt_path      display_ttt
                         000302 expand_like                 display_ttt
                         000303 display_all_tables          display_ttt
                         000304 keep_looping                display_ttt
                         000305 code                        display_ttt
                         000306 date_str                    display_ttt
                         000314 ttx                         display_ttt
                         000315 i                           display_ttt
                         000316 j                           display_ttt
                         000320 temp_ttep                   display_ttt
                         000322 delayx                      display_ttt
                         000324 special_tablep              display_ttt
                         000326 specialp                    display_ttt
                         000330 copy_offset_ptr             display_ttt
                         000332 offset_array_ptr            display_ttt
                         000334 p                           display_ttt
                         000336 n                           display_ttt
                         000337 charx                       display_ttt
                         000340 ans_spec                    display_ttt
                         000341 file_err                    display_ttt
                         000342 key                         display_ttt
                         000345 table_len                   display_ttt
                         000346 c_chars_length              display_ttt
                         000347 copy_of_tte                 display_ttt
                         000510 print_extended_table        display_ttt
                         000524 fkey_seqs_ptr               display_ttt
                         000536 sourcep                     display_ttt
                         000546 match_name                  display_ttt
                         000556 pn_given                    display_ttt
                         000557 ttp_given                   display_ttt
                         000560 tttp                        display_ttt
                         000562 ttep                        display_ttt
                         000564 extended_tablesp            display_ttt
                         000566 dfttp                       display_ttt
                         000570 tablep                      display_ttt
                         000572 fkey_tablep                 display_ttt
                         000574 delay_tablep                display_ttt
                         000576 answerback_entry_ptr        display_ttt
                         000600 sc_escape_len               display_ttt
                         000601 sc_input_escape_len         display_ttt
                         000602 ttyvtblp                    display_ttt
                         000604 video_chars_ptr             display_ttt
                         000606 ttyvseqp                    display_ttt
                         000610 function_key_data_ptr       display_ttt
                         000612 dsatmdevp                   display_ttt
                         000642 my_code                     check_for_match_name
                         000666 code_len                    print_str
                         000670 stringp                     print_str
                         000672 stringl                     print_str
                         000673 cur                         print_str
                         000674 lb                          print_str
                         000675 i                           print_str
                         000676 j                           print_str
                         000677 work                        print_str
                         002061 temp                        print_str
                         002132 line_type_str               print_line_types
                         002332 like_extended_tablesp       print_extended_tables
                         002334 ntables                     print_extended_tables
                         002335 i                           print_extended_tables
print_dsa_table          000100 i                           print_dsa_table
                         000101 j                           print_dsa_table
print_fkey_seqs          000100 i                           print_fkey_seqs
                         000101 j                           print_fkey_seqs
                         000102 highest                     print_fkey_seqs
                         000103 temp_key_index              print_fkey_seqs
print_video_table        000100 i                           print_video_table
                         000110 i                           print_seq
                         000112 p                           print_seq
                         000114 cpad_to_print               print_seq
                         000115 cpad_units                  print_seq
                         000116 test_numeric_encoding       print_seq
tchar                    000100 i                           tchar
                         000101 temp                        tchar

THE FOLLOWING EXTERNAL OPERATORS ARE USED BY THIS PROGRAM.
r_l_a               r_e_as              r_ne_as             alloc_char_temp     cat_realloc_chars   call_ent_var
call_ext_out_desc   call_ext_out        call_int_this_desc  call_int_this       call_int_other      return_mac
mdfx1               enable_op           shorten_stack       ext_entry           int_entry           int_entry_desc

THE FOLLOWING EXTERNAL ENTRIES ARE CALLED BY THIS PROGRAM.
absolute_pathname_$add_suffix check_star_name_              clock_                        com_err_
cu_$arg_count                 cu_$arg_ptr                   date_time_                    expand_pathname_$add_suffix
hcs_$initiate                 hcs_$terminate_noname         ioa_                          ioa_$ioa_switch
ioa_$ioa_switch_nnl           ioa_$rsnnl                    iox_$attach_name              iox_$close
iox_$detach_iocb              iox_$open                     match_star_name_              requote_string_
ttt_info_$ttt_path

THE FOLLOWING EXTERNAL VARIABLES ARE USED BY THIS PROGRAM.
error_table_$badopt           error_table_$noarg            error_table_$nomatch
error_table_$unimplemented_version                          error_table_$wrong_no_of_args iox_$user_output


   LINE    LOC      LINE    LOC      LINE    LOC      LINE    LOC      LINE    LOC      LINE    LOC      LINE    LOC   
    215 003056        64 003103       245 003112       247 003120       249 003122       250 003124       251 003125
    252 003126       253 003131       254 003132       255 003133       257 003134       259 003151       261 003160
    263 003171       264 003206       266 003220       267 003221       268 003223       270 003261       271 003263
    273 003264       276 003304       277 003305       279 003307       280 003321       281 003347       282 003351
    284 003353       286 003354       289 003364       290 003365       292 003367       293 003374       294 003421
    295 003423       297 003425       299 003426       302 003436       303 003437       304 003441       305 003473
    306 003475       308 003476       311 003506       312 003510       313 003511       315 003512       318 003522
    319 003524       320 003525       321 003526       322 003541       325 003554       326 003557       327 003603
    329 003604       331 003606       332 003614       333 003641       336 003642       337 003646       341 003662
    342 003664       343 003666       345 003667       347 003673       348 003675       349 003677       350 003700
    352 003703       353 003705       354 003707       356 003731       360 003742       361 004006       363 004010
    364 004040       367 004041       368 004043       369 004072       371 004074       372 004124       373 004135
    375 004136       378 004140       379 004204       381 004210       382 004244       383 004250       386 004251
    388 004255       389 004320       394 004321       396 004323       397 004347       402 004414       404 004416
    405 004420       406 004421       407 004433       408 004437       409 004442       410 004465       411 004470
    413 004475       416 004477       417 004524       420 004532       421 004534       422 004553       423 004561
    425 004600       426 004624       427 004625       428 004631       429 004662       430 004713       432 004714
    433 004717       434 004725       435 004731       437 004733       438 004737       439 004743       440 004747
    441 004753       442 004757       443 004763       444 004767       445 004770       446 004774       447 005000
    449 005001       450 005005       452 005163       454 005212       455 005216       456 005220       458 005224
    461 005231       464 005241       467 005275       470 005331       473 005337       474 005343       475 005351
    477 005360       480 005362       481 005364       482 005367       483 005375       485 005407       487 005411
    490 005422       493 005436       496 005454       499 005470       504 005526       510 005567       512 005605
    515 005616       518 005631       520 005644       522 005654       526 005660       530 005662       533 005720
    535 005722       536 005724       538 005725       539 005737       541 005750       542 005753       543 005776
    544 006001       546 006006       549 006010       551 006046       552 006052       553 006057       555 006122
    556 006125       559 006127       560 006141       561 006143       562 006155       564 006160       565 006163
    566 006206       567 006211       569 006216       572 006220       574 006244       575 006246       576 006253
    579 006362       581 006364       582 006367       584 006370       585 006410       587 006413       588 006423
    589 006437       591 006503       593 006575       595 006577       596 006617       598 006624       599 006633
    600 006647       602 006713       604 007005       608 007007       610 007020       612 007021       614 007044
    615 007053       619 007155       622 007157       625 007210       629 007212       630 007217       631 007221
    633 007225       635 007235       636 007240       637 007263       638 007266       640 007273       643 007275
    644 007321       645 007324       646 007327       647 007332       648 007335       650 007340       651 007345
    652 007401       654 007403       655 007413       656 007511       658 007514       660 007531       661 007533
    662 007537       664 007541       668 007577       673 007601       675 007604       677 007607       679 007611
    680 007634       681 007643       686 007740       692 007742       694 007747       695 007752       696 007772
    698 007774       699 010000       702 010021       703 010027       704 010037       707 010047       709 010104
    710 010106       713 010107       716 010173       717 010200       721 010201       724 010227       728 010270
    730 010321       732 010323       734 010324       738 010357       740 010376       741 010402       743 010403
    744 010422       745 010441       747 010460       750 010502       751 010506       843 010507       851 010526
    852 010530       853 010531       854 010540       855 010547       856 010564       857 010576       858 010600
    859 010624       861 010625       862 010663       863 010665       864 010711       866 010712       867 010714
    868 010715       869 010725       870 010727       871 010753       873 010754       874 010755       875 010757
    876 010771       877 010774       879 010775       880 010777       881 011023       883 011024       884 011035
    886 011040       888 011042       889 011044       890 011046       893 011063       894 011127       895 011133
    896 011167       899 011170       903 011227       904 011237       906 011243       907 011271       909 011317
    911 011321       753 011322       763 011340       765 011346       767 011373       768 011375       770 011407
    773 011412       775 011422       779 011430       785 011436       788 011463       789 011470       790 011510
    793 011530       795 011531       799 011532       800 011533       801 011541       802 011556       804 011602
    805 011607       806 011612       808 011613       812 011614       816 011622       817 011624       819 011626
    820 011636       822 011641       823 011671       826 011674       828 011675       830 011677       831 011710
    834 011745       837 011747       839 011764       921 011765       923 011766       925 012022       929 012023
    949 012034       952 012073       956 012074       957 012077       958 012102       961 012111       965 012166
    966 012171       967 012172       968 012201       969 012202       970 012205       971 012252       972 012257
    975 012260       976 012310       977 012317       978 012321       979 012354       983 012355       984 012356
    986 012363       987 012364       988 012373       989 012401       990 012403       992 012413       994 012414
    995 012416       997 012427       998 012430       999 012433      1000 012500      1001 012505      1002 012506
   1003 012533      1005 012534      1009 012546      1011 012557      1012 012611      1015 012623      1016 012627
   1018 012631      1022 012664      1024 012665      1026 012666      1028 012710      1029 012712      1030 012714
   1037 012715      1039 012716      1042 012722      1044 012725      1045 012750      1046 012757      1048 013023
   1049 013025      1051 013044      1052 013051      1053 013053      1055 013055      1059 013056      1063 013060
   1064 013062      1068 013145      1071 013222      1075 013223      1080 013225      1083 013270      1085 013271
   1087 013333      1091 013334      1096 013336      1099 013351      1100 013354      1101 013363      1103 013424
   1105 013426      1106 013430      1107 013457      1111 013460      1115 013462      1118 013473      1119 013521
   1123 013522      1127 013524      1130 013537      1131 013576      1135 013577      1139 013601      1142 013615
   1143 013656      1147 013657      1151 013661      1154 013673      1156 013747      1159 013750      1164 013752
   1168 014010      1172 014060      1176 014061      1181 014063      1184 014076      1187 014133      1190 014170
   1194 014225      1197 014226      1202 014230      1203 014244      1205 014272      1207 014273      1209 014274
   1212 014320      1215 014344      1218 014370      1222 014371      1226 014373      1229 014404      1230 014430
   1234 014431      1236 014432      1237 014457      1241 014460      1243 014461      1244 014510      1248 014511
   1250 014512      1251 014541      1255 014542      1260 014553      1261 014556      1262 014562      1266 014613
   1272 014614      1279 014616      1280 014623      1281 014631      1283 014634      1285 014646      1286 014652
   1288 014654      1289 014660      1290 014665      1291 014677      1293 014713      1294 014715      1297 014716
   1298 014722      1299 014735      1301 014751      1302 014753      1307 014754      1308 014767      1310 015004
   1311 015006      1315 015007      1321 015015      1322 015045      1323 015050      1325 015054      1326 015061
   1328 015111      1330 015113      1332 015121      1334 015157      1336 015161      1338 015167      1340 015222
   1342 015224      1345 015257      1348 015311      1351 015343      1352 015344      1353 015353      1355 015371
   1356 015373      1359 015424      1362 015456      1365 015510      1367 015515      1369 015546      1371 015550
   1373 015555      1375 015610      1377 015612      1379 015617      1381 015650      1383 015652      1385 015657
   1387 015711      1389 015713      1391 015721      1393 015752      1395 015754      1397 015761      1399 016015
   1401 016017      1405 016047      1406 016051      1407 016055      1409 016114      1411 016152      1413 016207
   1414 016210      1416 016211      1419 016235      1423 016236      1428 016244      1429 016274      1430 016277
   1431 016303      1433 016307      1435 016336      1437 016366      1440 016416      1441 016433      1442 016435
   1444 016437      1448 016440      1458 016442      1459 016451      1460 016455      1461 016505      1462 016507
   1463 016531      1464 016552      1465 016557      1471 016646      1474 016723      1475 016763      1476 017003
   1478 017011      1479 017012      1480 017054      1481 017056      1482 017062      1483 017065      1484 017070
   1485 017072      1486 017073      1487 017101      1488 017104      1489 017106      1491 017107      1492 017112
   1494 017114      1497 017145      1498 017165      1502 017166      1506 017174      1510 017175      1520 017216
   1521 017220      1522 017223      1523 017251      1525 017257      1526 017273      1527 017302      1528 017354
   1530 017356      1533 017401      1535 017403      1536 017423      1538 017424      1540 017426      1541 017432
   1543 017444      1544 017447      1552 017453      1564 017461      1565 017470      1566 017521      1567 017523
   1568 017552      1570 017561      1571 017600      1572 017611


                                          -----------------------------------------------------------


Historical Background

This edition of the Multics software materials and documentation is provided and donated
to Massachusetts Institute of Technology by Group BULL including BULL HN Information Systems Inc. 
as a contribution to computer science knowledge.  
This donation is made also to give evidence of the common contributions of Massachusetts Institute of Technology,
Bell Laboratories, General Electric, Honeywell Information Systems Inc., Honeywell BULL Inc., Groupe BULL
and BULL HN Information Systems Inc. to the development of this operating system. 
Multics development was initiated by Massachusetts Institute of Technology Project MAC (1963-1970),
renamed the MIT Laboratory for Computer Science and Artificial Intelligence in the mid 1970s, under the leadership
of Professor Fernando Jose Corbato. Users consider that Multics provided the best software architecture 
for managing computer hardware properly and for executing programs. Many subsequent operating systems 
incorporated Multics principles.
Multics was distributed in 1975 to 2000 by Group Bull in Europe , and in the U.S. by Bull HN Information Systems Inc., 
as successor in interest by change in name only to Honeywell Bull Inc. and Honeywell Information Systems Inc. .

                                          -----------------------------------------------------------

Permission to use, copy, modify, and distribute these programs and their documentation for any purpose and without
fee is hereby granted,provided that the below copyright notice and historical background appear in all copies
and that both the copyright notice and historical background and this permission notice appear in supporting
documentation, and that the names of MIT, HIS, BULL or BULL HN not be used in advertising or publicity pertaining
to distribution of the programs without specific prior written permission.
    Copyright 1972 by Massachusetts Institute of Technology and Honeywell Information Systems Inc.
    Copyright 2006 by BULL HN Information Systems Inc.
    Copyright 2006 by Bull SAS
    All Rights Reserved