;**************************************************
  __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                   ;源程序结束