;*************************************
;CONTROLLER:ST7920(8BIT INTERFACE)
;128×64 點陣
;EDITOR:JACK
;CRYSTAL:12MHz
;RS=P3.0 RW=P3.1 E=P3.2 D0-D7=P1
;*************************************
RS EQU P3.0 ;H=DATA,L=COM
RW EQU P3.1 ;H=READ,L=WRITE
E EQU P3.2 ;
COM EQU 30H ;控制字暫存單元
DAT EQU 31H ;顯示數據暫存單元
CODER EQU 32H ;字符代碼暫存單元
ADDR EQU 33H ;地址暫存單元
ORG 0000H
AJMP MAIN
MAIN:
MOV SP,#60H
MOV P3,#0F8H
LCALL DEL_20MS
LCALL DEL_20MS
LCALL INI ;進入初始化子程序
MOV ADDR,#80H
MOV DPTR,#WEL_1
LCALL W_LINE
MOV ADDR,#90H
MOV DPTR,#WEL_2
LCALL W_LINE
MOV ADDR,#88H
MOV DPTR,#WEL_3
LCALL W_LINE
MOV ADDR,#98H
MOV DPTR,#WEL_4
LCALL W_LINE
LCALL DEL_1500MS
MOV ADDR,#80H
MOV DPTR,#WEL_5
LCALL W_LINE
MOV ADDR,#90H
MOV DPTR,#WEL_6
LCALL W_LINE
MOV ADDR,#88H
MOV DPTR,#WEL_7
LCALL W_LINE
MOV ADDR,#98H
MOV DPTR,#WEL_8
LCALL W_LINE
LCALL DEL_1500MS
MOV ADDR,#80H ;
MOV DPTR,#HZ_1 ;
LCALL W_LINE
MOV ADDR,#90H ;
MOV DPTR,#HZ_2 ;
LCALL W_LINE
MOV ADDR,#88H ;
MOV DPTR,#HZ_3 ;
LCALL W_LINE
MOV ADDR,#98H ;
MOV DPTR,#HZ_4 ;
LCALL W_LINE
LCALL DEL_1500MS ;延時后顯示下一頁
MOV ADDR,#80H ;
MOV DPTR,#HZ_5 ;
LCALL W_LINE
MOV ADDR,#90H ;
MOV DPTR,#HZ_6 ;
LCALL W_LINE
MOV ADDR,#88H ;
MOV DPTR,#HZ_7 ;
LCALL W_LINE
MOV ADDR,#98H ;
MOV DPTR,#HZ_8 ;
LCALL W_LINE
LCALL DEL_1500MS
LJMP MAIN
INI:
MOV COM,#30H ;功能設定,基本指令
LCALL WCOM
MOV COM,#30H ;基本指令,8-bit 模式,基本指令
LCALL WCOM
MOV COM,#0CH ;顯示開,游標關,反白關
LCALL WCOM
MOV COM,#01H ;清除顯示
LCALL WCOM
MOV COM,#06H ;進入設定點,游標 7 右移,畫面不移動
LCALL WCOM
RET
W_LINE: ;寫入一行 8 漢字子程序
MOV COM,ADDR ;
LCALL WCOM ;
MOV R2,#16 ;16 個循環,連續寫入 8 個漢字或是 16 個西文字符
W_L1:
MOV A,#00H
MOVC A,@A+DPTR
MOV CODER,A
LCALL WCODE
INC DPTR
DJNZ R2,W_L1
RET
WCOM: ;寫指令子程序
CLR RS
SETB RW
WC1:
MOV P1,#0FFH
SETB E
MOV A,P1
CLR E
JB ACC.7,WC1 ;查忙
CLR RW
MOV P1,COM
SETB E
CLR E
RET
WCODE: ;寫代碼子程序
CLR RS
SETB RW
WCO1:
MOV P1,#0FFH
SETB E
MOV A,P1
CLR E
JB ACC.7,WCO1
SETB RS
CLR RW
MOV P1,CODER
SETB E
CLR E
RET
DEL_20MS:
MOV R0,#20
D2:
MOV R1,#200
D1:
NOP
NOP
NOP
DJNZ R1,D1
DJNZ R0,D2
RET
DEL_100MS:
LCALL DEL_20MS
LCALL DEL_20MS
LCALL DEL_20MS
LCALL DEL_20MS
LCALL DEL_20MS
RET
DEL_500MS:
LCALL DEL_100MS
LCALL DEL_100MS
LCALL DEL_100MS
LCALL DEL_100MS
LCALL DEL_100MS
RET
DEL_1500MS:
LCALL DEL_500MS
LCALL DEL_500MS
LCALL DEL_500MS
RET
WEL_1:
DB "歡迎使用亞斌液晶"
WEL_2:
DB "1234567890"
WEL_3:
DB "86-0755-28072527"
WEL_4:
DB "128X64 全點陣顯示"
WEL_5:
DB "圖形以及字符顯示"
WEL_6:
DB "可顯示 8X4 個中文"
WEL_7:
DB "內帶標準中文字庫"
WEL_8:
DB "含 8192 個中文字型"
HZ_1:
DB "昨夜星辰昨夜風，"
HZ_2:
DB "畫樓西畔桂堂東。"
HZ_3:
DB "身無彩鳳雙飛翼，"
HZ_4:
DB "心有靈犀一點通。"
HZ_5:
DB "隔座送鉤春酒暖，"
HZ_6:
DB "分曹射覆蠟燈紅。"
HZ_7:
DB "嗟余聽鼓應官去，"
HZ_8:
DB "走馬蘭臺類轉蓬。"
END
|
