Standard MWeiche_Sorter 178 STL de-DE COPYRIGHT by Ingenieurbüro A.Emmert Ortsstr.33, D-869925 Fuchstal (Germany) Tel.: 0049(0)8243-960629 Version: ILS2100 / 03.02.2010 STL de-DE de-DE Eingangsvariablen einlesen Aufruf-Parameter (für Baustein beobachten) Einsprung Weichen-DL vor Aufruf übergeben! Int 0 STL de-DE de-DE Parameter-Übergabe Beim Teachen Weiche auf gerade: Weiche auf gerade schalten Weiche auf Abzweig schalten Weiche auf Gerade schalten Weichentest: Weiche zyklisch umschalten Weiche auf Abzweig schalten Weiche auf Gerade schalten STL de-DE de-DE Für Inbetriebnahme Weiche auf Abzweig schalten Weiche auf gerade schalten BM wurde ausgeschleußt (1 Zyklus) BM wurde gerade gefahren (1 Zyklus) STL de-DE de-DE Gesamt: Out-Bits zum Zurücksetzen Nummer der Weiche Aufruf-Parameter Identisch ? Weichendatenbank fehlerhaft undefinierte Weiche Ja ! Search-Daten WORD#16#0000 ARef P#M200.0 ARef P#M220.0 Rückmeldung bei Datenbank-Zugriff (Gefälle-DL) Weichendatenbank fehlerhaft undefinierte Weiche Kennung + Datenbytes Weichendatenbank fehlerhaft undefinierte Weiche Word 16#1004 Kennung 10 + Word=04

Any-Kennung, Datentyp Int 40 Datenwords speichern

Wiederholungen Quelle-Pointer erzeugen: Int 0 Bei Merker = 0 !

DB_Nummer Int 220 Adresse Int 3 DWord 16#8300_0000 Kennung: Merker

Kennung, Adresse Datenliste-Daten speichern Variant #Ziel Rückmeldung Int 0 Fehler vorhanden ? Ja ! Error bei Block kopieren Weichentyp = 178 (Weiche) Int 178 Dieser Aufruf-FB ? Ja ! undefinierte Weiche Int 0 Weiche ungültig ! Nummer der Weiche STL de-DE de-DE Statische Weichen-Parameter holen Dyn.Daten löschen: Weiche auf Abzweig schalten Weiche auf gerade schalten BM fährt geradeaus durch Weichenbereich BM fährt aus Weichenbereich Geradeaus: Kontroll-Time ist negativ Ausfahrend: Kontroll-Time ist negativ / R #Dyn.Ohne_VerklemmKontrolle //Verklemmkontrolle ausschalten Max_Wert wurde schon übertragen DInt 0 Int 0 Innerhalb dieser Zeit muss BM Weiche verlassen haben [100ms] Innerhalb dieser Zeit muss BM Weiche ausgefahren haben [100ms] Rückmeldungen löschen: Int 0 Störungen löschen: Send-FIFO zum PC ist fehlerhaft Send-FIFO zu PC ist voll Reset ist aktiv Int 0 Damit statische Werte neu aus Datenbank geholt werden ! Nummer der Weiche STL de-DE de-DE Reset Int 0 Weichen-Datenliste fehlerhaft undefinierte Weiche Fehler bei Block kopieren Haupstrang-Datenliste fehlerhaft Haupstrang-Datenliste ist voll Keine Hauptstrang-Daten mehr vorhanden Rein-FIFO fehlerhaft Keine Rein-Daten mehr vorhanden Stau im Ausfahrbereich (-> Antrieb stoppen) BM bei Weiterfahrt in Weiche verklemmt (-> Antrieb stoppen) BM bei Ausfahrt in Weiche verklemmt (-> Antrieb stoppen) undefiniertes BM bei Weiterfahrt erkannt Send-FIFO zum PC ist fehlerhaft Send-FIFO zu PC ist voll Reset ist aktiv (gibts nicht!) Schnittstelle nach Außen Kreiselantrieb stoppen: Ausfahrtsbereich hat Stau Stau im Ausfahrbereich (-> Antrieb stoppen) Antrieb stoppen: Inkremente zum Weiche schalten (vom Hauptstrang) DInt 0 schon bekannt ? Ja ! (also kommt nächstes BM!) Bei Entladeweiche sofort stoppen! BM bei Ausfahrt in Weiche verklemmt (-> Antrieb stoppen) BM bei Weiterfahrt in Weiche verklemmt (-> Antrieb stoppen) Stau im Ausfahrbereich (-> Antrieb stoppen) Send-FIFO zum PC ist fehlerhaft Send-FIFO zu PC ist voll Kreiselantrieb stoppen Anzeige Start n. Störung aktivieren: BM bei Ausfahrt in Weiche verklemmt (-> Antrieb stoppen) BM bei Weiterfahrt in Weiche verklemmt (-> Antrieb stoppen) Stau im Ausfahrbereich (-> Antrieb stoppen) STL de-DE de-DE Störungen nach Außen übergeben DB-Nr des Inkremental-Geber Int 0 angegeben ? Nein ! Zähler-DB öffnen

Zeit-Inkremente erzeugen: 10ms-Takte Aktueller Zählerwert +100ms-Takte DInt 10000 Festwert: 10000 (100s) Aktueller Zählerwert Max. Wert erreicht ? Nein ! Ohne Flag-Lauf wurde beendet Flag-Lauf wurde beendet Restwert als Startwert nehmen ! Umschaltung Zähl-Lauf ohne-mit-ohne Flag Ohne Flag-Lauf wurde beendet Umschaltung Zähl-Lauf ohne-mit-ohne Flag Flag-Lauf wurde beendet Umschaltung Zähl-Lauf ohne-mit-ohne Flag STL de-DE de-DE Daten des Inkremental-Gebers holen / Zeit-Inkremente Keine Haupstrangdaten vorhanden -> Verklemm-Errors löschen undefiniertes BM bei Weiterfahrt erkannt Störungen löschen: Keine Haupstrangdaten vorhanden -> Verklemm-Errors löschen Keine Haupstrangdaten vorhanden -> Verklemm-Errors löschen Kann nur über Reset zurückgesetzt werden: R #Dyn.Error.Weichen_DL R #Dyn.Error.Undef_Weiche R #Dyn.Error.BLKMov R #Dyn.Error.Haupstrang_DL R #Dyn.Error.Haupstrang_DL_voll R #Dyn.Error.Keine_HSDaten R #Dyn.Error.Rein_FIFO R #Dyn.Error.Keine_FIFODaten R #Dyn.Error.Stau_AusfahrBereich R #Dyn.Error.BM_verklemmt_Gerade R #Dyn.Error.BM_verklemmt_Ausfahrt R #Dyn.Error.Send_FIFO_fehlerhaft //Send-FIFO zum PC ist fehlerhaft R #Dyn.Error.Send_FIFO_voll //Send-FIFO zu PC ist voll R #Dyn.Error.Reset_aktiv //Reset ist aktiv STL de-DE de-DE Störungen quittieren Inkremente zum Weiche schalten (vom Hauptstrang) DInt 0 schon bekannt ? Ja ! Kreiselantrieb starten Nach neuen Daten suchen: Im Weichenbereich nach neuen Daten suchen Aktueller Inkrementalwert Inkremente zum Weiche schalten Gleiches Flag/Flag wie Inkgeber zum Suchen Anders Flag/Liste wie Inkgeber zum Suchen: Inkgeber schon mit Lauf-Flag Hauptstrang_DL +1 durchsuchen Hauptstrang_DL +1 durchsuchen Int 1 Sortliste aus welcher Hauptstrangdaten sind Gleiches Flag/Liste wie Inkgeber zum Suchen: Inkgebeer ohne Lauf-Flag Hauptstrang_DL +1 durchsuchen Hauptstrang_DL +1 durchsuchen Int 1 Sortliste aus welcher Hauptstrangdaten sind Hauptstrang Sortliste nach Position -1 durchsuchen: WORD#16#0B01 nach 11.DW (letzte Position) suchen Datensatz ist vorhanden Sortliste fehlerhaft Datensatz ist nicht vorhanden Sortliste fehlerhaft Warten, da noch keine Daten vorhanden Sortliste fehlerhaft DInt 0 Keine Daten auf Hauptstrang vorhanden Inkremente zum Weiche schalten (vom Hauptstrang) Search-Ink speichern: Stamm-Daten speichern Inkremente zum Daten auslesen (Start-Ink) Hauptstrang-Schaltdaten errechnen/speichern: Kettenlängungs-Korrektur: Korrektur-Faktor wegen Kettenlängung Real 0.995 sinnvoller Wert ? (maximal 0,5% Abweichung erlaubt) Ja ! Real 1.005 Real 1.0 dann ohne Korrektur ! Korrektur-Faktor wegen Kettenlängung Schaltdaten errechnen: Lauf-Flag bei Start-Inkremente Flag zum Weiche schalten (vom Hauptstrang) Inkremente zum Weiche schalten Korrektur-Faktor wegen Kettenlängung Daten aus Sortliste dazuaddieren Inkremente zum Weiche schalten (vom Hauptstrang) Maximal erlaubter Zählwert Restwert übernehmen Inkremente zum Weiche schalten (vom Hauptstrang) Lauf-Flag bei Start-Inkremente (invertieren) Flag zum Weiche schalten (vom Hauptstrang) STL de-DE de-DE Schaltpunkt aufgrund von Hauptstrangdaten suchen Inkremente zum Weiche schalten (vom Hauptstrang) DInt 0 angegeben ? Nein ! Flag zum Weiche schalten (vom Hauptstrang) Flag-Lauf wurde beendet Flag zum Weiche schalten (vom Hauptstrang) Flag-Lauf wurde beendet beim Ende des Lauf sind Inkremente uninteressant Flag zum Weiche schalten (vom Hauptstrang) Zähl-Lauf mit Flag ist aktiv Flag zum Weiche schalten (vom Hauptstrang) Zähl-Lauf mit Flag ist aktiv Aktuelle Inkrementalwert Inkremente zum Weiche schalten (vom Hauptstrang) Ziel kontrollieren: Aktueller Inkrementalwert Inkremente des letzten durchfahrenden Teils Zähl-Lauf mit Flag ist aktiv Flag des letzten durchfahrenden Teils DInt 0 Löschen, da ausgewertet Inkremente zum Weiche schalten (vom Hauptstrang) Fahrendes Teil auslesen: WORD#16#0000 Inkremente zum Daten auslesen (Start-Ink) Aktuelle Position der Daten in Datenliste Datensatz ist vorhanden Keine Hauptstrang-Daten mehr vorhanden Fahrendes Teil speichern: (für Fehlersuche) BM-IDX (wird bei Auslagerung gemeldet) IDX des letzten durchfahrenden Teils /Ersatz-Ziel anfahren bei Ausfahrziel und Stau ?: Ziel des BT (aufgrund vom Hauptstrang) Bei diesem Ziel Weiche auf Abzweig schalten + Carl BM soll nicht ausfahren ! Bei Stau soll Ersatz-Ziel angefahren werden Ersatz-Ziel übergeben Ziel des BT (aufgrund vom Hauptstrang) Int 0 Ziel des BT ist unbekannt Ziel des BT ist unbekannt BT mit unbekanntem Ziel geradeaus fahren Ziel des BT ist unbekannt BT mit unbekanntem Ziel ausfahren Ziel des BT (aufgrund vom Hauptstrang) Bei diesem Ziel Weiche auf Abzweig schalten + Carl Ziel, das bei Carr-Telegramm gemeldet wird BM soll ausfahren CARR-Telegramm muss noch gesendet werden Teil ausfahren Ziel des BT (aufgrund vom Hauptstrang) Bei diesem Ziel Weiche auf Gerade schalten + Carl BM soll also ausfahren, da nicht das GeradeZiel! Int 0 sinnvolle Angabe ? Ja ! Teil ausfahren (ohne CARR, da undef. rausfahren!) Teile geradeaus fahren:****************************************************************************************************** Weiche auf Gerade schalten BM wurde gerade gefahren (1 Zyklus) Verklemm-Kontroll-Info speichern: Kontroll-Sensor bei Weiterfahrt (gerade) Letzter BM noch nicht kontrolliert BM fährt geradeaus durch Weichenbereich Letzter BM noch nicht kontrolliert IDX des letzten durchfahrenden Teils IDX des zu kontollierenden Teils Hauptstrang_DL +1 durchsuchen Hauptstrang_DL +1 durchsuchen Nach dieser Zeit muss BM Weichenbereich verlassen haben [100ms] Innerhalb dieser Zeit muss BM Weiche gerade verlassen haben [100ms] BM fährt geradeaus durch Weichenbereich Geradeaus: Kontroll-Time ist negativ CARR-Telegramm erwünscht ?: Ziel des BT (aufgrund vom Hauptstrang) Bei diesem Ziel Weiche auf Gerade schalten + Carl Ziel, das bei Carr-Telegramm gemeldet wird BM soll ausfahren CARR-Telegramm muss noch gesendet werden Letzte Weiche im Verbund Nur Sortdaten löschen Daten aus Sortliste löschen Letzte Position neu speichern: Nummer der Weiche Letzte Position, wo Teil vorbeigefahren ist Datensatz ist vorhanden /Alles Ok) Sortliste fehlerhaft Teile ausfahren:************************************************************************************************************ Weiche war schon auf Abzweig DINT#1 Auf Abzweig umgeschaltet +1 Weiche auf Abzweig schalten Nur Sortdaten löschen BM wurde ausgeschleußt (1 Zyklus) Int 300 Nach dieser Zeit ist BM ausgefahren [300*100ms] Diese Zeit benötigt BM zum Ausfahren [100ms] Verklemm-Kontroll-Info speichern: Kontroll-Sensor bei Ausfahrt (abzweig) Letzter BM noch nicht kontrolliert BM fährt aus Weichenbereich Letzter BM noch nicht kontrolliert IDX des letzten durchfahrenden Teils IDX des zu kontollierenden Teils Hauptstrang_DL +1 durchsuchen Hauptstrang_DL +1 durchsuchen Nach dieser Zeit muss BM Weichenbereich verlassen haben [100ms] Innerhalb dieser Zeit muss BM Weiche ausgefahren haben [100ms] BM fährt aus Weichenbereich Ausfahrend: Kontroll-Time ist negativ Ausfahrtsbereich hat Stau Bei Stau soll Ersatz-Ziel angefahren werden Stau im Ausfahrbereich (-> Antrieb stoppen) Falls Entlade-Weiche neues Leer-Ziel übergeben: BM wird entladen -> Leerziel übergeben Letzte Weiche im Verbund Nach Entladen des BM dieses Ziel übergeben BM bei diesem Abwurf-Ziel ausfahren/entladen Int 0 Sinnvolle Angabe ? Ja ! Daten mit neuem Ziel an Hauptstrang übergeben ! Daten aus Sortliste löschen Aktuelle Position der Daten in Datenliste Word 16#0E00 0EYY: DS YY löschen DS YY löschen GST-Schalt-Inks speichern: Inkremente (Fenster), danach wird Weiche in GST geschaltet Int 0 sinnvoller Wert ? Nein ! Inkremente (Fenster), danach wird Weiche in GST geschaltet Aktueller Inkrementalwert Inkremente bei Weiche auf GST schalten Zähl-Lauf mit Flag ist aktiv Flag bei Weiche auf GST schalten Maximal erlaubter Zählwert überschritten ? Nein ! Restwert übernehmen Inkremente bei Weiche auf GST schalten Zähl-Lauf mit Flag ist aktiv (invertieren, da Überlauf!) Flag bei Weiche auf GST schalten DInt 0 Inkremente zum Weiche schalten (vom Hauptstrang) STL de-DE de-DE Weiche aufgrund der Hauptstrangdaten schalten Inkremente bei Weiche auf GST schalten DInt 0 sinnvolle Angabe ? Nein ! Flag bei Weiche auf GST schalten Flag-Lauf wurde beendet Flag bei Weiche auf GST schalten Flag-Lauf wurde beendet beim Ende des Lauf sind Inkremente uninteressant Flag bei Weiche auf GST schalten Zähl-Lauf mit Flag ist aktiv Flag bei Weiche auf GST schalten Zähl-Lauf mit Flag ist aktiv Aktuelle Inkrementalwert Inkremente bei Weiche auf GST schalten Inkremente (Fenster), danach wird Weiche in GST geschaltet Inkremente bei Weiche auf GST schalten dazuaddieren, um zu ermitteln, ob nächste Daten schon früher kommen Inkremente zum Weiche schalten (vom Hauptstrang) Haupstrangdaten sind kleiner DInt 0 sinnvolle Hauptstrang-Daten ? Ja ! Nicht auf GST schalten, da nächste Daten schon kommen ! Weiche auf GST schalten: Negierter Sprung ! BM fährt aus Weichenbereich BM bei Ausfahrt in Weiche verklemmt (-> Antrieb stoppen) Warten Weiche auf Gerade schalten Negierter Sprung ! BM fährt geradeaus durch Weichenbereich BM bei Weiterfahrt in Weiche verklemmt (-> Antrieb stoppen) Warten Weiche auf Abzweig schalten DInt 0 Inkremente bei Weiche auf GST schalten Flag bei Weiche auf GST schalten STL de-DE de-DE Weiche auf GST zurückschalten Kontroll-Sensor bei Weiterfahrt (gerade) Verklemmkontrolle ausschalten BM fährt geradeaus durch Weichenbereich Geradeausfahrendes BM wurde erkannt BM bei Weiterfahrt in Weiche verklemmt (-> Antrieb stoppen) undefiniertes BM bei Weiterfahrt erkannt Geradeaus: Kontroll-Time ist negativ BM fährt geradeaus: Kontroll-Sensor nach Weiche Gerade Geradeausfahrendes BM wurde erkannt BM fährt geradeaus durch Weichenbereich Geradeausfahrendes BM wurde erkannt Kontroll-Sensor nach Weiche Gerade Geradeausfahrendes BM wurde erkannt IDX des letzten durchfahrenden Teils IDX des zu kontollierenden Teils Hauptstrang_DL +1 durchsuchen Hauptstrang_DL +1 durchsuchen Nach dieser Zeit muss BM Weichenbereich verlassen haben [100ms] Innerhalb dieser Zeit muss BM Weiche gerade verlassen haben [100ms] BM fährt geradeaus durch Weichenbereich BM bei Weiterfahrt in Weiche verklemmt (-> Antrieb stoppen) Zeit verändern: Band ist aktiv BM bei Weiterfahrt in Weiche verklemmt (-> Antrieb stoppen) Innerhalb dieser Zeit muss BM Weiche gerade verlassen haben [100ms] Anzahl der 100ms-Takte Innerhalb dieser Zeit muss BM Weiche gerade verlassen haben [100ms] Int 0 Kontroll-Zeit abgelaufen ? Nein ! Geradeaus: Kontroll-Time ist negativ BM verklemmt ?: Geradeaus: Kontroll-Time ist negativ Geradeaus: Kontroll-Time ist negativ BM fährt geradeaus durch Weichenbereich BM bei Weiterfahrt in Weiche verklemmt (-> Antrieb stoppen) Zeit neu laden BM undefiniert ?: Innerhalb dieser Zeit muss BM Weiche gerade verlassen haben [100ms] Nach dieser neg. Zeit [100ms] Error undef.BM, falls Kontroll-Sensor aktiv Muss BM draussen sein ? Nein ! Innerhalb dieser Zeit muss BM Weiche gerade verlassen haben [100ms] Kontroll-Sensor nach Weiche Gerade undefiniertes BM bei Weiterfahrt erkannt STL de-DE de-DE Weichenbereich auf verklemmte gerade fahrende BM kontrollieren Kontroll-Sensor bei Ausfahrt (abzweig) Verklemmkontrolle ausschalten BM fährt aus Weichenbereich Ausfahrendes BM wurde erkannt BM bei Ausfahrt in Weiche verklemmt (-> Antrieb gestoppt) Ausfahrend: Kontroll-Time ist negativ BM fährt aus: Kontroll-Sensor nach Weiche Ausfahrt Ausfahrendes BM wurde erkannt BM fährt aus Weichenbereich Bei Stau Einzelerkennung nicht mehr möglich! Ausfahrendes BM wurde erkannt Kontroll-Sensor nach Weiche Ausfahrt Bei Stau auch ! Ausfahrendes BM wurde erkannt Nach dieser Zeit muss BM Weichenbereich verlassen haben [100ms] Innerhalb dieser Zeit muss BM Weiche ausgefahren haben [100ms] s.u. Ohne Quittierung BM fährt aus Weichenbereich BM bei Ausfahrt in Weiche verklemmt (-> Antrieb gestoppt) Zeit verändern: Band ist aktiv BM bei Ausfahrt in Weiche verklemmt (-> Antrieb gestoppt) Innerhalb dieser Zeit muss BM Weiche ausgefahren haben [100ms] Anzahl der 100ms-Takte Innerhalb dieser Zeit muss BM Weiche ausgefahren haben [100ms] Int 0 Kontroll-Zeit abgelaufen ? Nein ! Ausfahrend: Kontroll-Time ist negativ BM verklemmt ?: Ausfahrend: Kontroll-Time ist negativ Ausfahrend: Kontroll-Time ist negativ BM fährt aus Weichenbereich BM bei Ausfahrt in Weiche verklemmt (-> Antrieb gestoppt) Zeit neu laden Int 0 Innerhalb dieser Zeit muss BM Weiche ausgefahren haben [100ms] BM fährt aus: Zeit verändern: Band ist aktiv Diese Zeit benötigt BM zum Ausfahren [100ms] Anzahl der 100ms-Takte Diese Zeit benötigt BM zum Ausfahren [100ms] Int 0 Ausfahr-Zeit abgelaufen ? Nein ! Minimum übergeben STL de-DE de-DE Weichenbereich auf verklemmte ausfahrende BM kontrollieren CARR-Telegramm muss noch gesendet werden CARR-Telegramm muss noch gesendet werden CARR mit dieser IDX schon gesendet?: (wegen Travel-FIFO leer) IDX des BT BT/MT-IDX (wurde bei Auslagerung gemeldet) String 'CARR' Telegramm-Kennung Int 30 Anzahl Bytes Sort-ID IDX des BT CarrierIDX Ziel, das bei Carr-Telegramm gemeldet wird Type Int 0 State Word 16#0003 ETX Int 0 Rest nullen Send-FIFO zu PC ist voll Send-FIFO fehlerhaft Send-FIFO für PC-Sendungen Int 0 WORD#16#0000 ARef P#M214.0 Send-FIFO zu PC ist voll Warten Send-FIFO fehlerhaft CARR-Telegramm muss noch gesendet werden IDX des BT BT/MT-IDX (wurde bei Auslagerung gemeldet) STL de-DE de-DE CARR-Telegramm an PC senden Weiche auf Abzweig schalten Weiche auf Gerade schalten STL de-DE de-DE Weiche schalten STL de-DE de-DE Ende de-DE Weichen-Modul (AS)