8x15d测架(touch).asm

金鹏液晶D系列触摸屏源程序

		MOV	A,TOUCH_XH1
		RL	A
		RL	A
		MOV	TOUCH_XH,A
		ANL	TOUCH_XH,#03H
		ANL	A,#0FCH
		ORL	A,TOUCH_XL1
		MOV	TOUCH_XL,A
		RET
;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
TOUCH_TEST:	MOV	REGNAME,#0C0H
		LCALL	REG_READ
		ANL	REGDATA1,#0F8H
		ORL	REGDATA1,#08H
		MOV	REGDATA,REGDATA1
		LCALL	REG_WRITE

		LCALL	DELAY1

		MOV	REGNAME,#0C1H
		LCALL	REG_READ

		MOV	REGNAME,#0C0H
		ANL	REGDATA,#0F7H
		LCALL	REG_WRITE

		MOV	A,REGDATA1
		RET
;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
TOUCH_DISP:	LCALL	WR_ZB
		ORL	HEX_H,#30H
		MOV	A,HEX_H
		LCALL	DDR_WRITE

		MOV	A,HEX_L
		SWAP	A
		LCALL	TOUCH_DISP1

		MOV	A,HEX_L
		LCALL	TOUCH_DISP1
		RET

TOUCH_DISP1:	ANL	A,#0FH
		MOV	B,A
		CLR	C
		SUBB	A,#0AH
		MOV	A,B
		JC	TOUCH_DISP11

		ADD	A,#37H
		AJMP	TOUCH_DISP12
TOUCH_DISP11:	ADD	A,#30H
TOUCH_DISP12:	LCALL	DDR_WRITE
		RET
;****************************************************
LCM_INIT:	MOV	COUNT1,#00H			;初始化
		MOV	COUNT2,#27H
LCM_INIT1:	MOV	DPTR,#INITTAB1
		MOV	A,COUNT1
		MOVC	A,@A+DPTR
		MOV	REGNAME,A
		MOV	DPTR,#INITTAB2
		MOV	A,COUNT1
		MOVC	A,@A+DPTR
		MOV	REGDATA,A
		LCALL	REG_WRITE
		INC	COUNT1
		DJNZ	COUNT2,LCM_INIT1
		RET
;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
LCM_CLR:	MOV	REGNAME,#0E0H			;清屏
		MOV	REGDATA,#00H
		LCALL	REG_WRITE
		MOV	REGNAME,#0F0H
		LCALL	REG_READ
		MOV	A,REGDATA1
		ORL	A,#08H
		MOV	REGDATA,A
		MOV	REGNAME,#0F0H
		LCALL	REG_WRITE

		MOV	REGNAME,#00H
		MOV	REGDATA,#0C5H
		LCALL	REG_WRITE
		MOV	LCM_X,#00H
		MOV	LCM_Y,#00H
		LCALL	WR_ZB
		MOV	A,#00H
		LCALL	DDR_WRITE
		RET
;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
CHRT_DP:	LCALL	WR_ZB				;传送COUNT1个数据到DDRAM
CHRT_DP1:	CLR	A
		MOVC	A,@A+DPTR
		LCALL	DDR_WRITE
		INC	DPTR
		DJNZ	COUNT1,CHRT_DP1
		RET
;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
CHRT_DISP:	MOV	LCM_X,#00H			;全屏显示中文或字符
		MOV	LCM_Y,#00H
		LCALL	WR_ZB
		MOV	COUNT1,#08H
CHRT_DISP1:	MOV	COUNT2,#1EH
CHRT_DISP2:	CLR	A
		MOVC	A,@A+DPTR
		LCALL	DDR_WRITE
		INC	DPTR
		DJNZ	COUNT2,CHRT_DISP2
		DJNZ	COUNT1,CHRT_DISP1
		RET
;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
PHO_DISP:	MOV	LCM_X,#00H			;全屏显示图形
		MOV	LCM_Y,#00H
		LCALL	WR_ZB
		MOV	COUNT1,#80H
PHO_DISP1:	MOV	COUNT2,#1EH
PHO_DISP2:	CLR	A
		MOVC	A,@A+DPTR
		LCALL	DDR_WRITE
		INC	DPTR
		DJNZ	COUNT2,PHO_DISP2
		DJNZ	COUNT1,PHO_DISP1
		RET
;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
LAT_DISP:	MOV	LCM_X,#00H			;全屏显示点阵
		MOV	LCM_Y,#00H
		LCALL	WR_ZB
		MOV	COUNT1,#20H

LAT_DISP1:	MOV	COUNT2,#3CH
LAT_DISP2:	MOV	A,LCM_DATA1
		LCALL	DDR_WRITE
		DJNZ	COUNT2,LAT_DISP2

		MOV	COUNT2,#3CH
LAT_DISP3:	MOV	A,LCM_DATA2
		LCALL	DDR_WRITE
		DJNZ	COUNT2,LAT_DISP3

		DJNZ	COUNT1,LAT_DISP1
		RET
;****************************************************
WR_ZB:		MOV	REGNAME,#60H			;定坐标
		MOV	REGDATA,LCM_X
		LCALL	REG_WRITE
		MOV	REGNAME,#70H
		MOV	REGDATA,LCM_Y
		LCALL	REG_WRITE
		RET
;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
REG_WRITE:	MOV	A,REGNAME			;写资料到缓存器
		LCALL	REG_WR
		MOV	A,REGDATA
		LCALL	REG_WR
		RET

REG_WR:		MOV	P1,A
		CLR	CS1
		SETB	RDB
		CLR	RS
		CLR	WRB
		NOP
		NOP
		SETB	WRB
		SETB	RS
		SETB	CS1
		RET

DDR_WRITE:	JNB	BUSY,$				;写资料到DDRAM
		MOV	P1,A
		CLR	CS1
		SETB	RDB
		SETB	RS
		CLR	WRB
		NOP
		NOP
		SETB	WRB
		SETB	RS
		SETB	CS1
		RET

REG_READ:	MOV	A,REGNAME			;读缓存器
		LCALL	REG_WR
		MOV	P1,#0FFH
		CLR	CS1
		SETB	WRB
		CLR	RS
		CLR	RDB
		NOP
		MOV	A,P1
		SETB	RDB
		SETB	RS
		SETB	CS1
		MOV	REGDATA1,A
		RET
;****************************************************
DELAY1:		MOV	R6,#0CH				;延时6毫秒
DEL11:		MOV	R7,#0FCH
DEL12:		DJNZ	R7,DEL12
		DJNZ	R6,DEL11
		RET

DELAY2:		MOV	R5,#02H				;延时240毫秒
DEL21:		MOV	R6,#0EAH
DEL22:		MOV	R7,#0FFH
DEL23:		DJNZ	R7,DEL23
		DJNZ	R6,DEL22
		DJNZ	R5,DEL21
		RET
		
DELAY3:		CLR	EA_BIT
		MOV	R2,#09H
DEL31:		MOV	R3,#0FFH
DEL32:		MOV	R4,#0FFH
DEL33:		JB	EA_BIT,DELAY3
		DJNZ	R4,DEL33
		DJNZ	R3,DEL32
		DJNZ	R2,DEL31
		RET
;****************************************************
INITTAB1:
DB 000H,001H,002H,003H,010H,011H,012H,021H,031H,041H,051H,020H,030H,040H,050H,060H
DB 061H,070H,071H,072H,080H,081H,091H,090H,0A0H,0A1H,0A2H,0A3H,0B0H,0B1H,0C0H,0C1H
DB 0C8H,0C9H,0CAH,0D0H,0E0H,0F0H,0F1H
INITTAB2:
DB 0C9H,0E2H,010H,080H,02BH,000H,091H,01DH,07FH,000H,000H,01DH,07FH,000H,000H,000H
DB 000H,000H,000H,07FH,0AAH,000H,000H,00FH,011H,000H,000H,000H,01DH,07FH,000H,036H
DB 080H,080H,000H,080H,000H,0A0H,00FH

TAB1:
DB '金  鹏  电  子  有  限  公  司'
DB '奥  可  拉  液  '
DB 0BEH,0A7H	;晶
DB '  显  示  器'
DB '肇庆市建设四路13号天宁广场E 栋'
DB '  以质量求生存, 靠技术谋发展  '
DB '昔人已乘黄鹤去，此地空余黄鹤楼'
DB '黄鹤一去不复返，白云'
DB 0C7H,0A7H	;千
DB '载空悠悠'
DB '晴川历历汉阳树，芳草萋萋鹦鹉洲'
DB '日暮乡关何处是，烟波江上使人愁'

TAB2:
DB 'GoldenPalm Electronics Co.,Ltd'
DB ' No.13 Jianshe Road4 Zhaoqing '
DB 'TEL:[phone] FAX:[phone]'
DB 'www.gptlcm.cn    [e-mail]'
DB '回头一笑百媚生，六宫粉黛无颜色'
DB '风吹仙袂飘飘举，犹似霓裳羽衣舞'
DB '在天愿作比翼鸟，在地愿为连理枝'
DB '天长地久有时尽，此恨绵绵无绝期'

TAB3:
;--  调入了一幅图像：F:\梁\画图\HOCO24064.bmp  --
;--  宽度x高度=240x64  --