PIC單片機LCD1602顯示單個A字程序

STATUS EQU 3H ;定義狀態(tài)寄存器地址
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狀態(tài)位的位地址
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 ;將外層循環(huán)參數值FFH經過W
MOV wf 20h ;送入用作外循環(huán)變量的20H單元
lp0 MOV lw 0ffh ;將內層循環(huán)參數值FFH經過W
MOV wf 21h ;送入用作內循環(huán)變量的21H單元
lp1 nop
decfsz 21h,1 ;變量21H內容遞減，若為0跳躍
goto lp1 ;跳轉到LP1處
decfsz 20h,1 ;變量20H內容遞減，若為0跳躍
goto lp0 ;跳躍到LP0處
return ;返回主程序
end ;源程序結束