=== FB 7100: Daten_in_SendFIFO_speichern  [STL] ===
INTERFACE:
  Input:
    TelegrammKennung[1] : Char := '$00'
    TelegrammKennung[2] : Char := '$00'
    TelegrammKennung[3] : Char := '$00'
    TelegrammKennung[4] : Char := '$00'
    TelegrammKennung[5] : Char := '$00'
    TelegrammKennung[6] : Char := '$00'
    TelegrammKennung[7] : Char := '$00'
    TelegrammKennung[8] : Char := '$00'
    TelegrammKennung[9] : Char := '$00'
    TelegrammKennung[10] : Char := '$00'
    TrolleyID : DInt
    StationsNr : Int
    Puffer_LinienNr : Int
    StoreGroup : DInt
    Status_1_Int : Int
    Status_2_Bit[0] : Bool
    Status_2_Bit[1] : Bool
    Status_2_Bit[2] : Bool
    Status_2_Bit[3] : Bool
    Status_2_Bit[4] : Bool
    Status_2_Bit[5] : Bool
    Status_2_Bit[6] : Bool
    Status_2_Bit[7] : Bool
    Reserve[1]_Int : Int
    Reserve[2]_Int : Int
    Port : Int
  Output:
    Ret_Val_FIFO_IN : Byte
    Error : Bool
  InOut:
  Static:
  Temp:
  Constant:

--- NW 1: Daten in Send-FIFO speichern ---
      L      Port
      L      1                                               // Daten für Port 1?
      ==I                                                    // Ja!
      JCN    P2                                              // Negierter Sprung

CALL FC "FifoIn" (SSDB:=7101, SSDW:=0, PARA:=WORD#16#0000, INDATEN:=DB7100.DBX0.0, RE_VAL:="MB199")

      JU     FIE

P2:   L      Port
      L      2                                               // Daten für Port 2?
      ==I                                                    // Ja!
      JCN    FIErr                                           // Negierter Sprung

CALL FC "FifoIn" (SSDB:=7102, SSDW:=0, PARA:=WORD#16#0000, INDATEN:=DB7100.DBX0.0, RE_VAL:="MB199")

FIE:  L      "MB199"
      T      Ret_Val_FIFO_IN

      L      0
      <>I
      =      Error                                           // Error bei FIFO-Zugriff

      JBI    en03                                            // Alles ok

FIErr: SET
      S      Error                                           // Error bei FIFO-Zugriff

en03: NOP 0


--- NW 2: Instanz-DB nullen ---
CALL FC "DBMOV" (QuellDB:=8000, QuellDW:=0, ZielDB:=7100, ZielDW:=00, Anzahl_DW:=16, RE_VAL:="MW196")   // Empfangsfach leeren, da Telegramm verarbeitet

