ttpgomynghe
16-04-2013, 10:25 AM
Bài tập 16 Led sáng đuổi
http://youtu.be/ll5Fd4xWj0s
$MOD51
ORG 00H
MAIN:
MOV P0,#00H
MOV P1,#00H
MOVA,#01H
MOVR1,#00H
LOOP1:
MOV P0,A
LCALL DELAY
RL A
INC R1
CJNE R1,#8,LOOP1
MOV P0,#00H
MOVA,#01H
LOOP2:
MOV P1,A
LCALL DELAY
RLA
INC R1
CJNE R1,#16,LOOP2
SJMP MAIN
DELAY:
PUSH 00H
MOV R0,#100
MOV TMOD,#01H
LOOP_DELAY:
MOV TH0,#HIGH(-5000)
MOV TL0,#LOW(-5000)
SETB TR0
JNB TF0,$
CLR TR0
CLR TF0
DJNZ R0,LOOP_DELAY
POP 00H
RET
END
Link Mediafire (http://www.mediafire.com/?bhpr97r92nhlv24)
http://youtu.be/ll5Fd4xWj0s
$MOD51
ORG 00H
MAIN:
MOV P0,#00H
MOV P1,#00H
MOVA,#01H
MOVR1,#00H
LOOP1:
MOV P0,A
LCALL DELAY
RL A
INC R1
CJNE R1,#8,LOOP1
MOV P0,#00H
MOVA,#01H
LOOP2:
MOV P1,A
LCALL DELAY
RLA
INC R1
CJNE R1,#16,LOOP2
SJMP MAIN
DELAY:
PUSH 00H
MOV R0,#100
MOV TMOD,#01H
LOOP_DELAY:
MOV TH0,#HIGH(-5000)
MOV TL0,#LOW(-5000)
SETB TR0
JNB TF0,$
CLR TR0
CLR TF0
DJNZ R0,LOOP_DELAY
POP 00H
RET
END
Link Mediafire (http://www.mediafire.com/?bhpr97r92nhlv24)