led_24c02.a

来自「基于单片机的汇编程序」· A 代码 · 共 54 行

ORG 0030H
TABLE: DB 3fh,06h,5bh,4fh,66h,6dh,7dh,07h,7fh,6fh,40h,00h
L_24C02: DB 5bH,66H,39H,3fH,5bH
ORG 0000H
LJMP MAIN
/*本例的显示用两种方式，一种为查表输出，另一种为定义好数码段直接输出*/

/*ORG 0200H
MAIN:	MOV 30H,#1
	MOV 31H,#2
	MOV 32H,#3
L0:	MOV R0,#30H
	MOV R7,#3
	LCALL DISPLAY
	SJMP L0*/

ORG 0200H
MAIN:   MOV DPTR,#L_24C02
	MOV R7,#5
	LCALL DISPLAYSTR
	SJMP MAIN

DISPLAY:MOV DPTR,#TABLE 
	MOV P2,#0
	ANL P1,#0F8H
L2:	MOV A,@R0
	MOVC A,@A+DPTR
	MOV P2,A
	LCALL DELAY
	MOV P2,#0
	INC P1
	INC R0
	DJNZ R7,L2
	RET

DISPLAYSTR:
	MOV P2,#0
	MOV R6,#0
	ANL P1,#0F8H
L3:	CLR A
	MOVC A,@A+DPTR
	MOV P2,A
	LCALL DELAY
	MOV P2,#0
	INC P1
	INC DPTR
	DJNZ R7,L3
	RET
	
DELAY:	MOV R5,#20
D1:	DJNZ R5,D1
	RET	
	
END