bufor DATA 50h   //od 50h do 59h
przekroczeniebufora DATA 5ah //to co jest po 59h
k EQU 10
roznica EQU 3
ilosczmiennych EQU 10
reszta EQU 4

CSEG AT 0
JMP start
CSEG AT 200
	start:
acall inicjalizacja
acall losowanie
	inicjalizacja:
MOV DPTR,#poczatkowe
MOV R7,#k
MOV R0,#bufor
MOV A,R0
ADD A,#roznica
MOV R1,A
CLR A
	tu:
MOVC A,@A+DPTR
MOV @R0,A
INC R0
INC DPTR
CLR A
DJNZ R7,tu
ret

losowanie:
CLR A
ADD A,R1
CJNE A,#przekroczeniebufora,skok
mov r1,#bufor
skok:
clr A
ADD A,r0
CJNE A,#przekroczeniebufora,skok2
mov r0,#bufor
skok2:
mov A,@r1
add A,@r0
mov B,#reszta
div AB
mov A,B  //zapisane w A
mov @r0,A
inc r1
inc r0
jmp losowanie
	poczatkowe: db 4,5,3,3,3,4,6,2,6,5
END