?? dxkxgd.asm
字號:
;顯示為“電子科技大學電信科協-方紹湖”的滾動液晶程序。
COLUMN DATA 30H
PAGE1 DATA 31H
WORD DATA 32H
CODE1 DATA 33H
COUNT DATA 34H
COM DATA 35H
DAT DATA 36H
PAGE2 DATA 37H
RS BIT P3.0
RW BIT P3.1
E BIT P3.2
CS1 BIT P3.4
CS2 BIT P3.5
ORG 00H
AJMP MAIN
ORG 0050H
MAIN: MOV PAGE2,#0C0H ;寫顯示初始行
MOV COM,PAGE2
LCALL PR0
LCALL PR2
MAIN1: MOV PAGE1,#00H
MOV CODE1, #00H ;初始化子程序
MOV COLUMN ,#00H
CLR P3.2
SETB P3.4
SETB P3.5
MOV COM,#3FH ;開液晶顯示
LCALL PR0
LCALL PR2
LCALL CLEAR ; 清顯示RAM為零
MOV PAGE1,#00H ;寫入要顯示的字符
MOV COLUMN,#00
MOV CODE1,#00
LCALL DISPLAY
MOV PAGE1,#00
MOV COLUMN,#22
MOV CODE1,#01H
LCALL DISPLAY
MOV PAGE1,#00H
MOV COLUMN,#44
MOV CODE1,#02
LCALL DISPLAY
MOV PAGE1,#00H
MOV COLUMN,#66
MOV CODE1,#03
LCALL DISPLAY
MOV PAGE1,#00H
MOV COLUMN,#88
MOV CODE1,#04
LCALL DISPLAY
MOV PAGE1,#00H
MOV COLUMN,#110
MOV CODE1,#05
LCALL DISPLAY
MOV PAGE1,#02H
MOV COLUMN,#00
MOV CODE1,#06
LCALL DISPLAY
MOV PAGE1,#02H
MOV COLUMN,#22
MOV CODE1,#07
LCALL DISPLAY
MOV PAGE1,#02H
MOV COLUMN,#44
MOV CODE1,#08
LCALL DISPLAY
MOV PAGE1,#02H
MOV COLUMN,#66
MOV CODE1,#09
LCALL DISPLAY
MOV PAGE1,#02H
MOV COLUMN,#88
MOV CODE1,#10
LCALL DISPLAY
MOV PAGE1,#02H
MOV COLUMN,#110
MOV CODE1,#11
LCALL DISPLAY
MOV PAGE1,#04H
MOV COLUMN,#00
MOV CODE1,#12
LCALL DISPLAY
MOV PAGE1,#04H
MOV COLUMN,#22
MOV CODE1,#13
LCALL DISPLAY
MOV R5,#100
L1: MOV R6,#100 ;起始行每隔一小段時間不斷改變,以實現滾動效果.
DJNZ R6,$
DJNZ R5,L1
INC PAGE2
MOV A,PAGE2
CJNE A,#0FFH,GDONG
MOV PAGE2,#0C0H
GDONG: MOV COM,PAGE2
LCALL PR0
LCALL PR2
LJMP MAIN1
DISPLAY: MOV A,PAGE1 ;顯示每個字符的子程序
MOV COUNT,#10H
MOV WORD,#00H
MOV DPTR, #00H
ANL A,#07H ;寫頁地址
ORL A,#0B8H
MOV COM,A
LCALL PR0
LCALL PR2
MOV DPTR,#TAB1 ;設定每個字符的起始地址
MOV A, CODE1
MOV B, #20H
MUL AB
ADD A,DPL
MOV DPL,A
MOV A,B
ADDC A,DPH
MOV DPH,A
MOV A,COLUMN
CLR C
SUBB A,#40H ;未寫滿半屏則繼續寫左屏,寫滿則轉右屏
JC LEFT_HALF ;寫左屏
ORL A,#40H
MOV COLUMN,A ;寫要顯示的字符起始列地址
MOV COM,COLUMN
LCALL PR2
NEXT: MOV A,WORD ;調整查表地址(要送入的字節地址)
MOVC A,@A+DPTR ;查表
MOV DAT,A ;送數據
LCALL PR3
INC WORD ;寫入的字節序數遞增 (半個字符的字節數逐個寫入 )
DJNZ COUNT,NEXT ;未送完半個字符的字節則繼續
MOV COUNT,#10H
LJMP DOWN_PR ;送完半個字則送字符的下半個字(右屏)
LEFT_HALF: MOV A,COLUMN ;寫要顯示的字符起始列地址(左屏)
ORL A,#40H
MOV COM,A
LCALL PR0
NEXT1: MOV A,WORD ;調整查表地址(要送入的字節地址)
MOVC A,@A+DPTR ;查表
MOV DAT,A ;送數據
LCALL PR1
INC WORD ;寫入的字節序數遞增 (半個字符的字節數逐個寫入 )
DJNZ COUNT,NEXT1 ;未送完半個字符的字節則繼續
MOV COUNT,#10H
AJMP DOWN_PL ;送完半個字則送字符的下半個字(左屏)
DOWN_PR: INC PAGE1 ;送下半個字符子程序(右屏)
MOV A,PAGE1
ANL A,#07H
ORL A,#0B8H
MOV COM,A
LCALL PR2
MOV COM,COLUMN
LCALL PR2
NEXT3: MOV A,WORD
MOVC A,@A+DPTR
MOV DAT,A
LCALL PR3
INC WORD
DJNZ COUNT,NEXT3
RET
DOWN_PL: INC PAGE1 ;送下半個字符子程序(左屏)
MOV A,PAGE1
ANL A,#07H
ORL A,#0B8H
MOV COM,A
LCALL PR0
MOV A,COLUMN
ORL A,#40H
MOV COM,A
LCALL PR0
NEXT2: MOV A,WORD
MOVC A,@A+DPTR
MOV DAT,A
LCALL PR1
INC WORD
DJNZ COUNT,NEXT2
RET
TAB1:
;-- 文字: 電 --
;-- 宋體12; 此字體下對應的點陣為：寬x高=16x16 --
DB 00H,00H,0F8H,48H,48H,48H,48H,0FFH,48H,48H,48H,48H,0F8H,00H,00H,00H,
DB 00H,00H,0FH,04H,04H,04H,04H,3FH,44H,44H,44H,44H,4FH,40H,70H,00H,
;-- 文字: 子 --
;-- 宋體12; 此字體下對應的點陣為：寬x高=16x16 --
DB 00H,00H,02H,02H,02H,02H,02H,0E2H,12H,0AH,06H,02H,00H,80H,00H,00H,
DB 01H,01H,01H,01H,01H,41H,81H,7FH,01H,01H,01H,01H,01H,01H,01H,00H,
;-- 文字: 科 --
;-- 宋體12; 此字體下對應的點陣為：寬x高=16x16 --
DB 10H,12H,92H,72H,0FEH,51H,91H,00H,22H,0CCH,00H,00H,0FFH,00H,00H,00H,
DB 04H,02H,01H,00H,0FFH,00H,04H,04H,04H,02H,02H,02H,0FFH,01H,01H,00H,
;-- 文字: 技 --
;-- 宋體12; 此字體下對應的點陣為：寬x高=16x16 --
DB 08H,08H,88H,0FFH,48H,28H,00H,0C8H,48H,48H,7FH,48H,0C8H,48H,08H,00H,
DB 01H,41H,80H,7FH,00H,40H,40H,20H,13H,0CH,0CH,12H,21H,60H,20H,00H,
;-- 文字: 大 --
;-- 宋體12; 此字體下對應的點陣為：寬x高=16x16 --
DB 20H,20H,20H,20H,20H,20H,0A0H,7FH,0A0H,20H,20H,20H,20H,20H,20H,00H,
DB 00H,80H,40H,20H,10H,0CH,03H,00H,01H,06H,08H,30H,60H,0C0H,40H,00H,
;-- 文字: 學 --
;-- 宋體12; 此字體下對應的點陣為：寬x高=16x16 --
DB 40H,30H,10H,12H,5CH,54H,50H,51H,5EH,0D4H,50H,18H,57H,32H,10H,00H,
DB 00H,02H,02H,02H,02H,02H,42H,82H,7FH,02H,02H,02H,02H,02H,02H,00H,
;-- 文字: 電 --
;-- 宋體12; 此字體下對應的點陣為：寬x高=16x16 --
DB 00H,00H,0F8H,48H,48H,48H,48H,0FFH,48H,48H,48H,48H,0F8H,00H,00H,00H,
DB 00H,00H,0FH,04H,04H,04H,04H,3FH,44H,44H,44H,44H,4FH,40H,70H,00H,
;-- 文字: 信 --
;-- 宋體12; 此字體下對應的點陣為：寬x高=16x16 --
DB 80H,40H,30H,0FCH,07H,0AH,0A8H,0A8H,0A9H,0AEH,0AAH,0A8H,0A8H,08H,08H,00H,
DB 00H,00H,00H,7FH,00H,00H,7EH,22H,22H,22H,22H,22H,7EH,00H,00H,00H,
;-- 文字: 科 --
;-- 宋體12; 此字體下對應的點陣為：寬x高=16x16 --
DB 10H,12H,92H,72H,0FEH,51H,91H,00H,22H,0CCH,00H,00H,0FFH,00H,00H,00H,
DB 04H,02H,01H,00H,0FFH,00H,04H,04H,04H,02H,02H,02H,0FFH,01H,01H,00H,
;-- 文字: 協 --
;-- 宋體12; 此字體下對應的點陣為：寬x高=16x16 --
DB 10H,10H,0FFH,10H,10H,10H,0C8H,08H,08H,0FFH,08H,08H,0F8H,80H,00H,00H,
DB 00H,00H,7FH,00H,00H,43H,20H,18H,07H,00H,20H,40H,3FH,00H,03H,00H,
;-- 文字: - --
;-- 宋體12; 此字體下對應的點陣為：寬x高=16x16 --
DB 00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,
DB 00H,01H,01H,01H,01H,01H,01H,01H,00H,00H,00H,00H,00H,00H,00H,00H,
;-- 文字: 方 --
;-- 宋體12; 此字體下對應的點陣為：寬x高=16x16 --
DB 08H,08H,08H,08H,08H,08H,0F9H,4AH,4CH,48H,48H,0C8H,08H,08H,08H,00H,
DB 40H,40H,20H,10H,0CH,03H,00H,00H,20H,40H,40H,3FH,00H,00H,00H,00H,
;-- 文字: 紹 --
;-- 宋體12; 此字體下對應的點陣為：寬x高=16x16 --
DB 20H,30H,0ACH,63H,10H,00H,80H,42H,32H,0EH,02H,42H,82H,7EH,00H,00H,
DB 22H,23H,22H,12H,12H,00H,00H,7FH,21H,21H,21H,21H,21H,7FH,00H,00H,
;-- 文字: 湖 --
;-- 宋體12; 此字體下對應的點陣為：寬x高=16x16 --
DB 10H,21H,86H,60H,90H,90H,0FFH,90H,90H,00H,0FEH,92H,92H,0FEH,00H,00H,
DB 04H,0FCH,03H,00H,1FH,10H,10H,90H,5FH,30H,0FH,40H,80H,7FH,00H,00H,
PR00: SETB RW ;寫字令時序子程序
CLR RS
SETB E
MOV A ,P1
CLR E
JB ACC.7,PR00
CLR RW
MOV A,COM
MOV P1,A
SETB E
CLR E
RET
PR01: SETB RW ;寫數據時序子程序
CLR RS
SETB E
MOV A,P1
CLR E
JB ACC.7,PR01
CLR RW
SETB RS
MOV A,DAT
MOV P1,A
SETB E
CLR E
RET
PR0: CLR CS1 ;寫子令子程序(左)
LCALL PR00
SETB CS1
RET
PR1: CLR CS1 ;寫數據子程序(左)
LCALL PR01
SETB CS1
RET
PR2: CLR CS2 ;寫子令子程序(右)
LCALL PR00
SETB CS2
RET
PR3: CLR CS2 ;寫數據子程序(右)
LCALL PR01
SETB CS2
RET
CLEAR: MOV R4,#00H ;清顯示RAM子程序
CLEAR1: MOV A,R4
ANL A,#07H
ORL A,#0B8H
MOV COM,A
LCALL PR0
LCALL PR2
MOV COM,#40H
LCALL PR0
LCALL PR2
MOV R3,#40H
CLEAR2: MOV DAT,#00H
LCALL PR1
LCALL PR3
DJNZ R3,CLEAR2
INC R4
CJNE R4,#08H,CLEAR1
RET
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -