{ This deck contains type definitions to allow conversion between the
{ data field of a keypoint and the types passed to the keypoint
{ processor.

  TYPE
    dct$keypoint_unit_cylinder = packed record
      case boolean of
      = TRUE =
        unit: 0..0ff(16),
        cylinder: 0..0fff(16),
      = FALSE =
        keypoint_data: 0..0fffff(16),
      casend,
    recend;

  TYPE
    dct$keypoint_sfid = packed record
      case boolean of
      = TRUE =
        file_entry_index: gft$file_descriptor_index,
        residence: gft$table_residence,
      = FALSE =
        keypoint_data: 0..0fffff(16),
      casend,
    recend;

  TYPE
    dct$keypoint_functions = packed record
      case boolean of
      = TRUE =
        io_function: iot$io_function,
        command_code: 0 .. 0ff(16),
        disk_type_index: 0 .. 0f(16),
      = FALSE =
        keypoint_data: 0..0fffff(16),
      casend,
    recend;

  TYPE
    dct$keypoint_ijlo = packed record
      case boolean of
      = TRUE =
        ijlo: jmt$ijl_ordinal,
      = FALSE =
        keypoint_data: 0 .. 0fffff(16),
      casend,
    recend;

  TYPE
    dct$keypoint_taskid = packed record
      case boolean of
      = TRUE =
        index: ost$task_index,
        seqno: 0 .. 255,
      = FALSE =
        keypoint_data: 0 .. 0fffff(16),
      casend,
    recend;

  TYPE
    dct$keypoint_aste_data = packed record
      case boolean of
      = TRUE =
        segnum: 0 .. 0fff(16),
        queue_id: 0 .. 0f(16),
        stack_for_ring: 0 .. 0f(16),
      = FALSE =
        keypoint_data: 0 .. 0fffff(16),
      casend,
    recend;

  TYPE
    dct$keypoint_request_info = packed record
      case boolean of
      = TRUE =
        request_type: iot$io_request_type,
        au_previously_written: boolean,
      = FALSE =
        keypoint_data: 0 .. 0fffff(16),
      casend,
    recend;

  TYPE
    dct$keypoint_data = 0 .. 0fffff(16);

?? push (listext := on) ??
*copyc gft$system_file_identifier
*copyc jmt$ijl_ordinal
*copyc ost$global_task_id
*copyc iot$command
*copyc iot$io_function
*copyc iot$io_request_type
?? pop ??
