org 0
mov a,#0
mov r0,#0
mov r1,#0
mov r2,#0
mov r3,#0
mov r4,#0
mov r5,#0
mov r6,#0
mov r7,#0

start:

zliczanie:

mov dptr,#jednostki ;zapisanie do rejestru pomocniczej danej
mov a,r0

movc a,@a+dptr
mov r0,a

jnz koniec

mov dptr,#jednostki
mov a,r1

movc a,@a+dptr
mov r1,a

jnz koniec
lcall opoznienie
koniec:


wysw:

mov dpl,#0
mov dph,#250
lcall opoznienie

mov P1,#0
mov a,r0
mov dptr,#led
movc a,@a+dptr
mov dptr,#8018h
movx @dptr,a ;petla op
mov dpl,#0
mov dph,#250
lcall opoznienie

mov P1,#1
mov a,r1
mov dptr,#led
movc a,@a+dptr
mov dptr,#8018h
movx @dptr,a


ljmp start

jednostki:
db 1,2,3,4,5,6,7,8,9,0

led:
db 3Fh,06h,5Bh,4Fh,66h,6Dh,7Dh,07h,7Fh,6Fh,0

opoznienie:

inc dptr
mov a,dpl
orl a,dph
jnz opoznienie
ret

end