Frequenzzähler mit CTC 0

;===================================================
;------ Experiment: Frequenzzähler mit CTC 0 -------
;===================================================
;
            .GLOBAL FQCNT
FQCNT:      LD      A,C5H       ;Zähler initial.
            OUT     (CTC0),A
            LD      A,0
            OUT     (CTC0),A
            CALL    CLKGO       ;Zeitbasis starten
            LOAD    FQHB,0      ;Overflow rücksetzen
            LD      HL,0
            LD      (FREQ),HL
            INC     HL
            LD      (LASTFQ),HL ;Anzeige erzwingen
$1:         LD      DE,(FREQ)
            LD      HL,(LASTFQ)
            XOR     A
            SBC     HL,DE
            JR      Z,$1
            LD      (LASTFQ),DE ;Anzeige nur, wenn
            EX      DE,HL       ;  Wert geändert
            ADD     HL,HL       ;Jumper J3 auf Q0
            CALL    DSPHL
            LD      C,3
            CALL    SETDP
            JR      $1
;
            .DATA
LASTFQ:     DEFW    0           ;letzter Frequenzwert
            .CODE