右移子程序.asm

来自「8个汇编程序」· 汇编 代码 · 共 29 行

SAMP1     EQU      0130H
SAMP2     EQU      0131H          
          ORG 0000H
          LJMP 0100H
          ORG 0100H
          SETB P1.3
          SETB P1.4
          SETB P1.5
          CLR P2.7
MAIN:     MOV DPTR,#SAMP1
          MOV A,#0F0H
          MOVX @DPTR,A
          INC DPTR
          MOV A,#00H
          MOVX @DPTR,A
          MOV R0,#02H
          MOV DPTR,#SAMP1
 RSHIFT:  CLR C
          MOVX A,@DPTR
          RRC A
          MOVX @DPTR,A
          INC DPTR
          MOVX A,@DPTR
          RRC A
          MOVX @DPTR,A
          DEC DPL
          DJNZ R0,RSHIFT
          SJMP $
          END