Siemens Sinumerik 840D sl Programming Manual page 131

Examples
Main program with macro call:
_N_M10_MPF:
N10 M3 S1000 F1000
N20 X100 Y50 Z33
N30 G65 P10 F55 X150 Y100 S2000
N40 X50
N50 ....
N200 M30
Tool Macro program in the Siemens mode:
_N_0010_SPF:
PROC 0010 ; Changeover to the Siemens mode
N10 DEF REAL X_AXIS ,Y_AXIS, S_SPEED, FEED
N15 X_AXIS = $C_X Y_AXIS = $C_Y S_SPEED = $C_S FEED = $C_F
N20 G01 F=FEED G95 S=S_SPEED
...
N80 M17
Macro program in the ISO mode:
_N_0010_SPF:
G290; Changeover to the Siemens mode,
N15 X_AXIS = $C_X Y_AXIS = $C_Y S_SPEED = $C_S FEED = $C_F
N20 G01 F=$C_F G95 S=$C_S
N10 G1 X=$C_X Y=$C_Y
G291; Changeover to the ISO mode,
N15 M3 G54 T1
N20
...
N80 M99
ISO Milling
Programming Manual, 06/09, 6FC5398-7BP10-1BA0
; to read the transfer parameters
Additional functions
4.7 Macro programs
131