实验.c

顺闪程序

       ORG OOH
       MOV TMOD,#00H
START: CLR C
       MOV A,#0FFH
       MOV R2,#08H
 LOOP: RLC A
       MOV P2,A
       MOV R3,#100
       CALL DELAY
       DJNZ R2,LOOP
       MOV R2,#07H
LOOP1: RRC A
       MOV A,P2
       MOV R3,#100
       CALL DELAY
       DJNZ R2,LOOP1
       JMP START
DELAY: SETB TR0
AGAIN:MOV TL0,#(8192-2000)%32
      MOV TH0,#(8192-2000)/32
LOOP2:JBC TF0,LOOP3
      JMP LOOP2
LOOP3:DJNZ R3,AGAIN
      CLR TR0
      RET
      END