4信号灯的控制2c.asm

来自「学习单片机的程序与电路」· 汇编 代码 · 共 31 行

;------------------------------------------------------
;程序3:使8个发极管顺序点亮
;------------------------------------------------------
	LED_PORT	EQU	P1
	
	ORG	0000H
	LJMP	START
	
	ORG	0100H
START:
	CLR	EA			;关闭所有中断
	MOV	R2,#08H			;设置循环次数
	MOV	A,#0FEH			;送显示模式字
NEXT:
	MOV	LED_PORT,A		;点亮连接的发光二极管
	LCALL	DELAY
	RL	A			;左移一位　改变显示模式字
	DJNZ	R2,NEXT			;循环次数减1不为零　继续点亮下面一个二极管
	SJMP	START
DELAY:
	MOV	R3,#0FFH		;延时子程序开始
DEL2:
	MOV	R4,#0FFH
DEL1:
	NOP
	DJNZ	R4,DEL1
	DJNZ	R3,DEL2
	RET
	END