led.asm

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

		ORG 	00H
START: 	MOV 	DPTR,#TABLE			  ;指针指向表头地址
S1:		MOV		A,#00H				  ;设置地址偏移量
		MOVC	A,@A+DPTR			  ;查表取得段码,送A存储
		CJNE	A,#01H,S2			  ;判断段码是否为结束符
		LJMP	START
S2:		MOV		P0,A				  ;段码送LED显示
		LCALL	DELAY				  ;指针加1
		INC		DPTR
		LJMP	S1


DELAY: 	MOV 	R5,#20				  ;延时子程序
D2: 	MOV 	R6,#20
D1: 	MOV 	R7,#248
		DJNZ 	R7,$
		DJNZ 	R6,D1
		DJNZ 	R5,D2
		RET							  
TABLE: 	DB 		3FH,06H,5BH,4FH,66H	  ;段码表
		DB		6DH,7DH,07H,7FH,6FH
		DB		01H					  ;结束符
		END