KRUK-1 System alarmowania o skażeniach promieniotwórczych

Code C - [expand]
byte Tab[8] = {0, 0, 0, 0, 0, 0, 0, 0};
byte Idx = 0;
byte Mul = 1;
ON TIMER {
   Tab[Idx] = LICZNIK;
   LICZNIK = 0;
   PRINT(10 * ((SUM(Tab) * 8) / Mul))); // Zapis taki a nie inny, by dało się wykonać na 16 bitach*
   If (Mul != 8) Mul = Mul + 1; // Zwiększ Mul dopóki tablica nie będzie pełna
   Idx = (Idx + 1) & 7; // Idx jest licznikiem mod8
}

Code Basic4GL - [expand]
'Przerwanie od przepełnienia Timer1 jest generowane co 1 s
'- 8MHz/256/31250 = 1s
'Zliczenie 5 odcinków 1s da 5 sekund
 
 
$regfile = "m8def.dat"                                      'informuje kompilator o pliku
                                                                     'dyrektyw mikrokontrolera
$crystal = 8000000                                          'informuje kompilator o
                                                                     'częstotliwości oscylatora
                                                                     'taktującego mikrokontroler
Config Pind.4 = Input                                       'linia PD4 (T0) jako wejściowa
Config Timer0 = Counter , Edge = Falling                    'konfiguracja Timer0 jako licznika
                                                                     'wyzwalanego zboczem opadającym
Config Timer1 = Timer , Prescale = 256
                                                                     'konfiguracja Timer1 jako timera
                                                                     'z podziałem preskalera przez
                                                                     '256
On Timer1 Odmierz_5s                                        'przerwanie od przepełnienia
                                                                     'Timer1 o etykiecie Odmierz_5s
Dim Licz_1s As Byte                                         'zmienna pomocnicza zliczająca
                                                                      'odcinki czasu równe 1s
Dim Idx As Byte                                             'indeks pozycji zapisu mod 8 (1 - 8)
Dim I As Byte                                               'zmienna pomocnicza - iterator
Dim Div As Byte                                             'podzielnik (1 - 8)
Dim Tab(8) As Byte                                          'tablica zliczeń z 40s
Dim Res As Word                                             'wynik w nSv/h
 
For I = 1 To 8
 Tab(i) = 0                                                 'wyzerowanie tablicy zliczeń
Next
 
Idx = 1
Div = 1
 
Enable Interrupts                                           'odblokowanie globalnego systemu
                                                                      'przerwań
 
Enable Timer1                                               'odblokowanie przerwania od
                                                                      'przepełnienia Timer1
Load Timer1 = 31250                                         'wartość początkowa Timer1
 
Do                                                          'pętla nieskończona
Loop
 
End                                                         'koniec programu
 
Odmierz_5s:                                                 'początek podprogramu obsługi
                                                                  'przerwania od przepełnienia
                                                                  'Timer1
 Load Timer1 = 31250                                        'wartość początkowa Timer1
 Incr Licz_1s                                               'zwiększ o jeden wartość
                                                                  'zmiennej pomocniczej Licz_1s
 If Licz_1s = 5 Then                                        'jeżeli wartość tej zmiennej
                                                                  'równa 5 (5*1 s = 5) to
                                                                  'odliczono 5 sekund
  Licz_1s = 0                                               'zerowanie zmiennej licznikowej
 
  Tab(idx) = Tcnt0                                          'przepisanie zawartości licznika do tablicy
  Tcnt0 = 0                                                 'wyzerowanie licznika
  Res = 0                                                   'wyzerowanie wyniku
  For I = 1 To 8                                            'zsumowanie wszystkich zliczeń w ciągu ostatnich 40s
   Res = Res + Tab(i)
  Next
  Res = Res * 8                                             'przeliczenie liczby zliczeń na dawkę równoważną
  Res = Res / Div
  Res = Res * 10
  If Div < 8 Then Incr Div                                  'zwiększenie podzielnika dopuki tablica nie będzie pełna
  Incr Idx                                                  'zwiększenie wskaźnika komórki w tablicy
  If Idx = 9 Then Idx = 1                                   'modulo 8
 
 End If                                                     'koniec warunku If...Then
Return                                                      'powrót z przerwania