47 lines
1.2 KiB
Plaintext
47 lines
1.2 KiB
Plaintext
FUNCTION "Save_Ziel" : Void
|
|
TITLE = Gesendete CARR-Telegramme zusätzlich speichern
|
|
{ S7_Optimized_Access := 'FALSE' }
|
|
VERSION : 0.1
|
|
VAR_INPUT
|
|
FIFO_DB : Int; // FIFO-Ringspeicher
|
|
Teil_IDX : Int; // BT/MT-IDX (wird bei Auslagerung gemeldet)
|
|
Teil_Ziel : Int; // BT/MT bei diesem Abwurf-Ziel ausfahren/entladen
|
|
END_VAR
|
|
|
|
|
|
BEGIN
|
|
NETWORK
|
|
TITLE = Daten aufbereiten
|
|
L #Teil_IDX;
|
|
T "MW220";
|
|
|
|
L #Teil_Ziel;
|
|
T "MW222";
|
|
|
|
NETWORK
|
|
TITLE = Daten speichern
|
|
CALL "FifoOut"
|
|
( SSDB := #FIFO_DB ,
|
|
SSDW := 0 ,
|
|
PARA := WORD#16#E100 , //da Ringspeicher nächster Eintrag lesen + austragen
|
|
OUTDATEN := P#M200.0 ,
|
|
RE_VAL := "MB199"
|
|
);
|
|
|
|
CALL "FifoIn"
|
|
( SSDB := #FIFO_DB ,
|
|
SSDW := 0 ,
|
|
PARA := WORD#16#0000 ,
|
|
INDATEN := P#M220.0 ,
|
|
RE_VAL := "MB199"
|
|
);
|
|
|
|
L "MB199";
|
|
|
|
NETWORK
|
|
TITLE = Ende
|
|
BE;
|
|
|
|
END_FUNCTION
|
|
|