So sah das Original aus
NETWORK
// Taktgeber Impuls (T46) und Pause (T47) für großes Tor definieren
LD T47
S M22.1, 1
R M22.2, 1
O M22.1
TON T46, VW6
LD T46
S M22.2, 1
R M22.1, 1
O M22.2
TON T47, VW8
// Anlauffase (Zeit T 45) begrenzen (Rückleistung)
LD A0.4
U M17.1
TON T45, VW4
U T45
R M17.0, 2
// Abfrage ob 1. Zyklus (wird nach Start nur 1* durchlaufen!)
//** 1. Zyklus? **
LD SM0.1
JMP 1
// Liegt Störung vor? Wenn ja wird Störung in bes. Merker abgelegt
LD E2.0
UN E2.1
S M2.6, 1
LDN E2.5
UN E2.4
S M2.1, 1
LD E2.4
UN E2.2
S M2.2, 1
LD E2.5
UN E2.3
S M2.3, 1
LDN E1.0
UN E1.1
S M2.4, 1
LDN E2.6
S M2.5, 1
LD SM4.3
S M2.7, 1
LD SM5.0
S M3.0, 1
LD M2.1
O M2.2
O M2.3
O M2.4
O M2.5
O M2.6
O M2.7
O M3.0
S M2.0, 1
// Bedingungen für Ausschalten des Rades.
// Bei vorliegen eines Kriteriums springe nach Unterprogramm 3 "RAD AUS"
LD A0.4 //Taste Rad-Aus betätigt
UN E0.1
S M18.0, 1
LD A0.4 //Netzfehler
UN E1.3
S M18.1, 1
OLD
LDN A0.4 //WR-Tor nicht zu
U E0.0 //bei Niveauregulierungsbetrieb ohne Gen.
U E1.0
S M18.2, 1
OLD
LD A0.4 //Rückleistungsfehler
UN E1.4
UN M17.1
S M18.3, 1
LD E1.0 //Störungen gem. allen vorher gesetzten Störungsmerkern
U M2.4
OLD
S M7.1, 1
OLD
LD M2.6
O M2.1
O M2.2
O M2.3
O M2.5
O M2.7
O M3.0
OLD
S M7.0, 1
LD M2.0
EU
R A0.5, 5
LD M7.0
EU
R A0.5, 5
R M17.0, 2
R M22.0, 1
R M27.0, 18
LD M7.0
ED
R A0.4, 5
R M7.0, 2
LD M2.0
O M7.0
JMP 3 //Rad-Aus
// Soll Rad eingeschaltet werden?
//** Rad-Ein? **
LDN A0.4
UN E1.0
UN M2.0
UN E0.0
U E0.2
TON T44, +20
U T44
S M17.0, 1
LD M17.0
EU
R M22.0, 1
R M27.0, 18
LD M17.0
JMP 5 //Rad-Ein
// Steht Anlage auf Handbetrieb?
LDN E0.0
S M22.0, 1
LD M22.0
EU
R A0.5, 5
R M27.0, 18
LD M22.0
ED
R A0.5, 5
LD M22.0
JMP 6 //Hand
// I) Steht Anlage auf AUTO - Betrieb?
LD E0.0
EU
R A0.5, 5
LD E0.0
S M27.2, 1
LD M27.2
JMP 7
// Ende Programmteil Abfragen der Eingänge.
// Programmteil 1) Beginn 1. Zyklus (wird nach Programmstart nur 1* durchlaufen, setzt
// alle Werte auf Ausgangswerte, springt dann ans Programmteil 0 Warnleuchten
LBL 1
LD SM0.0
R A0.0, 10
R M2.0, 9 //Störung
R M7.0, 2 //Rad-Aus
S M7.2, 1
R M17.0, 2 //Rad-Ein
R M22.0, 1 //Hand
S M22.1, 1
R M22.2, 1
R M27.0, 18 //NR
R T48, 1
R T49, 1
MOVW +0, VW10 //Werte der Potis
MOVD +0, AC0
MOVB SMB28, AC0
DIV +28, AC0
+I +1, AC0
MUL +10, AC0
MOVW AC0, VW10
MOVW +0, VW12
MOVD +0, AC0
MOVB SMB29, AC0
DIV +8, AC0
+I +30, AC0
MUL +10, AC0
MOVW AC0, VW12
LD SM0.0
JMP 0
// Programmteil: 3) Rad ausstellen (Variante 1: erst Schütztafel runter, dann
// Generator vom Netz - Variante 2: erst Gen. aus, dann Schütztafel runter)
// anschließend große Schütztafel hoch bei einigen Störungsfällen (nicht alle !!)
// Variante 3: Gen. AUS, kleine Schütztafel bleibt stehen
// Zum Schluß Sringe nach 0 (Leuchtenprogramm)
LBL 3
LD M7.0
U E1.0
UN M2.4
UN A0.6
= A0.5
LD M7.0
U M7.1
LD M7.0
UN E1.0
OLD
R A0.4, 1
LDN E1.0
O M2.4
U M7.0
R M7.0, 2
R A0.5, 1
S M7.2, 1
LD M2.6
O M2.2
O M2.4
O M2.7
O M3.0
LD M2.5
U E2.6
OLD
UN M2.1
UN M2.3
U E2.5
U E2.3
U M22.1
UN M22.2
UN A0.7
= A1.0
LD SM0.0
JMP 0
// Programmteil 5) Wasserrad einschalten
LBL 5 //**** Rad-Ein ****
LD M17.0
U E1.3
S A0.4, 1
R M7.2, 1
S M17.1, 1
R M17.0, 1
LD SM0.0
JMP 0
// Programmteil 6) Handbetrieb
LBL 6 //**** Hand ****
LD M22.0
U E0.4
UN A0.6
U E1.0
= A0.5
LD M22.0
U E0.5
UN A0.5
U E1.1
= A0.6
LD M22.0
U E0.6
UN A1.0
U E2.4
U E2.2
//UN "M-F-WSR-DÖL"
//UN "M-F-WÖL-DSR"
//UN "M-F-WSR-WÖL"
//UN "M-F-DSR-DÖL"
UN M2.2
//UN "M-F-nWÖL-DÖL"
//UN "M-F-Thermoschalter"
= A0.7
LD M22.0
U E0.7
UN A0.7
U E2.5
U E2.3
U M22.1
UN M22.2
//UN "M-F-WSR-DÖL"
//UN "M-F-WÖL-DSR"
//UN "M-F-WSR-WÖL"
//UN "M-F-DSR-DÖL"
//UN "M-F-nWSR-DSR"
UN M2.3
//UN "M-F-Thermoschalter"
= A1.0
LD SM0.0
JMP 0
// Programmteil 7) NIVEAUREGULIERUNG
LBL 7
LD E2.0
UN M27.3
TON T52, +20
U T52
UN M27.1
S M27.0, 1
LDN E2.1
UN M27.3
TON T53, +20
U T53
UN M27.0
S M27.1, 1
LD M27.2
UN M27.3
LPS
U M27.0
UN M27.1
S M27.3, 1
S M27.4, 1
LPP
UN M27.0
U M27.1
S M27.3, 1
S M28.3, 1
LD M27.2
U M27.3
LPS
U M27.4
LPS
LPS
U E2.4
S M27.5, 1
LPP
UN E2.4
U E1.0
S M28.0, 1
LPP
UN E2.4
LDN E1.0
LD E1.0
U M2.4
OLD
ULD
R M27.0, 18
LPP
U M28.3
LPS
LPS
U E1.1
U A0.4
UN M2.4
S M28.4, 1
LPP
LDN E1.1
LD E1.1
UN A0.4
OLD
LD E1.1
U M2.4
OLD
ULD
U E2.5
S M28.7, 1
LPP
UN E2.5
LDN E1.1
LD E1.1
UN A0.4
OLD
LD E1.1
U M2.4
OLD
ULD
R M27.0, 18
//gr-Tor wegen zu niedrigen Wasserstandes schließen
LD M27.5
LPS
LPS
UN M27.7
S A1.1, 1
S M27.6, 1
LPP
U E1.2
ED
R M27.6, 1
S M27.7, 1
LPP
U E1.2
U E2.4
U E2.2
U M27.6
UN A1.0
= A0.7
LD M27.7
U E1.2
R M27.0, 18
R A1.1, 1
//WR-Tor wegen zu niedrigen Wasserstandes schließen
LD M28.0
UN M28.2
S M28.1, 1
LD M28.1
TON T48, VW10
U E1.0
UN A0.6
= A0.5
LD M28.1
U T48
R M28.1, 1
S M28.2, 1
LD M28.2
TON T49, VW12
U T49
R M27.0, 18
//WR-Tor wegen zu hohen Wasserstandes öffnen
LD M28.4
U A0.4
UN M28.6
S M28.5, 1
LD M28.5
TON T50, VW10
U E1.1
UN A0.5
= A0.6
LD M28.5
U T50
R M28.5, 1
S M28.6, 1
LD M28.6
TON T51, VW12
U T51
R M27.0, 18
//gr-Tor wegen zu hohen Wasserstandes öffnen
LD M28.7
LPS
LPS
UN M29.1
S A1.1, 1
S M29.0, 1
LPP
U E1.2
ED
R M29.0, 1
S M29.1, 1
LPP
U E1.2
U E2.5
U E2.3
U M29.0
UN A0.7
= A1.0
LD M29.1
U E1.2
R M27.0, 18
R A1.1, 1
// Programmteil 0) LEUCHTEN setzen
LBL 0
LDN M2.0
EU
R A0.1, 1
R A0.2, 1
R A0.3, 1
S A0.0, 1
LDN M2.0
U E0.0
S A0.2, 1
R A0.3, 1
LDN M2.0
UN E0.0
S A0.3, 1
R A0.2, 1
LD M2.0
EU
S A0.1, 1
R A0.0, 1
R A0.2, 1
R A0.3, 1
LD M2.0
U M2.1
R A0.0, 1
R A0.2, 1
R A0.3, 1
LD M2.0
U M2.2
R A0.0, 1
R A0.2, 1
S A0.3, 1
LD M2.0
U M2.3
R A0.0, 1
S A0.2, 1
R A0.3, 1
LD M2.0
U M2.4
R A0.0, 1
S A0.2, 1
S A0.3, 1
LD M2.0
U M2.5
S A0.0, 1
R A0.2, 1
R A0.3, 1
LD M2.0
U M2.6
S A0.0, 1
R A0.2, 1
S A0.3, 1
LD M2.0
U M2.7
S A0.0, 1
S A0.2, 1
R A0.3, 1
LD M2.0
U M3.0
S A0.0, 1
S A0.2, 1
S A0.3, 1
MEND