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

@COMMENTS

Machine: HARDINGE
Control: ALLEN BRADLEY SYSTEM 7370
Date:    August 17,1990

@START
#NEXTPT
#CALL(DEFAULTS)<get all the default values>
%
(TN, #U0)<output tape number from job plan>
/
O#U3   #IF(#SPMODE=0)<S#SPEED>#ELSE<S1000> #SPNDL (#TOFF #TDESC)
#ONBLK
 (CP,1)
 T#TOOL
 X#XPOS Z#ZPOS T#TOFF
#IF(#SPMODE=1)< G92 S#U2
 #SPMODE R#CSSRAD S#SPEED>
#UPDATE(#RFEED)

@TOOLCHG
#IF(#U2=2)<M22><if 1st tools was bar feed output>
 (CP,2)#OFFBLK
/
#NEXTPT
#EVAL(#U3=#BLK+5)
O#U3   #IF(#SPMODE=0)<S#SPEED>#ELSE<S1000> #SPNDL (#TOFF #TDESC)
#ONBLK
 (CP,1)
 T#TOOL
 X#XPOS Z#ZPOS T#TOFF
#IF(#SPMODE=1)< G92 S#U2
 #SPMODE R#CSSRAD S#SPEED>
#RESET(#FDMODE)#UPDATE(#RFEED)

@END
 (CP,2)#OFFBLK
 /
#ONBLK M02
#OFFBLK

@STPROF
< X#XPOS>< Z#ZPOS>< #RFEED>

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

@LINE
#IF(#U1=1)<M21><if bar feed tool out put>
< #MOV>< #FDMODE>< X#XPOS>< Z#ZPOS>< F#FEED>
#IF(#U1=1)<#CALL(DWELL)>
#EVAL(#U1=2)<set bar feed test switch>

@ARC
#RESET(#FXD)
< #MOV>< #FDMODE>< X#XPOS>< Z#ZPOS>< I#XCTR>< K#ZCTR>< F#FEED>

@FXD1
#EVAL(#V3=#V1*-1)
 G91 #FDMODE S#SPEED
 G28 X#V2 Z0 F50 D#V1
 G29 G33 Z#ZPASS< I#XOV> K#FMT(#FTHRD,D1.4) F100 D#V3

@FXD4
 G33 Z#ZPASS K#FEED
 G04 F#DWELL
 Z#ZPOS K#FEED M14

@FXD5
#EVAL(#V4=#ZPOS+ABS(#ZPASS))#EVAL(#V4=#V4*-1)
 G91 #FDMODE
 G83 Z#V4 D#TLDIA L0 F#FEED S#SPEED

@DWELL
 G04 F#DWELL

@CHUTEIN
 M26

@DEFAULTS
#IF(#U0=0)<#EVAL(#U0=1234)><set default program number>
#IF(#U2=0)<#EVAL(#U2=3000)><set default maximum spindle speed>
#EVAL(#U3=5)<set first safe start block number>

@VARIABLES
#U0=PROGRAM_NUMBER
#U1=TEST_FOR_BAR_STOP
#U2=MAXIMUM_SAFE_RPM
#U3=SAFE_START_BLK_NUMBER
#V3=RETRACT_AMOUNT_THREADING
#V4=CALCULATED_DEPTH_FOR_DRILL_CYCLE
@