tranquangquoc
16-04-2013, 10:26 AM
Bài tập 8 Led sáng dồn
http://youtu.be/mWp0fJzZmk4
$MOD51
ORG 00H
MAIN:
ACALL SANGDON
SJMP MAIN
SANGDON:
MOV R7,#3
SOLAN5:
MOV R0,#08H
MOV R1,#00H
LAP4:
MOV R2,00H
MOV R3,#01H
LAP5:
MOV A,R3
ORL A,R1
MOV P0,A
ACALL DELAY
MOV A,R3
RL A
MOV R3,A
DJNZ R2,LAP5
DEC R0
SETB C
MOV A,R1
RRC A
MOV R1,A
CJNE R0,#00H,LAP4
MOV P0,#00H
ACALL DELAY
DJNZ R7,SOLAN5
RET
DELAY:
PUSH 00H
MOV R0,#100
MOV TMOD,#01H
LOOP2:
MOV TH0,#HIGH(-5000)
MOV TL0,#LOW(-5000)
SETB TR0
JNB TF0,$
CLR TR0
CLR TF0
DJNZ R0,LOOP2
POP 00H
RET
END
Link Mediafire (http://www.mediafire.com/?zhd3vldmmic1fc3)
http://youtu.be/mWp0fJzZmk4
$MOD51
ORG 00H
MAIN:
ACALL SANGDON
SJMP MAIN
SANGDON:
MOV R7,#3
SOLAN5:
MOV R0,#08H
MOV R1,#00H
LAP4:
MOV R2,00H
MOV R3,#01H
LAP5:
MOV A,R3
ORL A,R1
MOV P0,A
ACALL DELAY
MOV A,R3
RL A
MOV R3,A
DJNZ R2,LAP5
DEC R0
SETB C
MOV A,R1
RRC A
MOV R1,A
CJNE R0,#00H,LAP4
MOV P0,#00H
ACALL DELAY
DJNZ R7,SOLAN5
RET
DELAY:
PUSH 00H
MOV R0,#100
MOV TMOD,#01H
LOOP2:
MOV TH0,#HIGH(-5000)
MOV TL0,#LOW(-5000)
SETB TR0
JNB TF0,$
CLR TR0
CLR TF0
DJNZ R0,LOOP2
POP 00H
RET
END
Link Mediafire (http://www.mediafire.com/?zhd3vldmmic1fc3)