Zeichen seriell senden

;===================================================
;---- Experiment: Zeichen seriell senden -----------
;===================================================
;
            .GLOBAL BYTSND
BYTSND:     LD      HL,DSIMG    ;DIPSW geändert ?
            IN      A,(DIPSW)
            CP      (HL)
            LD      (HL),A
            CALL    NZ,SETDSW   ;ja, neues Protokoll
            IN      A,(PIN)     ;Tasten einlesen
            CALL    WRV24A      ;serielle Ausgabe
            LD      HL,4000     ;70 ms warten
            CALL    DELAY
            JR      BYTSND      ;nächste Runde
;
            .DATA
DSIMG:      DEFB    0           ;DIPSW-Einstellung
            .CODE