X EQU 26H ;LCD 地址變量
RS EQU P2.0
RW EQU P2.1
EN EQU P2.2
PSB EQU P2.3
RST EQU P2.5
ORG 0000H
JMP MAIN
ORG 0003H ;外部中斷INT0入口地址
MAIN:
MOV SP,#40H
MOV A,#00H
MOV R0,#20H
LOOP0: MOV @R0,A ;20H-26H清零
INC R0
CJNE R0,#27H,LOOP0
MOV IE,#81H ;允許總中斷中斷,使能 INT0 外部中斷
MOV TCON,#01H ;觸發方式為脈沖負邊沿觸發
SETB RST
NOP
SETB PSB ;8位數據，并口
CALL SET_LCD ;初始化TS12864m
CALL MENU1
CALL MENU2
CALL MENU3
CALL MENU4
LOOP1:
MOV A,22H
CJNE A,#40H,LOOP2
LOOP2: CJNE A,#04H,LOOP3
LOOP3: JMP LOOP1
;=============================================
; LCD 初始化設置
;=============================================-
SET_LCD:
CLR EN
MOV A,#34H ;34H--擴充指令操作
CALL WCOM
MOV A,#30H ;30H--基本指令操作
CALL WCOM
MOV A,#0CH ;開顯示，關光標，
CALL WCOM
MOV A,#01H ;清除 LCM 顯示屏
CALL WCOM
RET
;===================================================
;在 LCM 各行顯示信息字符
;===================================================
LCD_SHOW:
CJNE A,#1,LINE2 ;判斷是否為第一行
LINE1: MOV A,#80H ;設置 LCD 的第一行地址
CALL WCOM ;寫入命令
CALL CLR_LINE ;清除該行字符數據
MOV A,#80H ;設置 LCD 的第一行地址
CALL WCOM ;寫入命令
JMP FILL
LINE2: CJNE A,#2,LINE3 ;判斷是否為第三行
MOV A,#090H ;設置 LCD 的第三行地址
CALL WCOM ;寫入命令
CALL CLR_LINE ;清除該行字符數據
MOV A,#090H ;設置 LCD 的第三行地址
CALL WCOM
JMP FILL
LINE3: CJNE A,#3,LINE4 ;判斷是否為第三行
MOV A,#088H ;設置 LCD 的第三行地址
CALL WCOM ;寫入命令
CALL CLR_LINE ;清除該行字符數據
MOV A,#088H ;設置 LCD 的第三行地址
CALL WCOM
JMP FILL
LINE4: CJNE A,#4,LINE5 ;判斷是否為第三行
MOV A,#098H ;設置 LCD 的第三行地址
CALL WCOM ;寫入命令
CALL CLR_LINE ;清除該行字符數據
MOV A,#098H ;設置 LCD 的第三行地址
CALL WCOM
FILL: CLR A ;填入字符
MOVC A,@A+DPTR ;由消息區取出字符
CJNE A,#0,LC1 ;判斷是否為結束碼
LINE5: RET
LC1: CALL WDATA ;寫入數據
INC DPTR ;指針加1
JMP FILL ;繼續填入字符
RET
;=================================================
;清除該行 LCM 的字符
;=================================================
CLR_LINE:
MOV R0,#16
CL1: MOV A,#' '
CALL WDATA
DJNZ R0,CL1
RET
;==================================================
;LCM 顯示工作菜單信息
;==================================================
MENU1:
MOV DPTR,#MENU1A
MOV A,#1 ;在第一行顯示信息
CALL LCD_SHOW
RET
MENU1A: DB "MUC 控制GPRS模塊",0
MENU2:
MOV DPTR,#MENU2A
MOV A,#2 ;在第二行顯示信息
CALL LCD_SHOW
RET
MENU2A: DB "TEL:13991316679",0
MENU3:
MOV DPTR,#MENU3A
MOV A,#3 ;在第三行顯示信息
CALL LCD_SHOW
RET
MENU3A: DB "方案設計: 龔 偉",0
MENU4:
MOV DPTR,#MENU4A
MOV A,#4 ;在第四行顯示信息
CALL LCD_SHOW
RET
MENU4A: DB "程序編寫: 靳 鵬",0
;==============================================
; 寫指令使能子程序
;RS=L,RW=L,D0-D7=指令碼，E=高脈沖
;==============================================
WCOM:
MOV P0,A
CLR RS
CLR RW
SETB EN
CALL DELAY0
CLR EN
RET
;=============================================
;寫數據使能子程序
;RS=H,RW=L,D0-D7=數據，E=高脈沖
;=============================================
WDATA:
MOV P0,A
SETB RS
CLR RW
SETB EN
CALL DELAY0
CLR EN
RET
DELAY0: MOV R7,#250 ;延時500微秒
DJNZ R7,$
RET
END
|
