Day03

流水灯移位实现

 ORG 0000H
 AJMP MAIN
 ORG 0030H
 MAIN:
      MOV P0,#00H
      LCALL DELAY
      LCALL DELAY
      LCALL DELAY;延时一段时间
      
      MOV A,#7FH//奇怪的是只能设置#7F
      MOV R2,#09H;循环9次
 LOOP1:
       MOV P0,A
       LCALL DELAY
       LCALL DELAY
       LCALL DELAY
       RL A;循环右移
       DJNZ R2,LOOP1
       AJMP MAIN
 DELAY:
       MOV R7,#00H
 TT:   MOV R6,#00H
       DJNZ R6,$
       DJNZ R7,TT
       RET
       END

双灯移动

 ORG 0000H
 AJMP MAIN
 ORG 0030H
 MAIN:
      MOV P0,#01010101B
      LCALL DELAY
      LCALL DELAY
      LCALL DELAY
      MOV A,#11000000B
      MOV R2,#08H
 LOOP1:
       MOV P0,A
       LCALL DELAY
      LCALL DELAY
      LCALL DELAY
      RR A;左移改成RL即可
      DJNZ R2,LOOP1
      AJMP MAIN
 DELAY:
       MOV R7,#00H
 TT:   MOV R6,#00H
       DJNZ R6,$
       DJNZ R7,TT
       RET 
       END