=== FC 182: HWtoVP_Draussen  [STL] ===
INTERFACE:
  Input:
  Output:
  InOut:
  Temp:
    Error.Bit : Bool
  Constant:
  Return:
    Ret_Val : Void

--- NW 1: Rückmeldung ---
      SET                                                    // Rückmeldungen erst mal resetten
      R      "M180.6"                                        // Weiterfahrt von Ziel-FC erlaubt


--- NW 2: Schleuse 4207 (Vor ByPass vom LP): Ausgefahren ? ---
      L      "MW190"
      L      4207                                            // Aufruf von Schleuse 4207?
      <>I                                                    // Nein!
      JC     X4207E

      L      "DLPtoHW_OmniFahren".Schleuse_4221.Dyn.Weichen_Ziel
      L      16#4224                                         // Gerade ? Also zum AMR-Bereich?
      ==I                                                    // Ja !
      BEC

// Partner-Trolley will zu VP fahren:
// Bei Partner (Schleuse 4221) wieder mit Schritt 0 beginnen (erneuter Ziel-FC-Aufruf)
      L      0
      T      "DLPtoHW_OmniFahren".Schleuse_4221.Dyn.Sk.Akt_Schritt

X4207E: NOP 0


--- NW 3: Schleuse 3141: (Vor Einfahrt Kontrollplatz) ---
      L      "MW190"
      L      3141                                            // Aufruf von Schleuse 3141 ?
      <>I                                                    // Nein!
      JC     X3141E

// Bei Partner (Schleuse 3136) wieder mit Schritt 0 beginnen (erneuter Ziel-FC-Aufruf)
      L      0
      T      "DHWtoVP_OmniFahren".Schleuse_3136.Dyn.Sk.Akt_Schritt

// Leerer Trolley vom Leerpuffer?
      L      "MD182"                                         // ShopGroup
      L      DINT#-1                                         // Leer-Trolley?
      ==D                                                    // Ja !
      BEC                                                    // Kein Telegramm!

// GOHDUM an Host senden:
      L      "DHWtoVP_OmniFahren".Schleuse_3141.Dyn.Weichen_Ziel
      BTI
      T      "Daten_für_SendFIFO".Puffer_LinienNr

CALL FB "Daten_in_SendFIFO_speichern" ,  (TelegrammKennung[1]:='G', TelegrammKennung[2]:='O', TelegrammKennung[3]:='H', TelegrammKennung[4]:='D', TelegrammKennung[5]:='U', TelegrammKennung[6]:='M', TelegrammKennung[7]:=?, TelegrammKennung[8]:=?, TelegrammKennung[9]:=?, TelegrammKennung[10]:=?, TrolleyID:="DHWtoVP_OmniFahren".Schleuse_3141.Dyn.TrolleyID_Schleuse, StationsNr:=3141, Puffer_LinienNr:=?, StoreGroup:=?, Status_1_Int:=?, Status_2_Bit[0]:=?, Status_2_Bit[1]:=?, Status_2_Bit[2]:=?, Status_2_Bit[3]:=?, Status_2_Bit[4]:=?, Status_2_Bit[5]:=?, Status_2_Bit[6]:=?, Status_2_Bit[7]:=?, Reserve[1]_Int:=?, Reserve[2]_Int:=?, Port:=2, Ret_Val_FIFO_IN:="MB199", Error:="Error.Bit")

// Endziel wieder nullen:
CALL FC "Trolleydaten_ändern" (Gesamt_Trolley_DL:=1000, TrolleyID:="DHWtoVP_OmniFahren".Schleuse_3141.Dyn.TrolleyID_Schleuse, Endziel:=W#16#0, ShopGroup:=0)

      BEU

X3141E: NOP 0


--- NW 4: Schleuse 3136: (Vor Einfahrt Kontrollplatz) ---
      L      "MW190"
      L      3136                                            // Aufruf von Schleuse 3136 ?
      <>I                                                    // Nein!
      JC     X3136E

// Bei Partner (Schleuse 3141) wieder mit Schritt 0 beginnen (erneuter Ziel-FC-Aufruf)
      L      0
      T      "DHWtoVP_OmniFahren".Schleuse_3141.Dyn.Sk.Akt_Schritt

      BEU

X3136E: NOP 0


--- NW 5: Ende ---
      BE

