Zeichen seriell empfangen

;===================================================
;---- Experiment: Zeichen seriell empfangen --------
;===================================================
;
            .GLOBAL BYTREC
BYTREC:     LD      HL,DSIMG    ;DIPSW geändert ?
            IN      A,(DIPSW)
            CP      (HL)
            LD      (HL),A
            CALL    NZ,SETDSW   ;ja, neues Protokoll
            CALL    RDV24A      ;Zeichen einlesen
            JR      C,BYTREC    ;kein Zeichen
            OUT     (POUT),A    ;Zeichen auf LEDs
            JR      BYTREC      ;nächstes Zeichen