PIC 单片机 LCD1602显示单个A字程序

STATUS  EQU 3H      ;定义状态寄存器地址
PORTA   EQU 5H      ;定义RA口数据寄存器地址
PORTC   EQU 7H      ;定义RC口数据寄存器地址

PORTD   EQU 8H      ;定义RD口数据寄存器地址
TRISA   EQU 85H     ;定义RA口方向控制寄存器地址
TRISC   EQU 87H     ;定义RC口方向控制寄存器地址
TRISD   EQU 88H     ;定义RD口方向控制寄存器地址
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脚
;**********************
  ORG    000H
  NOP               ;放置一条ICD必需的空操作指令
  GOTO   MAIN
  ORG    0008H
MAIN
  BSF    STATUS,RP0    
   MOV LW  07H
   MOV WF  ADCON1       ;设置RA口全部为普通数字IO口
   MOV LW  00H          ;定义RA口,RC,RD口全部为输出
   MOV WF  TRISC
   MOV WF  TRISD
  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  0C0H
   MOV WF  PORTC        ;写入显示起始地址（第一行第一个位置）
  CALL   ENABLE
   MOV LW  41H
   MOV WF  PORTC        ;字母"A"的代码
  BSF    PORTD,RS
  BCF    PORTD,RW
  BCF    PORTD,E
  CALL   DELAY
  BSF    PORTD,E
  GOTO   $
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   nop
      decfsz  21h,1         ;变量21H内容递减，若为0跳跃
      goto    lp1           ;跳转到LP1处
      decfsz  20h,1         ;变量20H内容递减，若为0跳跃
      goto    lp0           ;跳跃到LP0处
      return                ;返回主程序
      end                   ;源程序结束