Compare commits
2 Commits
9910240835
...
03a2866cd8
| Author | SHA1 | Date | |
|---|---|---|---|
 e.yueksel
|
03a2866cd8 | ||
|
e.yueksel
|
e9f6d34665 |
@@ -0,0 +1,139 @@
|
||||
FUNCTION "LP_Ziel_FC" : Void
|
||||
TITLE = Ziel-FC: LeerPuffer_OmniFahren
|
||||
{ S7_Optimized_Access := 'FALSE' }
|
||||
AUTHOR : AE
|
||||
FAMILY : Module
|
||||
NAME : Ziel
|
||||
//SCL-Portierung des AWL-Bausteins FC5181 "LP_Ziel_FC" (verhaltensgleich).
|
||||
//
|
||||
//Der Baustein hatte im AWL-Original die Bausteineigenschaft "Parameterversorgung
|
||||
//ueber Register" (ParameterPassing) aktiv und wurde per "UC FC[..]" indirekt aus
|
||||
//AWL aufgerufen -> aus SCL nicht compilierbar. Er liest ausschliesslich globale
|
||||
//Merker (MW190 = Schleusen-Nr) sowie den Bool-Merker "MB3305" und ruft die
|
||||
//Zielbausteine voll qualifiziert auf -> keine echte Registerabhaengigkeit.
|
||||
//Als SCL-Baustein entfaellt die Option und er ist direkt aus SCL aufrufbar
|
||||
//(CASE 5181 in MHMOmniSchleuse).
|
||||
//
|
||||
//Der indirekte Dispatch (AWL: "L MW190 / L 3305 / NE_I / JC X3305E") ist als CASE
|
||||
//ueber die Schleusen-Nr (MW190) ausgefuehrt. Es existiert nur der Zweig 3305; ein
|
||||
//AWL-BEU/BEC im getroffenen Zweig ist als RETURN bzw. "IF <RLO> THEN RETURN;"
|
||||
//umgesetzt (verhaltensgleich, da nach dem Dispatch nur noch das Bausteinende folgt).
|
||||
//Die Merker-Schnittstelle (MW190 vom Aufrufer, M180.6 = Weiterfahrt-Freigabe,
|
||||
//MB199 = DatenOut-Rueckmeldung) bleibt erhalten.
|
||||
//
|
||||
//ABWEICHUNGEN ZUM AWL-ORIGINAL (bei Inbetriebnahme pruefen!):
|
||||
// - DatenOut: der Merker-Scratch-Bereich M220 (Such-/OutDaten-Pointer P#M220.0)
|
||||
// ist durch den lokalen Puffer #DatenPuffer ersetzt (SEARCHDATEN/OUTDATEN sind
|
||||
// VARIANT statt POINTER). MW220/MW224/MW226 werden dadurch NICHT mehr als
|
||||
// Merker beschrieben/gelesen (Ergebnis identisch, keine Merker-Nebenwirkung).
|
||||
// Lager-DB = Datensatz-Wort 2 (=M224), Lager-DW = Wort 3 (=M226).
|
||||
// - BTI (BCD-Wort -> Int, "Damit Int 1-10 als Ziel") ist ueber den Projekt-FC
|
||||
// "BCD (4stellig)_to_INT" ausgefuehrt; Fehlerverhalten bei ungueltiger BCD kann
|
||||
// abweichen (BTI setzt BIE).
|
||||
// - Indirekter DB-Zugriff (AWL: OPEN_DB DB[Lager_DB] / A DBX[AR1Zeiger] mit
|
||||
// Pointer-Arithmetik ADD DINT#70 / SLD 3 / OD 7) ist durch PEEK_BOOL
|
||||
// (area 16#84, byteOffset = Lager_DW+70, bitOffset = 7 -> Bit 7: Inilauf)
|
||||
// ersetzt. Die Temp "AR1Zeiger" wird dadurch nicht mehr benoetigt.
|
||||
// - AWL "CLR / S M180.6": die Set-Operation steht unter RLO=0 (CLR) und wird
|
||||
// daher NICHT ausgefuehrt (bewusst deaktiviert; Weiterfahrt wird ueber
|
||||
// MSorterRein FB5423/5 gestartet). M180.6 bleibt an dieser Stelle unveraendert.
|
||||
// - "MB3305" wird (wie im AWL: A / BEC) als Bool-Symbol behandelt.
|
||||
// - Word-Vergleiche direkt (z.B. (Ziel_hex AND W#16#F000) = W#16#A000);
|
||||
// MW190 wird fuer den CASE ueber WORD_TO_INT in Int gewandelt.
|
||||
// - Zusaetzliche Temp "DatenPuffer" (Array[0..15] of Word, nicht im XML-Interface)
|
||||
// als DatenOut-Puffer eingefuehrt. TypedConstants DINT#70/DINT#1/DINT#0 1:1.
|
||||
// - "Default_Ziel"/"Rec_DEST_Ziel" werden als Int beschrieben (AWL: 16-Bit-T von
|
||||
// Ziel_int); falls die DB-Member als Word deklariert sind -> INT_TO_WORD noetig.
|
||||
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;
|
||||
DatenPuffer : Array[0..15] of Word; // Puffer fuer DatenOut (ersetzt Merker-Scratch M220)
|
||||
END_VAR
|
||||
|
||||
BEGIN
|
||||
// NW1: Rueckmeldung - Rueckmeldungen erst mal resetten
|
||||
"M180.6" := FALSE; // Weiterfahrt von Ziel-FC erlaubt
|
||||
|
||||
// NW2: Schleuse 3305: Weiterfahren erlaubt ? (Sorter LP)
|
||||
// AWL: L MW190 / L 3305 / NE_I / JC X3305E (Aufruf von Schleuse 3305?)
|
||||
CASE WORD_TO_INT("MW190") OF
|
||||
|
||||
3305:
|
||||
IF "MB3305" THEN
|
||||
RETURN; // AWL: A MB3305 / BEC
|
||||
END_IF;
|
||||
|
||||
// Leer-Puffer ermitteln:
|
||||
"Leerpuffer to Rein-Lager ermitteln"(Puffer => "Ziel_hex");
|
||||
|
||||
// Ziel = Leer-Lager?
|
||||
IF ("Ziel_hex" AND W#16#F000) <> W#16#A000 THEN // (AWL: AW F000 / EQ_I A000 / JC LagerOk / BEU)
|
||||
RETURN; // Kein Lager frei!
|
||||
END_IF;
|
||||
|
||||
// AWL: L Ziel_hex / L W#16#FF / AW / BTI / T Ziel_int (Damit Int 1-10 als Ziel!)
|
||||
"BCD (4stellig)_to_INT"(BCD_Wert := ("Ziel_hex" AND W#16#00FF),
|
||||
Int_Wert => "Ziel_int");
|
||||
|
||||
// Check, ob Ziel-Lager Inilauf aktiv hat:
|
||||
#DatenPuffer[0] := INT_TO_WORD("Ziel_int"); // Suchschluessel (AWL: T MW220)
|
||||
"DatenOut"(SSDB := 275,
|
||||
SSDW := 0,
|
||||
PARA := W#16#0000, // Eintrag lesen
|
||||
SEARCHDATEN := #DatenPuffer,
|
||||
RE_VAL => "MB199",
|
||||
Position => #Position,
|
||||
OUTDATEN := #DatenPuffer);
|
||||
|
||||
// AWL: L MB199 / L 2#1111111 / AW / L 0 / NE_I / JC Egal (Bit 7 ausblenden; Fehler vorhanden?)
|
||||
IF BYTE_TO_INT("MB199" AND B#16#7F) = 0 THEN // kein Fehler -> Inilauf pruefen
|
||||
"Lager_DB" := WORD_TO_INT(#DatenPuffer[2]); // AWL: L MW224 / T Lager_DB
|
||||
"Lager_DW" := WORD_TO_INT(#DatenPuffer[3]); // AWL: L MW226 / T Lager_DW
|
||||
"AR1Start" := INT_TO_DINT("Lager_DW"); // Startwert mit Offset 0
|
||||
// AWL: ADD DINT#70 / SLD 3 / OD 7 -> Bit-Pointer auf DBX(Lager_DW+70).7 (Bit 7: Inilauf)
|
||||
IF PEEK_BOOL(area := 16#84,
|
||||
dbNumber := INT_TO_DINT("Lager_DB"), // Lager-DB
|
||||
byteOffset := "AR1Start" + DINT#70, // Offset Status
|
||||
bitOffset := 7) THEN // Lager hat Inilauf aktiv
|
||||
RETURN; // Sonst kann der Inilauf nie beendet werden!
|
||||
END_IF;
|
||||
END_IF;
|
||||
|
||||
// Egal:
|
||||
"DLP_Sorter".Sorter_MB3305.Separator.Default_Ziel := "Ziel_int";
|
||||
"DLP_Sorter".Sorter_MB3305.Dyn.Scanner.Rec_DEST_Ziel := "Ziel_int";
|
||||
|
||||
// Pseudo-IDX uebergeben:
|
||||
// AWL: L Rec_IDX / L DINT#0 / NE_D / BEC (Daten schon erzeugt? Ja!)
|
||||
IF "DLP_Sorter".Sorter_MB3305.Dyn.Scanner.Rec_IDX <> DINT#0 THEN
|
||||
RETURN;
|
||||
END_IF;
|
||||
"DLP_Sorter".Pseudo_IDX := "DLP_Sorter".Pseudo_IDX + DINT#1; // Da kein Leser verbaut
|
||||
"DLP_Sorter".Sorter_MB3305.Dyn.Scanner.Rec_IDX := "DLP_Sorter".Pseudo_IDX; // IDX
|
||||
|
||||
// AWL: CLR / S M180.6 -> Set steht unter RLO=0 (CLR) und wird NICHT ausgefuehrt.
|
||||
// Weiterfahrt wird ueber MSorterRein (FB5423/5) gestartet -> M180.6 bleibt unveraendert.
|
||||
// AWL: BEU -> Bausteinende
|
||||
|
||||
ELSE
|
||||
; // andere Schleusen-Nr -> nichts tun (AWL: X3305E / NOP 0)
|
||||
END_CASE;
|
||||
|
||||
// NW3: Ende (AWL: BE)
|
||||
END_FUNCTION
|
||||
Reference in New Issue
Block a user