41bfont.txt

彩色液晶显示

LINE_BYTES	EQU	156			;每行对应字节数

;//////////////////////////////////////////////////////////////////////
		PROC	PutPixel
PutPixel:	PUSH	DPH
		PUSH	DPL
		PUSH	ACC
		PUSH	02H
		PUSH	03H

PPXL:		LCALL	PonitAddr

PutPixel4:	MOV	A,R1
		SETB	P1.5
		MOVX	@DPTR,A
		CLR	P1.5

		POP	03H
		POP	02H
		POP	ACC
		POP	DPL
		POP	DPH
		RET
		END
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
		PROC	ReadPixel
ReadPixel:
		push	01h
    	        PUSH    DPH
		PUSH	DPL
		PUSH	02H
		PUSH	03H
		LCALL	PonitAddr
		SETB	P1.5
		MOVX	A,@DPTR
		MOVX	A,@DPTR
		CLR	P1.5
		
		POP	03H
		POP	02H
		POP	DPL
		POP	DPH
		pop	01h
		RET
		END
;//////////////////////////////////////////////////////////////////////
PonitAddr:

		PUSH	B
		PUSH	A
		MOV	A,R3
		ADD	A,#14
		MOV	B,#LINE_BYTES
		MUL	AB
		CLR	C
		ADD	A,#6
		JNC	PonitAddr1
		INC	B
PonitAddr1:	CLR	C
	 	ADD	A,R2
		JNC	PonitAddr2
		INC	B
PonitAddr2:	MOV	DPH,B
		MOV	DPL,A
		POP	A
		POP	B

		RET

;//////////////////////////////////////////////////////////////////////
		PROC	ClearScreen
ClearScreen:	PUSH	02H
		PUSH	03H
		PUSH	DPL
		PUSH	DPH
		PUSH	ACC
		MOV	DPTR,#LINE_BYTES*12
		MOV	A,Bk_RGB
		MOV	R2,#GRAPH_ROW+3
ClearScreen1:	MOV	R3,#LINE_BYTES
ClearScreen2:	SETB	P1.5
		MOVX	@DPTR,A
		CLR	P1.5
		INC	DPTR
		DJNZ	R3,ClearScreen2
		CPL	WDOG
		DJNZ	R2,ClearScreen1
		POP	ACC
		POP	DPH
		POP	DPL
		POP	03H
		POP	02H
		RET
		END