47 lines
1.1 KiB
Plaintext
47 lines
1.1 KiB
Plaintext
=== FC 54: Leerpuffer to Rein-Lager ermitteln [STL] ===
|
|
INTERFACE:
|
|
Input:
|
|
Output:
|
|
Puffer : Word // Puffer ermitteln
|
|
InOut:
|
|
Temp:
|
|
Position : Int
|
|
Constant:
|
|
Return:
|
|
Ret_Val : Void
|
|
|
|
--- NW 1: Aktiver Puffer zum Einfahren ---
|
|
L 16#0
|
|
T Puffer
|
|
|
|
|
|
--- NW 2: Aktiven Puffer zum Einlagern suchen ? ---
|
|
|
|
CALL FC "DatenOut" (SSDB:=501, SSDW:=0, PARA:=16#F100, SEARCHDATEN:=P#M220.0, RE_VAL:="MB199", OUTDATEN:=P#M220.0, Position:=Position) // DL Puffer Leerpuffer einfahren | 1.Eintrag lesen
|
|
|
|
A "M199.7" // Eintrag vorhanden
|
|
JC Puffer
|
|
|
|
|
|
--- NW 3: Leerer Puffer vorhanden? ---
|
|
|
|
CALL FC "DatenOut" (SSDB:=500, SSDW:=0, PARA:=16#F100, SEARCHDATEN:=P#M220.0, RE_VAL:="MB199", OUTDATEN:=P#M220.0, Position:=Position) // DL Puffer leer | 1.Eintrag lesen
|
|
|
|
A "M199.7" // Eintrag vorhanden
|
|
JC Puffer
|
|
|
|
BEU
|
|
|
|
|
|
--- NW 4: Puffer aufbereiten ---
|
|
Puffer: L "MW220"
|
|
ITB
|
|
L 16#A000
|
|
OW
|
|
T Puffer
|
|
|
|
|
|
--- NW 5: Ende ---
|
|
BE
|
|
|