
  { This type declaration fits in a CTI sector it must not become larger then a CTI
  { sector (360(8) 16-bit pp words OR 480 8-bit bytes).

  CONST

    { Define the mask used to encrypt the password.

    dsc$vcu_password_mask = 2c(16),

    { Define valid version numbers for dst$vcu_cda_version.

    dsc$vcu_131_or_earlier_system = 0,
    dsc$vcu_142_or_earlier_system = 1,
    dsc$vcu_153_or_earlier_system = 2,
    dsc$vcu_post_153_system = 3;

  TYPE
    dst$vcu_access_type = (dsc$vcu_read_access, dsc$vcu_write_access),

    dst$vcu_bucket_contents = RECORD
      backward_compatibility: boolean,  { To preserve backward compatibility, this field must be FALSE.
      specified: boolean,
      iou_number: dst$iou_number,
      channel: cmt$physical_channel,
      equipment_id: cmt$product_identification,
      equipment_number: 0 .. 0ffff(16),
      unit_id: cmt$product_identification,
      unit_number: 0 .. 0ffff(16),
      dcfile_identifier: dst$dcfile_identifier,  { Only valid in the deadstart device.
      rfu: ARRAY [1 .. 35] OF cell,
    RECEND,

    dst$vcu_bucket_data = ARRAY [dst$vcu_bucket_types] OF ARRAY [cmt$system_device_types]
          OF dst$vcu_bucket_contents,

    dst$vcu_bucket_types = (dsc$vcu_bt_disk_bucket, dsc$vcu_bt_cr_bucket, dsc$vcu_bt_tape_bucket),

    dst$vcu_cda_data = RECORD
      bucket_data: dst$vcu_bucket_data,
      time_zone_data: dst$vcu_time_zone_data,
      bucket_used: dst$vcu_bucket_types,
      password_data: dst$vcu_password_data,
      rfu: ARRAY [1 .. 16] OF cell,
      version: dst$vcu_cda_version,
    RECEND,

    dst$vcu_cda_version = 0 .. 0ff(16),

    dst$vcu_data_accessed = (dsc$vcu_bucket_data, dsc$vcu_time_zone_data, dsc$vcu_bucket_used,
          dsc$vcu_password_data, dsc$vcu_version),

    dst$vcu_encrypted_password = ARRAY [1 .. 7] OF 0 .. 0ff(16),

    dst$vcu_password_data = PACKED RECORD
      password_initialized: boolean,
      interval_initialized: boolean,
      interval_expired: boolean,
      lock_main_window: boolean,
      unsed_boolean_5: boolean,
      unsed_boolean_6: boolean,
      unsed_boolean_7: boolean,
      unsed_boolean_8: boolean,
      encrypted_password: dst$vcu_encrypted_password,
      saved_current_frc: integer,
      expiration_frc: integer,
    RECEND,

    dst$vcu_time_zone_data = RECORD
      initialized: boolean,
      time_zone: ost$time_zone,
    RECEND;

*copyc cmt$physical_channel
*copyc cmt$product_identification
*copyc cmt$system_device_types
*copyc dst$dcfile_identifier
*copyc dst$iou_number
*copyc ost$time_zone
