$include (reg52.inc)

data1 equ p3.0
clock equ p3.1
load equ p3.2
off equ p3.3

mov a, #221
;acall wyslij_led
acall przelicz



clr load
setb load
clr off
sjmp $
wyslij_led:
mov r0,#08
mov dptr #tablica
movc a,@a+dptr

abc:
rrc a
mov data1,c
clr clock
setb clock
djnz r0,abc
ret
przelicz:
MOV B,#100
DIV AB
MOV R1, A
mov A, B
mov B, #10
DIV AB
mov R2, A
mov R3, B

mov a, R3
acall wyslij_led
mov a, R2
acall wyslij_led
mov a, R1
acall wyslij_led
mov a, #0
acall wyslij_led
ret

tablica:

db 0c0h
db 0f9h
db 0a4h
db 0b0h
db 099h
db 092h
db 082h
db 0f8h
db 080h
db 090h

end