PRGSEG          SEGMENT CODE

        PUBLIC potencjometr


        RSEG    PRGSEG


        PTAC  equ  8000H
        POT0  equ  8005H


            petl:



            potencjometr:
        MOV  R7,#0
        mov  DPTR,#POT0
        movx @DPTR,A
        lcall _opz_
        mov  DPTR,#PTAC
        movx A,@DPTR
        MOV  R7,A

        ret



            _opz_:

            MOV DPTR, #-5500

            opz:

            INC DPTR
            MOV A, DPH
            ORL A, DPL
            JNZ opz
            RET




END