Siemens sinumerik 802d sl Operation And Programming Manual page 193

Example:
DEF INT state
gram
...
N100 RESETMON(state,12,1,2)
...
Programming example
DEF INT state
sage from
;
G0 X...
T7
$TC_MOP3[$P_TOOLNO,$P_TOOL]=100
$TC_MOP4[$P_TOOLNO,$P_TOOL]=700
$TC_MOP13[$P_TOOLNO,$P_TOOL]=700
; Activation after setting:
$TC_TP9[$P_TOOLNO,$P_TOOL]=2
tool
STOPRE
ANF:
BEARBEIT
SETPIECE(1)
M0
IF ($TC_MOP4[$P_TOOLNO,$P_TOOL]]>1) GOTOB ANF
MSG("Tool T7 worn – please change")
M0
RESETMON(state,7,1,2)
IF (state<>0) GOTOF ALARM
GOTOB ANF
ALARM:
MSG("error RESETMON: " <<state)
M0
M2
SINUMERIK 802D sl Operation and Programming Nibbling (BP-N), 06/2006 Edition
6FC5 398-3CP10-0BA0
8.11 Language commands for tool monitoring
; Define variable for status feedback at the beginning of the pro-
; Workpiece counter setpoint refreshed for T12, D1; setpoint 2
; Define variable for the status checkback mes-
RESETMON()
; Retract
; Load new tool using M6 as necessary
; Warning limit, 100 workpieces
; Remaining quantity
; Required quantity (setpoint)
; Activate monitoring of required quantity, active
; Subroutine for workpiece machining
; Refresh counter
; Next workpiece; press NC START to continue
; After tool change, press NC START to continue
; Workpiece counter setpoint refreshed
; Display errors:
Programming
8-193