Bài tập 16 Led sáng đuổi

[ttpgomynghe]

Hệ thống quảng cáo SangNhuong.com

Bài tập 16 Led sáng đuổi

[video=youtube_share;ll5Fd4xWj0s]http://youtu.be/ll5Fd4xWj0s[/video]

$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