// FC100 : Werkstück
// Anzahl Werkstücke = 10
//
// Eingabe: Werkstück Länge Messung = 50 ... 150
//
// Ausgabe: Werkstück Länge = 100
// Regal Zeile = 1
// Regal Spalte = 1
//
// Eingabe: Werkstück Länge Messung = 151 ... 250
//
// Ausgabe: Werkstück Länge = 200
// Regal Zeile = 1
// Regal Spalte = 2
//
// Eingabe: Werkstück Länge Messung = 251 ... 350
//
// Ausgabe: Werkstück Länge = 300
// Regal Zeile = 1
// Regal Spalte = 3
//
// weiter bis
//
// Eingabe: Werkstück Länge Messung = 951 ... 1050
//
// Ausgabe: Werkstück Länge = 1000
// Regal Zeile = 2
// Regal Spalte = 5
// Adressregister AR1 sichern
TAR1 #AR1_TEMP
// Werkstück
AUF "DB_WERKSTUECK"
L P#0.0
LAR1
L 10
M01: T #SCHLEIFE
U(
L #MESSUNG // Werkstück Länge Messung
L DBD [AR1,P#0.0] // Werkstück Länge Minimum
>=D
)
U(
L #MESSUNG // Werkstück Länge Messung
L DBD [AR1,P#4.0] // Werkstück Länge Maximum
<=D
)
SPBN M02
L DBD [AR1,P#8.0] // Werkstück Länge
T #LAENGE
L DBW [AR1,P#12.0] // Regal Zeile
T #REGAL_ZEILE
L DBW [AR1,P#14.0] // Regal Spalte
T #REGAL_SPALTE
SPA M03
M02: L P#16.0
+AR1
L #SCHLEIFE
LOOP M01
L L#0
T #LAENGE // Werkstück Länge
T #REGAL_ZEILE // Regal Zeile
T #REGAL_SPALTE // Regal Spalte
M03: NOP 0
// Adressregister AR1 wiederherstellen
LAR1 #AR1_TEMP