send_m3_modbus()
{
 gvarset(60019,0x1);	//set Register Value (1)
 gvarset(60030,0x1);	//send value to Address (1)

 timer=200;  do{timer--;}while(timer>0);

 //repeat the command for any case
 gvarset(60019,0x1);	//set Register Value (1)
 gvarset(60030,0x1);	//send value to Address (1)

};


main()
{
  val=eparam*10;

  timer=0;
  proc=plc_proc_spindle;
  gvarset(7371,eparam); timer=30;do{timer--;}while (timer>0); //Spindle Speed Mirror register

  send_speed_modbus();
  send_m3_modbus();

  gvarset(7370,1); timer=30;do{timer--;}while (timer>0); //Spindle State

  //delay after spindle started
  timer=spindle_on_delay;
  do{timer--;}while (timer>0); //delay for Spindle reach given speed

  exit(99);	//normal exit 
};