org 0000h
ljmp main
org 000bh
ljmp xx0
org 1000h
main:
mov a,#0ffh
mov p0,a
mov p1,a
mov a,#00h
mov p2,a
setb ex0
setb ea
ajmp main
dd3: ljmp dd4
xx0: jnb p3.4,dd0
jnb p3.5,dd1
jnb p3.6,dd2
jnb p3.7,dd3
dd0: mov a,#06h
mov p2,a
mov a,#00h
mov p0,a
mov p1,a
jb p3.4,loop1
ajmp dd0
dd1: mov a,#5bh
mov p2,a
mov a,#0feh
mov r0,#8
cc1:
mov p0,a
rl a
lcall del
djnz r0,cc1
setb p0.7
mov r0,#8
mov a,#0feh
cc2:
mov p1,a
rl a
lcall del
djnz r0,cc2
setb p1.7
jb p3.5,loop1
ajmp dd1
loop1: reti
dd2: mov a,#4fh
mov p2,a
mov a,#0ffh
mov p0,a
mov p1,a
clr p0.0
lcall del
clr p0.1
lcall del
clr p0.2
lcall del
clr p0.3
lcall del
clr p0.4
lcall del
clr p0.5
lcall del
clr p0.6
lcall del
clr p0.7
lcall del
clr p1.0
lcall del
clr p1.1
lcall del
clr p1.2
lcall del
clr p1.3
lcall del
clr p1.4
lcall del
clr p1.5
lcall del
clr p1.6
lcall del
clr p1.7
lcall del
jb p3.6,loop2
ajmp dd2
dd4: mov a,#66h
mov p2,a
mov a,#0ffh
mov p0,a
mov p1,a
clr p0.0
lcall del
clr p0.2
lcall del
clr p0.4
lcall del
clr p0.6
lcall del
clr p1.0
lcall del
clr p1.2
lcall del
clr p1.4
lcall del
clr p1.6
lcall del
clr p0.1
lcall del
clr p0.3
lcall del
clr p0.5
lcall del
clr p0.7
lcall del
clr p1.1
lcall del
clr p1.3
lcall del
clr p1.5
lcall del
clr p1.7
lcall del
jb p3.7,loop2
ajmp dd3
loop2: reti
DEL: MOV R7,#250
DEL1: MOV R6,#200
DEL2: MOV R5,#1
DEL3: DJNZ R5,DEL3
DJNZ R6,DEL2
DJNZ R7,DEL1
RET
end