程序2.txt

1、;定義 128*64 的地址W_C_GLCD XDATA 0008H ;寫(xiě)控制指令到 GLCDW_D_GLCD XDATA 0009H ;寫(xiě)數(shù)據(jù)到 GLCDR_B_GLCD XDATA 000AH ;讀取忙碌標(biāo)志和地址R_D_GLCD XDATA 000BH ;讀出 GLCD 數(shù)據(jù);LCD 顯示的變量定義DATA1 DATA 20H ;點(diǎn)陣顯示的變量 1N

2、 DATA 21H ;行數(shù)變量ADDR DATA 22H ;起始的顯示位置ADDR1 DATA 23H ;起始的顯示位置臨時(shí)變量N1 DATA 24H ;行數(shù)的臨時(shí)變量;*************************************************************************;全速運(yùn)行程序OR

3、G 0000H BEGIN:MOV SP, #60H ;設(shè)置堆棧CALL INITIAL_GLCD;調(diào)用 LCD 初試化LOOP:CALL GUDINGSHOW0 ;調(diào)固定漢字顯示 START:LCALLKEYOP ;調(diào)用鍵值查找子程序，F(xiàn)0＝1 有鍵按下，A=鍵值。JNB F0, START ;沒(méi)有鍵按下輸入，重新開(kāi)始。

4、LCALL PANJIANNEXT: CJNE A,#10H,CONT ;是否是數(shù)字鍵CONT: JC NUM ;若是數(shù)字鍵，則 NUMMOV DPTR,#JTAB ;若是功能鍵則送 JTAB 到 DPTRSUBB A,#10H ;在 A 中形成 JTAB 表地址偏移量RL

5、 AJMP @A+DPTR ;轉(zhuǎn)入相應(yīng)的功能鍵分支程序JTAB: LJMP QUEDING ;轉(zhuǎn)入 QUDING 功能鍵處理程序LJMP CLEAR_GLCD ;轉(zhuǎn)入清屏子程序QUEDING: JNB 28H.0,YI ;28h.0=0,即第一行數(shù)字顯示未確定，即轉(zhuǎn)入 YIJNB 28H.1

6、,ER ;28h.1=0,即第二行數(shù)字顯示未確定，即轉(zhuǎn)入 ERJNB 28H.2,SAN ;28h.2=0,即第三行數(shù)字顯示未確定，即轉(zhuǎn)入 SANJNB 28H.3,SI ;28h.3=0,即第四行數(shù)字顯示未確定，即轉(zhuǎn)入 SILJMP START ;所有參數(shù)設(shè)置完畢則回到鍵盤(pán)掃描YI: SE

7、TB 28H.0 ;第一行數(shù)字顯示標(biāo)志位置 1MOV R5,#00H ;數(shù)字鍵按下次數(shù)累加器清零LJMP START ;返回鍵盤(pán)掃描ER: SETB 28H.1 ;第二行數(shù)字顯示標(biāo)志位置 1MOV R5,#00H ;數(shù)字鍵按下次數(shù)累加器

8、清零LJMP START ;返回鍵盤(pán)掃描SAN: SETB 28H.2 ;第三行數(shù)字顯示標(biāo)志位置 1MOV R5,#00H ;數(shù)字鍵按下次數(shù)累加器清零LJMP START ;返回鍵盤(pán)掃描SI: SETB 28H.3 ;第四行數(shù)字

9、顯示標(biāo)志位置 1MOV R5,#00H ;數(shù)字鍵按下次數(shù)累加器清零LJMP START ;返回鍵盤(pán)掃描 ;**************************************************************************ANL A,#0FH ;留下低四位元MOVC A,@A+DPTR

10、 ;取得 ASCII 碼CALL WRITE_GLCD ;寫(xiě)到 LCDPOP ACCPOP DPLPOP DPHLJMP START ASCII_CODE: DB '0123456789' ;************************************************************************* KEYOP:CLR

11、 F0 ;f0 清 0MOV P1,#00h ;p1 清 0ORL P1,#0FH ;把 p1 低四位置 1，(行為高四位，列為低四位)MOV A,P1 ;有按鍵則 p1 低四位不全為 1 ,送給 aCJNE A,#0FH,YOUJIAN ;看低 4 位

12、是否全為 1，不相等就有鍵按下跳到Y(jié)OUJIAN，相等就無(wú)鍵按下就繼續(xù)執(zhí)行CLR F0SJMP DONE0 YOUJIAN: SETB F0 DONE0: RET ; ******************************************************************************** *******************************PANJIAN:LJMP

13、 DY12MSclr RS0 ;改變 R0～R7 映射區(qū)。clr RS1MOV R1,#00H ; R1 表示第幾行, 行值 （以下是進(jìn)行行掃描）MOV R3,#04H ; R3 表示還沒(méi)掃描的行數(shù)MOV R0,#0F7H ; 把 11110111 給 r0XUNHUAN:MOV A,R0 ;

14、 把 r0 給 aRL A ; 把 a 左移 變?yōu)?11101111（使行最低位為 0）MOV R0,A ; 把變了的 a 還給 r0 以備掃描下一行用MOV P1,#0FFH ; 把 p1 所有位置一ANL P1,A ; 讓 p1 和 a 與，

15、使 p1 的第五位為零，若一行有鍵按下則對(duì)應(yīng)的列變?yōu)?0，p1 第一位變?yōu)?0MOV R2,P1 ; NOPNOPNOPMOV A,R2 ;ORL A,#0F0H ; 把行置 1CJNE A,#0FFH,FOU; 如果 a 等于 ff ，表示掃描行無(wú)鍵按下，繼續(xù)執(zhí)行。若不等于則有鍵按下，跳轉(zhuǎn)到 fouINC R1

16、; 不在此行則把行數(shù)加一DJNZ R3,XUNHUAN; 所需掃描的行數(shù)減一，未掃描完則跳轉(zhuǎn)到 xunhuan 繼續(xù)掃描LJMP DONE ; 掃描完則跳轉(zhuǎn)到 exitFOU: JB ACC.0,FOU1 ; （ 判斷在哪一列）看一列是否為 1，為 0 說(shuō)明在一列，繼續(xù)執(zhí)行，為 1 不在此列跳到 fou2MOV A,#00