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