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

Toyoda Horizontal Maching Center
Fanuc 11M control
B axis pallet support

Variables used: #V2-Program No.
@

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

@START
%
O#FMT(#V2F4.0)(#FILE)
#ONBLK (X)#5241=0
 (Y)#5242=-17.7228
 (Z)#5243=-27.9946
 G90
 G55
 T#TOOLM06
 G49G20
 M06
 G0G90G55X#XPOSY#YPOSS#SPEEDT#NTOOL#SPNDL
 G0G90B0
 G43Z#ZPOSH#LOFF
 M08
#RESET(#XPOS,#YPOS)
@

@TOOLCHG
 G00<#FXD>Z#ZPOSM09
 G91G28X0Y0Z0
 M06
 G0G90G55X#XPOSY#YPOSS#SPEEDT#NTOOL#SPNDL
#RESET(#ZCHK,#ZDPTH,#DWELL)
 G0G90B0
 G43Z#ZPOSH#LOFF
 M08
#RESET(#XPOS,#YPOS)
@

@END
 G00<#FXD>Z#ZPOSM09
 M40
 G91G28X0Y0Z0
 M30
#OFFBLK
%
@

@STPROF#UPDATE(#ZPOS)
 <#MOV><X#XPOS><Y#YPOS><Z#ZPOS>
@

@ENDPROF
< #DCOMP>
@

@RAP
 <#MOV><X#XPOS><Y#YPOS>
@

@LINE
 <#MOV><#DCOMP><X#XPOS><Y#YPOS><F#FEED><D#DOFF>
@

@ARC
 <#MOV><X#XPOS><Y#YPOS><I#XCTRJ#YCTR><F#FEED><D#DOFF>
@

@ZCLRMV
< <#MOV><Z#ZPOS>>
@

@ZCHKMV
< <#MOV><Z#ZPOS>>
@

@ZDPTHMV#UPDATE(#ZPOS)
< <#MOV><Z#ZPOS><F#FEED>>
@

@OP_SPEC
#CALL(OP_DRL)
@OP_REAM
#CALL(OP_DRL)
@OP_DRL
 <#CYCLE><#RTNLVL><X#XPOS><Y#YPOS><Z#ZDPTH><R#ZCHK><F#FEED>
@@CYCLE
0,G81
@

@OP_SPDRL
#CALL(OP_CSINK)
@OP_CDRL
#CALL(OP_CSINK)
@OP_CBORE
#CALL(OP_CSINK)
@OP_SPFACE
#CALL(OP_CSINK)
@OP_CSINK
 <#CYCLE><#RTNLVL><X#XPOS><Y#YPOS><Z#ZDPTH><R#ZCHK><F#FEED><P#DWELL>
@@CYCLE
0,G82
@

@OP_TAP
 <#CYCLE><#RTNLVL><X#XPOS><Y#YPOS><Z#ZDPTH><R#ZCHK><F#FEED>
@@CYCLE
0,G84
@

@OP_BORE
 <#CYCLE><#RTNLVL><X#XPOS><Y#YPOS><Z#ZDPTH><R#ZCHK><F#FEED>
@@CYCLE
0,G86
@

@OP_PDRL
 <#CYCLE><#RTNLVL><X#XPOS><Y#YPOS><Z#ZDPTH><R#ZCHK><F#FEED><Q#PECK>
@@CYCLE
0,G83
@

@TPINDX
 G80G00Z#ZPOS
 B#INDXB (ROTATE PALLET#INDXB DEGREES)
#RESET(#FXD,#ZDPTH,#ZCHK)< <F#FEED>>
@