12864-6-8测架.asm

ocmj12864的测试程序

;***********************************************
CS1	EQU	P3.6
CDA	EQU	P3.2
SCK	EQU	P3.3
A0	EQU	P3.4
RES	EQU	P3.5

LCD_COUNT1	EQU	30H
LCD_COUNT2	EQU	31H
LCD_DATA1	EQU	32H
LCD_DATA2	EQU	33H
PAGE_COUNT	EQU	34H
DA_IN		EQU	35H
WR_COUNT	EQU	36H
;***********************************************
		ORG	0000H
		AJMP	MAIN
		ORG	0100H
MAIN:		NOP
		NOP
		MOV	SP,#5FH
		CLR	RES
		LCALL	DELAY2
		LCALL	DELAY2
		SETB	RES
		LCALL	DELAY2
;********************初始化*********************
		MOV	A,#0A0H		;1010 0000
		LCALL	SEND_I
		
		MOV	A,#0C8H		;1100 1000
		LCALL	SEND_I
		
		MOV	A,#0A2H		;1010 0010
		LCALL	SEND_I
		
		LCALL	DELAY2
		
		MOV	A,#02CH		;0010 1100
		LCALL	SEND_I
		
		MOV	A,#02EH		;0010 1110
		LCALL	SEND_I
		
		LCALL	DELAY2
		
		MOV	A,#02FH		;0010 1111
		LCALL	SEND_I
		
		LCALL	DELAY2
		
		MOV	A,#025H		;0010 0101
		LCALL	SEND_I
		
		MOV	A,#081H		;1000 0001
		LCALL	SEND_I
		
		MOV	A,#014H		;0010 0000
		LCALL	SEND_I
		
		LCALL	DELAY2
		
		MOV	A,#0AFH		;1010 1111
		LCALL	SEND_I
		
		LCALL	DELAY2
		
		MOV	A,#0E0H
		LCALL	SEND_I
		
		MOV	A,#40H
		LCALL	SEND_I
;***********************************************
LGS1:		MOV	DPTR,#TAB1
		LCALL	PHO_DISP
		LCALL	DELAY1
		
		MOV	DPTR,#TAB2
		LCALL	PHO_DISP
		LCALL	DELAY1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
LGS2:		MOV	A,#0A5H
		LCALL	SEND_I
		LCALL	DELAY1
		MOV	A,#0A4H
		LCALL	SEND_I
		LCALL	DELAY2
		
		MOV	LCD_DATA1,#0FFH
		MOV	LCD_DATA2,#00H
		LCALL	LAT_DISP
		LCALL	DELAY1
		
		MOV	LCD_DATA1,#00H
		MOV	LCD_DATA2,#0FFH
		LCALL	LAT_DISP
		LCALL	DELAY1
		
		MOV	LCD_DATA1,#33H
		MOV	LCD_DATA2,#33H
		LCALL	LAT_DISP
		LCALL	DELAY1
		
		MOV	LCD_DATA1,#0CCH
		MOV	LCD_DATA2,#0CCH
		LCALL	LAT_DISP
		LCALL	DELAY1
		
		LJMP	LGS1
;***********************************************
PHO_DISP:	MOV	PAGE_COUNT,#0B0H
		MOV	LCD_COUNT1,#8
PHO_DISP1:	MOV	A,PAGE_COUNT
		LCALL	SEND_I
		MOV	A,#10H
		LCALL	SEND_I
		MOV	A,#00H
		LCALL	SEND_I
		MOV	LCD_COUNT2,#128
PHO_DISP2:	CLR	A
		MOVC	A,@A+DPTR
		LCALL	SEND_D
		INC	DPTR
		DJNZ	LCD_COUNT2,PHO_DISP2
		INC	PAGE_COUNT
		DJNZ	LCD_COUNT1,PHO_DISP1
		RET
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
LAT_DISP:	MOV	PAGE_COUNT,#0B0H
		MOV	LCD_COUNT1,#8
LAT_DISP1:	MOV	A,PAGE_COUNT
		LCALL	SEND_I
		MOV	A,#10H
		LCALL	SEND_I
		MOV	A,#00H
		LCALL	SEND_I
		MOV	LCD_COUNT2,#64
LAT_DISP2:	MOV	A,LCD_DATA1
		LCALL	SEND_D
		MOV	A,LCD_DATA2
		LCALL	SEND_D
		DJNZ	LCD_COUNT2,LAT_DISP2
		INC	PAGE_COUNT
		DJNZ	LCD_COUNT1,LAT_DISP1
		RET
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;写数据子程序
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;入口参数：ACC寄存器
SEND_D:	SETB	A0
		MOV	DA_IN,A
		LCALL	SERIAL_WR
		RET
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;写指令子程序
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;入口参数：ACC寄存器
SEND_I:	CLR	A0
		MOV	DA_IN,A
		LCALL	SERIAL_WR
		RET
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;串口发送程序
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;入口参数
;DA_IN：要发送的数据
SERIAL_WR:	PUSH	ACC
		MOV	A,DA_IN
		SETB	SCK
		CLR	CS1
		
		MOV	WR_COUNT,#08H
SERIAL_WR1:	RLC	A
		MOV	CDA,C
		CLR	SCK
		SETB	SCK
		DJNZ	WR_COUNT,SERIAL_WR1
		
		SETB	CS1
		LCALL	DELAY3
		POP	ACC
		RET
;***********************************************
DELAY1:	MOV	R5,#10H
DEL11:	MOV	R6,#0FFH
DEL12:	MOV	R7,#0FFH
DEL13:	DJNZ	R7,DEL13
		DJNZ	R6,DEL12
		DJNZ	R5,DEL11
		RET

DELAY2:	MOV	R6,#06H
DEL21:	MOV	R7,#18H
DEL22:	DJNZ	R7,DEL22
		DJNZ	R6,DEL21
		RET
		
DELAY3:	MOV	R7,#18H
		DJNZ	R7,$
		RET
;***********************************************
TAB1:
;--  调入了一幅图像：E:\1.bmp  --
;--  宽度x高度=128x64  --
DB  040H,040H,020H,020H,050H,048H,044H,0C3H,044H,048H,050H,050H,020H,060H,020H,000H
DB  000H,0FEH,012H,0FEH,000H,0FEH,012H,0FEH,000H,0FCH,00EH,035H,044H,07CH,000H,000H
DB  000H,000H,0F8H,048H,048H,048H,048H,0FFH,048H,048H,048H,048H,0F8H,000H,000H,000H
DB  000H,000H,002H,002H,002H,002H,002H,0E2H,012H,00AH,006H,002H,000H,080H,000H,000H
DB  000H,004H,084H,044H,0E4H,034H,02CH,027H,024H,024H,024H,0E4H,004H,004H,004H,000H
DB  0FEH,002H,032H,04EH,082H,000H,0FEH,04AH,0CAH,04AH,04AH,04AH,07EH,000H,000H,000H
DB  000H,000H,080H,040H,030H,00EH,084H,000H,000H,00EH,010H,060H,0C0H,080H,080H,000H
DB  000H,010H,092H,092H,092H,092H,092H,092H,092H,092H,012H,002H,002H,0FEH,000H,000H
DB  040H,040H,042H,042H,04AH,072H,042H,07FH,042H,062H,05AH,042H,042H,040H,040H,000H
DB  020H,01FH,021H,07FH,020H,01FH,041H,07FH,008H,009H,009H,029H,049H,021H,01FH,000H
DB  000H,000H,00FH,004H,004H,004H,004H,03FH,044H,044H,044H,044H,04FH,040H,070H,000H
DB  001H,001H,001H,001H,001H,041H,081H,07FH,001H,001H,001H,001H,001H,001H,001H,000H
DB  002H,001H,000H,000H,0FFH,009H,009H,009H,029H,049H,0C9H,07FH,000H,000H,000H,000H
DB  0FFH,000H,002H,004H,003H,000H,0FFH,040H,020H,003H,00CH,012H,021H,060H,020H,000H
DB  000H,001H,020H,070H,028H,024H,023H,031H,010H,010H,014H,078H,030H,001H,000H,000H
DB  000H,000H,01FH,004H,004H,004H,004H,004H,004H,00FH,000H,020H,040H,03FH,000H,000H
DB  000H,000H,0FEH,022H,02AH,0B2H,063H,0FEH,062H,0B2H,0AAH,022H,0FEH,000H,000H,000H
DB  000H,002H,002H,0F2H,012H,012H,012H,012H,0F2H,002H,002H,002H,0FEH,002H,002H,000H
DB  010H,010H,010H,0FFH,090H,050H,000H,048H,089H,00AH,00EH,008H,0E8H,048H,008H,000H
DB  010H,061H,006H,0E0H,018H,084H,0E4H,01CH,084H,065H,0BEH,024H,0A4H,064H,004H,000H
DB  000H,000H,000H,000H,07EH,02AH,02AH,02AH,02AH,02AH,02AH,07EH,000H,000H,000H,000H
DB  000H,000H,000H,03EH,02AH,0EAH,02AH,02AH,02AH,0EAH,02AH,03EH,000H,000H,000H,000H
DB  000H,020H,020H,022H,022H,022H,022H,0E2H,022H,022H,022H,022H,022H,020H,020H,000H
DB  040H,040H,04FH,049H,049H,0C9H,0CFH,070H,0C0H,0CFH,049H,059H,069H,04FH,000H,000H
DB  080H,084H,045H,044H,025H,014H,00CH,007H,00CH,014H,025H,024H,045H,0C4H,044H,000H
DB  000H,000H,000H,007H,002H,002H,002H,002H,007H,010H,020H,040H,03FH,000H,000H,000H
DB  002H,042H,081H,07FH,000H,020H,020H,020H,021H,03EH,020H,03CH,023H,020H,020H,000H
DB  004H,004H,0FFH,000H,001H,000H,0FFH,041H,021H,012H,00CH,01BH,061H,0C0H,040H,000H
DB  000H,07FH,025H,025H,025H,025H,07FH,000H,000H,07FH,025H,025H,025H,025H,07FH,000H
DB  020H,021H,022H,02CH,020H,03FH,020H,020H,020H,03FH,028H,024H,023H,020H,020H,000H
DB  010H,008H,004H,003H,000H,040H,080H,07FH,000H,000H,001H,002H,00CH,018H,000H,000H
DB  002H,002H,07EH,045H,045H,044H,07CH,000H,07CH,044H,045H,045H,07EH,006H,002H,000H
DB  0C0H,030H,008H,008H,008H,038H,000H,000H,000H,000H,080H,080H,080H,080H,000H,000H
DB  000H,008H,008H,0F8H,000H,000H,000H,000H,000H,000H,000H,080H,080H,088H,0F8H,000H
DB  000H,000H,080H,080H,080H,080H,000H,000H,080H,080H,000H,080H,080H,080H,000H,000H
DB  000H,000H,000H,000H,000H,000H,000H,000H,008H,0F8H,008H,008H,008H,008H,0F0H,000H
DB  000H,000H,080H,080H,080H,080H,000H,000H,000H,008H,008H,0F8H,000H,000H,000H,000H
DB  080H,080H,080H,080H,080H,080H,080H,000H,000H,000H,000H,000H,000H,000H,000H,000H
DB  008H,0F8H,088H,088H,0E8H,008H,010H,000H,008H,0F8H,008H,000H,000H,000H,000H,000H
DB  008H,0F8H,088H,088H,0E8H,008H,010H,000H,0C0H,030H,008H,008H,008H,008H,038H,000H
DB  007H,018H,020H,020H,022H,01EH,002H,000H,000H,01FH,020H,020H,020H,020H,01FH,000H
DB  000H,020H,020H,03FH,020H,020H,000H,000H,000H,00EH,011H,020H,020H,010H,03FH,020H
DB  000H,01FH,022H,022H,022H,022H,013H,000H,020H,03FH,021H,000H,000H,020H,03FH,020H
DB  000H,000H,000H,000H,000H,000H,000H,000H,020H,03FH,021H,001H,001H,001H,000H,000H
DB  000H,019H,024H,022H,022H,022H,03FH,020H,000H,020H,020H,03FH,020H,020H,000H,000H
DB  020H,03FH,020H,000H,03FH,020H,000H,03FH,000H,000H,000H,000H,000H,000H,000H,000H
DB  020H,03FH,020H,020H,023H,020H,018H,000H,020H,03FH,020H,020H,020H,020H,030H,000H
DB  020H,03FH,020H,020H,023H,020H,018H,000H,007H,018H,020H,020H,020H,010H,008H,000H
DB  018H,008H,008H,0F8H,008H,008H,018H,000H,008H,0F8H,088H,088H,0E8H,008H,010H,000H
DB  008H,0F8H,008H,000H,000H,000H,000H,000H,000H,000H,000H,0C0H,0C0H,000H,000H,000H
DB  000H,0E0H,010H,008H,008H,010H,0E0H,000H,000H,038H,008H,008H,0C8H,038H,008H,000H
DB  000H,0F8H,008H,088H,088H,008H,008H,000H,000H,070H,088H,008H,008H,088H,070H,000H
DB  000H,000H,000H,000H,000H,000H,000H,000H,000H,070H,008H,008H,008H,088H,070H,000H
DB  000H,030H,008H,088H,088H,048H,030H,000H,000H,010H,010H,0F8H,000H,000H,000H,000H
DB  000H,038H,008H,008H,0C8H,038H,008H,000H,000H,010H,010H,0F8H,000H,000H,000H,000H
DB  000H,0F8H,008H,088H,088H,008H,008H,000H,000H,0E0H,010H,088H,088H,018H,000H,000H
DB  000H,000H,020H,03FH,020H,000H,000H,000H,020H,03FH,020H,020H,023H,020H,018H,000H
DB  020H,03FH,020H,020H,020H,020H,030H,000H,000H,000H,000H,030H,030H,000H,000H,000H
DB  000H,00FH,010H,020H,020H,010H,00FH,000H,000H,000H,000H,03FH,000H,000H,000H,000H
DB  000H,019H,021H,020H,020H,011H,00EH,000H,000H,01CH,022H,021H,021H,022H,01CH,000H
DB  000H,001H,001H,001H,001H,001H,001H,001H,000H,030H,028H,024H,022H,021H,030H,000H
DB  000H,018H,020H,020H,020H,011H,00EH,000H,000H,020H,020H,03FH,020H,020H,000H,000H
DB  000H,000H,000H,03FH,000H,000H,000H,000H,000H,020H,020H,03FH,020H,020H,000H,000H
DB  000H,019H,021H,020H,020H,011H,00EH,000H,000H,00FH,011H,020H,020H,011H,00EH,000H

TAB2:
;--  调入了一幅图像：F:\梁\画图\cock12864.bmp  --
;--  宽度x高度=128x64  --
DB  0FFH,003H,001H,001H,001H,001H,001H,001H,001H,001H,001H,001H,001H,001H,001H,001H
DB  001H,001H,001H,001H,001H,001H,001H,001H,001H,001H,001H,001H,001H,001H,001H,001H
DB  001H,001H,001H,081H,0C1H,041H,001H,081H,081H,0C1H,081H,081H,081H,081H,0C1H,0E1H
DB  001H,001H,001H,001H,001H,081H,081H,0C1H,061H,001H,001H,001H,001H,001H,001H,001H
DB  001H,001H,001H,001H,001H,081H,081H,081H,081H,0C1H,0C1H,0C1H,0E1H,0E1H,0E1H,0E1H
DB  0E1H,0E1H,0E1H,0E1H,0E1H,0E1H,0E1H,0E1H,0C1H,0C1H,0C1H,0C1H,081H,081H,081H,001H
DB  001H,001H,001H,001H,001H,001H,001H,001H,001H,001H,001H,001H,001H,001H,001H,001H
DB  001H,001H,001H,001H,001H,001H,001H,001H,001H,001H,001H,001H,001H,001H,003H,0FFH
DB  0FFH,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H
DB  000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,0C0H,0E0H,0FFH
DB  0FEH,0FCH,0EFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,07FH,07FH,03FH,03EH,03EH
DB  01EH,01EH,00EH,007H,003H,003H,001H,000H,000H,000H,080H,0C0H,0E0H,0F0H,0F8H,0F8H
DB  0FCH,0FEH,0FEH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FBH,0FBH,0BBH,0BBH,0B9H,0B9H
DB  0B9H,0B9H,039H,039H,039H,039H,071H,071H,071H,0E3H,0E3H,0C3H,0C7H,087H,007H,00FH
DB  01FH,01EH,07CH,0F8H,0E0H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H
DB  000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,0FFH
DB  0FFH,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H
DB  000H,000H,000H,000H,000H,000H,000H,080H,0C0H,0E0H,0F0H,0F8H,0FCH,0FDH,0FCH,0FEH
DB  0FEH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FEH,0FCH,0F8H,000H
DB  000H,000H,000H,000H,000H,000H,0C0H,0F0H,0FCH,0FEH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH
DB  0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH
DB  0FFH,0FFH,0FFH,0FFH,0FFH,0FEH,0FEH,0FCH,0FCH,0F0H,0E0H,081H,003H,007H,01FH,0FEH
DB  0F8H,000H,000H,000H,0FFH,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H
DB  000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,0FFH
DB  0FFH,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H
DB  000H,000H,000H,000H,000H,000H,000H,07FH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH
DB  0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FEH
DB  0FCH,0F8H,0F8H,0F8H,0FCH,0FEH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH
DB  07FH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,09FH
DB  07FH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,00FH,07FH,0FFH,07FH,000H,000H,003H,001H
DB  000H,000H,004H,002H,001H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H
DB  000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,0FFH
DB  0FFH,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H
DB  000H,000H,000H,000H,000H,000H,000H,000H,001H,003H,007H,00FH,01FH,03FH,03FH,07FH
DB  0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH
DB  0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH
DB  07FH,01EH,001H,087H,0FFH,0FFH,0FFH,0FFH,07FH,0FFH,0FFH,0FFH,0FFH,0FFH,07FH,00FH
DB  000H,003H,0FFH,07FH,03FH,00FH,007H,001H,000H,0FCH,003H,000H,000H,000H,000H,000H
DB  000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H
DB  000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,0FFH
DB  0FFH,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H
DB  000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H
DB  000H,001H,003H,007H,007H,00FH,00FH,01FH,03FH,0FFH,0FFH,0FFH,0FFH,07FH,03FH,01FH
DB  01FH,03FH,07FH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FBH,07FH,007H,003H,00FH,010H
DB  000H,000H,01CH,00FH,007H,007H,003H,000H,00EH,007H,007H,003H,001H,000H,000H,000H
DB  000H,000H,000H,000H,000H,000H,000H,000H,000H,001H,000H,000H,000H,000H,000H,000H
DB  000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H
DB  000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,0FFH
DB  0FFH,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H
DB  000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H
DB  000H,000H,000H,000H,000H,000H,080H,060H,010H,03FH,00FH,003H,080H,080H,001H,000H
DB  000H,000H,000H,000H,000H,021H,091H,051H,033H,03FH,01FH,034H,064H,000H,000H,000H
DB  000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H
DB  000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H
DB  000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H
DB  000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,0FFH
DB  0FFH,0C0H,080H,080H,080H,080H,080H,080H,080H,080H,080H,080H,080H,080H,080H,080H
DB  080H,080H,080H,080H,080H,080H,080H,080H,080H,080H,080H,080H,088H,088H,088H,088H
DB  088H,098H,08CH,084H,086H,082H,089H,080H,080H,087H,080H,080H,082H,080H,080H,084H
DB  080H,080H,080H,080H,080H,081H,080H,080H,080H,080H,080H,080H,080H,080H,080H,080H
DB  080H,080H,080H,080H,080H,080H,080H,080H,080H,080H,080H,080H,080H,080H,080H,080H
DB  080H,080H,080H,080H,080H,080H,080H,080H,080H,080H,080H,080H,080H,080H,080H,080H
DB  080H,080H,080H,080H,080H,080H,080H,080H,080H,080H,080H,080H,080H,080H,080H,080H
DB  080H,080H,080H,080H,080H,080H,080H,080H,080H,080H,080H,080H,080H,080H,0C0H,0FFH

		END