ad lamp(table).asm

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

		ORG 	00H
START: 	MOV 	DPTR,#TABLE		;数据指针指向表头地址
S1:		MOV		A,#00H			;设置地址偏移量
		MOVC	A,@A+DPTR		;根据DPRT到表内取显示码
		CJNE	A,#01H,S2		;判断是否是结束码
		LJMP	START
S2:		MOV		P1,A			;将取到的显示码送P1口显示
		LCALL	DELAY
		INC		DPTR			;数据指针加1
		LJMP	S1
DELAY:	MOV		R5,#20			;延时子程序
D1:		MOV		R6,#20
D2:		MOV		R7,#248
		DJNZ	R7,$
		DJNZ	R6,D2
		DJNZ	R5,D1
		RET
TABLE:	DB 0FEH,0FDH,0FBH,0F7H 	;显示码表
		DB 0EFH,0DFH,0BFH,07FH
		DB 0FEH,0FDH,0FBH,0F7H
		DB 0EFH,0DFH,0BFH,07FH
		DB 07FH,0BFH,0DFH,0EFH
		DB 0F7H,0FBH,0FDH,0FEH
		DB 07FH,0BFH,0DFH,0EFH
		DB 0F7H,0FBH,0FDH,0FEH
		DB 00H, 0FFH,00H, 0FFH
		DB 01H
		END