汇编语言设计按键控制LED位移

汇编语言设计按键控制LED位移

要求：

proteus仿真电路图

Keil uVision汇编语言代码

      ORG 0000H
      JMP MAIN
      ORG 0030H
 MAIN:MOV SP, #70H
      ORL PSW, #08H
      MOV 00H, #07FH
      MOV 01H, #0BFH
      MOV 02H, #0DFH
      MOV 03H, #0EFH
      MOV 04H, #0F7H
      MOV 05H, #0FBH
      MOV 06H, #0FDH
      MOV 07H, #0FEH
      MOV R0, #0
      MOV R1, #0
 LOOP:MOV P0, @R0
      MOV P2, @R1
      MOV A, P1
      ORL A, #0FH
      CPL A
      JZ LOOP
      CALL DELAY
      MOV A, P1
      ORL A, #0FH
      CPL A
      JZ LOOP
      MOV B, A
   W1:MOV A, P1
      ORL A, #0FH
      CPL A
      JNZ W1
      JB B.4, Z_R0
      JB B.5, J_R0
      JB B.6, Z_R1
      JB B.7, J_R1
      JMP LOOP
 Z_R0:INC R0
      ANL 08H, #07H
      JMP LOOP
 J_R0:DEC R0
      ANL 08H, #07H
      JMP LOOP
 Z_R1:INC R1
      ANL 09H, #07H
      JMP LOOP
 J_R1:DEC R1
      ANL 09H, #07H
      JMP LOOP
DELAY:MOV R6, #10
      DJNZ R7, $
      DJNZ R6, $ - 2
      RET
      END

希望有所帮助