org 0000h
mov psw,#00h
mov a,#00h
setb c
mov r3,#70h
mov r4,#70h
x1: mov p2,#01h ; p2 display select
mov p0,#00h ; p0 segments
acall del
mov p0,#44h
acall del
mov p2,#02h
mov p0,#00h
acall del
mov p0,#3dh
acall del
mov p2,#04h
mov p0,#00h
acall del
mov p0,#7ch
acall del
mov p2,#08h
mov p0,#00h
acall del
mov p0,#4eh
acall del
jnc x2
djnz r3,x3
ajmp x4
x3: mov p2,#80h
mov p0,#00h
acall del
mov p0,#7ah
acall del
ajmp x5
x2: djnz r4,x5
cpl c
mov r4,#70h
ajmp x5
x4: mov r3,#70h
cpl c
x5: mov p2,#40h
mov p0,#00h
acall del
mov p0,#7bh
acall del
mov p2,#20h
mov p0,#00h
acall del
mov p0,#54h
acall del
mov p2,#10h
mov p0,#00h
acall del
mov p0,#7fh
acall del
ajmp x1
del: mov b,#7fh
djnz b,$
ret
end |