Lauflicht

;===================================================
;---- Experiment: Lauflicht ------------------------
;===================================================
;
            .GLOBAL LAUFL
LAUFL:      LD      A,1         ;Initialisierung
$L1:        OUT     (POUT),A    ;Ausgabe auf POUT
            RRCA                ;Bit schieben
            LD      HL,10000    ;Länge der Verzögerung
            CALL    DELAY
            JR      $L1         ;Endlosschleife
;
;===================================================
;------ Verzögerung --------------------------------
;===================================================
;
;ENTRY:     HL ... Zahl der Schleifendurchläufe
;EXIT:      Verzögerung um 26*HL + 47 Takte,
;           falls keine Wartezyklen etc. aufgetreten sind
;
            .GLOBAL DELAY
DELAY:      PUSH    AF          ;Wert von AF sichern
            PUSH    HL          ;Wert von HL sichern
$1:         DEC     HL
            LD      A,L         ;Test, ob HL=0
            OR      H
            JR      NZ,$1       ;Schleife, falls HL<>0
            POP     HL          ;alten Wert von HL und
            POP     AF          ;  AF wiederherstellen
            RET