=== FB 5431: LeerPufferStrecken  [STL] ===
INTERFACE:
  Input:
  Output:
  InOut:
  Static:
    LeerPuffer_01 : "MHMLeerpuffer"
    LeerPuffer_02 : "MHMLeerpuffer"
    LeerPuffer_03 : "MHMLeerpuffer"
    LeerPuffer_04 : "MHMLeerpuffer"
    LeerPuffer_05 : "MHMLeerpuffer"
    LeerPuffer_06 : "MHMLeerpuffer"
    LeerPuffer_07 : "MHMLeerpuffer"
    LeerPuffer_08 : "MHMLeerpuffer"
    LeerPuffer_09 : "MHMLeerpuffer"
    LeerPuffer_10 : "MHMLeerpuffer"
    Simulation : Struct
      Gefahren_1 : Bool
      Gefahren_2 : Bool
      Gefahren_3 : Bool
      Gefahren_4 : Bool
      Gefahren_5 : Bool
      Gefahren_6 : Bool
      Gefahren_7 : Bool
      Gefahren_8 : Bool
      Gefahren_9 : Bool
      Gefahren_10 : Bool
    Ohne_PC_fahren : Bool
    Ein_Leercheck_aktiv : Bool
    DurchfahrModus : Struct
      Anmelden : Bool
      Aktiv : Bool
      RestTrolleys : Int
      Ok_Anzahl : Int := 3                              // Bis zu dieser Anzahl von leeren Leerpuffern kein Pressen starten
    SaugModus : Struct
      Flanke_Wartezeit : Bool
      Wartezeit_aktiv : Bool
      Timer_Wartenzeit : Int
      Abruf_Puffer : Int
      Ok_Anzahl : Int := 5                              // Bis zu dieser Anzahl von vollen Leerpuffern kein Saugen starten
  Temp:
    ErrQuit : Bool
    ErrAnz : Bool
    Antrieb : Bool
    Stau : Bool
    Start_Ok : Bool
    SorterReset : Bool
    A_Err : Char
    B_Err : Char
    C_Err : Char
    D_Err : Char
    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
    Quell_Puffer : Int
  Constant:

--- NW 1: Systemzeug ---
      A      "DOutbound_Bereich".A01_UH07.AnlageEin
      =      LeerPuffer_01.Dyn.Sk.Auto_akt
      =      LeerPuffer_02.Dyn.Sk.Auto_akt
      =      LeerPuffer_03.Dyn.Sk.Auto_akt
      =      LeerPuffer_04.Dyn.Sk.Auto_akt
      =      LeerPuffer_05.Dyn.Sk.Auto_akt
      =      LeerPuffer_06.Dyn.Sk.Auto_akt
      =      LeerPuffer_07.Dyn.Sk.Auto_akt
      =      LeerPuffer_08.Dyn.Sk.Auto_akt
      =      LeerPuffer_09.Dyn.Sk.Auto_akt
      =      LeerPuffer_10.Dyn.Sk.Auto_akt

      AN     "DOutbound_Bereich".A01_UH07.BereichErr
      =      LeerPuffer_01.Dyn.Sk.Bereich_ok
      =      LeerPuffer_02.Dyn.Sk.Bereich_ok
      =      LeerPuffer_03.Dyn.Sk.Bereich_ok
      =      LeerPuffer_04.Dyn.Sk.Bereich_ok
      =      LeerPuffer_05.Dyn.Sk.Bereich_ok
      =      LeerPuffer_06.Dyn.Sk.Bereich_ok
      =      LeerPuffer_07.Dyn.Sk.Bereich_ok
      =      LeerPuffer_08.Dyn.Sk.Bereich_ok
      =      LeerPuffer_09.Dyn.Sk.Bereich_ok
      =      LeerPuffer_10.Dyn.Sk.Bereich_ok

// Bereichshalt:
      CLR                                                    // Nicht verbaut
      R      LeerPuffer_01.Dyn.Sk.Bereich_ok


--- NW 2: Puffer-Leer-Liste neu erstellen ---
      A      "DLLeerPuffer_leer".Reorganisieren
      R      "DLLeerPuffer_leer".Reorganisieren
      JCN    NixReoLL

CALL FC "DatenReset" (SSDB:=500, SSDW:=0, RE_VAL:="MB199")

      SET
      R      "DLeerPufferStrecken".LeerPuffer_01.Status2.Eintrag_DL_Leerliste_erfolgt
      R      "DLeerPufferStrecken".LeerPuffer_02.Status2.Eintrag_DL_Leerliste_erfolgt
      R      "DLeerPufferStrecken".LeerPuffer_03.Status2.Eintrag_DL_Leerliste_erfolgt
      R      "DLeerPufferStrecken".LeerPuffer_04.Status2.Eintrag_DL_Leerliste_erfolgt
      R      "DLeerPufferStrecken".LeerPuffer_05.Status2.Eintrag_DL_Leerliste_erfolgt
      R      "DLeerPufferStrecken".LeerPuffer_06.Status2.Eintrag_DL_Leerliste_erfolgt
      R      "DLeerPufferStrecken".LeerPuffer_07.Status2.Eintrag_DL_Leerliste_erfolgt
      R      "DLeerPufferStrecken".LeerPuffer_08.Status2.Eintrag_DL_Leerliste_erfolgt
      R      "DLeerPufferStrecken".LeerPuffer_09.Status2.Eintrag_DL_Leerliste_erfolgt
      R      "DLeerPufferStrecken".LeerPuffer_10.Status2.Eintrag_DL_Leerliste_erfolgt

      JU     Puffer

NixReoLL: NOP 0


--- NW 3: Puffer-Einfahr-Liste neu erstellen ---
      A      "DLLeerPuffer_einfahren".Reorganisieren
      R      "DLLeerPuffer_einfahren".Reorganisieren
      JCN    NixReoEL

CALL FC "DatenReset" (SSDB:=501, SSDW:=0, RE_VAL:="MB199")

      SET
      R      "DLeerPufferStrecken".LeerPuffer_01.Status2.Eintrag_DL_Reinliste_erfolgt
      R      "DLeerPufferStrecken".LeerPuffer_02.Status2.Eintrag_DL_Reinliste_erfolgt
      R      "DLeerPufferStrecken".LeerPuffer_03.Status2.Eintrag_DL_Reinliste_erfolgt
      R      "DLeerPufferStrecken".LeerPuffer_04.Status2.Eintrag_DL_Reinliste_erfolgt
      R      "DLeerPufferStrecken".LeerPuffer_05.Status2.Eintrag_DL_Reinliste_erfolgt
      R      "DLeerPufferStrecken".LeerPuffer_06.Status2.Eintrag_DL_Reinliste_erfolgt
      R      "DLeerPufferStrecken".LeerPuffer_07.Status2.Eintrag_DL_Reinliste_erfolgt
      R      "DLeerPufferStrecken".LeerPuffer_08.Status2.Eintrag_DL_Reinliste_erfolgt
      R      "DLeerPufferStrecken".LeerPuffer_09.Status2.Eintrag_DL_Reinliste_erfolgt
      R      "DLeerPufferStrecken".LeerPuffer_10.Status2.Eintrag_DL_Reinliste_erfolgt
      R      "DLeerPufferStrecken".LeerPuffer_01.Status2.Auslagern_ist_aktiv
      R      "DLeerPufferStrecken".LeerPuffer_02.Status2.Auslagern_ist_aktiv
      R      "DLeerPufferStrecken".LeerPuffer_03.Status2.Auslagern_ist_aktiv
      R      "DLeerPufferStrecken".LeerPuffer_04.Status2.Auslagern_ist_aktiv
      R      "DLeerPufferStrecken".LeerPuffer_05.Status2.Auslagern_ist_aktiv
      R      "DLeerPufferStrecken".LeerPuffer_06.Status2.Auslagern_ist_aktiv
      R      "DLeerPufferStrecken".LeerPuffer_07.Status2.Auslagern_ist_aktiv
      R      "DLeerPufferStrecken".LeerPuffer_08.Status2.Auslagern_ist_aktiv
      R      "DLeerPufferStrecken".LeerPuffer_09.Status2.Auslagern_ist_aktiv
      R      "DLeerPufferStrecken".LeerPuffer_10.Status2.Auslagern_ist_aktiv

      JU     Puffer

NixReoEL: NOP 0


--- NW 4: Puffer-Ausfahr-Liste neu erstellen ---
      A      "DLLeerPuffer_ausfahren".Reorganisieren
      R      "DLLeerPuffer_ausfahren".Reorganisieren
      JCN    NixReoAL

CALL FC "DatenReset" (SSDB:=502, SSDW:=0, RE_VAL:="MB199")

      SET
      R      "DLeerPufferStrecken".LeerPuffer_01.Status2.Eintrag_Abrufliste_erfolgt
      R      "DLeerPufferStrecken".LeerPuffer_02.Status2.Eintrag_Abrufliste_erfolgt
      R      "DLeerPufferStrecken".LeerPuffer_03.Status2.Eintrag_Abrufliste_erfolgt
      R      "DLeerPufferStrecken".LeerPuffer_04.Status2.Eintrag_Abrufliste_erfolgt
      R      "DLeerPufferStrecken".LeerPuffer_05.Status2.Eintrag_Abrufliste_erfolgt
      R      "DLeerPufferStrecken".LeerPuffer_06.Status2.Eintrag_Abrufliste_erfolgt
      R      "DLeerPufferStrecken".LeerPuffer_07.Status2.Eintrag_Abrufliste_erfolgt
      R      "DLeerPufferStrecken".LeerPuffer_08.Status2.Eintrag_Abrufliste_erfolgt
      R      "DLeerPufferStrecken".LeerPuffer_09.Status2.Eintrag_Abrufliste_erfolgt
      R      "DLeerPufferStrecken".LeerPuffer_10.Status2.Eintrag_Abrufliste_erfolgt

      JU     Puffer

NixReoAL: NOP 0


--- NW 5: AusLeerPuffer-Strecke hat Stau ---
      A      "DLP_Sensoren".Stau_BG3322.Stat.B_Akt
      A      "DLP_Sensoren".Stau_BG3327.Stat.B_Akt
      =      Stau


--- NW 6: Alle Puffer-Schleusen geschlossen ---
// Alle Puffer-Schleusen geschlossen?
      L      "AB333"
      L      0                                               // Alle Puffer-Schleusen geschlossen?
      ==I                                                    // Ja !
      AN     "MB3340"
      AN     "MB3341"
      =      Start_Ok


--- NW 7: Ein Leercheck aktiv ? ---
      A      LeerPuffer_01.Dyn.Status.Leer_Check_aktiv
      O      LeerPuffer_02.Dyn.Status.Leer_Check_aktiv
      O      LeerPuffer_03.Dyn.Status.Leer_Check_aktiv
      O      LeerPuffer_04.Dyn.Status.Leer_Check_aktiv
      O      LeerPuffer_05.Dyn.Status.Leer_Check_aktiv
      O      LeerPuffer_06.Dyn.Status.Leer_Check_aktiv
      O      LeerPuffer_07.Dyn.Status.Leer_Check_aktiv
      O      LeerPuffer_08.Dyn.Status.Leer_Check_aktiv
      O      LeerPuffer_09.Dyn.Status.Leer_Check_aktiv
      O      LeerPuffer_10.Dyn.Status.Leer_Check_aktiv
      =      Ein_Leercheck_aktiv


--- NW 8: Leertrolleys ins Vollpuffer pressen ---
      L      "DLLeerPuffer_leer".Datenlistenkopf.AnzahlEintraege
      L      DurchfahrModus.Ok_Anzahl                        // bis zu dieser Anzahl kein Durchfahren starten
      >=I
      O      Ein_Leercheck_aktiv
      JC     Platz_ok

      L      DurchfahrModus.RestTrolleys
      L      0
      >I
      A(
      O      DurchfahrModus.Anmelden
      O      DurchfahrModus.Aktiv
      )
      JC     En04

// Trolleys zum Vollpuffer fahren:
      L      18
      T      DurchfahrModus.RestTrolleys

      SET
      S      DurchfahrModus.Anmelden

      JU     En04

// Durchfahrmodus beenden:
Platz_ok: L      DurchfahrModus.RestTrolleys
      L      0
      ==I
      ON     DurchfahrModus.Aktiv
      R      DurchfahrModus.Anmelden
      R      DurchfahrModus.Aktiv

En04: NOP 0


--- NW 9: Wartezeit bis erneutes Trolley-Saugen sinnvoll (wegen Entfernung) ---
      AN     SaugModus.Wartezeit_aktiv
      ON     "1s-Impuls"
      JC     Wait

      L      SaugModus.Timer_Wartenzeit
      +      -1
      T      SaugModus.Timer_Wartenzeit
      L      0
      >I
      JC     Wait

      SET
      R      SaugModus.Wartezeit_aktiv

      L      0
      T      SaugModus.Abruf_Puffer

Wait: NOP 0


--- NW 10: Leertrolleys aus Vollpuffer saugen ---
      L      "DLLeerPuffer_ausfahren".Datenlistenkopf.AnzahlEintraege
      L      SaugModus.Ok_Anzahl                             // bis zu dieser Anzahl kein Saugen starten
      >=I
      O      SaugModus.Wartezeit_aktiv
      JC     Trolleys_ok

// DLShopGroup_abrufen auf leere Trolleys durchsuchen:
      L      DINT#-1                                         // ShopGroup -1 == Leerer Trolley
      T      "MD200"

CALL FC "DatenOut" (SSDB:=102, SSDW:=0, PARA:=WORD#16#0202, SEARCHDATEN:=P#M200.0, RE_VAL:="MB199", OUTDATEN:=P#M220.0, Position:="MW196")

      L      "MW220"                                         // Puffer
      L      101                                             // sinnvoll ?
      <I                                                     // Nein !
      O(
      CAC
      L      150                                             // sinnvoll ?
      >I                                                     // Nein !
      )
      ON     "M199.7"                                        // Datensatz vorhanden
      JC     Trolleys_ok

      L      "MW220"
      T      Quell_Puffer

// Check, ob Quell-Lager bereit ist:
CALL FC "DatenOut" (SSDB:=275, SSDW:=0, PARA:=16#0000, SEARCHDATEN:=P#M220.0, RE_VAL:="MB199", OUTDATEN:=P#M220.0, Position:=Position)   // Eintrag lesen

      L      "MB199"
      L      2#1111111                                       // Bit 7 ausblenden
      AW
      L      0                                               // Fehler vorhanden?
      <>I                                                    // Ja
      JC     Trolleys_ok

      L      "MW224"
      T      Lager_DB
      L      "MW226"
      T      Lager_DW
      ITD
      T      AR1Start                                        // Startwert mit Offset 0

      L      AR1Start                                        // Startwert mit Offset 0
      +      DINT#88                                         // Offset ShopGroup_OUT
      SLD    3
      T      AR1Zeiger                                       // Statt Dyn.Bereichsstop (ging nur bis DB-Länge <= 8191 Bytes)

      OPN    DB[Lager_DB]                                    // Lager-DB öffnen

      L      DBD [AR1Zeiger]                                 // ShopGroup_OUT
      L      DINT#-1                                         // ShopGroup -1 == Leerer Trolley ?
      <>D                                                    // Nein !
      JC     Trolleys_ok

// Im Quell-Puffer unten "Alles Ausfahren" setzen:
      L      AR1Start                                        // Startwert mit Offset 0
      +      DINT#29                                         // Offset Status2 (Highbyte 29)
      SLD    3
      L      4                                               // Damit DBX_Bit 4
      OD
      T      AR1Zeiger                                       // Statt Dyn.Bereichsstop (ging nur bis DB-Länge <= 8191 Bytes)

      OPN    DB[Lager_DB]                                    // Lager-DB öffnen

      SET
      S      DBX [AR1Zeiger]                                 // Alles ausfahren_OUT

      L      Quell_Puffer
      T      SaugModus.Abruf_Puffer

// Wartezeit starten:
      SET
      S      SaugModus.Wartezeit_aktiv

      L      360                                             // Wartezeit in Sekunden (6 Minuten)
      T      SaugModus.Timer_Wartenzeit

Trolleys_ok: NOP 0


--- NW 11: Störung quittieren UZ0703/UH07 ---
Puffer: A      "DOutbound_Bereich".A01_UZ0703.StOk_aktiv
      O      "DOutbound_Bereich".A01_UH07.StOk_aktiv
      =      ErrQuit


--- NW 12: LeerPuffer 01 ---
      SET
      R      ErrAnz

CALL FB "None" ,  (LeerPuffer_Nr:=1, ErrQuit:=ErrQuit, B_LeerpufferEinfahrt:="BG3320", B_InSchleuse:="BG3341", B_AusSchleuse:="BG3322", B_Stau_raus_Out:=Stau, B_QuerTrolley_Out:=?, Antrieb_plus_aktiv:="MA0065", Schleuse_geöffnet:="MB3341", Y_Schleuse_Auf:="DLP_Zylinder".Schleuse_Ausfahrt_LP1.Stat.Ast, Error:=DB708.DBW126, Start_Ok:=Start_Ok, Antrieb_plus_vor:="DLPtoHW_Antriebe".MA0065.Stat.A_vor, Antrieb_plus_stoppen:="DLPtoHW_Antriebe".MA0065.Stat.Stop_vor, hStOk:=ErrAnz, Ausfahr_Inks:="DLP_Auslagern".Ausfahren_Ok.Dyn.Rest_Inks)


--- NW 13: LeerPuffer 02 ---
CALL FB "None" ,  (LeerPuffer_Nr:=2, ErrQuit:=ErrQuit, B_LeerpufferEinfahrt:="BG3317", B_InSchleuse:="BG3340", B_AusSchleuse:="BG3322", B_Stau_raus_Out:=Stau, B_QuerTrolley_Out:=?, Antrieb_plus_aktiv:="MA0065", Schleuse_geöffnet:="MB3340", Y_Schleuse_Auf:="DLP_Zylinder".Schleuse_Ausfahrt_LP2.Stat.Ast, Error:=DB708.DBW128, Start_Ok:=Start_Ok, Antrieb_plus_vor:="DLPtoHW_Antriebe".MA0065.Stat.A_vor, Antrieb_plus_stoppen:="DLPtoHW_Antriebe".MA0065.Stat.Stop_vor, hStOk:=ErrAnz, Ausfahr_Inks:="DLP_Auslagern".Ausfahren_Ok.Dyn.Rest_Inks)


--- NW 14: LeerPuffer 03 ---
CALL FB "None" ,  (LeerPuffer_Nr:=3, ErrQuit:=ErrQuit, B_LeerpufferEinfahrt:="BG3316", B_InSchleuse:="BG3337", B_AusSchleuse:="BG3322", B_Stau_raus_Out:=Stau, B_QuerTrolley_Out:=?, Antrieb_plus_aktiv:="MA0065", Schleuse_geöffnet:="MB3337", Y_Schleuse_Auf:="DLP_Zylinder".Schleuse_Ausfahrt_LP3.Stat.Ast, Error:=DB708.DBW130, Start_Ok:=Start_Ok, Antrieb_plus_vor:="DLPtoHW_Antriebe".MA0065.Stat.A_vor, Antrieb_plus_stoppen:="DLPtoHW_Antriebe".MA0065.Stat.Stop_vor, hStOk:=ErrAnz, Ausfahr_Inks:="DLP_Auslagern".Ausfahren_Ok.Dyn.Rest_Inks)


--- NW 15: LeerPuffer 04 ---
CALL FB "None" ,  (LeerPuffer_Nr:=4, ErrQuit:=ErrQuit, B_LeerpufferEinfahrt:="BG3315", B_InSchleuse:="BG3336", B_AusSchleuse:="BG3322", B_Stau_raus_Out:=Stau, B_QuerTrolley_Out:=?, Antrieb_plus_aktiv:="MA0065", Schleuse_geöffnet:="MB3336", Y_Schleuse_Auf:="DLP_Zylinder".Schleuse_Ausfahrt_LP4.Stat.Ast, Error:=DB708.DBW132, Start_Ok:=Start_Ok, Antrieb_plus_vor:="DLPtoHW_Antriebe".MA0065.Stat.A_vor, Antrieb_plus_stoppen:="DLPtoHW_Antriebe".MA0065.Stat.Stop_vor, hStOk:=ErrAnz, Ausfahr_Inks:="DLP_Auslagern".Ausfahren_Ok.Dyn.Rest_Inks)


--- NW 16: LeerPuffer 05 ---
CALL FB "None" ,  (LeerPuffer_Nr:=5, ErrQuit:=ErrQuit, B_LeerpufferEinfahrt:="BG3314", B_InSchleuse:="BG3335", B_AusSchleuse:=?, B_Stau_raus_Out:=Stau, B_QuerTrolley_Out:=?, Antrieb_plus_aktiv:="MA0065", Schleuse_geöffnet:="MB3335", Y_Schleuse_Auf:="DLP_Zylinder".Schleuse_Ausfahrt_LP5.Stat.Ast, Error:=DB708.DBW134, Start_Ok:=Start_Ok, Antrieb_plus_vor:="DLPtoHW_Antriebe".MA0065.Stat.A_vor, Antrieb_plus_stoppen:="DLPtoHW_Antriebe".MA0065.Stat.Stop_vor, hStOk:=ErrAnz, Ausfahr_Inks:="DLP_Auslagern".Ausfahren_Ok.Dyn.Rest_Inks)


--- NW 17: LeerPuffer 06 ---
CALL FB "None" ,  (LeerPuffer_Nr:=6, ErrQuit:=ErrQuit, B_LeerpufferEinfahrt:="BG3313", B_InSchleuse:="BG3334", B_AusSchleuse:=?, B_Stau_raus_Out:=Stau, B_QuerTrolley_Out:=?, Antrieb_plus_aktiv:="MA0065", Schleuse_geöffnet:="MB3334", Y_Schleuse_Auf:="DLP_Zylinder".Schleuse_Ausfahrt_LP6.Stat.Ast, Error:=DB708.DBW136, Start_Ok:=Start_Ok, Antrieb_plus_vor:="DLPtoHW_Antriebe".MA0065.Stat.A_vor, Antrieb_plus_stoppen:="DLPtoHW_Antriebe".MA0065.Stat.Stop_vor, hStOk:=ErrAnz, Ausfahr_Inks:="DLP_Auslagern".Ausfahren_Ok.Dyn.Rest_Inks)


--- NW 18: LeerPuffer 07 ---
CALL FB "None" ,  (LeerPuffer_Nr:=7, ErrQuit:=ErrQuit, B_LeerpufferEinfahrt:="BG3312", B_InSchleuse:="BG3333", B_AusSchleuse:=?, B_Stau_raus_Out:=Stau, B_QuerTrolley_Out:=?, Antrieb_plus_aktiv:="MA0065", Schleuse_geöffnet:="MB3333", Y_Schleuse_Auf:="DLP_Zylinder".Schleuse_Ausfahrt_LP7.Stat.Ast, Error:=DB708.DBW138, Start_Ok:=Start_Ok, Antrieb_plus_vor:="DLPtoHW_Antriebe".MA0065.Stat.A_vor, Antrieb_plus_stoppen:="DLPtoHW_Antriebe".MA0065.Stat.Stop_vor, hStOk:=ErrAnz, Ausfahr_Inks:="DLP_Auslagern".Ausfahren_Ok.Dyn.Rest_Inks)


--- NW 19: LeerPuffer 08 ---
CALL FB "None" ,  (LeerPuffer_Nr:=8, ErrQuit:=ErrQuit, B_LeerpufferEinfahrt:="BG3311", B_InSchleuse:="BG3332", B_AusSchleuse:=?, B_Stau_raus_Out:=Stau, B_QuerTrolley_Out:=?, Antrieb_plus_aktiv:="MA0065", Schleuse_geöffnet:="MB3332", Y_Schleuse_Auf:="DLP_Zylinder".Schleuse_Ausfahrt_LP8.Stat.Ast, Error:=DB708.DBW140, Start_Ok:=Start_Ok, Antrieb_plus_vor:="DLPtoHW_Antriebe".MA0065.Stat.A_vor, Antrieb_plus_stoppen:="DLPtoHW_Antriebe".MA0065.Stat.Stop_vor, hStOk:=ErrAnz, Ausfahr_Inks:="DLP_Auslagern".Ausfahren_Ok.Dyn.Rest_Inks)


--- NW 20: LeerPuffer 09 ---
CALL FB "None" ,  (LeerPuffer_Nr:=9, ErrQuit:=ErrQuit, B_LeerpufferEinfahrt:="BG3310", B_InSchleuse:="BG3331", B_AusSchleuse:=?, B_Stau_raus_Out:=Stau, B_QuerTrolley_Out:=?, Antrieb_plus_aktiv:="MA0065", Schleuse_geöffnet:="MB3331", Y_Schleuse_Auf:="DLP_Zylinder".Schleuse_Ausfahrt_LP9.Stat.Ast, Error:=DB708.DBW142, Start_Ok:=Start_Ok, Antrieb_plus_vor:="DLPtoHW_Antriebe".MA0065.Stat.A_vor, Antrieb_plus_stoppen:="DLPtoHW_Antriebe".MA0065.Stat.Stop_vor, hStOk:=ErrAnz, Ausfahr_Inks:="DLP_Auslagern".Ausfahren_Ok.Dyn.Rest_Inks)


--- NW 21: LeerPuffer 10 ---
      L      "DLeerPufferStrecken".LeerPuffer_10.Dyn.Anzahl_LeerTrolleys

CALL FB "None" ,  (LeerPuffer_Nr:=10, ErrQuit:=ErrQuit, B_LeerpufferEinfahrt:="BG3307", B_InSchleuse:="BG3330", B_AusSchleuse:=?, B_Stau_raus_Out:=Stau, B_QuerTrolley_Out:=?, Antrieb_plus_aktiv:="MA0065", Schleuse_geöffnet:="MB3330", Y_Schleuse_Auf:="DLP_Zylinder".Schleuse_Ausfahrt_LP10.Stat.Ast, Error:=DB708.DBW144, Start_Ok:=Start_Ok, Antrieb_plus_vor:="DLPtoHW_Antriebe".MA0065.Stat.A_vor, Antrieb_plus_stoppen:="DLPtoHW_Antriebe".MA0065.Stat.Stop_vor, hStOk:=ErrAnz, Ausfahr_Inks:="DLP_Auslagern".Ausfahren_Ok.Dyn.Rest_Inks)

      A      "DLPtoHW_Antriebe".MA0065.Stat.A_vor
      S      "DLPtoHW_Antriebe".MA0065.Stat.A_start


--- NW 22: Störungen anzeigen UZ0703/UH07 ---
      A      ErrAnz
      S      "DOutbound_Bereich".A01_UZ0703.StOk_blinken
      S      "DOutbound_Bereich".A01_UH07.StOk_blinken


--- NW 23: Ende ---
      BE

