=== FC 9002: Port2_Telegramme_auswerten  [STL] ===
INTERFACE:
  Input:
  Output:
  InOut:
  Temp:
    QuellDB : Any                                       // Zeiger, wo Empfangsdaten sind
    ZielDB : Any                                        // Zeiger, wo Auswertesdaten sind
    Teleg_Kennung_A : DWord
    Teleg_Kennung_B : DWord
    Teleg_Kennung_C : Word
    Schleusen_DB : Int
    Schleusen_DW : Int
    Error : Bool
    AR1Zeiger : DWord                                   // Statt AR1 (ging nur bis DB-Länge <= 8191 Bytes)
    AR1Start : DInt                                     // Startwert mit Offset 0
    PLC_ABP : Word
    EndZiel : Word
  Constant:
  Return:
    Ret_Val : Void

--- NW 1: Telegrammkopf übergeben ---
// Kennung A:
      L      "SS_Port2_EmpfangsDaten".Port2.TelegrammKennung[1]
      T      LB20
      L      "SS_Port2_EmpfangsDaten".Port2.TelegrammKennung[2]
      T      LB21
      L      "SS_Port2_EmpfangsDaten".Port2.TelegrammKennung[3]
      T      LB22
      L      "SS_Port2_EmpfangsDaten".Port2.TelegrammKennung[4]
      T      LB23

// Kennung B:
      L      "SS_Port2_EmpfangsDaten".Port2.TelegrammKennung[5]
      T      LB24
      L      "SS_Port2_EmpfangsDaten".Port2.TelegrammKennung[6]
      T      LB25
      L      "SS_Port2_EmpfangsDaten".Port2.TelegrammKennung[7]
      T      LB26
      L      "SS_Port2_EmpfangsDaten".Port2.TelegrammKennung[8]
      T      LB27

// Kennung C:
      L      "SS_Port2_EmpfangsDaten".Port2.TelegrammKennung[9]
      T      LB28
      L      "SS_Port2_EmpfangsDaten".Port2.TelegrammKennung[10]
      T      LB29


--- NW 2: GOHDRespM-Telegramm ? (Entscheidungsreaktion) ---
      L      Teleg_Kennung_A
      L      'GOHD'
      ==D
      JCN    NoGOHDRespM

      L      Teleg_Kennung_B
      L      'Resp'
      ==D
      JCN    NoGOHDRespM

      L      Teleg_Kennung_C
      L      'M$00'
      ==I
      JCN    NoGOHDRespM

// Neu: Eintrag in Trolley-DB:
CALL FC "INT_to_BCD (4stellig)" (Int_Wert:="SS_Port2_EmpfangsDaten".Port2.Puffer_LinienNr, BCD_Wert:=EndZiel)

CALL FC "Trolleydaten_ändern" (Gesamt_Trolley_DL:=1000, TrolleyID:="SS_Port2_EmpfangsDaten".Port2.TrolleyID, Endziel:=EndZiel, ShopGroup:="SS_Port2_EmpfangsDaten".Port2.StoreGroup)

      BEU                                                    // Vorher Übergabe an Sep

NoGOHDRespM: NOP 0


--- NW 3: Unbekanntes Telegramm ---
Unbekannt: NOP 0
CALL FC "DBMOV" (QuellDB:=9002, QuellDW:=0, ZielDB:=9002, ZielDW:=30, Anzahl_DW:=15, RE_VAL:="MW196")   // Letztes ???-Telegramm speichern


--- NW 4: Baustein Ende ---
      BE

