PIC單片機LCD1602顯示本站網址和電話

;************************************
PCL EQU 2H ;定義程序存儲器低字節(jié)地址
STATUS EQU 3H ;定義狀態(tài)寄存器地址
PORTD EQU 8H ;定義RD口數據寄存器地址

PORTC EQU 7H ;定義RC口數據寄存器地址
TRISD EQU 88H ;定義RD口方向控制寄存器地址
TRISC EQU 87H ;定義RC口方向控制寄存器地址
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腳
COUNT EQU 24H ;定義計數寄存器地址
TMP1 EQU 25H ;定義臨時寄存器地址
;**********************
ORG 000H
NOP ;放置一條ICD必需的空操作指令
GOTO MAIN
ORG 0008H
;******************************************************
TABLE ;取第一行的顯示碼 WWW.PICAVR.COM
ADDWF PCL,1 ;地址偏移量加當前PC值
RETLW 20H ;空格
RETLW 57H ;W
RETLW 57H ;W
RETLW 57H ;W
RETLW 2EH ;.

RETLW 50H ;P
RETLW 49H ;I
RETLW 43H ;C
RETLW 41H ;A
RETLW 56H ;V
RETLW 52H ;R

RETLW 2EH ;.
RETLW 43H ;C
RETLW 4FH ;O
RETLW 4DH ;M
RETLW 20H ;空格
RETLW 00H
;-------------------- ----------------------------------
TABLE1 ;取第二行的顯示碼TEL:020-86307727
ADDWF PCL,1 ;地址偏移量加當前PC值
RETLW 54H ;T
RETLW 45H ;E
RETLW 4CH ;L
RETLW 3AH ;:

RETLW 30H ;0
RETLW 32H ;2
RETLW 30H ;0

RETLW 0B0H ;-
RETLW 38H ;8
RETLW 36H ;6
RETLW 33H ;3
RETLW 30H ;0
RETLW 37H ;7
RETLW 37H ;7
RETLW 32H ;2
RETLW 37H ;7
RETLW 20H ;空格
RETLW 00H
;*******************************************************
MAIN

BSF STATUS,RP0
MOV LW 07H
MOV WF ADCON1 ;設置RA口全部為普通數字IO口
MOV LW 00H
MOV WF TRISD ;定義RD口,RC口全部為輸出
MOV WF TRISC
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 80H
MOV WF PORTC ;顯示位置
CALL ENABLE

CALL WRITE1 ;調用送第一行數子程序“WWW.PICAVR.COM"
MOV LW 0C0H
MOV WF PORTC ;第一行的位置
CALL ENABLE
CALL WRITE2 ;調用送第二行數子程序“TEL:020-86307727"
CALL ENABLE
GOTO $

;***********************
WRITE1
CLRF COUNT ;送第一行數字程序
WRITE_A
MOV FW COUNT
CALL TABLE
MOV WF TMP1
CALL WRITE3
INCF COUNT,1
MOV FW TMP1
XORLW 00H
BTFSS STATUS,Z
GOTO WRITE_A
RETLW 0
;*************************
WRITE2 ;送第二行數子程序
CLRF COUNT
WRITE2_A
MOV FW COUNT
CALL TABLE1
MOV WF TMP1
CALL WRITE3
INCF COUNT,1
MOV FW TMP1
XORLW 00H
BTFSS STATUS,Z
GOTO WRITE2_A
RETLW 0
;**************************
WRITE3 ;送數據到LCD子程序
MOV WF PORTC
BSF PORTD,RS
BCF PORTD,RW
BCF PORTD,E
CALL DELAY
BSF PORTD,E
RETLW 0
;*******************************************
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 decfsz 21h,1 ;變量21H內容遞減，若為0跳躍
goto lp1 ;跳轉到LP1處
decfsz 20h,1 ;變量20H內容遞減，若為0跳躍
goto lp0 ;跳躍到LP0處
return ;返回主程序
end ;源程序結束