// ----------------------------------------------------------- // // !! P L E A S E R E A D T H I S !! // // This is a sample code generator built to // generate code for the Machine/Control combination // named below. Due to differences in programming // style, controller versions, and optional equipment // McKenzie River Software can not guarantee that the // code generated is correct for your machine. // // It is YOUR responsibility to verify that the code // created by this Code Generator will not cause a // machine malfunction which could result in scrap // and/or personal injury. // // McKenzie River Software assumes no responsibility // or liability for any damage caused or alleged to be // caused by the use of this Code Generator. // // ----------------------------------------------------------- // Gray VFR, Siemens 840 series control @DECLARE //#OUTCND// outputs conditional status //#OUTSEC// outputs @section names //#OUTREF// outputs processing errors //#OUTRPT// outputs an error report file @ @START #EVAL(#U11=1) #IF(JOS(COOLANT)=1)<#EVAL(#U2=0)>#ELSE<#EVAL(#U2=1)> #EVAL(#V16=0) #EVAL(#C0=1) #EVAL(#V10=INT(#TOOL*.01)) #EVAL(#U11=JOS(turret)) #IF(#U11>1)<#EVAL(#C0=0)> #EVAL(#V7=JOS(loff)) #IF(#V7=164)<#EVAL(#V7=#V7-1)> #IF(#V7>486)<#EVAL(#V7=486)> #IF(#V7>164)<#IF(#V7/2=INT(#V7/2))<#EVAL(#V7=#V7)>#EXLN #ELSE<#EVAL(#V7=#V7-1)>> #EVAL(#C1=#V7) #IF(#C1/2=INT(#C1/2))<#EVAL(#C1=1)>#ELSE<#EVAL(#C1=0)> #EVAL(#U5=#C1) #IF(#SPMODE=1)<#EVAL(#C2=1)>#ELSE<#EVAL(#C2=0)> #RESET(#C2) #EVAL(#U0=INT(#FILE))#FMT(#U0,F5.0)-G #OFFBLK %_N_O#EVAL(#U0=INT(#FILE))#FMT(#U0,F5.0)_MPF ;$PATH=/_N_MPF_DIR MSG ("#FMT(#U0,F5.0) #S0") T#FMT(#V10,F1.0)D#DOFF #C1 SUPA G00X29.0Z30.0LIMS=#FMT(#V7,T5.0) G54 #EVAL(#V8=29.000) #EVAL(#V9=30.000) #SPMODE#IF(#SPMODE=1)S#IF(#SPMODE=0)<#FMT(#SPEED,T5.0)>#EXLN #ELSE<#FMT(#SPEED,T5.0)>#SPNDL #EVAL(#V6=#SPNDL) #EVAL(#C1=0) #EVAL(#V17=#V8) #EVAL(#V19=0) #RESET(#MOV) #NEXTPT @ @TOOLCHG #EVAL(#V19=0) #IF(JOS(COOLANT)=1)<#EVAL(#U2=0)>#ELSE<#EVAL(#U2=1)> #EVAL(#V16=0) #EVAL(#C0=0) #EVAL(#V10=INT(#TOOL*.01)) #EVAL(#V7=JOS(loff)) #IF(#V7=164)<#EVAL(#V7=#V7-1)> #IF(#V7>486)<#EVAL(#V7=486)> #IF(#V7>164)<#IF(#V7/2=INT(#V7/2))<#EVAL(#V7=#V7)>#EXLN #ELSE<#EVAL(#V7=#V7-1)>> #EVAL(#C1=#V7) #IF(#C1/2=INT(#C1/2))<#EVAL(#C1=1)>#ELSE<#EVAL(#C1=0)> #EVAL(#V4=ABS(#TOOL-#LTOOL)) #IF(#V4<20,AND#V15<1)<#CALL(NOTC)#EXIT> #RESET(#C2)#IF(#SPMODE=1)<#EVAL(#C2=1)>#ELSE<#EVAL(#C2=0)> G500 SUPA G00X#V8Z#V9M09 #EVAL(#V17=#V8) #EVAL(#V15=0) #IF(#U1<>1)<#IF(#C1<>#U5,OR#SPNDL<>#V6)> D0#IF(#V14=1)#ELSE #RESET(#MOV) #EVAL(#V14=0) #IF(#U1=1) #OFFBLK #EVAL(#U1=0) T#FMT(#V10,F1.0)D#DOFF #IF(#C1<>#U5)<#C1> #EVAL(#U5=#C1) SUPA G00X29.0Z30.0LIMS=#FMT(#V7,T5.0) G54 #EVAL(#V8=29.0) #EVAL(#V9=30.0) #SPMODE#IF(#SPMODE=1)S#IF(#SPMODE=0)<#FMT(#SPEED,T5.0)>#EXLN #ELSE<#FMT(#SPEED,T5.0)>#SPNDL #EVAL(#V6=#SPNDL) #RESET(#RFEED) #NEXTPT @ @END #IF(JOS(COOLANT)=1) G500 SUPA G00X#V8Z#V9 D0M02 @ @RAP #IF(#V17>0,#AND#XPOS<0)<#EVAL(#C2=0)>#EXLN #IF(#V16=1,#AND#SPMODE=0)<#EVAL(#V2=#XPOS)> #IF(#V17<0,#AND#XPOS>0)<#EVAL(#C2=0)> #IF(#V16=1,#AND#SPMODE=0)<#EVAL(#V2=#XPOS)> #IF(#V17>0,#AND#XPOS>0)<#EVAL(#C2=1)> #IF(#V17<0,#AND#XPOS<0)<#EVAL(#C2=1)> #IF(#V16=1,#AND#SPMODE=0)<#EVAL(#V2=#XPOS)> #EVAL(#V0=ABS(#V1-#V2)) #EVAL(#V3=#SPEED*(#V1/3.819718634)) #EVAL(#U4=INT(#V3/(#V2/3.819718634)) #IF(#C1=0,#AND#U4>164)<#EVAL(#U4=164)> #IF(#C1=1,#AND#U4>486)<#EVAL(#U4=486)> #IF(#V13=1,#AND#V19=1)<#MOV> #IF(#C2=0)<#EVAL(#C2=1)> #EVAL(#V19=1) #EVAL(#V0=0) #EVAL(#V16=1) #RESET(#V12) #EVAL(#V17=#XPOS) #IF(#V13=1,#AND#V19=1)<#RESET(#XPOS)> @ @LINE #EVAL(#V12=#FEED) #IF(#V13=1)<#MOV>#EXLN #IF(#U2=0) #EVAL(#V1=#XPOS) #IF(#V13=1)<#EVAL(#U2=0)>#ELSE<#EVAL(#U2=1)> #EVAL(#V11=0) #EVAL(#V17=#XPOS) @ @ARC #EVAL(#V12=#FEED) #IF(#V13=1)#EXLN #MOVX#XPOSZ#ZPOSI=AC(#XCTR)K=AC(#ZCTR)#IF(#U2=0) #EVAL(#V1=#XPOS) #EVAL(#U6=#MOV) #EVAL(#V11=0) @ @FXD1 G33Z#ZPOSK#FTHRD @ @FXD4 G33Z#ZPASSK#FEED M03 G33Z#ZPOSK#FEED @ @DWELL G04X#DWELL#EVAL(#TIME=#DWELL/60) @ @NOTC > M09 #EVAL(#V10=INT(#TOOL*.01)) D#DOFF #UPDATE(#TOOL) #IF(#C1<>#U5,OR#SPNDL<>#V6) #IF(#C1<>#U5)<#C1> #SPMODES#IF(#SPMODE=0)<#FMT(#SPEED,T5.0)>#EXLN #ELSE<#FMT(#SPEED,T5.0)>#SPNDL #IF(JOS(COOLANT)=1)<#EVAL(#U2=0)>#ELSE<#EVAL(#U2=1)> #EVAL(#V6=#SPNDL) #EVAL(#V8=29.000) #EVAL(#V9=30.000) #EVAL(#V17=#XPOS) #RESET(#RFEED) #RESET(#MOV) #EVAL(#U5=#C1) @ @BLKON #EVAL(#V13=1) #EVAL(#U6=2) #NEXTPT @ @BLKOFF #EVAL(#V13=0) #EVAL(#U6=2) #NEXTPT @ @INDEX #EVAL(#V15=1) @