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