一位数码管.asm

一位数码管一位数码管一位数码管一位数码管一位数码管

/*****************************
************欢迎访问**********
****http://2099.5d6d.com/*****
************罗列快乐**********
*****************************/
	ORG 	0000H
	LJMP	MAIN
	ORG	0030H
;字码显示主程序
MAIN: 	MOV 	R1,#00H
NEXT: 	MOV 	A,R1
	MOV 	DPTR,#TABLE
	MOVC 	A,@A+DPTR
	MOV 	P0,A
	LCALL 	DELAY;调用延时子程序
	INC 	R1
	CJNE 	R1,#16,NEXT
	LJMP 	MAIN
;延时子程序,延时100毫秒
DELAY:	MOV	R5,#100
D1:	MOV	R6,#100
D2:	MOV	R7,#50
D3:	DJNZ	R7,D3
	DJNZ	R6,D2
	DJNZ	R5,D1
	NOP
	NOP
	NOP
	RET
TABLE: 	DB 	3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH,77H,7CH,58H,5EH,79H,71H;0~9，A~F共阴极字码表
	END