Interrupt: Empfänger DART-B voll

;===================================================
;------ INTERRUPT: CTC Kanal 0 ---------------------
;===================================================
;
IFREQ:      PUSH    AF
            LD      A,(FQHB)
            INC     A
            LD      (FQHB),A
            POP     AF
            EI
            RETI
;
;===================================================
;------ INTERRUPT: CTC Kanal 3 ---------------------
;===================================================
;
ICLOCK:     PUSH    AF
            PUSH    HL
            LD      HL,(SEK)    ;Sekundenzähler für
            DEC     HL          ;  Zeitbasis Frequenz-
            LD      (SEK),HL    ;  zähler
            LD      A,H
            OR      L
            JR      NZ,$1
            LD      HL,1000     ;neu laden
            LD      (SEK),HL
            IN      A,(CTC0)    ;Messwert übernehmen
            NEG
            LD      (FREQ),A
            LD      A,(FQHB)
            LD      (FREQ+1),A
            LD      A,0         ;Überlaufvariable
            LD      (FQHB),A    ;  rücksetzen
            LD      A,03H
            OUT     (CTC0),A
            LD      A,C5H       ;Zähler neu laden
            OUT     (CTC0),A
            LD      A,0
            OUT     (CTC0),A
;
$1:         LD      A,(HSEK)    ;Hundertstel Sekunden
            DEC     A           ;  für Stoppuhr
            LD      (HSEK),A
            JR      NZ,$2
            LOAD    HSEK,10
            LD      HL,(CLKCNT) ;clock (10 ms)
            INC     HL
            LD      (CLKCNT),HL
$2:         POP     HL
            POP     AF
            EI
            RETI
;
            .DATA
CLKCNT:     DEFW    0           ;Zähler für Uhr
HSEK:       DEFB    0           ;10 ms Zähler
SEK:        DEFW    0           ;Sekundenzähler
FREQ:       DEFW    0           ;Frequenz
FQHB:       DEFB    0           ;Overflow - Frequenz
            .CODE