PRGSEG SEGMENT CODE

PUBLIC POTENCJOMETR

RSEG PRGSEG

POTENCJOMETR:
    MOV A,#0
    MOV DPTR,#8006H
    MOVX @DPTR,A

WAIT_DATA:
    MOV DPTR,#-120

    WAIT:
    INC DPTR
    MOV A,DPH
    ORL A,DPL

    JNZ WAIT

    MOV DPTR,#8000H
    MOVX A,@DPTR
    MOV R7,Ab
    RET

    END