Damit Führt Die Teileprogrammzeile: Zur Bearbeitung Des Folgenden Programms - Siemens SINUMERIK 840D sl Handbuch

Ersetzungsunterprogramm:
Programmierung
N1000 PROC D_T_SUB_PROG DISPLOF SBLOF
...
N4100 IF $C_T_PROG==TRUE
N4110
N4120 POS[B]=CAC($C_T)
N4130 T[$C_TE]=$C_T
N4140 ENDIF
N4300 IF $C_D_PROG==TRUE
N4310
N4320 D=$C_D
N4330 ENDIF
N4400 IF $C_DL_PROG==TRUE
N4410
N4420 D=$C_DL
N4430 ENDIF
...
N9999 RET
Damit führt die Teileprogrammzeile:
N410 G01 F1000 X10 T1=5 D1
zur Bearbeitung des folgenden Programms:
Programm
N1000 PROC D_T_SUB_PROG DISPLOF SBLOF
...
N4100 IF $C_T_PROG==TRUE
N4110
N4120 POS[B]=CAC($C_T)
N4130 T[$C_TE]=$C_T
N4140 ENDIF
N4300 IF $C_D_PROG==TRUE
N4310
Grundfunktionen
Funktionshandbuch, 03/2010, 6FC5397-0BP20-1AA0
K1: BAG, Kanal, Programmbetrieb, Reset-Verhalten
9.14 Ersetzung von NC-Funktionen durch Unterprogramme
Kommentar
; Abfrage, ob Adresse T programmiert
wurde.
; Ersetzung für Adresse T mit
Werkzeug-Nr.
; Revolver auf Teilungsposition
fahren
; Werkzeug anwählen (T-Anwahl)
; Abfrage, ob Adresse D programmiert
wurde.
; Ersetzung für Adresse D
; Korrektur anwählen (D-Anwahl)
; Abfrage, ob Adresse DL
programmiert wurde.
; Ersetzung für Adresse DL
; Einsatzkorrektur anwählen
Kommentar
; Abfrage, ob Adresse T programmiert
wurde.
; Ersetzung für Adresse T mit
Werkzeug-Nr.
; Revolver auf Teilungsposition
fahren
; Werkzeug anwählen (T-Anwahl)
; Abfrage, ob Adresse D programmiert
wurde.
; Ersetzung für Adresse D
659