{ DECK: DFT$FS_PP_RESPONSE

   TYPE
    dft$fs_pp_response = record
      response_flags: ALIGNED [0 MOD 8] dft$response_flags,
      response_length: ALIGNED [1 MOD 8] 0 .. 0FF(16),
      response_parameter: ALIGNED [2 MOD 8] dft$response_parameter,
      logical_unit: ALIGNED [4 MOD 8] iot$logical_unit,
      queue_index: ALIGNED [6 MOD 8] 0 .. 0FF(16),
      queue_entry_index: ALIGNED [7 MOD 8] 0 .. 0FF(16),
    recend,

    dft$response_flags = packed record
      special_response: boolean,
      one_word_response: boolean,
      error_response: boolean,
      inquiry_response: boolean,
      termination_pseudo_response: boolean,
      error_log_response: boolean,
      fill: 0 .. 03(16),
    recend,

    dft$response_parameter = record
      CASE boolean OF
      = TRUE =
        inquiry_message: dft$inquiry_message,
      = FALSE =
        error_condition: 0 .. 0FFFF(16),
      CASEND,
    recend;

*copyc dft$inquiry_message
*copyc iot$logical_unit

