//    ----------------------------------------
//    
//    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.
//    ----------------------------------------

//01/16/90
//Machine: Okuma LS-N "Big 10" Dual Turret Lathe (4 Axis)
//Control: Okuma OSP 2200 CNC Control

@START
%
#ONBLK
#CALL(TURRET)
#IF(#SPEED<=90)<#EVAL(#V5=1)>
#IF(#SPEED>90,AND#SPEED<=250)<#EVAL(#V5=2)>
#IF(#SPEED>250,AND#SPEED<=730)<#EVAL(#V5=3)>
#IF(#SPEED>730,AND#SPEED<=2000)<#EVAL(#V5=4)>
#MOV#C2#FDMODEX#XPOSZ#ZPOST#TOOL#TOOL#EXLN
#IF(#V5=1)<S#TABLE(RANGE1,#SPEED)>#EXLN
#IF(#V5=2)<S#TABLE(RANGE2,#SPEED)>#EXLN
#IF(#V5=3)<S#TABLE(RANGE3,#SPEED)>#EXLN
#IF(#V5=4)<S#TABLE(RANGE4,#SPEED)>#EXLN
F#FEED#SPNDLM8
#IF(#SPNDL=1)<#EVAL(#U0=1)>#ELSE<#EVAL(#U0=-1)>
#RESET(#SPNDL)
#IF(#C2=0)<#EVAL(#V3=0)>
#ELSE<#EVAL(#V3=1)>
#EVAL(#V7=#XPOS)#EVAL(#V8=#ZPOS)

@TOOLCHG
#MOVX#V7Z#V8
#CALL(TURRET)
#IF(#C2=0)<#EVAL(#V4=0)>
#ELSE<#EVAL(#V4=1)>
#IF(#SPEED<=90)<#EVAL(#V6=1)>
#IF(#SPEED>90,AND#SPEED<=250)<#EVAL(#V6=2)>
#IF(#SPEED>250,AND#SPEED<=730)<#EVAL(#V6=3)>
#IF(#SPEED>730,AND#SPEED<=2000)<#EVAL(#V6=4)>
#IF(#SPNDL=1)<#EVAL(#U1=1)>#ELSE<#EVAL(#U1=-1)>
#IF(#V3<>#V4,OR#V5<>#V6,OR#U0<>#U1)<M5>
#IF(#SPNDL=1)<#EVAL(#U0=1)>#ELSE<#EVAL(#U0=-1)>
#IF(#C2=0)<#EVAL(#V3=0)>
#ELSE<#EVAL(#V3=1)>
#IF(#SPEED<=90)<#EVAL(#V5=1)>
#IF(#SPEED>90,AND#SPEED<=250)<#EVAL(#V5=2)>
#IF(#SPEED>250,AND#SPEED<=730)<#EVAL(#V5=3)>
#IF(#SPEED>730,AND#SPEED<=2000)<#EVAL(#V5=4)>
#MOV#C2#FDMODEX#XPOSZ#ZPOST#TOOL#TOOL#EXLN
#IF(#V5=1)<S#TABLE(RANGE1,#SPEED)>#EXLN
#IF(#V5=2)<S#TABLE(RANGE2,#SPEED)>#EXLN
#IF(#V5=3)<S#TABLE(RANGE3,#SPEED)>#EXLN
#IF(#V5=4)<S#TABLE(RANGE4,#SPEED)>#EXLN
F#FEED#SPNDLM8
#RESET(#SPNDL)
#EVAL(#V7=#XPOS)#EVAL(#V8=#ZPOS)

@END
#MOV#V7Z#V8
T#NTOOL#NTOOLM5M9
#OFFBLKM2

@STPROF
#IF(#V0=1)<#MOVX#XPOSZ#ZPOSD#V1L#V2>
#ELSE<#MOV><X#XPOS><Z#ZPOS>

@ENDPROF
#IF(#V0=1)<G80>
#EVAL(#V0=0)
#RESET(#MOV)

@RAP
<#MOV><X#XPOS><Z#ZPOS>

@LINE
<#MOV><X#XPOS><Z#ZPOS><F#FEED>

@ARC
<#MOV><X#XPOS><Z#ZPOS>I#XCTRK#ZCTR<F#FEED>

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

@FXD4
G33Z#ZPASSF#FEED
M5
#IF(#SPNDL=1)<M4>#ELSE<M3>
G33Z#ZPOSF#FTHRD

@DWELL
G4F#DWELL

@STOP
M0

@OPSTOP
M1

@TURRET
#IF(#TOOL<=4,AND#TOOL>0)<#EVAL(#C2=0)>
#ELSE<#EVAL(#C2=1)>

@G85
#MOVX#XPOSZ#ZPOSF120
G85
#IF(#V1=0)<#EVAL(#V1=.15)>
#IF(#V2=0)<#EVAL(#V2=.01)>
#EVAL(#V0=1)

@RANGE1
35,11
40,21
50,31
60,41
75,51
90,61

@RANGE2
100,12
120,22
140,32
170,42
210,52
250,62

@RANGE3
280,13
340,23
410,33
490,43
600,53
730,63

@RANGE4
800,14
980,24
1180,34
1400,44
1700,54
2000,64
@