Siemens Sinumerik 840D sl Programming Manual page 133

Programming example
PROC MAIN
. . .
N0090 G291
N0100 G1 G21 X10 Y20 F1000 G90
. . .
N0500 G90 X20 Y30 G123 G1 G54
. . .
N0800 G90 X20 Y30 G421 G1 G54
. . .
N0900 M30
PROC G21_MAKRO
. . .
N0010 R10 = R10 + 11.11
N0020 IF $C_X_PROG == 0
N0030 SETAL(61000)
N0040 ENDIF
N0050 IF $C_V_PROG == 0
N0060 SETAL(61001)
N0070 ENDIF
N0080 IF $C_F_PROG == 0
N0090 SETAL(61002)
N0100 ENDIF
N0110 G90 X=$C_X V=$C_V
N0120 G291
N0130 G21 M6 X100
N0140 G290
. . .
N0150 M17
PROC G123_MAKRO
. . .
N0010 R10 = R10 + 11.11
N0020 IF $C_G == 421 GOTOF label_G421
N0040 G91 X=$C_X Y=$C_Y F500
. . .
ISO Milling
Programming Manual, 06/09, 6FC5398-7BP10-1BA0
4.7 Macro programs
; ISO mode
; Call of G21_MAKRO.spf,
; G1 and G90 are activated
; before the call of
; G21_MAKRO.spf
; Call of G123_MAKRO.spf,
; G1, G54 and G90 are activated
; before the call of
; G123_MAKRO.spf
; Call of G421_MAKRO.spf,
; G1, G54 and G90 are activated
; before the call of
; G123_MAKRO.spf
; programmed variable not transferred
; correctly
; G21->activate metric measuring
; system (no macro call)
; Macro functionality for G123
Additional functions
133