Mã:
;LAPTRINH:
;==========mach chay chu led matran -LEVUONGDT=======
$mod51
org 0000h
batdau:
mov DPTR,#maled
lap:
mov r0,#30
main1:
mov r2,#24
mov r1,#16
mov r7,#8
mov b ,#0
mov r3,#7fh
main2:
mov a,r3
rl a
mov r3,a
mov p1,a
setb p3.3
setb p3.2
setb p3.3
clr p3.0
mov a,r2
movc a,@a+DPTR
mov p2,a
inc r2
acall delay
cjne r3,#07fh,main2
main3:
mov a,r3
rl a
mov r3,a
mov p1,a
clr p3.1
setb p3.0
setb p3.2
setb p3.3
mov a,r1
movc a,@a+DPTR
mov p2,a
inc r1
acall delay
cjne r3,#07fh,main3
main4:
mov a,r3
rl a
mov r3,a
mov p1,a
clr p3.2
setb p3.0
setb p3.1
setb p3.3
mov a,r7
movc a,@a+DPTR
mov p2,a
inc r7
acall delay
cjne r3,#07fh,main4
main5:
mov a,r3
rl a
mov r3,a
mov p1,a
clr p3.3
setb p3.2
setb p3.0
setb p3.1
mov a,b
movc a,@a+DPTR
mov p2,a
inc b
acall delay
cjne r3,#07fh,main5
djnz r0,main1
inc DPTR
mov a,DPL
cjne a,#192,lap
Ljmp batdau
delay:
push 04
push 05
push 06
mov r4,#4
n1:
mov r5,#4
n2:
mov r6,#4
n3:
djnz r6,n3
djnz r5,n2
djnz r4,n1
pop 06
pop 05
pop 04
ret
delay2:
mov r4,#4
m1:
mov r5,#4
m2:
mov r6,#4
m3:
djnz r6,m3
djnz r5,m2
djnz r4,m1
ret
org 800h
maled:
DB 0H,0H,0H,0H,0H,0H,0H,0H,0H,0H,0H,0H,0H,0H,0H,0H,0H ,0H,0H,0H,0H,0H,0H,0H
DB 1CH,14H,5DH,36H,1CH,8H,0H,7EH,4AH,42H,3CH,0H,7EH,8 H,8H,7EH,0H,40H,0H,3CH,42H,42H,24H,0H
DB 3CH,43H,43H,3CH,0H,7EH,4H,8H,7EH,0H,3CH,42H,52H,34 H,0H,0H,7EH,4H,8H,7EH,0H,3CH,42H,42H
DB 34H,0H,7EH,8H,8H,7EH,0H,42H,7EH,42H,0H,7EH,0CBH,4A H,0H,7EH,0AH,0AH,4H,0H,8H,8H,8H,0H
DB 2H,2H,7EH,2H,2H,7EH,0AH,0AH,4H,40H,0H,7EH,8H,8H,7E H,0H,3CH,43H,43H,3CH,0H,3CH,42H,42H
DB 24H,0H,7EH,4H,18H,4H,7EH,0H,42H,7EH,42H,0H,7EH,4H, 8H,7EH,0H,7EH,8H,8H,7EH,0H,0H,0H
DB 88H,15H,88H,15H,88H,15H,88H,15H,88H,15H,88H,15H,88 H,15H,88H,15H,88H,15H,88H,15H,88H,15H,88H,5H
DB 7EH,40H,40H,0H,7EH,4BH,4AH,0H,6H,18H,60H,18H,6H,0H ,7EH,40H,40H,7EH,1H,7EH,42H,0C3H,7EH,0H
DB 7EH,4H,8H,7EH,0H,3CH,42H,52H,34H,0H,0H,7EH,4AH,42H ,3CH,0H,2H,2H,7EH,2H,2H,0H,0H,0H
DB 7EH,4H,8H,7EH,0H,3CH,42H,52H,34H,0H,0H,7EH,4AH,42H ,3CH,0H,2H,2H,7EH,2H,2H,0H,0H,0H
DB 14H,14H,36H,1CH,8H,0H,41H,7FH,41H,0H,0H,6H,9H,11H, 21H,42H,21H,11H,9H,6H,0H,0H,1H,2H
DB 4H,0F8H,4H,2H,1H,0H,0H,0H,0H,0H,0H,0H,0H,0H,0H,0H, 0H,0H,0H,0H,0H,0H,0H,0H
end