Sinusgenerator, Version B

;===================================================
;---- Experiment: Sinusgenerator, Version B --------
;===================================================
;
            .GLOBAL LFLSIN
LFLSIN:     LD      HL,SINTAB   ;Sinustabelle laden
            LD      DE,FNCBUF
            LD      BC,512
            LDIR
            LD      HL,FNCBUF   ;Zeiger initialisieren
            LD      (FBFPOI),HL
            LD      A,1         ;Bit 0 = 1
$1:         OUT     (POUT),A    ;Ausgabe auf LEDs
            RLCA                ;Bit rotieren
            LD      HL,10000    ;70 ms warten
            CALL    DELAY
            JR      $1          ;unendliche Schleife