2023年全國碩士研究生考試考研英語一試題真題(含答案詳解+作文范文)_第1頁
已閱讀1頁,還剩5頁未讀, 繼續(xù)免費閱讀

下載本文檔

版權說明:本文檔由用戶提供并上傳,收益歸屬內容提供方,若內容存在侵權,請進行舉報或認領

文檔簡介

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

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

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

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 ;轉入相應的功能鍵分支程序JTAB: LJMP QUEDING ;轉入 QUDING 功能鍵處理程序LJMP CLEAR_GLCD ;轉入清屏子程序QUEDING: JNB 28H.0,YI ;28h.0=0,即第一行數(shù)字顯示未確定,即轉入 YIJNB 28H.1

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

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

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

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

10、 ;取得 ASCII 碼CALL WRITE_GLCD ;寫到 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,不相等就有鍵按下跳到YOUJIAN,相等就無鍵按下就繼續(xù)執(zhí)行CLR F0SJMP DONE0 YOUJIAN: SETB F0 DONE0: RET ; ******************************************************************************** *******************************PANJIAN:LJMP

13、 DY12MSclr RS0 ;改變 R0~R7 映射區(qū)。clr RS1MOV R1,#00H ; R1 表示第幾行, 行值 (以下是進行行掃描)MOV R3,#04H ; R3 表示還沒掃描的行數(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 的第五位為零,若一行有鍵按下則對應的列變?yōu)?0,p1 第一位變?yōu)?0MOV R2,P1 ; NOPNOPNOPMOV A,R2 ;ORL A,#0F0H ; 把行置 1CJNE A,#0FFH,FOU; 如果 a 等于 ff ,表示掃描行無鍵按下,繼續(xù)執(zhí)行。若不等于則有鍵按下,跳轉到 fouINC R1

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

溫馨提示

  • 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙,網頁內容里面會有圖紙預覽,若沒有圖紙預覽就沒有圖紙。
  • 4. 未經權益所有人同意不得將文件中的內容挪作商業(yè)或盈利用途。
  • 5. 眾賞文庫僅提供信息存儲空間,僅對用戶上傳內容的表現(xiàn)方式做保護處理,對用戶上傳分享的文檔內容本身不做任何修改或編輯,并不能對任何下載內容負責。
  • 6. 下載文件中如有侵權或不適當內容,請與我們聯(lián)系,我們立即糾正。
  • 7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

評論

0/150

提交評論