 TYPE
    cmt$command_index = 0 .. cmc$max_command_index,
    cmt$data_descriptor_length = 0 .. mmc$max_rma_list_length * 0FFFF(16),
    cmt$data_command_descriptor = record
      command_index: cmt$command_index,
      move_data_to_wired_area: boolean,
      move_data_from_wired_area: boolean,
      lock_data_pages: boolean,
      io_direction: cmt$io_direction,
      length: cmt$data_descriptor_length,
      address: ^cell,
    recend,
    cmt$data_command_descriptors = array [1 .. * ] of
      cmt$data_command_descriptor;

  CONST
    cmc$max_command_index = 0ff(16);

?? PUSH (LISTEXT := ON) ??
*copyc mmt$rma_list
*copyc cmt$io_request_type
?? POP ??
