;Proteus7.5SP3, LCD driver: ---, LCD: 320x240 65K color, 8bit接口 ;R-G-B(565)顺序(本仿真TFT先发送低位后高位). ;Modified by HeFanghua, 2012-4-20 ;实现功能: 读取AT25F4096中的BIN数据文件并在TFT上显示, 刷屏 ;仿真测试用单片机: AT89C55@12MHz or above. ;液晶坐标轴方向(以排线朝下为基本方向放置屏幕): ;O 319 ;┼────→ horizontal ;│ ;│ ;│239 ;↓vertical ;----- ;大图片文件数据的转换: ;asm格式数据表由文件分割精灵拆开成4个,每个分别用WAVE汇编成BIN,用批处理COPY命令合并,UltraEdit以HEX方式打开并删掉末尾多余的1字节。 ;---引脚定义--- TFT_RS equ P3.5 ;数据/命令切换 TFT_RST equ P1.2 ;复位 TFT_WR equ P3.6 ;写控制 TFT_CS equ P3.7 ;片选 TFT_Data EQU P2 ;8位模式数据口 AT25F_SCK bit p1.7 ;AT25F4096(512KB SPI ROM) AT25F_SI bit p1.6 ;MOSI AT25F_SO bit p1.5 ;MISO AT25F_CS bit p1.4 ;AT25F_WP bit p1.2 ;AT25F_HOLD bit p1.3 ;--- ;---寄存器定义--- I equ 3fh J equ 40h K equ 41h VH equ 42h VL equ 43h colorH equ 44h colorL equ 45h ;----- ;---宏定义--- ;--- ORG 0 LJMP MAIN ORG 60H ;----- main: mov sp,#7fh setb TFT_CS call Address_set ;TFT初始化 call AT25F_SPIinit ;call AT25F_SPI_Write call AT25F_SPI_Read call delay1s again: mov colorH,#0f8h mov colorL,#0 call Paint ;红色 mov colorH,#7h mov colorL,#0e0h call Paint ;绿色 mov colorH,#0 mov colorL,#1fh call Paint ;蓝色 mov colorH,#0ffh mov colorL,#0e0h call Paint ;黄色 mov colorH,#0f8h mov colorL,#1fh call Paint ;紫色 mov colorH,#07h mov colorL,#0ffh call Paint ;靛色 mov colorH,#0ffh mov colorL,#0ffh call Paint ;白色 mov colorH,#0 mov colorL,#0 call paint ;TFT清屏(黑色) jmp again ;================ AT25F_SPIinit: ;初始化25T. SPI模式0(CPOL极性=0, CPHA相位=0) setb AT25F_CS clr AT25F_SCK ;必须要 ; setb AT25F_WP ; setb AT25F_HOLD setb AT25F_SO setb AT25F_SI ret AT25F_SPI_Write: ;测试用, 写1字节 ; clr AT25F_CS ; mov a,#00000010b ; call SPI_W1B ; mov a,#0 ;写地址, 3字节 ; call SPI_W1B ; mov a,#0 ; call SPI_W1B ; mov a,#0 ; call SPI_W1B ; mov r3,#256 ; AT25F_SPI_Write_1: ; mov a,r3;#5ah ; call SPI_W1B ; djnz r3,AT25F_SPI_Write_1 ; mov a,#5ah ; call SPI_W1B ; setb AT25F_CS ret AT25F_SPI_Read: ;连续读25T存储器 clr AT25F_CS mov a,#00000011b ;Read Data from Memory Array call SPI_W1B mov a,#0 ;读地址, 3字节 call SPI_W1B mov a,#0 call SPI_W1B mov a,#0 call SPI_W1B ;320x240次=2x160x240 mov R7,#2 mov R6,#160 mov R5,#240 clr TFT_CS ;打开片选使能 SETB TFT_RS ;发送数据 AT25F_SPI_Read_1: call SPI_R1B mov VH,a ;暂存高8位 call SPI_R1B mov TFT_Data,a clr tft_wr setb tft_cs clr tft_cs setb tft_wr mov TFT_Data,VH clr tft_wr setb tft_cs clr tft_cs setb tft_wr djnz R5,AT25F_SPI_Read_1 mov R5,#240 djnz R6,AT25F_SPI_Read_1 mov R6,#160 djnz R7,AT25F_SPI_Read_1 setb AT25F_CS ret SPI_W1B: ;写1字节 mov r4,#8 clr AT25F_SCK SPI_W1B_1: rlc a mov AT25F_SI,c clr AT25F_SCK ;上升沿 setb AT25F_SCK djnz r4,SPI_W1B_1 ret SPI_R1B: ;读1字节 setb AT25F_SI setb AT25F_SO mov r4,#8 SPI_R1B_1: setb AT25F_SCK ;下降沿 clr AT25F_SCK mov c,AT25F_SO rlc a djnz r4,SPI_R1B_1 clr AT25F_SCK ret TFT_Write_Bus: ;发送数据给TFT, 输入VH, VL. 先发低位后高位 mov TFT_Data,VL clr tft_wr setb tft_cs clr tft_cs setb tft_wr mov TFT_Data,VH clr tft_wr setb tft_cs clr tft_cs setb tft_wr RET Address_set: mov vh,#0 ;x起始地址 mov vl,#0 CLR TFT_RS clr TFT_CS call TFT_Write_Bus mov vh,#0 ;y起始地址 mov vl,#0 call TFT_Write_Bus ret Paint: ;全屏填充颜色,输入colorH,colorL clr TFT_CS ;打开片选使能 call Address_set ;proteus手动回左上角 SETB TFT_RS ;发送数据 MOV VH,colorH MOV VL,colorL mov R7,#160 mov R6,#240 Paint_1: call TFT_Write_Bus ;发送2字节 call TFT_Write_Bus ;发送2字节 djnz R6,Paint_1 mov R6,#240 djnz R7,Paint_1 setb TFT_CS ;关闭片选使能 ret delay1s: MOV I,#0ABH delay1s_2: MOV J,#02DH delay1s_1: MOV K,#0B0H DJNZ K,$ DJNZ J,delay1s_1 DJNZ I,delay1s_2 RET end |