
  TYPE
    ost$debug_mask = packed record
      end_of_list_seen_flag: boolean,
      scan_in_progress: boolean,
      codes: packed array [osc$data_read .. osc$call_instruction] of boolean,
    recend;

*copyc OST$DEBUG_CODE
