RP0 EQU 5 ;定义页选位RP0的位地址
#DEFINE RS PORTA,1
#DEFINE RW PORTA,2
#DEFINE E PORTA,3
COUNT EQU 24H ;定义计数寄存器地址
TMP1 EQU 25H ;定义临时寄存器地址
COUNTER EQU 26H
;**********************
ORG 000H
NOP ;放置一条ICD必需的空操作指令
GOTO MAIN
ORG 0008H
;******************************************************
TABLE
ADDWF PCL,1 ;地址偏移量加当前PC值
RETLW 20H ;空格
RETLW 20H ;
RETLW 41H ;A
RETLW 20H ;
RETLW 6CH ;l
RETLW 61H ;a
RETLW 7AH ;z
RETLW 79H ;y
RETLW 20H ;
RETLW 79H ;y
RETLW 6FH ;o
RETLW 75H ;u
RETLW 74H ;t
RETLW 68H ;h
RETLW 20H ;
RETLW 00H
;-------------------- ----------------------------------
TABLE1
ADDWF PCL,1 ;地址偏移量加当前PC值
RETLW 20H ;
RETLW 20H ;
RETLW 61H ;a
RETLW 20H ;
RETLW 6CH ;l
RETLW 6FH ;o
RETLW 75H ;u
RETLW 73H ;s
RETLW 79H ;y
RETLW 20H ;
RETLW 61H ;a
RETLW 67H ;g
RETLW 65H ;e
RETLW 20H ;
RETLW 00H
;*******************************************************
; 主程序
;******************************************************
MAIN
BSF STATUS,RP0 ;转体1
MOVLW 0EH
MOVWF ADCON1 ;设置RA口全部为普通数字IO口
MOVLW 00H
MOVWF TRISA ;定义A口为输出
MOVWF TRISD ;定义D口为输出
BCF STATUS,RP0 ;回体0
;-----------------------------------
;以下16条指令为设置LCD显示模式
;-----------------------------------
CALL DELAY ;调用延时,刚上电LCD复位不一定有PIC快(196MS)
MOVLW 01H
MOVWF PORTD ;清屏命令,数据指针清零，所有显示清零
CALL ENABLE ;调用写命令程序
MOVLW 38H
MOVWF PORTD ;8位2行5x7点阵
CALL ENABLE
MOVLW 0EH ;显示开、光标显示、光标不显示
MOVWF PORTD
CALL ENABLE ;当读或写一个字符后，地址指针加一，且光标加一
MOVLW 06H ;当写一个字符后，整屏显示不移动
MOVWF PORTD
;-----------------------------------
CALL ENABLE ;设置数据地址指针
MOVLW 80H
MOVWF PORTD ;第一行的位置
CALL ENABLE
CALL WRITE1 ;调用送第一行数子程序“WWW.PIC16.COM"
;---------------------------------
MOVLW 0C0H
MOVWF PORTD ;第二行的位置
CALL ENABLE
CALL WRITE2 ;调用送第二行数子程序“TEL0755-83643980"
GOTO $
;****************** 送第一行数字程序***************
WRITE1
CLRF COUNT ;清0查表偏移地址
WRITE_A
MOVF COUNT,W
CALL TABLE ;查表，显示A LAZY YOUTH
MOVWF TMP1 ;送暂存器
INCF COUNT,1 ;偏移地址加1
MOVF TMP1,W
XORLW 00H ;判断是否显示完所有数据（约定表格做后一个00H做为结束标志）
BTFSC STATUS,Z
GOTO ET ;全部显示完成
MOVF TMP1,W
CALL WRITE3 ;没有显示完，把当前查表所得数据送LCD显示
GOTO WRITE_A ;调用显示程序
ET NOP
RETURN ;子程序返回
;*******************送第二行数子程序**************
WRITE2
CLRF COUNT ;清0查表偏移地址
WRITE2_A
MOVF COUNT,W
CALL TABLE1 ;查表，显示A LOUSY AGE
MOVWF TMP1
INCF COUNT,1 ;偏移地址加1
MOVF TMP1,W
XORLW 00H ;判断是否显示完所有数据
BTFSC STATUS,Z
GOTO ET1 ;
MOVF TMP1,W
CALL WRITE3 ;调用显示程序
GOTO WRITE2_A
ET1 NOP
RETURN ;是，程序返回
;*******************送数据到LCD子程序*************
WRITE3
MOVWF PORTD
BSF RS
BCF RW
BCF E
CALL DELAY
BSF E
RETURN
;*******************写命令程序********************
ENABLE
BCF RS ;写入控制命令的子程序
BCF RW
BCF E
CALL DELAY ;高脉冲使能
BSF E
RETURN
;*********************延时子程序******************
DELAY
MOVLW 0FFH ;将外层循环参数值FFH经过W
MOVWF 20H ;送入用作外循环变量的20H单元
LP0
MOVLW 0FFH ;将内层循环参数值FFH经过W
MOVWF 21H ;送入用作内循环变量的21H单元
LP1
DECFSZ 21H,1 ;变量21H内容递减，若为0跳跃
GOTO LP1 ;跳转到LP1处
DECFSZ 20H,1 ;变量20H内容递减，若为0跳跃
GOTO LP0 ;跳跃到LP0处
RETURN ;返回主程序
;--------------------------------------------------------------
END