HLINE_BYTES	EQU	1			;每行對應字節數高位
LLINE_BYTES	EQU	96			;每行對應字節數低位
DPC		EQU	00H	;DPC等于位地址00，對應顯存地址A16位，并由P1.5腳輸出
;/////////////////////////////////////////////////////////////////////////
		PROC	PutPixel
PutPixel:	PUSH	DPH
		PUSH	DPL
		PUSH	ACC
		PUSH	02H
		PUSH	03H
		PUSH	12
		PUSH	13


PPXL:		LCALL	PonitAddr

PutPixel4:	MOV	A,R1
		MOV	C,DPC
		MOV	P1.5,C
		MOVX	@DPTR,A
PutPixel5:	POP	13
		POP	12
		POP	03H
		POP	02H
		POP	ACC
		POP	DPL
		POP	DPH
		RET
		END
;///////////////////////////////////////////////////
;R2 R3 12 13                         OUT: ACC
		PROC	ReadPixel
ReadPixel:

    	        PUSH    DPH
		PUSH	DPL
		LCALL	PonitAddr
		MOV	C,DPC
		MOV	P1.5,C
		MOVX	A,@DPTR
		MOVX	A,@DPTR
		POP	DPL
		POP	DPH
		RET
		END
;/////////////////////////////////////////////////////////////////////////
;IN R2=XL 12=XH  R3=YL   13=YH        OUT	DPTR   DPC
PonitAddr:
		PUSH	B
		PUSH	A
		PUSH	03H
		MOV	A,R3
		ADD	A,#4
		MOV	R3,A
		MOV	DPH,A
		MOV	B,#LLINE_BYTES
		MUL	AB
		
		ADD	A,#2
		JNC	PonitAddr1
		INC	B
PonitAddr1:	
		ADD	A,R2

PonitAddr2:	MOV	DPL,A
		MOV	A,B
		ADDC	A,12
		ADDC	A,DPH
		MOV	DPH,A
		MOV	DPC,C
	
		POP	03H
		POP	A
		POP	B
		RET