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