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