?? RIGHT := 110 ??
?? NEWTITLE := 'NOS/VE Configuration Management : Ring 1 Tables' ??
MODULE cmm$tables_ring1;

{ PURPOSE:
{   This module contains variable declarations of various static tables used by configuration management to
{   determine the validity of peripheral product identifications.

?? NEWTITLE := 'Global Declarations Referenced by This Module', EJECT ??
?? PUSH (LISTEXT := ON) ??
*copyc cmc$default_vsn
*copyc cmt$configuration_limits
*copyc cmt$controller_id
*copyc cmt$device_id
*copyc cmt$response_handler
*copyc cmt$system_device_data
*copyc oss$mainframe_paged_literal
*copyc ost$spaa_entry
?? POP ??
*copyc cmv$new_device_file
*copyc dfv$process_multiword_response
*copyc iov$process_disk_response
*copyc iov$process_subsystem_response
*copyc iov$tape_process_pp_response
*copyc nav$network_response_processor
*copyc rfv$response_processor
?? OLDTITLE ??
?? NEWTITLE := 'Global Declarations Declared by This Module', EJECT ??

  CONST
    c$configuration_limits = 19;

  VAR

    { WARNING - If the use of constants CMC$CIO_CHANNEL_NO_PORT or CMC$CIO_CHANNEL_2_PORT are ever extended
    { to other equipments, the prompt message 'Select port', in procedure CHECK_FOR_CONCURRENT_CHANNEL will
    { also have to be extended to include the new equipment(s).

    cmv$configuration_limits: [XDCL, READ, oss$mainframe_paged_literal] ARRAY [1 .. c$configuration_limits] OF
          cmt$configuration_limits := [
          ['  $844', [cmc$ms7154_x, cmc$ms7155_1, cmc$ms7155_1x], [cmc$nio_channel, cmc$cio_channel_no_port],
              [dsc$imn_i1_10_model, dsc$imn_i1_11_model, dsc$imn_i1_12_model, dsc$imn_i1_13_model,
               dsc$imn_i1_14_model, dsc$imn_i2_20_model, dsc$imn_i4_40_model, dsc$imn_i4_42_model,
               dsc$imn_i4_44_model, dsc$imn_i4_46_model],
               0, 0, 0, 7],
          ['  $885', [cmc$ms7155_1, cmc$ms7155_1x], [cmc$nio_channel, cmc$cio_channel_no_port],
              [dsc$imn_i1_10_model, dsc$imn_i1_11_model, dsc$imn_i1_12_model, dsc$imn_i1_13_model,
               dsc$imn_i1_14_model, dsc$imn_i2_20_model, dsc$imn_i4_40_model, dsc$imn_i4_42_model,
               dsc$imn_i4_44_model, dsc$imn_i4_46_model],
               0, 0, 32, 47],
          ['  $895', [cmc$ms7165_2x], [cmc$nio_channel, cmc$cio_channel_no_port],
              [dsc$imn_i2_20_model, dsc$imn_i4_40_model, dsc$imn_i4_42_model, dsc$imn_i4_44_model,
               dsc$imn_i4_46_model],
               0, 1, 0, 31],
          ['  $834', [cmc$ms7255_1_1], [cmc$nio_channel],
              [dsc$imn_i1_10_model, dsc$imn_i1_11_model, dsc$imn_i1_12_model, dsc$imn_i1_13_model,
               dsc$imn_i1_14_model],
               0, 7, 0, 3],
          ['  $836', [cmc$ms7255_1_2], [cmc$nio_channel],
              [dsc$imn_i1_10_model, dsc$imn_i1_11_model, dsc$imn_i1_12_model, dsc$imn_i1_13_model,
               dsc$imn_i1_14_model],
               0, 7, 0, 3],
          ['  $887', [cmc$mshydra_ct], [cmc$cio_channel_2_port],
              [dsc$imn_i4_40_model, dsc$imn_i4_42_model, dsc$imn_i4_44_model, dsc$imn_i4_46_model],
               0, 0, 0, 7],
          [' $9836', [cmc$mscm3_ct], [cmc$nio_channel],
              [dsc$imn_i0_5x_model],
              0, 7, 0, 7],
          ['  $679', [cmc$mt7021_3x], [cmc$nio_channel, cmc$cio_channel_no_port],
              [dsc$imn_i1_10_model, dsc$imn_i1_11_model, dsc$imn_i1_12_model, dsc$imn_i1_13_model,
               dsc$imn_i1_14_model, dsc$imn_i2_20_model, dsc$imn_i4_40_model, dsc$imn_i4_42_model,
               dsc$imn_i4_44_model, dsc$imn_i4_46_model],
               0, 7, 0, 7],
          ['  $639', [cmc$mt7221_1], [cmc$nio_channel],
              [dsc$imn_i1_10_model, dsc$imn_i1_11_model, dsc$imn_i1_12_model, dsc$imn_i1_13_model,
               dsc$imn_i1_14_model],
               0, 0, 0, 0],
          [' $9639', [cmc$mt7221_2_s0], [cmc$nio_channel],
              [dsc$imn_i0_5x_model],
               0, 0, 0, 1],
          ['  $698', [cmc$mt698_xx, cmc$mt5698_xx], [cmc$nio_channel, cmc$cio_channel_2_port,
               cmc$cio_channel_no_port],
              [dsc$imn_i1_10_model, dsc$imn_i1_11_model, dsc$imn_i1_12_model, dsc$imn_i1_13_model,
               dsc$imn_i1_14_model, dsc$imn_i2_20_model, dsc$imn_i4_40_model, dsc$imn_i4_42_model,
               dsc$imn_i4_44_model, dsc$imn_i4_46_model, dsc$imn_i0_5x_model],
               0, 7, 0, 7],
          [' $5682', [cmc$mt5680_xx], [cmc$nio_channel, cmc$cio_channel_no_port],
              [dsc$imn_i2_20_model, dsc$imn_i4_40_model, dsc$imn_i4_42_model, dsc$imn_i4_44_model,
               dsc$imn_i4_46_model, dsc$imn_i1_13_model],
               0, 0, 0, 15],
          [' $9853', [cmc$mscm3_ct], [cmc$cio_channel_2_port, cmc$nio_channel],
              [dsc$imn_i4_40_model, dsc$imn_i4_42_model, dsc$imn_i4_44_model, dsc$imn_i4_46_model,
               dsc$imn_i0_5x_model],
               0, 7, 0, 7],
          [' $5832', [cmc$ms5831_x], [cmc$cio_channel_2_port, cmc$nio_channel],
              [dsc$imn_i4_40_model, dsc$imn_i4_42_model, dsc$imn_i4_44_model, dsc$imn_i4_46_model,
               dsc$imn_i0_5x_model],
               0, 7, 0, 31],
          [' $5833', [cmc$ms5831_x], [cmc$cio_channel_2_port, cmc$nio_channel],
              [dsc$imn_i4_40_model, dsc$imn_i4_42_model, dsc$imn_i4_44_model, dsc$imn_i4_46_model,
               dsc$imn_i0_5x_model],
               0, 7, 0, 31],
          [' $5837', [cmc$ms5831_x], [cmc$cio_channel_2_port, cmc$nio_channel],
              [dsc$imn_i4_40_model, dsc$imn_i4_42_model, dsc$imn_i4_44_model, dsc$imn_i4_46_model,
               dsc$imn_i0_5x_model],
               0, 7, 0, 31],
          [' $5838', [cmc$ms5831_x], [cmc$cio_channel_2_port, cmc$nio_channel],
              [dsc$imn_i4_40_model, dsc$imn_i4_42_model, dsc$imn_i4_44_model, dsc$imn_i4_46_model,
               dsc$imn_i0_5x_model],
               0, 7, 0, 31],
          ['$47444', [cmc$ms5831_x], [cmc$cio_channel_2_port, cmc$nio_channel],
              [dsc$imn_i4_40_model, dsc$imn_i4_42_model, dsc$imn_i4_44_model, dsc$imn_i4_46_model,
               dsc$imn_i0_5x_model],
               0, 7, 0, 31],
          [' $NTDD', [cmc$msntdc_1, cmc$msntdc_2], [cmc$cio_channel_2_port, cmc$nio_channel],
              [dsc$imn_i4_40_model, dsc$imn_i4_42_model, dsc$imn_i4_44_model, dsc$imn_i4_46_model,
               dsc$imn_i0_5x_model],
               0, 7, 0, 31]],

    cmv$controller_data: [READ, oss$mainframe_paged_literal] ARRAY [1 .. 48] OF cmt$controller_id := [
      { } [['  $698', '_', '10 '], cmc$mt698_xx,    osc$spid_698_xx_driver],
      { } [['  $698', '_', '11 '], cmc$mt698_xx,    osc$spid_698_xx_driver],
      { } [['  $698', '_', '12 '], cmc$mt698_xx,    osc$spid_698_xx_driver],
      { } [['  $698', '_', '20 '], cmc$mt698_xx,    osc$spid_698_xx_driver],
      { } [['  $698', '_', '21 '], cmc$mt698_xx,    osc$spid_698_xx_driver],
      { } [['  $698', '_', '22 '], cmc$mt698_xx,    osc$spid_698_xx_driver],
      { } [[' $5680', '_', '11 '], cmc$mt5680_xx,   osc$spid_5680_xx_driver],
      { } [[' $5698', '_', '10 '], cmc$mt5698_xx,   osc$spid_5698_xx_driver],
      { } [[' $5698', '_', '11 '], cmc$mt5698_xx,   osc$spid_5698_xx_driver],
      { } [[' $5698', '_', '12 '], cmc$mt5698_xx,   osc$spid_5698_xx_driver],
      { } [[' $7154', '_', '1  '], cmc$ms7154_x,    osc$spid_7154_driver],
      { } [[' $7154', '_', '2  '], cmc$ms7154_x,    osc$spid_7154_driver],
      { } [[' $7154', '_', '3  '], cmc$ms7154_x,    osc$spid_7154_driver],
      { } [[' $7154', '_', '4  '], cmc$ms7154_x,    osc$spid_7154_driver],
      { } [[' $7155', '_', '1  '], cmc$ms7155_1,    osc$spid_7155_1_driver],
      { } [[' $7155', '_', '11 '], cmc$ms7155_1x,   osc$spid_7155_1x_driver],
      { } [[' $7155', '_', '12 '], cmc$ms7155_1x,   osc$spid_7155_1x_driver],
      { } [[' $7155', '_', '13 '], cmc$ms7155_1x,   osc$spid_7155_1x_driver],
      { } [[' $7155', '_', '14 '], cmc$ms7155_1x,   osc$spid_7155_1x_driver],
      { } [[' $7021', '_', '31 '], cmc$mt7021_3x,   osc$spid_7021_3x_driver],
      { } [[' $7021', '_', '32 '], cmc$mt7021_3x,   osc$spid_7021_3x_driver],
      { } [[' $7221', '_', '1  '], cmc$mt7221_1,    osc$spid_7021_3x_driver],
      { } [[' $7221', '_', '11 '], cmc$mt7221_2_s0, osc$spid_ismt_s0_driver_13],
      { } [[' $7021', '_', '41'],  cmc$mt7021_4x,   osc$spid_7021_4x_driver],
      { } [[' $7021', '_', '42'],  cmc$mt7021_4x,   osc$spid_7021_4x_driver],
      { } [[' $4000', '_', '01 '], cmc$expresslink, osc$spid_expresslink_driver],
      { } [[' $7040', '_', '200'], cmc$fs740_200,   osc$spid_fs_driver],
      { } [[' $5380', '_', '100'], cmc$fs740_200,   osc$spid_fs_driver],
      { } [['  $380', '_', '170'], cmc$lcn380_170,  osc$spid_lcn_driver],
      { } [[' $2620', '_', '210'], cmc$mti2620_21x, osc$spid_mti_driver],
      { } [[' $2620', '_', '211'], cmc$mti2620_21x, osc$spid_mti_driver],
      { } [[' $2621', '_', '210'], cmc$mdi2621_21x, osc$spid_mdi_driver],
      { } [[' $2621', '_', '211'], cmc$mdi2621_21x, osc$spid_mdi_driver],
      { } [[' $2629', '_', '2  '], cmc$ca2629_2,    osc$spid_ica_driver],
      { } [[' $7165', '_', '21 '], cmc$ms7165_2x,   osc$spid_unused_driver_11],
      { } [[' $7165', '_', '22 '], cmc$ms7165_2x,   osc$spid_unused_driver_11],
      { } [[' $7195', '_', '1  '], cmc$mshydra_ct,  osc$spid_unused_driver_12],
      { } [['$10395', '_', '11 '], cmc$ms7255_1_1,  osc$spid_unused_driver_10],
      { } [['$10395', '_', '1  '], cmc$ms7255_1_1,  osc$spid_unused_driver_10],
      { } [['$10479', '_', '1  '], cmc$ms7255_1_2,  osc$spid_unused_driver_10],
      { } [['$FA7B4', '_', 'D  '], cmc$ms7255_1_2,  osc$spid_unused_driver_10],
      { } [['$FA7B5', '_', 'A  '], cmc$mscm3_ct,    osc$spid_cm3_driver_14],
      { } [[' $5831', '_', 'X  '], cmc$ms5831_x,    osc$spid_hps_driver],
      { } [[' $NTDC', '_', '1  '], cmc$msntdc_1,    osc$spid_ntdc_driver],
      { } [[' $NTDC', '_', '2  '], cmc$msntdc_2,    osc$spid_ntdc_driver],
      { } [['$65354', '_', '10 '], cmc$mp65354_11,  osc$spid_map_driver],
      { } [['$65354', '_', '11 '], cmc$mp65354_11,  osc$spid_map_driver],
      { } [['$65354', '_', '12 '], cmc$mp65354_11,  osc$spid_map_driver]],

    cmv$controller_data_ptr: [XDCL, READ, #GATE, oss$mainframe_paged_literal] ^ARRAY [1 .. * ] OF
          cmt$controller_id := ^cmv$controller_data,

    cmv$nil_response_handler: [STATIC, READ, oss$mainframe_paged_literal] cmt$response_handler := NIL,

    cmv$product_id_ptr: [XDCL, READ, #GATE, oss$mainframe_paged_literal] ^ARRAY [1 .. *] OF
          cmt$device_id := ^cmv$product_id_string,

    cmv$product_id_string: [READ, oss$mainframe_paged_literal] ARRAY [1 .. 60] OF cmt$device_id := [
      { } [['  $679', '_', '5  '], cmc$mt679_5,    ioc$dt_mt679_5,    cmc$magnetic_tape_unit],
      { } [['  $679', '_', '6  '], cmc$mt679_6,    ioc$dt_mt679_6,    cmc$magnetic_tape_unit],
      { } [['  $679', '_', '7  '], cmc$mt679_7,    ioc$dt_mt679_7,    cmc$magnetic_tape_unit],
      { } [['  $679', '_', '2  '], cmc$mt679_2,    ioc$dt_mt679_2,    cmc$magnetic_tape_unit],
      { } [['  $679', '_', '3  '], cmc$mt679_3,    ioc$dt_mt679_3,    cmc$magnetic_tape_unit],
      { } [['  $679', '_', '4  '], cmc$mt679_4,    ioc$dt_mt679_4,    cmc$magnetic_tape_unit],
      { } [['  $639', '_', '1  '], cmc$mt639_1,    ioc$dt_mt639_1,    cmc$magnetic_tape_unit],
      { } [['  $698', '_', '30 '], cmc$mt698_3x,   ioc$dt_mt698_3x,   cmc$magnetic_tape_unit],
      { } [['  $698', '_', '31 '], cmc$mt698_3x,   ioc$dt_mt698_3x,   cmc$magnetic_tape_unit],
      { } [[' $5682', '_', '12 '], cmc$mt5682_1x,  ioc$dt_mt5682_1x,  cmc$magnetic_tape_unit],
      { } [[' $5682', '_', '14 '], cmc$mt5682_1x,  ioc$dt_mt5682_1x,  cmc$magnetic_tape_unit],
      { } [[' $9639', '_', '1  '], cmc$mt639_s0,   ioc$dt_mt639_1,    cmc$magnetic_tape_unit],
      { } [['  $887', '_', '1  '], cmc$mshydra,    ioc$dt_mshydra,    cmc$mass_storage_unit],
      { } [['  $895', '_', '2  '], cmc$ms895_2,    ioc$dt_ms895_2,    cmc$mass_storage_unit],
      { } [['  $844', '_', '41 '], cmc$ms844_4x,   ioc$dt_ms844_4x,   cmc$mass_storage_unit],
      { } [['  $844', '_', '44 '], cmc$ms844_4x,   ioc$dt_ms844_4x,   cmc$mass_storage_unit],
      { } [['  $885', '_', '11 '], cmc$ms885_1x,   ioc$dt_ms885_1x,   cmc$mass_storage_unit],
      { } [['  $885', '_', '12 '], cmc$ms885_1x,   ioc$dt_ms885_1x,   cmc$mass_storage_unit],
      { } [['  $885', '_', '42 '], cmc$ms885_4x,   ioc$dt_ms885_42,   cmc$mass_storage_unit],
      { } [['  $834', '_', '2  '], cmc$ms834_2,    ioc$dt_ms834_2,    cmc$mass_storage_unit],
      { } [['  $834', '_', '12 '], cmc$ms834_2,    ioc$dt_ms834_2,    cmc$mass_storage_unit],
      { } [['  $836', '_', '110'], cmc$msfsd_2,    ioc$dt_msfsd_2,    cmc$mass_storage_unit],
      { } [['  $836', '_', '221'], cmc$msfsd_2,    ioc$dt_msfsd_2,    cmc$mass_storage_unit],
      { } [['  $836', '_', '441'], cmc$msfsd_2,    ioc$dt_msfsd_2,    cmc$mass_storage_unit],
      { } [[' $9836', '_', '1  '], cmc$msfsd2_s0,  ioc$dt_ms9836_1,   cmc$mass_storage_unit],
      { } [[' $9853', '_', 'X  '], cmc$msxmd_3,    ioc$dt_msxmd_3,    cmc$mass_storage_unit],
      { } [[' $9853', '_', '1  '], cmc$msxmd_3,    ioc$dt_msxmd_3,    cmc$mass_storage_unit],
      { } [[' $9853', '_', '2  '], cmc$msxmd_3,    ioc$dt_msxmd_3,    cmc$mass_storage_unit],
      { } [[' $9853', '_', '3  '], cmc$msxmd_3,    ioc$dt_msxmd_3,    cmc$mass_storage_unit],
      { } [[' $9853', '_', '4  '], cmc$msxmd_3,    ioc$dt_msxmd_3,    cmc$mass_storage_unit],
      { } [[' $5832', '_', '1  '], cmc$ms5832_1,   ioc$dt_ms5832_1,   cmc$mass_storage_unit],
      { } [[' $5832', '_', '2  '], cmc$ms5832_2,   ioc$dt_ms5832_2,   cmc$mass_storage_unit],
      { } [[' $5833', '_', '1  '], cmc$ms5833_1,   ioc$dt_ms5833_1,   cmc$mass_storage_unit],
      { } [[' $5833', '_', '1P '], cmc$ms5833_1p,  ioc$dt_ms5833_1p,  cmc$mass_storage_unit],
      { } [[' $5833', '_', '2  '], cmc$ms5833_2,   ioc$dt_ms5833_2,   cmc$mass_storage_unit],
      { } [[' $5833', '_', '3P '], cmc$ms5833_3p,  ioc$dt_ms5833_3p,  cmc$mass_storage_unit],
      { } [[' $5833', '_', '4  '], cmc$ms5833_4,   ioc$dt_ms5833_4,   cmc$mass_storage_unit],
      { } [[' $5837', '_', '1  '], cmc$ms5837_1,   ioc$dt_ms5837_1,   cmc$mass_storage_unit],
      { } [[' $5837', '_', '1P '], cmc$ms5837_1p,  ioc$dt_ms5837_1p,  cmc$mass_storage_unit],
      { } [[' $5837', '_', '2  '], cmc$ms5837_2,   ioc$dt_ms5837_2,   cmc$mass_storage_unit],
      { } [[' $5837', '_', '3P '], cmc$ms5837_3p,  ioc$dt_ms5837_3p,  cmc$mass_storage_unit],
      { } [[' $5837', '_', '4  '], cmc$ms5837_4,   ioc$dt_ms5837_4,   cmc$mass_storage_unit],
      { } [[' $5838', '_', '1  '], cmc$ms5838_1,   ioc$dt_ms5838_1,   cmc$mass_storage_unit],
      { } [[' $5838', '_', '1P '], cmc$ms5838_1p,  ioc$dt_ms5838_1p,  cmc$mass_storage_unit],
      { } [[' $5838', '_', '2  '], cmc$ms5838_2,   ioc$dt_ms5838_2,   cmc$mass_storage_unit],
      { } [[' $5838', '_', '3P '], cmc$ms5838_3p,  ioc$dt_ms5838_3p,  cmc$mass_storage_unit],
      { } [[' $5838', '_', '4  '], cmc$ms5838_4,   ioc$dt_ms5838_4,   cmc$mass_storage_unit],
      { } [['$47444', '_', '1  '], cmc$ms47444_1,  ioc$dt_ms47444_1,  cmc$mass_storage_unit],
      { } [['$47444', '_', '1P '], cmc$ms47444_1p, ioc$dt_ms47444_1p, cmc$mass_storage_unit],
      { } [['$47444', '_', '2  '], cmc$ms47444_2,  ioc$dt_ms47444_2,  cmc$mass_storage_unit],
      { } [['$47444', '_', '3P '], cmc$ms47444_3p, ioc$dt_ms47444_3p, cmc$mass_storage_unit],
      { } [['$47444', '_', '4  '], cmc$ms47444_4,  ioc$dt_ms47444_4,  cmc$mass_storage_unit],
      { } [[' $NTDD', '_', '1  '], cmc$ms_ntdd_1,  ioc$dt_msntdd_1,   cmc$mass_storage_unit],
      { } [[' $NTDD', '_', '2  '], cmc$ms_ntdd_2,  ioc$dt_msntdd_2,   cmc$mass_storage_unit],
      { } [[' $NTDD', '_', '3  '], cmc$ms_ntdd_3,  ioc$dt_msntdd_3,   cmc$mass_storage_unit],
      { } [[' $NTDD', '_', '4  '], cmc$ms_ntdd_4,  ioc$dt_msntdd_4,   cmc$mass_storage_unit],
      { } [[' $NTDD', '_', '5  '], cmc$ms_ntdd_5,  ioc$dt_msntdd_5,   cmc$mass_storage_unit],
      { } [[' $NTDD', '_', '6  '], cmc$ms_ntdd_6,  ioc$dt_msntdd_6,   cmc$mass_storage_unit],
      { } [['$MAPNO', '_', 'CMI'], cmc$map_1,      ioc$dt_map_1,      cmc$map_unit],
      { } [['$65354', '_', '11 '], cmc$map_cmi_1,  ioc$dt_map_cmi_1,  cmc$map_unit]],

    cmv$response_handler_map: [XDCL] ARRAY [cmt$controller_type] OF ^cmt$response_handler := [
      { cmc$ms7154_x        } ^iov$process_disk_response,
      { cmc$ms7155_1        } ^iov$process_disk_response,
      { cmc$ms7155_1x       } ^iov$process_disk_response,
      { cmc$ms7165_2x       } ^iov$process_disk_response,
      { cmc$mscm3_ct        } ^iov$process_disk_response,
      { cmc$mshydra_ct      } ^iov$process_disk_response,
      { cmc$ms5831_x        } ^iov$process_disk_response,
      { cmc$mt7021_3x       } ^iov$tape_process_pp_response,
      { cmc$mt7021_4x       } ^iov$tape_process_pp_response,
      { cmc$ms7255_1_1      } ^iov$process_disk_response,
      { cmc$ms7255_1_2      } ^iov$process_disk_response,
      { cmc$mt7221_2_s0     } ^iov$tape_process_pp_response,
      { cmc$mt5680_xx       } ^iov$tape_process_pp_response,
      { cmc$mt7221_1        } ^iov$tape_process_pp_response,
      { cmc$mt698_xx        } ^iov$tape_process_pp_response,
      { cmc$mt5698_xx       } ^iov$tape_process_pp_response,
      { cmc$mp65354_11      } ^iov$process_subsystem_response,
      { cmc$ca2629_2        } ^nav$network_response_processor,
      { cmc$lcn380_170      } ^rfv$response_processor,
      { cmc$mti2620_21x     } ^nav$network_response_processor,
      { cmc$mdi2621_21x     } ^nav$network_response_processor,
      { cmc$fs740_200       } ^dfv$process_multiword_response,
      { cmc$expresslink     } ^nav$network_response_processor,
      { cmc$msntdc_1        } ^iov$process_disk_response,
      { cmc$msntdc_2        } ^iov$process_disk_response,
      { cmc$null_controller } NIL],

    cmv$system_device_data: [XDCL, #GATE] cmt$system_device_data;

?? OLDTITLE ??
?? NEWTITLE := 'cmp$change_new_df_entry', EJECT ??

  PROCEDURE [XDCL, #GATE] cmp$change_new_df_entry
    (    device_file_record: cmt$device_file_record);

    cmv$new_device_file := device_file_record;

  PROCEND cmp$change_new_df_entry;
?? OLDTITLE ??
?? NEWTITLE := 'cmp$get_response_handler', EJECT ??

  PROCEDURE [XDCL, #GATE] cmp$get_response_handler ALIAS 'cmxgrh'
    (    controller_type: cmt$controller_type;
     VAR response_handler: cmt$response_handler);

    response_handler := cmv$response_handler_map [controller_type]^;

  PROCEND cmp$get_response_handler;
?? OLDTITLE ??
?? NEWTITLE := 'cmp$return_configuration_limits', EJECT ??

  PROCEDURE [XDCL, #GATE] cmp$return_configuration_limits
    (    product_number: string (6);
     VAR configuration_limits: cmt$configuration_limits;
     VAR product_found: boolean);

    VAR
      index: 1 .. c$configuration_limits;

    product_found := FALSE;

    FOR index := LOWERBOUND (cmv$configuration_limits) TO UPPERBOUND (cmv$configuration_limits) DO
      IF cmv$configuration_limits [index].product_number = product_number THEN
        configuration_limits := cmv$configuration_limits [index];
        product_found := TRUE;
        RETURN;
      IFEND;
    FOREND;

  PROCEND cmp$return_configuration_limits;
MODEND cmm$tables_ring1;
