Protokoll-Umsetzung

;===================================================
;---- Experiment: Protokoll-Umsetzung --------------
;===================================================
;
            .GLOBAL PROTOC
PROTOC:     IN      A,(DIPSW)   ;DIP-switch geändert ?
            LD      HL,DSWIMG
            CP      (HL)
            JR      Z,$1
            LD      (HL),A
            BIT     0,A         ;DART-A oder DART-B
            CALL    NZ,SETPDB
            CALL    Z,SETPDA
$1:         IN      A,(PIN)     ;Datenfluss stoppen ?
            BIT     0,A
            JR      Z,PROTOC    ;ja
            CALL    RDV24B      ;Zeichen von DART-B
            JR      C,PROTOC    ;kein Zeichen
$2:         CALL    WRV24A      ;Zeichen senden (DART-A)
            JR      C,$2        ;warten, wenn Puffer
            JR      PROTOC      ;  voll, nächste Runde
;
            .DATA
DSWIMG:     DEFB    0           ;DIP-Switch Stellung
            .CODE