PROGRAM TO DISPLAY NO.1 TO 8 ON 7-SEGMENT WITH BLINKING SEGMENT NO.5

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