
{ This type declaration defines the block used to request resources from the 170 side.
{ This information is passed in the SSR under the names C80B and C70B.  This type
{ delcaration cannot exceed 8 bytes.

  TYPE
    dst$170_request_block = PACKED RECORD
      CASE request: dst$170_requests OF
      = dsc$170_rb_call_dft_through_sda =
        dft_request_rma: dst$170_request_rma,
      = dsc$170_rb_request_resources, dsc$170_rb_update_free_clock =
        resource_request: dst$170_resource_request,
      = dsc$170_rb_complete_deadstart =
        terminating: boolean,
      CASEND,
    RECEND,

    dst$170_requests = (dsc$170_rb_null_request,
          dsc$170_rb_request_resources, dsc$170_rb_call_dft_through_sda,
          dsc$170_rb_complete_deadstart, dsc$170_rb_update_free_clock),

    dst$170_request_rma = ost$real_memory_address,

    dst$170_resource_request = PACKED RECORD
      status: dst$170_resource_request_errors,
      CASE resource_request_type: dst$170_resource_request_types OF
      = dsc$170_rrt_get_pp, dsc$170_rrt_return_pp =
        driver_pp: boolean,
        partner_pp: boolean,
        channel_used: dst$170_iou_resource,
        primary_pp: dst$170_iou_resource,
        secondary_pp: dst$170_iou_resource,
      = dsc$170_rrt_get_channel, dsc$170_rrt_return_channel =
        channel: dst$170_iou_resource,
      = dsc$170_rrt_get_equipment, dsc$170_rrt_return_equipment =
        equipment_path: dst$170_iou_equipment_path,
      = dsc$170_rrt_update_free_clock =
        new_value: dst$170_free_run_clock_value,
      = dsc$170_rrt_null_request =
      CASEND,
    RECEND,

    dst$170_resource_request_errors = (dsc$170_rre_null_response,
      dsc$170_rre_request_ok, dsc$170_rre_ch_not_available,
      dsc$170_rre_eq_not_available, dsc$170_rre_unit_not_available,
      dsc$170_rre_cm_not_available, dsc$170_rre_pp_not_available,
      dsc$170_rre_no_such_resource, dsc$170_rre_already_assigned,
      dsc$170_rre_no_load_controlware, dsc$170_rre_cio_ch_not_present,
      dsc$170_rre_cio_pp_not_present, dsc$170_rre_bad_request),

    dst$170_resource_request_types = (dsc$170_rrt_null_request,
      dsc$170_rrt_get_pp, dsc$170_rrt_return_pp, dsc$170_rrt_get_channel,
      dsc$170_rrt_return_channel, dsc$170_rrt_get_equipment,
      dsc$170_rrt_return_equipment, dsc$170_rrt_update_free_clock),

    dst$170_iou_resource = PACKED RECORD
      channel_protocol: dst$channel_protocol_type,
      number: dst$physical_resource_number,
    RECEND,

    dst$170_iou_equipment_path = PACKED RECORD
      channel_number: dst$physical_resource_number,
      equipment_number: cmt$physical_equipment_number,
      unit_number: cmt$physical_unit_number,
    RECEND,

    dst$170_free_run_clock_value = 0 .. 07777777777777777(8);

?? PUSH (LISTEXT := ON) ??
*copyc cmt$physical_equipment_number
*copyc cmt$physical_unit_number
*copyc dst$channel_protocol_type
*copyc dst$physical_resource_number
*copyc ost$hardware_subranges
?? POP ??
