;**************************************************
   __CONFIG 3F39H;设置配置位中振荡方式为XT,其它全部禁止或关闭
;**********************************************
STATUS   EQU 3H     ;定义状态寄存器地址
PORTA     EQU 5H     ;定义RA口数据寄存器地址
PORTC     EQU 7H     ;定义RC口数据寄存器地址
TRISA     EQU 85H   ;定义RA口方向控制寄存器地址
TRISC     EQU 87H   ;定义RC口方向控制寄存器地址
ADCON1   EQU 9FH   ;定义ADC模块控制寄存器1的地址
;********************
Z             EQU 2       ;定义0状态位的位地址
RP0         EQU 5       ;定义页选位RP0的位地址
;*********************
RS EQU 1                 ;LCD寄存器选择信号脚定义在RA.1脚
RW EQU 2                 ;LCD读/写信号脚定义在RA.2脚
E   EQU 3                 ;LCD片选信号脚定义在RA.3脚
;**********************
   ORG 000H
   NOP                       ;放置一条ICD必需的空操作指令
   GOTO MAIN
   ORG 0008H
MAIN
   BSF STATUS,RP0        
   MOVLW 07H
   MOVWF ADCON1           ;设置RA口全部为普通数字IO口
   MOVLW 00H                   ;定义RA口,RC口全部为输出
   MOVWF TRISA
   MOVWF TRISC
   BCF STATUS,RP0

   CALL DELAY                 ;调用廷时,刚上电LCD复位不一定有PIC快
   MOVLW 01H
   MOVWF PORTC               ;清屏
   CALL ENABLE
   MOVLW 38H
   MOVWF PORTC               ;8位2行5x7点阵
   CALL ENABLE
   MOVLW 0FH
   MOVWF PORTC               ;显示器开、光标开、闪烁开
   CALL ENABLE
   MOVLW 06H
   MOVWF PORTC                 ;文字不动，光标自动右移
   CALL ENABLE
   MOVLW 0C0H
   MOVWF PORTC                 ;写入显示起始地址（第一行第一个位置）
   CALL ENABLE
   MOVLW 42H
   MOVWF PORTC                 ;字母"B"的代码
   BSF PORTA,RS
   BCF PORTA,RW
   BCF PORTA,E
   CALL DELAY
   BSF PORTA,E
   GOTO $
ENABLE
   BCF PORTA,RS                 ;写入控制命令的子程序
   BCF PORTA,RW
   BCF PORTA,E
   CALL DELAY
   BSF PORTA,E
   RETLW 0
;********************************************
DELAY                                            
                                                         ;子程序名，也是子程序入口地址
             MOVlw     0ffh                   ;将外层循环参数值FFH经过W
             MOVwf     20h                   ;送入用作外循环变量的20H单元
lp0       MOVlw     0ffh                   ;将内层循环参数值FFH经过W
             MOVwf     21h                     ;送入用作内循环变量的21H单元
lp1       nop
             decfsz     21h,1                 ;变量21H内容递减，若为0跳跃
             goto         lp1                     ;跳转到LP1处
             decfsz       20h,1                 ;变量20H内容递减，若为0跳跃
             goto         lp0                     ;跳跃到LP0处
             return                                 ;返回主程序
             end                                     ;源程序结束