实验.asm

顺闪程序

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