Figured it out, added this code to the beginning of the main program
(CAPTURE START TIME)
VC41=[VDTIM[1,1]/60] (START OF CYCLE)
VC43=VDTIM[1,1] (RESET TIME FOR TOOL IN SPINDLE)
TIM1=VC46-VC41 (DOWN TIME BETWEEN CYCLES)
FWRITC MD1:TIMES.MIN;A
PUT'START CYCLE '
PUT VC41,10
PUT' MIN'
WRITE C
PUT'BETWEEN CYCLES='
PUT TIM1,10
WRITE C
CLOSE C
changed the G116 sub to this
OG116 (USE FOR M6)
( SET GCODE PARAM. G116 TO OG116 )
( AT TOOL CHANGE KEY IN G116 T= TOOL NO. Q = NEXT TOOL EX. G116 T1 Q2)
IF [ VTLCN EQ PT ]NST1 (ACTIVE TOOL)
IF [ VTLNN EQ PT ]NRT1 (NEXT TOOL)
IF [VTLNN EQ 0]NOT1
(OUTPUT TIMES TO CUT-TIMES.MIN ON MD1 DIRECTORY)
M64
NOT1
FWRITC MD1:CUT-TIMES.MIN;A
PUT'TOOL ='
PUT VTLCN,3
M6 T=PT
GOTO NST1
NRT1
FWRITC MD1:CUT-TIMES.MIN;A
PUT'TOOL ='
PUT VTLCN,3
M6
VC44=VDTIM[1,1] (TOOL REMOVED FROM SPINDLE TIME)
VC45=[VC44-VC43]/60 (ACT TIME IN SPINDLE)
PUT' - CUT TIME='
PUT VC45,10
PUT' MIN'
WRITE C
CLOSE C
NST1
IF [ PQ EQ EMPTY ]NEND (if ready tool empty/jump )
IF [ VTLNN EQ PQ ]NEND (if next called tool is at next tool pos./jump)
IF [ VTLNN EQ 0 ]NTT1 (if next tool has no value)
M64 (next tool pot back up)
NTT1
T=PQ
M356 (next pot down)
NEND
VC43=VDTIM[1,1] (TOOL PUT IN SPINDLE TIME)
RTS
And added this to the end of the main program
VC42=[VDTIM[1,1]/60] (END OF CYCLE)
VC46=VC42-VC41 (TOTAL CUT TIME)
FWRITC MD1:TIMES.MIN;A
PUT'END CYCLE= '
PUT VC42,10
PUT' MIN'
WRITE C
PUT'START TO STOP= '
PUT VC46,10
PUT' MIN'
WRITE C
PUT'****************'
WRITE C
CLOSE C