soncuoc2003
16-04-2013, 10:25 AM
32 Led sáng dần rồi tắt hết
ORG 00H
MAIN:
MOV A,#00H
MOV P1,#00H
MOV P2,#00H
MOV P3,#00H
LAP:
SETB C
MOV P0,A
LCALL DELAY
RLC A
JNC LAP
MOV A,#00H
LAP1:
SETB C
MOV P1,A
LCALL DELAY
RLC A
JNC LAP1
MOV A,#00H
LAP2:
SETB C
MOV P2,A
LCALL DELAY
RLC A
JNC LAP2
MOV A,#00H
LAP3:
SETB C
MOV P3,A
LCALL DELAY
RLC A
JNC LAP3
SJMP MAIN
DELAY:
PUSH 00H
MOV R0,#100
MOV TMOD,#01H
LOOP2:
MOV TH0,#0ECH
MOV TL0,#78H
SETB TR0
JNB TF0,$
CLR TR0
CLR TF0
DJNZ R0,LOOP2
POP 00H
RET
END
ORG 00H
MAIN:
MOV A,#00H
MOV P1,#00H
MOV P2,#00H
MOV P3,#00H
LAP:
SETB C
MOV P0,A
LCALL DELAY
RLC A
JNC LAP
MOV A,#00H
LAP1:
SETB C
MOV P1,A
LCALL DELAY
RLC A
JNC LAP1
MOV A,#00H
LAP2:
SETB C
MOV P2,A
LCALL DELAY
RLC A
JNC LAP2
MOV A,#00H
LAP3:
SETB C
MOV P3,A
LCALL DELAY
RLC A
JNC LAP3
SJMP MAIN
DELAY:
PUSH 00H
MOV R0,#100
MOV TMOD,#01H
LOOP2:
MOV TH0,#0ECH
MOV TL0,#78H
SETB TR0
JNB TF0,$
CLR TR0
CLR TF0
DJNZ R0,LOOP2
POP 00H
RET
END