发表于：2005/11/28 19:51:00
#230楼
PIC16F877A与TS1620-1字符型液晶显示模块的试验程序
这是本人刚学PIC时编的一段试验程序，用来驱动TS1620型字符液晶显示模块，传上来的程序是经本人实测后通过的，各位按图接线后，可以直接写入实验。此LCD模块在深圳赛格很易买到，带背光，价格16元（很划算吧？），对于初学PIC的朋友来说应该很合适。
如果各位认为不错请回贴表示支持，如果认为有什么不妥的地方请高手指正，谢谢！
上传的压缩包中有电路图、测试照片、TS1620型字符液晶显示模块的详细资料（注：SMA1602A与TS1620-1完全一样，厂家提供的TS1620-1资料是E文的，没要。）。
--------------------------------------------------------------------------------
以下内容为需要回复才能浏览
;********************************LCD模块测试程序**************************
;编程:刘钢
;日期:2005/1/21
;*********************************器件说明*********************************
;用PIC16F877A驱动LCD模块
;LCD模块,型号:ST1620-1
;LCD模块初始化,由厂家提供的资料显示,其初始化过程为:
;1----延时15ms
;2----写指令38H(写入之前不用检测Busy信号)
;3----延时5ms
;4----再次写入38H指令(写入之前不用检测Busy信号),至于为什么要重复写入现在不清楚,而且下面还要写一次.
;5----延时5ms
;4----再次写入38H指令(写入之前不用检测Busy信号)
;5----检测Busy信号;
;6----写指令38H,此条指令是将LCD显示模块设置为8位数据线,双行,5X7点阵显示
;7----检测Busy信号;
;8----写指令08H,关闭显示
;9----检测Busy信号;
;10---写指令01H,显示清屏
;以后写入光标等的控制指令.
;**********************************************************
LIST P=PIC16F877A ;告诉汇编器所要汇编的器件型号
INCLUDE "P16F877.INC" ;汇编程序的头文件
;设置单片机的特殊存储器位,使用HS(高速)晶振,打开上电延时复位功能,
;关闭看门狗,关闭低电压编程功能.
__CONFIG _HS_OSC &_PWRTE_ON&_WDT_OFF&_LVP_OFF
;注意:在CONFIG前面一定要加上两条下画线,否则汇编时会出错!!!
;************************************************************
LCD_RS EQU 02H
LCD_RW EQU 01H
LCD_E EQU 00H
COUNT1 EQU 020H
COUNT2 EQU 021H
COUNT3 EQU 022H
COUNT4 EQU 023H
DATA_TEMP EQU 041H
DATADO EQU 042H
;*********************************************************
ORG 0000H ;上电复位初始地址
GOTO MAIN
;*********************************************************
ORG 0010H ;主程序起始地址
MAIN
;初始化端口
BANKSEL ADCON1 ;选择体1
BCF INTCON,GIE ;关闭中断
MOVLW 07H
MOVWF ADCON1 ;上电时有A/D转换功能的端子全部被设为了A状态,
MOVLW 0XFF
MOVWF TRISA ;暂时将A口设为输入
CLRF TRISB ;设B口为输出
CLRF TRISC ;设C口为输出
CLRF TRISE ;设E口为普通I/O口,RE0-RE2为输出口
MOVLW 0XFF
MOVWF TRISD ;暂时将D口设为输入
BANKSEL PORTC ;选择体0
;初始化LCD模块***********************************************************************
CALL DELAYTIME10 ;LCD上电延时15秒钟,使LCD上建立工作所需电压.
CALL DELAYTIME10
MOVLW 038H ;写入38H指令,本来在此不用检测Busy信号(在COMAND_WR子程序
CALL COMAND_WR ;中包含有检测Busy信号的子程序),但此处不想单独编写命令写
;入程序,所以全部用同一个命令写入子程序.
CALL DELAYTIME5
MOVLW 038H ;再次写入38H指令(写入之前不用检测Busy信号),至于为什么要
CALL COMAND_WR ;重复写入现在不清楚,而且下面还要写一次.
CALL DELAYTIME5
MOVLW 038H
CALL COMAND_WR
CALL DELAYTIME5
MOVLW 038H
CALL COMAND_WR
MOVLW 08H ;并闭LCD模块的显示.
CALL COMAND_WR
MOVLW 01H ;清LCD模块显示.
CALL COMAND_WR
MOVLW 06H ;将模块设为向显示数据存贮器写入一个数据后,地址或光标加
CALL COMAND_WR ;1,即后写入的字符处于显示屏的右边.
;以下为LCD显示测试程序**************************************************************
;为了使程序具有通用性,所以将命令字的写入,数据的写入与读出程序都做成了子程序.
MOVLW 0CH ;开LCD模块的显示
CALL COMAND_WR
LCD_DISPLAY
MOVLW 080H ;设置第一行字符从第一位开始显示.由于已经将指针
CALL COMAND_WR ;设为了每向显示存贮器写入一个数据指针加1,所以越
;后写入的数据会越靠近右边.另外,由于在LCD模块的
;初始化时已经写入了清显示命令,光标及显示存贮器
;的地址指针已回到了00H,所以在此处不写入此段命令
;也可以.
CALL LCD_DISPLAY1 ;显示第一行字符
MOVLW 0C0H ;设置第二行字符从第一位开始显示.
CALL COMAND_WR
CALL LCD_DISPLAY2
DISPLAY_LOOP
CALL SWAP ;读出LCD显示数据存贮器中的字符数据并移位.
CALL DELAYTIME250 ;延时.
MOVLW 0C0H ;写入显示数据存贮器的首地址.
CALL COMAND_WR
MOVLW 030H ;数据表指针.
MOVWF FSR
WR_LOOP
MOVF INDF,W ;将数据表中的数据写入到LCD模块显示数据存贮器中.
CALL DATA_WR
INCF FSR
MOVF FSR,W
SUBLW 040H ;是否已经将16个字符数据全部写入到LCD模块中.
BTFSS STATUS,Z
GOTO WR_LOOP ;没有写完则返回继续写入.
GOTO DISPLAY_LOOP
;*****************************以下为各子程序********************************
;移位子程序
;程序功能:使字符向左流动并循环显示.在本程序中,只是第二行的字符会流动显示,第一行字符固定显示.
;移位原理:将LCD模块的显示存贮器内的40H~4FH(对应第二行显示存贮器的第1字符到第16字符)数据读出,
; 依次放置于地址为30H~3FH的数据寄存器器中,然后将其整体向下移一位.以达到字符流动显示的
; 效果,并将40H中的数据取出放入30H中,以达到循环的效果.
SWAP
MOVLW 030H ;设置数据表(30H~40H寄存器)指针起始值
MOVWF FSR ;数据表指针.
MOVLW 0C0H ;设置想要读出的LCD模块的显示存贮器的起始地址,此处的C0H对
;应LCD模块第二行的第1个字符
CALL COMAND_WR
READ
CALL DATA_RD ;调数据读出子程序从LCD模块的显示存贮器中读出数据,每读一次
;LCD显示存贮器的地址指针会自动加1,不用人工干预.
MOVF DATA_TEMP,W ;将子程序读出的数据存于W中.
MOVWF INDF ;用间接寻址指令将读出的数据存入以FSR为指针的寄存器中.
INCF FSR ;将指针加1,指向下一个寄存器.
MOVF FSR,W ;检查指针数值是否达到40H,如果达到40H表明已经读出了16个数据
SUBLW 040H ;将指针数据与40H相减.
BTFSS STATUS,Z ;如果为零则状态寄存器的Z位置1.
GOTO READ ;如果不为零则表示还没有读出16个数据,转回再继续读出.
MOVLW 03FH
MOVWF FSR ;设置寄存器指针,这次的指针用于移位.
RD_LOOP
MOVF INDF,W ;将指针所指的寄存器中的数据取出.
INCF FSR ;将指针加1.
MOVWF INDF ;将先前从寄存器中取出的数据写入到下一个寄存器中(因为指针被加1).
DECF FSR ;将指针减1,消去刚才加上的1.
DECF FSR ;将指针减1,指向上一个寄存器.
MOVF FSR,W
SUBLW 02FH ;判断移位16个数据
BTFSS STATUS,Z
GOTO RD_LOOP ;如果移位没有完成则继续移位.
MOVF 040H,W ;将40H中的数据(实际是移位前3FH中的数据)放入30H中,以达到循环的效果.
MOVWF 030H
RETURN
;显示子程序********************
LCD_DISPLAY1
;LCD模块第一行字符显示子程序,显示"*LS Liengsing*"
;由于每向LCD模块的显示存贮器中写入一个字符模块的显示存贮器地址指针就加1,不用人工干预.
MOVLW '*'
CALL DATA_WR
MOVLW '*'
CALL DATA_WR
MOVLW 'L'
CALL DATA_WR
MOVLW 'S'
CALL DATA_WR
MOVLW ' '
CALL DATA_WR
MOVLW ' '
CALL DATA_WR
MOVLW 'E'
CALL DATA_WR
MOVLW 'n'
CALL DATA_WR
MOVLW 'g'
CALL DATA_WR
MOVLW 'i'
CALL DATA_WR
MOVLW 'n'
CALL DATA_WR
MOVLW 'e'
CALL DATA_WR
MOVLW 'e'
CALL DATA_WR
MOVLW 'r'
CALL DATA_WR
MOVLW '*'
CALL DATA_WR
MOVLW '*'
CALL DATA_WR
RETURN
LCD_DISPLAY2
;LCD模块第二行字符显示子程序,显示"****Liu Gang****"
MOVLW '*'
CALL DATA_WR
MOVLW '*'
CALL DATA_WR
MOVLW '*'
CALL DATA_WR
MOVLW '*'
CALL DATA_WR
MOVLW 'L'
CALL DATA_WR
MOVLW 'i'
CALL DATA_WR
MOVLW 'u'
CALL DATA_WR
MOVLW ' '
CALL DATA_WR
MOVLW 'G'
CALL DATA_WR
MOVLW 'a'
CALL DATA_WR
MOVLW 'n'
CALL DATA_WR
MOVLW 'g'
CALL DATA_WR
MOVLW '*'
CALL DATA_WR
MOVLW '*'
CALL DATA_WR
MOVLW '*'
CALL DATA_WR
MOVLW '*'
CALL DATA_WR
RETURN
;命令字写入子程序**************
COMAND_WR
BCF PORTE,LCD_RS ;置命令字操作.
BCF PORTE,LCD_RW ;置写入操作
MOVWF PORTB ;将要写入的命令数据送B端口.
BSF PORTE,LCD_E ;向LCD模块写入命令字时模块的Enable端应出现正脉冲
NOP ;厂家给出的数据手册中要求E信号脉冲最小宽度为150ns
;在时钟频率为20MHz时,PIC16F877指令周期为200ns,虽然
;可以满足要求,但为了保险起见,建议在中间插入一个NOP指令.
BCF PORTE,LCD_E
CALL BUSYCHECK ;在每次写入完后检查LCD模块的Busy信号,此信号置1表示还不能进行下一次写入
RETURN
;数据写入子程序**************
DATA_WR
BSF PORTE,LCD_RS ;置数据操作.
BCF PORTE,LCD_RW ;置写入操作
MOVWF PORTB ;将要写入的数据送B端口.
BSF PORTE,LCD_E ;进行写入操作
NOP
BCF PORTE,LCD_E
CALL BUSYCHECK ;在每次写入完后检查LCD模块的Busy信号,此信号置1表示还不能进行下一次写入
RETURN
;读数据子程序***************
DATA_RD
BANKSEL TRISB ;选择体1
MOVLW 0FFH
MOVWF TRISB ;将B口方向设为输入方式
BCF STATUS,RP0 ;回到体0
BSF PORTE,LCD_RS ;置数据操作.
BSF PORTE,LCD_RW ;置读出操作.
BSF PORTE,LCD_E ;从LCD模块的显示存贮器中读出数据.
NOP
BCF PORTE,LCD_E
MOVF PORTB,W
MOVWF DATA_TEMP ;将读出的数据保存.
CALL BUSYCHECK ;在每次读出完后检查LCD模块的Busy信号,此信号置1表示还不能进行下一次写入
RETURN
;Busy信号检测子程序*********
BUSYCHECK
BANKSEL TRISB ;选择体1
MOVLW 0FFH
MOVWF TRISB ;将B口方向设为输入方式
BCF STATUS,RP0 ;回到体0
BCF PORTE,LCD_RS ;置命令字操作.
BSF PORTE,LCD_RW ;置读出操作.
BSF PORTE,LCD_E
NOP
BCF PORTE,LCD_E
BTFSC PORTB,7 ;检查LCD模块的Busy位是否为高.
GOTO BUSYCHECK ;如果为高电平则等待.
BCF PORTE,LCD_RW ;将RW控制线恢复成写状态.
BANKSEL TRISB ;选择体1
CLRF TRISB ;将B口恢复为输出状态.
BCF STATUS,RP0 ;返回到体0
RETURN
; 以下为延时子程序 **************************************************
DELAYTIME5
MOVLW D'51
MOVWF COUNT2
LOOP01
MOVLW D'255
MOVWF COUNT3
LOOP02
DECFSZ COUNT3
GOTO LOOP02
DECFSZ COUNT2
GOTO LOOP01
RETURN
;****************************
DELAYTIME10
MOVLW D'101
MOVWF COUNT2
LOOP11
MOVLW D'255
MOVWF COUNT3
LOOP12
DECFSZ COUNT3
GOTO LOOP12
DECFSZ COUNT2
GOTO LOOP11
RETURN
;***************************
DELAYTIME500
MOVLW D'20
MOVWF COUNT4
LOOP21
MOVLW D'255
MOVWF COUNT3
LOOP22
MOVLW D'255
MOVWF COUNT2
LOOP23
DECFSZ COUNT2
GOTO LOOP23
DECFSZ COUNT3
GOTO LOOP22
DECFSZ COUNT4
GOTO LOOP21
RETURN
;***************************
DELAYTIME250
MOVLW D'10
MOVWF COUNT4
LOOP41
MOVLW D'255
MOVWF COUNT3
LOOP42
MOVLW D'255
MOVWF COUNT2
LOOP43
DECFSZ COUNT2
GOTO LOOP43
DECFSZ COUNT3
GOTO LOOP42
DECFSZ COUNT4
GOTO LOOP41
RETURN
END
这是本人刚学PIC时编的一段试验程序，用来驱动TS1620型字符液晶显示模块，传上来的程序是经本人实测后通过的，各位按图接线后，可以直接写入实验。此LCD模块在深圳赛格很易买到，带背光，价格16元（很划算吧？），对于初学PIC的朋友来说应该很合适。
如果各位认为不错请回贴表示支持，如果认为有什么不妥的地方请高手指正，谢谢！
上传的压缩包中有电路图、测试照片、TS1620型字符液晶显示模块的详细资料（注：SMA1602A与TS1620-1完全一样，厂家提供的TS1620-1资料是E文的，没要。）。
--------------------------------------------------------------------------------
以下内容为需要回复才能浏览
;********************************LCD模块测试程序**************************
;编程:刘钢
;日期:2005/1/21
;*********************************器件说明*********************************
;用PIC16F877A驱动LCD模块
;LCD模块,型号:ST1620-1
;LCD模块初始化,由厂家提供的资料显示,其初始化过程为:
;1----延时15ms
;2----写指令38H(写入之前不用检测Busy信号)
;3----延时5ms
;4----再次写入38H指令(写入之前不用检测Busy信号),至于为什么要重复写入现在不清楚,而且下面还要写一次.
;5----延时5ms
;4----再次写入38H指令(写入之前不用检测Busy信号)
;5----检测Busy信号;
;6----写指令38H,此条指令是将LCD显示模块设置为8位数据线,双行,5X7点阵显示
;7----检测Busy信号;
;8----写指令08H,关闭显示
;9----检测Busy信号;
;10---写指令01H,显示清屏
;以后写入光标等的控制指令.
;**********************************************************
LIST P=PIC16F877A ;告诉汇编器所要汇编的器件型号
INCLUDE "P16F877.INC" ;汇编程序的头文件
;设置单片机的特殊存储器位,使用HS(高速)晶振,打开上电延时复位功能,
;关闭看门狗,关闭低电压编程功能.
__CONFIG _HS_OSC &_PWRTE_ON&_WDT_OFF&_LVP_OFF
;注意:在CONFIG前面一定要加上两条下画线,否则汇编时会出错!!!
;************************************************************
LCD_RS EQU 02H
LCD_RW EQU 01H
LCD_E EQU 00H
COUNT1 EQU 020H
COUNT2 EQU 021H
COUNT3 EQU 022H
COUNT4 EQU 023H
DATA_TEMP EQU 041H
DATADO EQU 042H
;*********************************************************
ORG 0000H ;上电复位初始地址
GOTO MAIN
;*********************************************************
ORG 0010H ;主程序起始地址
MAIN
;初始化端口
BANKSEL ADCON1 ;选择体1
BCF INTCON,GIE ;关闭中断
MOVLW 07H
MOVWF ADCON1 ;上电时有A/D转换功能的端子全部被设为了A状态,
MOVLW 0XFF
MOVWF TRISA ;暂时将A口设为输入
CLRF TRISB ;设B口为输出
CLRF TRISC ;设C口为输出
CLRF TRISE ;设E口为普通I/O口,RE0-RE2为输出口
MOVLW 0XFF
MOVWF TRISD ;暂时将D口设为输入
BANKSEL PORTC ;选择体0
;初始化LCD模块***********************************************************************
CALL DELAYTIME10 ;LCD上电延时15秒钟,使LCD上建立工作所需电压.
CALL DELAYTIME10
MOVLW 038H ;写入38H指令,本来在此不用检测Busy信号(在COMAND_WR子程序
CALL COMAND_WR ;中包含有检测Busy信号的子程序),但此处不想单独编写命令写
;入程序,所以全部用同一个命令写入子程序.
CALL DELAYTIME5
MOVLW 038H ;再次写入38H指令(写入之前不用检测Busy信号),至于为什么要
CALL COMAND_WR ;重复写入现在不清楚,而且下面还要写一次.
CALL DELAYTIME5
MOVLW 038H
CALL COMAND_WR
CALL DELAYTIME5
MOVLW 038H
CALL COMAND_WR
MOVLW 08H ;并闭LCD模块的显示.
CALL COMAND_WR
MOVLW 01H ;清LCD模块显示.
CALL COMAND_WR
MOVLW 06H ;将模块设为向显示数据存贮器写入一个数据后,地址或光标加
CALL COMAND_WR ;1,即后写入的字符处于显示屏的右边.
;以下为LCD显示测试程序**************************************************************
;为了使程序具有通用性,所以将命令字的写入,数据的写入与读出程序都做成了子程序.
MOVLW 0CH ;开LCD模块的显示
CALL COMAND_WR
LCD_DISPLAY
MOVLW 080H ;设置第一行字符从第一位开始显示.由于已经将指针
CALL COMAND_WR ;设为了每向显示存贮器写入一个数据指针加1,所以越
;后写入的数据会越靠近右边.另外,由于在LCD模块的
;初始化时已经写入了清显示命令,光标及显示存贮器
;的地址指针已回到了00H,所以在此处不写入此段命令
;也可以.
CALL LCD_DISPLAY1 ;显示第一行字符
MOVLW 0C0H ;设置第二行字符从第一位开始显示.
CALL COMAND_WR
CALL LCD_DISPLAY2
DISPLAY_LOOP
CALL SWAP ;读出LCD显示数据存贮器中的字符数据并移位.
CALL DELAYTIME250 ;延时.
MOVLW 0C0H ;写入显示数据存贮器的首地址.
CALL COMAND_WR
MOVLW 030H ;数据表指针.
MOVWF FSR
WR_LOOP
MOVF INDF,W ;将数据表中的数据写入到LCD模块显示数据存贮器中.
CALL DATA_WR
INCF FSR
MOVF FSR,W
SUBLW 040H ;是否已经将16个字符数据全部写入到LCD模块中.
BTFSS STATUS,Z
GOTO WR_LOOP ;没有写完则返回继续写入.
GOTO DISPLAY_LOOP
;*****************************以下为各子程序********************************
;移位子程序
;程序功能:使字符向左流动并循环显示.在本程序中,只是第二行的字符会流动显示,第一行字符固定显示.
;移位原理:将LCD模块的显示存贮器内的40H~4FH(对应第二行显示存贮器的第1字符到第16字符)数据读出,
; 依次放置于地址为30H~3FH的数据寄存器器中,然后将其整体向下移一位.以达到字符流动显示的
; 效果,并将40H中的数据取出放入30H中,以达到循环的效果.
SWAP
MOVLW 030H ;设置数据表(30H~40H寄存器)指针起始值
MOVWF FSR ;数据表指针.
MOVLW 0C0H ;设置想要读出的LCD模块的显示存贮器的起始地址,此处的C0H对
;应LCD模块第二行的第1个字符
CALL COMAND_WR
READ
CALL DATA_RD ;调数据读出子程序从LCD模块的显示存贮器中读出数据,每读一次
;LCD显示存贮器的地址指针会自动加1,不用人工干预.
MOVF DATA_TEMP,W ;将子程序读出的数据存于W中.
MOVWF INDF ;用间接寻址指令将读出的数据存入以FSR为指针的寄存器中.
INCF FSR ;将指针加1,指向下一个寄存器.
MOVF FSR,W ;检查指针数值是否达到40H,如果达到40H表明已经读出了16个数据
SUBLW 040H ;将指针数据与40H相减.
BTFSS STATUS,Z ;如果为零则状态寄存器的Z位置1.
GOTO READ ;如果不为零则表示还没有读出16个数据,转回再继续读出.
MOVLW 03FH
MOVWF FSR ;设置寄存器指针,这次的指针用于移位.
RD_LOOP
MOVF INDF,W ;将指针所指的寄存器中的数据取出.
INCF FSR ;将指针加1.
MOVWF INDF ;将先前从寄存器中取出的数据写入到下一个寄存器中(因为指针被加1).
DECF FSR ;将指针减1,消去刚才加上的1.
DECF FSR ;将指针减1,指向上一个寄存器.
MOVF FSR,W
SUBLW 02FH ;判断移位16个数据
BTFSS STATUS,Z
GOTO RD_LOOP ;如果移位没有完成则继续移位.
MOVF 040H,W ;将40H中的数据(实际是移位前3FH中的数据)放入30H中,以达到循环的效果.
MOVWF 030H
RETURN
;显示子程序********************
LCD_DISPLAY1
;LCD模块第一行字符显示子程序,显示"*LS Liengsing*"
;由于每向LCD模块的显示存贮器中写入一个字符模块的显示存贮器地址指针就加1,不用人工干预.
MOVLW '*'
CALL DATA_WR
MOVLW '*'
CALL DATA_WR
MOVLW 'L'
CALL DATA_WR
MOVLW 'S'
CALL DATA_WR
MOVLW ' '
CALL DATA_WR
MOVLW ' '
CALL DATA_WR
MOVLW 'E'
CALL DATA_WR
MOVLW 'n'
CALL DATA_WR
MOVLW 'g'
CALL DATA_WR
MOVLW 'i'
CALL DATA_WR
MOVLW 'n'
CALL DATA_WR
MOVLW 'e'
CALL DATA_WR
MOVLW 'e'
CALL DATA_WR
MOVLW 'r'
CALL DATA_WR
MOVLW '*'
CALL DATA_WR
MOVLW '*'
CALL DATA_WR
RETURN
LCD_DISPLAY2
;LCD模块第二行字符显示子程序,显示"****Liu Gang****"
MOVLW '*'
CALL DATA_WR
MOVLW '*'
CALL DATA_WR
MOVLW '*'
CALL DATA_WR
MOVLW '*'
CALL DATA_WR
MOVLW 'L'
CALL DATA_WR
MOVLW 'i'
CALL DATA_WR
MOVLW 'u'
CALL DATA_WR
MOVLW ' '
CALL DATA_WR
MOVLW 'G'
CALL DATA_WR
MOVLW 'a'
CALL DATA_WR
MOVLW 'n'
CALL DATA_WR
MOVLW 'g'
CALL DATA_WR
MOVLW '*'
CALL DATA_WR
MOVLW '*'
CALL DATA_WR
MOVLW '*'
CALL DATA_WR
MOVLW '*'
CALL DATA_WR
RETURN
;命令字写入子程序**************
COMAND_WR
BCF PORTE,LCD_RS ;置命令字操作.
BCF PORTE,LCD_RW ;置写入操作
MOVWF PORTB ;将要写入的命令数据送B端口.
BSF PORTE,LCD_E ;向LCD模块写入命令字时模块的Enable端应出现正脉冲
NOP ;厂家给出的数据手册中要求E信号脉冲最小宽度为150ns
;在时钟频率为20MHz时,PIC16F877指令周期为200ns,虽然
;可以满足要求,但为了保险起见,建议在中间插入一个NOP指令.
BCF PORTE,LCD_E
CALL BUSYCHECK ;在每次写入完后检查LCD模块的Busy信号,此信号置1表示还不能进行下一次写入
RETURN
;数据写入子程序**************
DATA_WR
BSF PORTE,LCD_RS ;置数据操作.
BCF PORTE,LCD_RW ;置写入操作
MOVWF PORTB ;将要写入的数据送B端口.
BSF PORTE,LCD_E ;进行写入操作
NOP
BCF PORTE,LCD_E
CALL BUSYCHECK ;在每次写入完后检查LCD模块的Busy信号,此信号置1表示还不能进行下一次写入
RETURN
;读数据子程序***************
DATA_RD
BANKSEL TRISB ;选择体1
MOVLW 0FFH
MOVWF TRISB ;将B口方向设为输入方式
BCF STATUS,RP0 ;回到体0
BSF PORTE,LCD_RS ;置数据操作.
BSF PORTE,LCD_RW ;置读出操作.
BSF PORTE,LCD_E ;从LCD模块的显示存贮器中读出数据.
NOP
BCF PORTE,LCD_E
MOVF PORTB,W
MOVWF DATA_TEMP ;将读出的数据保存.
CALL BUSYCHECK ;在每次读出完后检查LCD模块的Busy信号,此信号置1表示还不能进行下一次写入
RETURN
;Busy信号检测子程序*********
BUSYCHECK
BANKSEL TRISB ;选择体1
MOVLW 0FFH
MOVWF TRISB ;将B口方向设为输入方式
BCF STATUS,RP0 ;回到体0
BCF PORTE,LCD_RS ;置命令字操作.
BSF PORTE,LCD_RW ;置读出操作.
BSF PORTE,LCD_E
NOP
BCF PORTE,LCD_E
BTFSC PORTB,7 ;检查LCD模块的Busy位是否为高.
GOTO BUSYCHECK ;如果为高电平则等待.
BCF PORTE,LCD_RW ;将RW控制线恢复成写状态.
BANKSEL TRISB ;选择体1
CLRF TRISB ;将B口恢复为输出状态.
BCF STATUS,RP0 ;返回到体0
RETURN
; 以下为延时子程序 **************************************************
DELAYTIME5
MOVLW D'51
MOVWF COUNT2
LOOP01
MOVLW D'255
MOVWF COUNT3
LOOP02
DECFSZ COUNT3
GOTO LOOP02
DECFSZ COUNT2
GOTO LOOP01
RETURN
;****************************
DELAYTIME10
MOVLW D'101
MOVWF COUNT2
LOOP11
MOVLW D'255
MOVWF COUNT3
LOOP12
DECFSZ COUNT3
GOTO LOOP12
DECFSZ COUNT2
GOTO LOOP11
RETURN
;***************************
DELAYTIME500
MOVLW D'20
MOVWF COUNT4
LOOP21
MOVLW D'255
MOVWF COUNT3
LOOP22
MOVLW D'255
MOVWF COUNT2
LOOP23
DECFSZ COUNT2
GOTO LOOP23
DECFSZ COUNT3
GOTO LOOP22
DECFSZ COUNT4
GOTO LOOP21
RETURN
;***************************
DELAYTIME250
MOVLW D'10
MOVWF COUNT4
LOOP41
MOVLW D'255
MOVWF COUNT3
LOOP42
MOVLW D'255
MOVWF COUNT2
LOOP43
DECFSZ COUNT2
GOTO LOOP43
DECFSZ COUNT3
GOTO LOOP42
DECFSZ COUNT4
GOTO LOOP41
RETURN
END
