//Turn on Spindle clockwise
#include pins.h
#include vars.h
main()
{
  timer=0;
  proc=plc_proc_spindle;

  val=eparam;
  if (val>0xfff) {val=0xfff;};
  if (val<0) {val=0;};

  dac01=val;

  portclr(OUTPUT_CCW_SPINDLE);
  portset(OUTPUT_SPINDLE);

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

  //gvarset(7372,0);//Mist State
  //timer=30;do{timer--;}while (timer>0); //
  //gvarset(7373,0);//Flood State
  //timer=30;do{timer--;}while (timer>0); //

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

  message=PLCCMD_TRIGGER1_ON;
  timer=10;do{timer--;}while(timer>0);

  exit(99);	//normal exit 
};