@COMMENTS
  ----------------------------------------
  
  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.
  ----------------------------------------

Machine: HEIDENHAIN
Control: 355

Notes:
The CG is in metric.
@

@DECLARE
//#OUTCND // outputs conditional status
//#OUTSEC // outputs @section names
//#OUTREF // outputs processing errors
//#OUTRPT // outputs an error report file
@

@START
%
0 BEGIN PGM #FILE INCH
#ONBLK TOOL CALL 0 Z S 0
 L Z#ZPOS R0 F2000 M
 L X#XPOS Y#YPOS R0 F2000 M06
#EVAL(#V1=#TLDIA/2)
 TOOL CALL #TOOL Z S #SPEED
 L X#XPOS Y#YPOS R0 F<#FEED> M03
 L Z#ZPOS R0 F M
@

@TOOLCHG
 L Z#ZHOME R< #DCOMP> F<#FEED> M
 L X#XHOME Y#YHOME R<#DCOMP> F<#FEED> M06
#EVAL(#V1=#TLDIA/2)
 TOOL CALL#TOOL Z S#SPEED
 <L X#XPOS Y#YPOS R#DCOMP F<#FEED> #SPNDL>
 L R F M08
@

@END
 L X#XPOS Y#YPOS R#DCOMP F<#FEED> M09
 L Z#ZPOS R#DCOMP F2000 M30
 END PGM #FILE INCH
%
@

@STPROF
 L X#XPOS Y#YPOS< Z#ZPOS> R#DCOMP F<#FEED> M
@

@ENDPROF
 L X#XPOS Y#YPOS< Z#ZPOS> R#DCOMP F<#FEED> M
@

@RAP
 L X#XPOS Y#YPOS< Z#ZPOS> R#DCOMP F2000 M
@

@LINE
 L X#XPOS Y#YPOS< Z#ZPOS> R#DCOMP F<#FEED> M
@

@ARC
 CC X#XCTR Y#YCTR
 C X#XPOS Y#YPOS DR#MOV R#DCOMP F<#FEED> M
@

@XZARC
 CC X#XCTR Z#ZCTR
 C X#XPOS Z#ZPOS DR#MOV R#DCOMP F<#FEED> M
@

@YZARC
 CC Y#XCTR Z#ZCTR
 C Y#XPOS Z#ZPOS DR#MOV R#DCOMP F<#FEED> M
@

@ZCLRMV
 L Z#ZPOS R#DCOMP F2000 M
@

@ZCHKMV
 L Z#ZPOS R#DCOMP F2000 M
@

@ZDPTHMV
 L Z#ZPOS R#DCOMP F#FEED M
@

@OP_SPEC
#CALL(OP_DRL)
@OP_REAM
#CALL(OP_DRL)
@OP_BORE
#CALL(OP_DRL)
@OP_DRL
#EVAL(#ZDPTH=#ZDPTH+2)#IF(#V9<>#ZDPTH)< CYCL DEF 1.0 TALADRADO PROF.
 CYCL DEF 1.1 DIST. -2.000
 CYCL DEF 1.2 PROF. #ZDPTH
>#IF(#V9<>ZDPTH)<
 CYCL DEF 1.3 APROX. #ZDPTH
 CYCL DEF 1.4 T.ESPR 0
 CYCL DEF 1.5 F#FEED
>#EVAL(#V9=#ZDPTH)<L X#XPOS Y#YPOS R F#MOV M>
 CYCL CALL
@

@OP_SPDRL
#CALL(OP_CSINK)
@OP_CDRL
#CALL(OP_CSINK)
@OP_CBORE
#CALL(OP_CSINK)
@OP_SPFACE
#CALL(OP_CSINK)
@OP_CSINK
#EVAL(#ZDPTH=#ZDPTH+2)#IF(#V9<>#ZDPTH)< CYCL DEF 1.0 TALADRADO ESP.
 CYCL DEF 1.1 DIST. -2.000
 CYCL DEF 1.2 PROF. #ZDPTH
>#IF(#V9<>ZDPTH)<
 CYCL DEF 1.3 APROX. #ZDPTH
 CYCL DEF 1.4 T.ESPR 0
 CYCL DEF 1.5 F#FEED
>#EVAL(#V9=#ZDPTH)<L X#XPOS Y#YPOS R F#MOV M>
 CYCL CALL
@

@OP_TAP
#EVAL(#ZDPTH=#ZDPTH+2)#IF(#V9<>#ZDPTH)< CYCL DEF 2.0 ROSCADO
 CYCL DEF 2.1 DIST. -2.000
 CYCL DEF 2.2 PROF. #ZDPTH
>#IF(#V9<>ZDPTH)<
 CYCL DEF 2.3 T.ESPR 0
 CYCL DEF 2.4 F#FEED
>#EVAL(#V9=#ZDPTH)<L X#XPOS Y#YPOS R F#MOV M>
 CYCL CALL
@

@OP_PDRL
#EVAL(#ZDPTH=#ZDPTH+2)#IF(#V9<>#ZDPTH)< CYCL DEF 1.0 TALADRADO PROF.
 CYCL DEF 1.1 DIST. -2.000
 CYCL DEF 1.2 PROF. #ZDPTH
>#IF(#V9<>ZDPTH)<
 CYCL DEF 1.3 APROX. #PECK
 CYCL DEF 1.4 T.ESPR 1
 CYCL DEF 1.5 F#FEED
>#EVAL(#V9=#ZDPTH)<L X#XPOS Y#YPOS R F#MOV M>
 CYCL CALL
@