Anzahl daten grösser null ermitteln

      AUF   DB    10                    //DB wo deine Werte stehen
      LAR1  P#20.0                      //Adresse im DB wo dein erster Wert zum vergleichen steht
      L     20                          //Anzahl Schleifendurchläufe
next: T     #Schleifenzaehler           //Momentaner Wert Schleifendurchläufe
      L     DBD [AR1,P#0.0]             //Lade indirekt Wert aus DB
      L     0                           //Lade 0
      ==I                               //Vergleiche Wert mit 0
      SPBN  m1                          //Wenn Wert ungleich 0 dann springe zu m1
      L     #Anzahl_Nullen              //Anzahl der Werte die Null enthalten
      L     1                           //Lade 1
      +I                                //Rechne Anzahl der Werte die Null enthalten Plus 1
      T     #Anzahl_Nullen              //Transferiere neuen Wert in Anzahl der Werte die Null enthalten
m1:   +AR1  P#4.0                       //Erhöhe das Adressregister 1 um 4Byte (für Doppelwort)
      L     #Schleifenzaehler           //Lade Momentaner Wert Schleifendurchläufe
      LOOP  next                        //Wenn Akku1 nicht null dann springe zu next

 L     DBD [AR1,P#0.0]             //Lade indirekt Wert aus DB
 L     L#0                           //Lade 0
 ==D                               //Vergleiche Wert mit 0

L     DBD [AR1,P#0.0]
L     0.000000e+000
>R