Zähler

;===================================================
;---- Experiment: Zähler ---------------------------
;===================================================
;
            .GLOBAL EXPCNT
EXPCNT:     LD      C,0         ;Zähler initial.
$L1:        LD      A,C         ;Zähler in A laden
            OUT     (POUT),A    ;auf POUT ausgeben
            INC     C
            IN      A,(PIN)     ;Verzögerung von PIN
            LD      H,A         ;Wert in HL bringen
            LD      L,0
            CALL    DELAY       ;Verzögerung ausführen
            JR      $L1         ;Schleife