startvalue DATA 0x00
IRAMadres DATA 10 ;poczatek IRAM
forloop DATA 10
forcycle DATA 10  ;R7 dbajace o zakres 10-20
k DATA 10
j DATA 7
CSEG AT 0
	JMP start
CSEG AT 100h
start:
	MOV R0,#IRAMadres
	MOV R1,#forloop
	MOV DPTR,#etykieta
	MOV R2,#startvalue
	MOV R7,#forcycle

init:
    CLR A
    MOVC A,@A+DPTR
    MOV @R0,A
    INC R0
    INC DPTR
    DJNZ R1,init
	MOV R1,#IRAMadres ;poczatek adresu IRAM
	SJMP firstvalue

firstvalue:
    MOV B,#10 ; aby wybrac tablice 10-20
    MOV A,#k
    ADDC A,R2
    INC R2
    SUBB A,#j
    DIV AB
    MOV A,#IRAMadres
    ADD A,B
    MOV R0,A
    MOV A,@R0
    SJMP secondvalue
secondvalue:
    ADDC A,@R1
    SJMP random
random:
    MOV B,#4 ;nasze m
    DIV AB
    MOV A,B
    MOV @R1,A
    INC R1
    DJNZ R7, firstvalue
    SJMP cycle
cycle:
    MOV R1,#IRAMadres
    MOV R7,#forcycle
    SJMP firstvalue
etykieta:db  4, 5, 3, 3, 3, 4, 6, 2, 6,5

END