READ0:  CALL READ           ; Read ADC
        MOV P1,A
        CLR C               ; Midi adjust (MSB must be 0)
        RRC A               ; Midi adjust
        MOV TP,@R0
        CJNE A,TP,SEND0
        JMP INCI            ; EQUAL read next
SEND0:  MOV @R0,A
        CALL SEND