55 lines
1.3 KiB
Plaintext
55 lines
1.3 KiB
Plaintext
FUNCTION "HWtoAMRZielFC" : Void
|
|
{ S7_Optimized_Access := 'FALSE' }
|
|
// Mechanische AWL->SCL-Konvertierung (awl2scl.py). Kontrollfluss per GOTO,
|
|
// wo im Original mit Sprungmarken gearbeitet wurde. Vor Uebernahme in TIA
|
|
// Portal pruefen/kompilieren (siehe SCL-Export/README.md).
|
|
|
|
VAR_INPUT
|
|
MW190 : Word; // war "MW190"
|
|
END_VAR
|
|
|
|
VAR_OUTPUT
|
|
M180_6 : Bool; // war "M180.6"
|
|
END_VAR
|
|
|
|
VAR_TEMP
|
|
Ziel_hex : Word;
|
|
Ziel_int : Int;
|
|
Zielebene : Word;
|
|
Error : Byte;
|
|
Position : Int;
|
|
Lager_DB : Int;
|
|
Lager_DW : Int;
|
|
AR1Zeiger : DWord; // Statt AR1 (ging nur bis DB-Länge <= 8191 Bytes)
|
|
AR1Start : DInt; // Startwert mit Offset 0
|
|
SSDW : Int;
|
|
EndZiel : Word;
|
|
Variante : Int;
|
|
AbrufID : DInt;
|
|
Fahrlisten_TrolleyID : DInt;
|
|
Fahrlisten_AbrufID : DInt;
|
|
Fahrlisten_Lager : Int;
|
|
Trolley_unbekannt : Bool; // Trolley ist nicht in DL
|
|
Express_Abruf : Bool;
|
|
END_VAR
|
|
|
|
BEGIN
|
|
REGION Rückmeldung
|
|
#M180_6 := FALSE;
|
|
END_REGION
|
|
|
|
REGION CASE #MW190
|
|
CASE #MW190 OF
|
|
3004: // Schleuse 3004: (BST 3)
|
|
#M180_6 := TRUE;
|
|
3565: // Schleuse 3565: (BST 4)
|
|
#M180_6 := TRUE;
|
|
END_CASE;
|
|
END_REGION
|
|
|
|
REGION Ende
|
|
RETURN;
|
|
END_REGION
|
|
|
|
END_FUNCTION
|