graph led.asm

Proteus在MCS-51％26ARM7系统中的应用百例 Proteus在MCS-51％26ARM7系统中的应用百例

TCOUNT 	EQU 	30H
R_CNT 	EQU 	31H
NUMB	EQU 	32H
KEY		BIT		P1.7
		ORG 	00H
		LJMP 	START
		ORG 	0BH
		LJMP 	INT_T0
START: 	MOV 	TCOUNT,#00H
		MOV 	R_CNT,#00H
		MOV 	NUMB,#00H
		MOV 	TMOD,#01H
		MOV 	TH0,#(65536-4000)/256	   	;定时4毫秒
		MOV 	TL0,#(65536-4000) MOD 256
WAIT:	JB		KEY,$
		CALL	DELAY
		JB		KEY,$						;等待按键
		SETB 	TR0
		MOV		IE,#82H

		JNB		KEY,$						;等待键抬起
		MOV		R_CNT,#00H
		CLR		TR0
		INC		NUMB						;记录按键次数
		MOV		A,NUMB
		CJNE	A,#3,WAIT
		LJMP	START

INT_T0:	MOV 	TH0,#(65536-4000)/256
		MOV 	TL0,#(65536-4000) MOD 256
		MOV		DPTR,#TABLE
		MOV		A,R_CNT
		MOVC	A,@A+DPTR				 	;查列码
		MOV		P3,A
		MOV		DPTR,#GRAPH
		MOV		A,NUMB						;根据按键次数查行码
		MOV		B,#8
		MUL		AB
		ADD		A,R_CNT
		MOVC	A,@A+DPTR
		CPL		A							;输出行码显示
		MOV		P0,A
		INC		R_CNT
		MOV		A,R_CNT
		CJNE	A,#8,RETUNE
		MOV		R_CNT,#00H
RETUNE:	RETI

DELAY:	MOV		R6,#20
D1:		MOV		R7,#250
		DJNZ	R7,$
		DJNZ	R6,D1
		RET
		
TABLE:	DB		080H,040H,020H,010H,008H,004H,002H,001H
GRAPH:	DB		12H,14H,3CH,48H,3CH,14H,12H,00H
		DB		00H,38H,44H,44H,44H,38H,00H,00H
		DB		30H,48H,44H,22H,44H,48H,30H,00H

		END