;Tabela liczb przypadkowych
include REG515.INC

code at 00h
ljmp start

code at 1000h
start:
mov DPTR,#0000h
movx a,@DPTR
mov R0,a

mov DPTR,#0001h
movx a,@DPTR
mov R1,a

mov DPTR,#0002h
movx a,@DPTR
mov R2,a

mov DPTR,#0003h
movx a,@DPTR
mov R3,a

mov DPTR,#0008h
movx a,@DPTR
mov R4,a

mov DPTR,#0009h
movx a,@DPTR
mov R5,a

mov DPTR,#000Ah
movx a,@DPTR
mov R6,a

mov DPTR,#000Bh
movx a,@DPTR
mov R7,a

ljmp konwersja_1


loop: ljmp loop
;---------------------------------------------------------
;konwersja 1
;---------------------------------------------------------
konwersja_1:
mov a,R1
subb a,#30h
mov R1,a

mov a,R2
subb a,#30h
mov R2,a

cjne R2,#0CFh,mnoz_R1
ljmp po_konwersji_1

dajR3:
mov a,R3
subb a,#30h
mov R3,a

cjne R3,#0CFh,mnoz_R2
ljmp po_konwersji_1

mnoz_R1:
mov a,R1
mov b,#0Ah
mul ab
mov R1,a
ljmp dajR3

mnoz_R2:
mov a,R1
mov b,#0Ah
mul ab
mov R1,a

mov a,R2
mov b,#0Ah
mul ab
mov R2,a

po_konwersji_1:
mov a,R1
cjne R2,#0CFh,dodaj_R2
ljmp po_dodaniu_1

dodaj_R2:
add a,R2
cjne R3,#0CFh,dodaj_R3
ljmp po_dodaniu_1

dodaj_R3:
add a,R3

po_dodaniu_1:
mov R1,a
ljmp konwersja_2


;---------------------------------------------------------
;konwersja 2
;---------------------------------------------------------
konwersja_2:
mov a,R5
subb a,#30h
mov R5,a

mov a,R6
subb a,#30h
mov R6,a

cjne R6,#0CFh,mnoz_R5
ljmp po_konwersji_2

dajR7:
mov a,R7
subb a,#30h
mov R7,a

cjne R7,#0CFh,mnoz_R6
ljmp po_konwersji_2

mnoz_R5:
mov a,R5
mov b,#0Ah
mul ab
mov R5,a
ljmp dajR7

mnoz_R6:
mov a,R5
mov b,#0Ah
mul ab
mov R5,a

mov a,R6
mov b,#0Ah
mul ab
mov R6,a

po_konwersji_2:
mov a,R5
cjne R6,#0CFh,dodaj_R6
ljmp po_dodaniu_2

dodaj_R6:
add a,R6
cjne R7,#0CFh,dodaj_R7
ljmp po_dodaniu_2

dodaj_R7:
add a,R7

po_dodaniu_2:
mov R5,a

loop_2: ljmp loop_2

;---------------------------------------------------------
;dodawanie
;---------------------------------------------------------
dodawanie:
mov a, R1
add a,R3
mov R6,a

mov a,R0
addc a,R2
mov R5,a

clr a
jc dodawanie_za_duzo
ljmp wynik_dod

dodawanie_za_duzo:
mov R5,#00FFh
mov R6,#00FFh
ljmp wynik_dod

wynik_dod:
mov DPTR,#0018h
mov a,R5
movx @DPTR,a

mov DPTR,#0019h
mov a,R6
movx @DPTR,a
ljmp odejmowanie
;---------------------------------------------------------
;odejmowanie
;---------------------------------------------------------
odejmowanie:
clr c
mov a, R1
subb a,R3
mov R6,a

mov a,R0
subb a,R2
mov R5,a

clr a
jc odejmowanie_pon_zera
ljmp wynik_od

odejmowanie_pon_zera:
mov R5,#0000h
mov R6,#0000h
ljmp wynik_od

wynik_od:
mov DPTR,#0020h
mov a,R5
movx @DPTR,a

mov DPTR,#0021h
mov a,R6
movx @DPTR,a
ljmp loop