
  PROCEDURE [XREF] osp$translate_bytes (source: ^cell;
        source_length: ost$string_length;
        target: ^cell;
        target_length: ost$string_length;
        translation_table: ^cell;
    VAR status: ost$error);

  { FUNCTION: Provide access to the translate bytes (TRANB) C180
  {hardware instruction without restricting the source or target to
  {a maximum of 256 bytes.
  {
  { STATUS will always be OSE$NO_ERROR.

?? PUSH (LISTEXT := ON) ??
  CONST
    osc$min_string_length = 0,
    osc$max_string_length = 7fffffff(16);

  TYPE
    ost$string_length = osc$min_string_length .. osc$max_string_length;

  TYPE
    ost$error = (ose$no_error, ose$invalid_bdp_data,
      ose$loss_of_significance, ose$overflow, ose$underflow,
      ose$indefinite, ose$infinite, ose$bad_parameters,
      ose$no_digits);

*copyc osv$ascii_to_ebcdic
*copyc osv$ebcdic_to_ascii
?? POP ??

