network 1
LAR1 P#0.0 // init AR1
L 1138 // letztes Byte vom Instanz-DB
looD: T #loopDelete
SLW 3 // Pointer generieren
LAR1
L 0
T DIB [AR1,P#0.0] // Byte im Instanz-DB abloeschen
L #loopDelete // loopcounter Instanz-DB laden
LOOP looD
L #loopDelete
DEC 1
LAR1
SLW 3
L 0
T DIB [AR1,P#0.0]
network 2
L DB7.DBW 168
T #ChanNo
network 3
L #ChanNo // vorhandene Kanaele
loo1: T #loopC
L 20
+I
T #tempChan
OPN DB [#tempChan]
LAR1 P#0.0 // init AR1
LAR2 P#0.0 // init AR2
L 5 // max. 5 M-Fkt pro NC-Satz
loo2: T #loopM
AN DBX [AR1,P#58.0] // Aenderungssignal, AR1 wird inkrementiert
JC x001
L DBB [AR2,P#68.0] // Erweiterung, M0= M1= M2= M3= M4= usw.
OW W#16#0
JN x002 // springe wenn Erweiterung <>0
L DBD [AR2,P#70.0] // M-Wert [100..999], Mxxx
L 100
<D // M-Funktion >99 ?
JC x002
-D // M100 auf erstes Bit "schieben"
TAR1 #ar1_rett
LAR1
L #tempChan
L 21
-I
L 114 // Laenge Bitleiste fuer 1 Kanal
*I // Offset fuer aktuellen Kanal generieren
SLW 3 // Pointer generieren
+AR1
SET // VKE = 1
S DIX [AR1,P#0.0] // Bit im Instanz-DB setzen
LAR1 #ar1_rett // zwischengespeichertes AR1 zurueckschreiben
x002: +AR1 P#0.1 // naechstes Aenderungssignal
+AR2 P#6.0 // naechste M-Fkt
L #loopM // loopcounter M-Fkt laden
LOOP loo2
x001: NOP 0
L #loopC // loopcounter Chan laden
LOOP loo1
BEU