 TYPE
    cmt$io_command = record
      flags: cmt$flags,
      case command_code: cmt$command_code of
      = cmc$cc_acknowledge .. cmc$cc_resume, cmc$cc_start_ready_scan,
        cmc$cc_select_pp_address, cmc$cc_rewind .. cmc$cc_security_erase,
          cmc$cc_function, cmc$cc_select_density =
        length: iot$command_length,
        value: 0 .. 0ffffffff(16),
      = cmc$cc_execute_overlay, cmc$cc_copy_pp_memory, cmc$cc_load_controlware,
        cmc$cc_output_8_bit_parameters .. cmc$cc_input_6_bit_data =
        ,
      casend,
    recend,
    cmt$io_command_table = array [1 .. * ] of cmt$io_command;

?? PUSH (LISTEXT := ON) ??
*copyc cmt$io_commands
?? POP ??
