UH07 Original .awl Bausteine von Andi importiert

2026-07-08 12:13:12 +02:00
parent 6c1a343fa8
commit 2cf730b338
125 changed files with 49373 additions and 41019 deletions
@@ -1,32 +1,46 @@
-=== FC 122: Save_Ziel  [STL] ===
-INTERFACE:
-  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
-  Output:
-  InOut:
-  Temp:
-  Constant:
-  Return:
-    Ret_Val : Void
-
--- NW 1: Daten aufbereiten ---
-      L      Teil_IDX
-      T      "MW220"
-
-      L      Teil_Ziel
-      T      "MW222"
+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


--- NW 2: Daten speichern ---
-CALL FC "FifoOut" (SSDB:=FIFO_DB, SSDW:=0, PARA:=WORD#16#E100, OUTDATEN:=P#M200.0, RE_VAL:="MB199")   // da Ringspeicher nächster Eintrag lesen + austragen
+BEGIN
+NETWORK
+TITLE = Daten aufbereiten
+      L #Teil_IDX;
+      T "MW220";

-CALL FC "FifoIn" (SSDB:=FIFO_DB, SSDW:=0, PARA:=WORD#16#0000, INDATEN:=P#M220.0, RE_VAL:="MB199")
+      L #Teil_Ziel;
+      T "MW222";

-      L      "MB199"
+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"
+      );

--- NW 3: Ende ---
-      BE
+      L "MB199";
+
+NETWORK
+TITLE = Ende
+      BE;
+
+END_FUNCTION