org 00h
sjmp start
org 30h
start:
mov P2,#00h
start1:
mov r1,#00h
mov dptr,#table
next:
mov a,p1
cpl a
jz next
mov r5,#1
acall delay
mov a,p1
cpl a
jz next
clr c
shift:
rrc a
jc display
inc r1
sjmp shift
display:
mov a,r1
movc a,@a+dptr
mov p2,a
again:
mov a,p1
cpl a
jnz again
sjmp start1
delay:mov r6,#50
d1: mov r7,#100
djnz r7,$
djnz r6,d1
djnz r5,delay
ret
table:db 3fh,06h,5bh,4fh,66h,6dh,7dh,07h
end