32 Led sáng dần rồi tắt hết

[soncuoc2003]

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

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