*-----------------------------------------------------------------------------
*  3D head exchange
*-----------------------------------------------------------------------------
*  Module Description
*    - will be prepared
*
*-----------------------------------------------------------------------------

#define /s    KL_inactive                              K -1

#define /s    ML_machine_parameter_read                M

#include Mac_Lib.inc

GLOBAL Head_3D_exchange

;----------------------------
LBL Head_3D_exchange
;----------------------------

  L      MG_M52_AB_head_activate
  O      MG_M53_AB_head_C_table_activate
  O      MG_M54_B_head_C_table_activate
  O      MG_M55_AC_table_1_activate
  O      MG_M56_AC_table_2_activate
  O      MG_M57_AC_fork_head_activate
  O      MG_M58_kinematic_inactive
  R      MG_machine_parameter_synchron
  S      MG_3D_head_change_active
  S      PN_M4092_quit_M_function

  L      WG_number_active_NC_macro
  ==     KL_inactive
  ON     MG_control_operational
  R      MG_3D_head_change_active

  L      MG_machine_parameter_are_read
  AN     ML_machine_parameter_read
  S      MG_machine_parameter_synchron

  L      MG_machine_parameter_are_read
  =      ML_machine_parameter_read

EM
