//    ----------------------------------------
//    
//    The following SmartCAM code generator has been 
//    created to generate NC code for the respective 
//    machine and control combinations listed below. 
//    
//    Due to differences in programming styles, 
//    controller versions, and optional equipment, 
//    SmartCAMcnc DOES NOT and CANNOT guarantee
//    that the NC code generated is correct for any 
//    specific machine. Some modification to the code 
//    generator to match your setup and output 
//    requirements is likely necessary. 
//    
//    Modifications to code generators do not TYPICALLY
//    require a significant amount of time. SmartCAM 
//    customers with active SMA contracts are entitled 
//    to support for their code generators from the 
//    SmartCAMcnc Support Group. To contact them for 
//    support, please send an email to: 
//    Support@SmartCAMcnc.com. If you would like 
//    information on purchasing SMA for your SmartCAM 
//    products, please contact: Sales@SmartCAMcnc.com
//    
//    DISCLAIMER: It is the responsibility of the end 
//    user to confirm and verify that the NC code 
//    created by any code generator is accurate and 
//    will not cause a machine malfunction which 
//    could result in stock, tooling, machine, and/or 
//    personal injury. 
//    
//    SmartCAMcnc assumes no responsibility or 
//    liability for any damage caused or alleged to 
//    have been caused by the use of any of the code 
//    generators it provides.
//    ----------------------------------------

//12/20/89
//Machine: Mori Seiki SL-20 Lathe with Fanuc 10T Control

@START
%
O#FILE(#S1)
#EVAL(#BLK=1)
N#BLK #FDMODE #C0
#IF(#V0=0)<G50 S3500 >
#ELSE<G50 S#FMT(#V0,T4.0) >
G00 T#TOFF (#TLCMT)
#SPMODE S#SPEED #SPNDL
#NEXTPT
#MOV X#XPOS Z#ZPOS

@TOOLCHG
#MOV X#XPOS Z#ZPOS
T#LTOOL
M01
<#SPOFF >
#EVAL(#U1=INT(#TLTIME))
#EVAL(#U2=#TLTIME-#U1)
#EVAL(#U0=#U2*60)
(T#FMT(#LTOOL,F2.0) EST.TIME:#EXLN
#IF(#U1>0)<#FMT(#U1,T3.0) MIN. >#FMT(#U0,D4.2) SEC.)
#EVAL(#BLK=#BLK+1)
 
N#BLK #FDMODE #C0
#IF(#V0=0)<G50 S3500 >
#ELSE<G50 S#FMT(#V0,T4.0) >
G00 T#TOFF (#TLCMT)
#SPMODE S#SPEED #SPNDL
#NEXTPT
#MOV X#XPOS Z#ZPOS

@END
#EVAL(#C0=1)
#MOV X#XHOME Z#ZHOME #C0
T#LTOOL
M01
#EVAL(#U1=INT(#TLTIME))
#EVAL(#U2=#TLTIME-#U1)
#EVAL(#U0=#U2*60)
(T#FMT(#LTOOL,F2.0) EST.TIME:#EXLN
#IF(#U1>0)<#FMT(#U1,T3.0) MIN. >#FMT(#U0,D4.2) SEC.)
#EVAL(#U1=INT(#CYTIME))
#EVAL(#U2=#CYTIME-#U1)
#EVAL(#U0=#U2*60)
(TOTAL EST.TIME:#EXLN
#IF(#U1>0)<#FMT(#U1,T3.0) MIN. >#FMT(#U0,D4.2) SEC.)
#IF(#U3=1)</M99 >
M30
%

@STPROF
#RESET(#FXD)
<#MOV ><X#XPOS ><Z#ZPOS >

@RAP
#RESET(#FXD)
<#MOV ><X#XPOS ><Z#ZPOS >

@LINE
#RESET(#FXD)
<#MOV ><X#XPOS ><Z#ZPOS ><F#FEED >

@ARC
#RESET(#FXD)
<#MOV ><X#XPOS ><Z#ZPOS >R#ARAD <F#FEED >

@FXD1
<#FXD ><X#XPASS ><Z#ZPASS ><I#XOV ><E#FTHRD >

@FXD2
<#FXD ><X#XPASS ><Z#ZPASS ><F#FEED >

@FXD3
<#FXD ><X#XPASS ><Z#ZPASS ><F#FEED >

@FXD4
G32 Z#ZPASS F#FEED M05
#CALL(DWELL)
#IF(#SPNDL=1)<#EVAL(#SPNDL=2)>#ELSE<#EVAL(#SPNDL=1)>
G32 Z#ZPOS F#FEED #SPNDL

@G04
G04 U#DWELL#EVAL(#TIME=#DWELL/60)

@G71
G71 P#FMT(#V3,T4.0) Q#FMT(#V4,T4.0) U#V5 W#V6 D#FMT(#V7,T1.4) F#FEED S#SPEED

@G70
G70 P#FMT(#V3,T4.0) Q#FMT(#V4,T4.0)

@M10
<#MOV ><X#XPOS ><Z#ZPOS >
M10
#CALL(G04)

@M11
<#MOV ><X#XPOS ><Z#ZPOS >
M11
#CALL(G04)
#EVAL(#U3=1)

@TURNPART
<#MOV ><X#XPOS ><Z#ZPOS >
M00 (TURN PART AROUND)

@BLOWCHIP
<#MOV ><X#XPOS ><Z#ZPOS >
M00 (BLOW CHIPS OUT)
@