tp1a.asm

来自「MCS-51单片机实验 39个实用实验和源码」· 汇编 代码 · 共 22 行

        ORG     0000H
        LJMP    START
        ORG     0040H
START:
        MOV     SP,#60H	
        MOV     A,#0FEH
ROTATE: MOV     P1,A            ;写 P1口
        RL      A               ;循环左移
        LCALL   DELAY           ;延时
        NOP
        SJMP    ROTATE

DELAY:                          ;延时子程序(1秒)
        MOV     R0,#0AH
DELAY1: MOV     R1,#00H
DELAY2: MOV     R2,#0B2H
        DJNZ    R2,$
        DJNZ    R1,DELAY2
        DJNZ    R0,DELAY1
        RET
        END