ad lamp.asm

来自「《Proteus在MCS-51&ARM7系统中的应用百例》书中附带原程序代码」· 汇编 代码 · 共 23 行

		ORG		00H
START:	MOV		A,#0FEH		;设置输出初值
		SETB	C			;进位标志置1
S1:		MOV		P1,A	   	;输出A值
		LCALL	DELAY
		RLC		A		 	;A带进位右移
		JC		S1		   	;若移位次数达到8次,重设输出初值
		MOV		A,#7FH
		SETB	C
S2:		MOV		P1,A		;将新的A值输出
		LCALL	DELAY
		RRC		A
		JC		S2
		LJMP	START
DELAY:	MOV		R5,#20	 	;延时子程序
D1:		MOV		R6,#20
D2:		MOV		R7,#248
		DJNZ	R7,$
		DJNZ	R6,D2
		DJNZ	R5,D1
		RET
		END