SET
SAVE
= L 0.1
L #Durchmesser_Schild
PUSH
*R
L 7.853982e-001
*R
T #Flaeche_Bohrkopf
L #Erddruck_Sensor1
L #Erddruck_Sensor2
+R
L 2.000000e+000
/R
L 1.013000e+000
+R
T #Erddruck_gemittelt
L #Pos_FER_Lanze
T #t
L #Anzahl_Lanzen
L 1
T #i
TAK
T LW 2
TAK
A7d0: L #i
L LW 2
<=I
JCN A7d1
L #i
ITD
L L#-1
+D
L L#32
*D
L #t
ITD
TAK
T LD 4
TAK
L L#0
+D
L L#8
*D
LAR1
OPN "Schaumanlage"
L DBD [AR1,P#0.0]
L LD 4
TAK
T LD 8
TAK
TAR2
+D
L LD 8
TAK
LAR1
TAK
T DID [AR1,P#126.0]
L #t
L 4
+I
T #t
L #i
L 1
+I
T #i
JU A7d0
A7d1: CLR
A #Mode_Auto
JCN A7d2
L #Vortriebsgeschwindigkeit
L 1.000000e+002
/R
L #Flaeche_Bohrkopf
*R
L #FIR_wert_Mode_Auto
TAK
T LD 2
TAK
L 1.000000e+002
/R
L LD 2
*R
T #Schaummenge_gesamt_Auto
L #Pos_Soll_Schaum_La_Auto
T #t
L #Anzahl_Lanzen
L 1
T #i
TAK
T LW 2
TAK
A7d3: L #i
L LW 2
<=I
JCN A7d4
L #i
ITD
L L#-1
+D
L L#32
*D
L #t
ITD
TAK
T LD 4
TAK
L L#0
+D
L L#8
*D
LAR1
OPN "Schaumanlage"
L DBD [AR1,P#0.0]
L LD 4
TAK
T LD 8
TAK
TAR2
+D
L LD 8
TAK
LAR1
TAK
T DID [AR1,P#46.0]
L #t
L 4
+I
T #t
L #i
L 1
+I
T #i
JU A7d3
A7d4: L 0.000000e+000
T #Gesamt_Schaum_Auto
L #Anzahl_Lanzen
L 1
T #i
TAK
T LW 2
TAK
A7d5: L #i
L LW 2
<=I
JCN A7d6
L #i
ITD
L L#-1
+D
L L#32
*D
TAR2
+D
LAR1
L DID [AR1,P#46.0]
L #Gesamt_Schaum_Auto
+R
T #Gesamt_Schaum_Auto
L #i
L 1
+I
T #i
JU A7d5
A7d6: L #Anzahl_Lanzen
L 1
T #i
TAK
T LW 2
TAK
A7d7: L #i
L LW 2
<=I
JCN A7d8
L #i
ITD
L L#-1
+D
L L#32
*D
L #i
ITD
TAK
T LD 4
TAK
L L#-1
+D
L L#32
*D
TAR2
+D
LAR1
L DID [AR1,P#46.0]
L 1.000000e+002
/R
L #Schaummenge_gesamt_Auto
*R
L #i
ITD
TAK
T LD 8
TAK
L L#-1
+D
L L#32
*D
TAR2
+D
L LD 8
TAK
LAR1
TAK
L DID [AR1,P#126.0]
/R
L LD 4
TAK
T LD 8
TAK
TAR2
+D
L LD 8
TAK
LAR1
TAK
T DID [AR1,P#214.0]
L #i
ITD
L L#-1
+D
L L#32
*D
L #i
ITD
TAK
T LD 4
TAK
L L#-1
+D
L L#32
*D
TAR2
+D
LAR1
L DID [AR1,P#126.0]
L 1.000000e+000
-R
L #i
ITD
TAK
T LD 8
TAK
L L#-1
+D
L L#32
*D
TAR2
+D
L LD 8
TAK
LAR1
TAK
L DID [AR1,P#126.0]
/R
L #i
ITD
TAK
T LD 8
TAK
L L#-1
+D
L L#32
*D
TAR2
+D
LAR1
L DID [AR1,P#46.0]
L 1.000000e+002
/R
L #Schaummenge_gesamt_Auto
*R
L LD 8
*R
L #Erddruck_gemittelt
*R
L LD 4
TAK
T LD 8
TAK
TAR2
+D
L LD 8
TAK
LAR1
TAK
T DID [AR1,P#294.0]
L #i
L 1
+I
T #i
JU A7d7
A7d8: CLR
A7d2: CLR
A #Mode_Semi
JCN A7d9
L #Pos_Q_Schaum_Lanze
T #t
L #Anzahl_Lanzen
L 1
T #i
TAK
T LW 2
TAK
A7da: L #i
L LW 2
<=I
JCN A7db
L #i
ITD
L L#-1
+D
L L#32
*D
L #t
ITD
TAK
T LD 4
TAK
L L#0
+D
L L#8
*D
LAR1
OPN "Schaumanlage"
L DBD [AR1,P#0.0]
L LD 4
TAK
T LD 8
TAK
TAR2
+D
L LD 8
TAK
LAR1
TAK
T DID [AR1,P#374.0]
L #t
L 4
+I
T #t
L #i
L 1
+I
T #i
JU A7da
A7db: L #Anzahl_Lanzen
L 1
T #i
TAK
T LW 2
TAK
A7dc: L #i
L LW 2
<=I
JCN A7dd
L #i
ITD
L L#-1
+D
L L#32
*D
L #i
ITD
TAK
T LD 4
TAK
L L#-1
+D
L L#32
*D
L #i
ITD
TAK
T LD 8
TAK
L L#-1
+D
L L#32
*D
L LD 8
TAK
T LD 12
TAK
TAR2
+D
L LD 12
TAK
T LD 8
TAK
TAR2
+D
LAR1 LD 8
L DID [AR1,P#374.0]
TAK
LAR1
TAK
L DID [AR1,P#126.0]
/R
L LD 4
TAK
T LD 8
TAK
TAR2
+D
L LD 8
TAK
LAR1
TAK
T DID [AR1,P#214.0]
L #i
ITD
L L#-1
+D
L L#32
*D
L #i
ITD
TAK
T LD 4
TAK
L L#-1
+D
L L#32
*D
TAR2
+D
LAR1
L DID [AR1,P#126.0]
L 1.000000e+000
-R
L #i
ITD
TAK
T LD 8
TAK
L L#-1
+D
L L#32
*D
TAR2
+D
L LD 8
TAK
LAR1
TAK
L DID [AR1,P#126.0]
/R
L #i
ITD
TAK
T LD 8
TAK
L L#-1
+D
L L#32
*D
TAR2
+D
L LD 8
TAK
LAR1
TAK
L DID [AR1,P#374.0]
*R
L #Erddruck_gemittelt
*R
L LD 4
TAK
T LD 8
TAK
TAR2
+D
L LD 8
TAK
LAR1
TAK
T DID [AR1,P#294.0]
L #i
L 1
+I
T #i
JU A7dc
A7dd: CLR
A7d9: L #Ausgabe_Pos_Soll_Liquid
T #t
L #Anzahl_Lanzen
L 1
T #i
TAK
T LW 2
TAK
A7de: L #i
L LW 2
<=I
JCN A7df
L #t
ITD
L L#0
+D
L L#8
*D
L #i
ITD
TAK
T LD 4
TAK
L L#-1
+D
L L#32
*D
TAR2
+D
LAR1
L DID [AR1,P#214.0]
LAR1 LD 4
OPN "Schaumanlage"
T DBD [AR1,P#0.0]
L #t
L 4
+I
T #t
L #i
L 1
+I
T #i
JU A7de
A7df: L #Ausgabe_Pos_Soll_Luft
T #t
L #Anzahl_Lanzen
L 1
T #i
TAK
T LW 2
TAK
A7e0: L #i
L LW 2
<=I
JCN A7e1
L #t
ITD
L L#0
+D
L L#8
*D
L #i
ITD
TAK
T LD 4
TAK
L L#-1
+D
L L#32
*D
TAR2
+D
LAR1
L DID [AR1,P#294.0]
LAR1 LD 4
OPN "Schaumanlage"
T DBD [AR1,P#0.0]
L #t
L 4
+I
T #t
L #i
L 1
+I
T #i
JU A7e0
A7e1: CLR
A #Mode_Semi
NOT
= L 0.2
A #Mode_Auto
NOT
A L 0.2
JCN A7e2
L #Ausgabe_Pos_Soll_Liquid
T #t
L #Anzahl_Lanzen
L 1
T #i
TAK
T LW 2
TAK
A7e3: L #i
L LW 2
<=I
JCN A7e4
L #t
ITD
L L#0
+D
L L#8
*D
L DW#16#0
TAK
LAR1
TAK
OPN "Schaumanlage"
T DBD [AR1,P#0.0]
L #t
L 4
+I
T #t
L #i
L 1
+I
T #i
JU A7e3
A7e4: L #Ausgabe_Pos_Soll_Luft
T #t
L #Anzahl_Lanzen
L 1
T #i
TAK
T LW 2
TAK
A7e5: L #i
L LW 2
<=I
JCN A7e6
L #t
ITD
L L#0
+D
L L#8
*D
L DW#16#0
TAK
LAR1
TAK
OPN "Schaumanlage"
T DBD [AR1,P#0.0]
L #t
L 4
+I
T #t
L #i
L 1
+I
T #i
JU A7e5
A7e6: CLR
A7e2: CLR
A L 0.1
SAVE
BE