=== FB 182: MAusfahrFreigabe_neu  [STL] ===
INTERFACE:
  Input:
    Impuls : Bool                                       // Zähl-Impuls
    Vorbei_1 : Bool                                     // BM ist an Sensor vorbeigefahren
    Vorbei_2 : Bool                                     // BM ist an Sensor vorbeigefahren
    Vorbei_3 : Bool                                     // BM ist an Sensor vorbeigefahren
    Vorbei_4 : Bool                                     // BM ist an Sensor vorbeigefahren
    Vorbei_5 : Bool                                     // BM ist an Sensor vorbeigefahren
    Inks_Vorbei_1 : Int                                 // Rest-Inks für diese Position
    Inks_Vorbei_2 : Int                                 // Rest-Inks für diese Position
    Inks_Vorbei_3 : Int                                 // Rest-Inks für diese Position
    Inks_Vorbei_4 : Int                                 // Rest-Inks für diese Position
    Inks_Vorbei_5 : Int                                 // Rest-Inks für diese Position
  Output:
  InOut:
    Antrieb_ein : Bool                                  // Antrieb einschalten
  Static:
    Dyn : Struct
      Rest_Inks : Int := 1                              // BM noch unterwegs [Inks]
  Temp:
    tAktiv : Int
  Constant:

--- NW 1: Vorbei-Sensoren auswerten ---
      L      Inks_Vorbei_5
      A      Vorbei_5
      JC     Chek
      L      Inks_Vorbei_4
      A      Vorbei_4
      JC     Chek
      L      Inks_Vorbei_3
      A      Vorbei_3
      JC     Chek
      L      Inks_Vorbei_2
      A      Vorbei_2
      JC     Chek
      L      Inks_Vorbei_1
      A      Vorbei_1
      JC     Chek

      JU     En02

Chek: L      Dyn.Rest_Inks                                   // Neuer Wert kleiner?
      <I                                                     // Ja !
      JC     En02                                            // Ohne Speicherung weiter

      CAC                                                    // Neuen Wert übernehmen
      T      Dyn.Rest_Inks                                   // Wert speichern

En02: NOP 0


--- NW 2: Rest-Inks verändern ---
      AN     Impuls                                          // Von MImpulsGeber
      JC     En04

// BT ist unterwegs:
      L      Dyn.Rest_Inks
      +      -1
      T      Dyn.Rest_Inks

      L      0                                               // Minimum erreicht?
      >I                                                     // Nein !
      JC     En04

      L      1
      T      Dyn.Rest_Inks                                   // Minimum übergeben

En04: NOP 0


--- NW 3: Antrieb einschalten ---
      L      Dyn.Rest_Inks
      L      1                                               // vorhanden ?
      >I                                                     // Ja !
      S      Antrieb_ein


--- NW 4: Ende ---
      BE

