//    ----------------------------------------
//    
//    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:          Brown & Sharpe 1500-B Vert. Machining Center

                        Control:          Bendix Dynapath System 5A

Supported Functions:

	G-Codes (Preparatory Functions) 
      G0   Positioning mode 
      G1   Linear interpolation (contouring) 
      G2   Clockwise circular interpolation 
      G3   Counter clockwise circular interpolation 
      G17  Interpolation in XY Plane
      G18  Interpolation in XZ Plane
      G19  Interpolation in YZ Plane
      G4   Dwell
      G40  Tool radius compensation cancel
      G41  Tool radius compensation, left 
      G42  Tool radius compensation, right 
      G20  Inch input
      G21  Metric input
      G80  Cancel fixed cycle
      G81  Drilling cycle
      G82  Drill / Dwell
      G84   Tapping cycle 
      G85   Bore in / Bore out
      G86   Bore in / Spindle Stop / Bore out
      G89   Bore in / Dwell / Bore out
      G90   Absolute positioning mode 
      G91   Incremental positioning mode 
      G92   Preload absolute stores
      G94   IPM Feed Mode
      G95   IPR Feed Mode

	M-Codes (Miscellaneous Functions) 
      M2   End of Program
      M3   Spindle on CW
      M4   Spindle on CCW (use negative spindle speed in job plan) 
      M5   Spindle Stop
      M6   Tool Change
      M8   Coolant on - Flood
      M9   Coolant off 
      M30  End of program / rewind tape 
-----------------------------------------------------------------------------
Important Notes:
This machine is very old, the Hyperdex table only positions using M codes 
for the angle calls. The format of the calls is very strange. To call for 
a 180 degree index the code would look like this: M1XX
                                                  M8XX
                                                  M0XX
If you need this kind of code for an old Hyperdex then here it is. No user 
interaction is needed, any new tool plane in SmartCAM will do just fine, the
only kicker is that output is held to 1 degree increments, so a word to the 
wise...


@START
%
#ONBLKG17
G90
(#TDESC)
#SPNDL
T#TOOLM06
S#SPEED
M16
#NEXTPT
@TOOLCHG
M09
<#MOV>X#XPOSY#YPOS
Z#ZPOS
T#TOOLM06
(#TDESC)
D#DOFF
#SPNDL
S#SPEED
@END
T#NTOOLM06
M30
#OFFBLK%
@TPINDX
#UPDATE(#SPEED)
#EVAL(#U1=INT(#INDXA))
#IF(#U1<100)<M70>#IF(#U1>100,AND<200)<M71>#IF(#U1>200,AND<300)<M72>#EXLN
#IF(#U1>300)<M73>
#IF(#U1<100)<#EVAL(#U2=#U1)>
#IF(#U1>100,AND<200)<#EVAL(#U2=#U1-100)>
#IF(#U1>200,AND<300)<#EVAL(#U2=#U1-200)>
#IF(#U1>300)<#EVAL(#U2=#U1-300)>
#EVAL(#U3=#TABLE(ANGLE,#U2)
M7#U3
#EVAL(#U4=#U3*10)
#EVAL(#U5=#U2-#U4)
M7#U5
#RESET(#INDXA)
@STPROF
<#FXD><#MOV><X#XPOS><Y#YPOS>
<Z#ZPOS>
@ENDPROF
<<#MOV>Z#ZPOS>
<#DCOMP>
@RAP
<#ABSI><#FXD><#MOV><X#XPOS><Y#YPOS>
<Z#ZPOS>
@LINE
<#MOV><X#XPOS><Y#YPOS><Z#ZPOS><F#FEED>
@ARC
<#PLANE><#MOV><X#XPOS><Y#YPOS>I#XCTRJ#YCTR<F#FEED>
@XZARC
#PLANE><#MOV><X#XPOS><Z#ZPOS>I#XCTRK#ZCTR<F#FEED>
@YZARC
#PLANE><#MOV><Y#YPOS><Z#ZPOS>J#YCTRK#ZCTR<F#FEED>
@ZCLRMV
<#ABSI><#FXD><<#MOV>Z#ZPOS>
@ZCHKMV
<#FXD><<#MOV>Z#ZPOS>
@ZDPTHMV
<<#MOV>Z#ZPOS<F#FEED>>
@FXD1
<#ABSI><#FXD><X#XPOS><Y#YPOS><Z#ZDPTHR#ZCHK><F#FEED>
@FXD2
<#ABSI><#FXD><X#XPOS><Y#YPOS><Z#ZDPTHR#ZCHKP#DWELL><F#FEED>
@FXD3
<#ABSI><#FXD><X#XPOS><Y#YPOS><Z#ZDPTHR#ZCHK><F#FEED>
@FXD4
<#ABSI><#FXD><X#XPOS><Y#YPOS><Z#ZDPTHR#ZCHK><F#FEED>
@FXD5
<#ABSI><#FXD><X#XPOS><Y#YPOS><Z#ZDPTHR#ZCHKQ#PECK><F#FEED>
@DWELL
G04P#DWELL#EVAL(#TIME=#DWELL/60)
@ANGLE
0,0
5,0
6,0
7,0
8,0
9,0
10,1
15,1
16,1
17,1
18,1
19,1
20,2
25,2
26,2
27,2
28,2
29,2
30,3
35,3
36,3
37,3
38,3
39,3
40,4
45,4
46,4
47,4
48,4
49,4
50,5
55,5
56,5
57,5
58,5
59,5
60,6
65,6
66,6
67,6
68,6
69,6
70,7
75,7
76,7
77,7
78,7
79,7
80,8
85,8
86,8
87,8
88,8
89,8
90,9
95,9
96,9
97,9
98,9
99,9
@SPEEDS
45,00
49,01
55,02
61,03
67,04
73,05
80,06
87,07
95,08
103,09
113,10
122,11
132,12
143,13
156,14
169,15
184,16
200,17
219,18
243,19
138,20
149,21
164,22
181,23
199,24
218,25
237,26
283,28
308,29
336,30
360,31
395,32
426,33
465,34
505,35
547,36
600,37
652,38
725,39
223,40
243,41
268,42
294,43
324,44
354,45
387,46
424,47
465,48
502,49
547,50
590,51
643,52
698,53
762,54
815,55
900,56
966,57
1092,58
1170,59
684,60
726,61
809,62
886,63
987,64
1061,65
1182,66
1265,67
1400,68
1507,69
1653,70
1767,71
1930,72
2048,73
2266,74
2461,75
2676,76
2909,77
3181,78
3500,79
@