PRGSEG          SEGMENT CODE

        PUBLIC potencjometr


        RSEG    PRGSEG


        PTAC  equ  8000H
        POT0  equ  8005H


            petl:



            potencjometr:
        MOV  R7,#0  // mov-przeniesienie r7-rejestr
        mov  DPTR,#POT0 //dptr - rejestr o duzej pojemnosci x2 weikszy
        movx @DPTR,A // pod A przypisuje wartosc dprt
        lcall _opz_ // wywolanie podfunkcji opoznienia
        mov  DPTR,#PTAC // dptr - rejestr o duzej pojemnosci x2 wiekszy
        movx A,@DPTR // odczyt wartosci z potencjometru
        MOV  R7,A // przekazanie warosci do rejestru r7, ktory odczytuje kod w c

        ret // powrot



            _opz_:

            MOV DPTR, #-5500 //opoznienie

            opz:

            INC DPTR  // dodaje 1 do -5500
            MOV A, DPH //
            ORL A, DPL //
            JNZ opz // jesli w A(akumulatorze) nie 0 to skocz do opz
            RET //powrot do lcall




END