PIC 单片机 LCD1602显示本站网址和电话

;************************************
PCL     EQU 2H   ;定义程序存储器低字节地址
STATUS  EQU 3H   ;定义状态寄存器地址
PORTD   EQU 8H   ;定义RD口数据寄存器地址

PORTC   EQU 7H   ;定义RC口数据寄存器地址
TRISD   EQU 88H  ;定义RD口方向控制寄存器地址
TRISC   EQU 87H  ;定义RC口方向控制寄存器地址
ADCON1  EQU 9FH  ;定义ADC模块控制寄存器1的地址
;********************
Z       EQU 2    ;定义0状态位的位地址
RP0     EQU 5    ;定义页选位RP0的位地址
;*********************
RS      EQU 2    ;LCD寄存器选择信号脚定义在RD.2脚
RW      EQU 1    ;LCD读/写信号脚定义在RD.1脚
E       EQU 0    ;LCD片选信号脚定义在RD.0脚
COUNT   EQU 24H  ;定义计数寄存器地址
TMP1    EQU 25H  ;定义临时寄存器地址
;**********************
  ORG 000H
  NOP            ;放置一条ICD必需的空操作指令
  GOTO MAIN
  ORG 0008H
;******************************************************
TABLE            ;取第一行的显示码 WWW、PICAVR、COM
  ADDWF PCL,1    ;地址偏移量加当前PC值
  RETLW 20H      ;空格
  RETLW 57H      ;W
  RETLW 57H      ;W
  RETLW 57H      ;W
  RETLW 2EH      ;.

  RETLW 50H      ;P
  RETLW 49H      ;I
  RETLW 43H      ;C
  RETLW 41H      ;A
  RETLW 56H      ;V
  RETLW 52H      ;R

  RETLW 2EH      ;.
  RETLW 43H      ;C
  RETLW 4FH      ;O
  RETLW 4DH      ;M
  RETLW 20H      ;空格
  RETLW 00H
;-------------------- ----------------------------------
TABLE1           ;取第二行的显示码TEL:020-86307727
  ADDWF PCL,1    ;地址偏移量加当前PC值                                                 
  RETLW 54H   ;T
  RETLW 45H   ;E                            
  RETLW 4CH      ;L
  RETLW 3AH      ;:

  RETLW 30H   ;0
  RETLW 32H   ;2
  RETLW 30H   ;0

  RETLW 0B0H     ;-
  RETLW 38H   ;8
  RETLW 36H      ;6
  RETLW 33H      ;3
  RETLW 30H      ;0
  RETLW 37H      ;7
  RETLW 37H      ;7
  RETLW 32H      ;2
  RETLW 37H      ;7
  RETLW 20H      ;空格
  RETLW 00H
;*******************************************************
MAIN

  BSF   STATUS,RP0         
  MOV LW 07H
  MOV WF ADCON1            ;设置RA口全部为普通数字IO口
  MOV LW 00H
  MOV WF TRISD             ;定义RD口,RC口全部为输出
  MOV WF TRISC
  BCF   STATUS,RP0

  CALL  DELAY             ;调用廷时,刚上电LCD复位不一定有PIC快
  MOV LW 01H
  MOV WF PORTC             ;清屏
  CALL  ENABLE
  MOV LW 38H
  MOV WF PORTC             ;8位2行5x7点阵
  CALL  ENABLE
  MOV LW 0FH               ;显示器开、光标开、闪烁开
  MOV WF PORTC
  CALL  ENABLE
  MOV LW 06H               ;文字不动，光标自动右移
  MOV WF PORTC            
  CALL  ENABLE

  MOV LW 80H
  MOV WF PORTC             ;显示位置
  CALL  ENABLE

  CALL  WRITE1            ;调用送第一行数子程序“WWW、PICAVR、COM"
  MOV LW 0C0H
  MOV WF PORTC             ;第一行的位置      
  CALL  ENABLE
  CALL  WRITE2            ;调用送第二行数子程序“TEL:020-86307727"
  CALL  ENABLE
  GOTO $
 
;***********************
WRITE1
  CLRF  COUNT          ;送第一行数字程序
WRITE_A
  MOV FW COUNT
  CALL  TABLE
  MOV WF TMP1
  CALL  WRITE3
  INCF  COUNT,1
  MOV FW TMP1
  XORLW 00H
  BTFSS STATUS,Z
  GOTO  WRITE_A
  RETLW 0
;*************************
WRITE2                 ;送第二行数子程序
  CLRF  COUNT
WRITE2_A
  MOV FW COUNT
  CALL  TABLE1
  MOV WF TMP1
  CALL  WRITE3
  INCF  COUNT,1
  MOV FW TMP1
  XORLW 00H
  BTFSS STATUS,Z
  GOTO  WRITE2_A
  RETLW 0
;**************************
WRITE3                 ;送数据到LCD子程序
  MOV WF PORTC
  BSF   PORTD,RS
  BCF   PORTD,RW
  BCF   PORTD,E
  CALL  DELAY
  BSF   PORTD,E
  RETLW 0
;*******************************************
ENABLE
  BCF   PORTD,RS       ;写入控制命令的子程序
  BCF   PORTD,RW
  BCF   PORTD,E
  CALL  DELAY
  BSF   PORTD,E
  RETLW 0
;********************************************
DELAY                      
                             ;子程序名，也是子程序入口地址
       MOV lw   0ffh          ;将外层循环参数值FFH经过W
       MOV wf   20h           ;送入用作外循环变量的20H单元
lp0    MOV lw   0ffh          ;将内层循环参数值FFH经过W
       MOV wf   21h           ;送入用作内循环变量的21H单元
lp1    decfsz  21h,1         ;变量21H内容递减，若为0跳跃
       goto    lp1           ;跳转到LP1处
       decfsz  20h,1         ;变量20H内容递减，若为0跳跃
       goto    lp0           ;跳跃到LP0处
       return                ;返回主程序
       end                   ;源程序结束