MVI D,01
x:   MOV A,D
     OUT 02
     MOV D,A
     IN 01
     ADI 00
     MOV E,A

     JZ x ; Wenn keine Eingabe
          ; Zurück zu x

     MOV A,E
     CPI 01
     JZ SL
     CPI 02
     JZ SR
     MVI E,00
     JMP x


SR:  MOV A,D
     OUT 02
     RRC
     MOV D,A
     JMP x


SL:  MOV A,D
     OUT 02
     RLC
     MOV D,A
     JMP x