【正文】 。 按鍵處理程序中的按鍵式校時的，所以進入按鍵處理程序后就關(guān)閉定時中斷，對于動能鍵注意設(shè)置顯示標志。 到預定時問啟動蜂鳴器模擬打鈴，蜂鳴器 BEEP: 。 系統(tǒng)使用 4 只按鍵， 3 只按鍵用來調(diào)整時間，另一只為鬧鐘按鈕即定時掃鈴。 增加鍵 ADD_KEY： ；按一次使選中位加 1。 1 如果長按 ADD_KEY 或 DEC_KEY，識 別后則進行調(diào)時快進，此時停止閃爍。 定時掃鈴鍵 DALING_KEY: ；用來強制打鈴或強制關(guān)閉鈴聲 PO 口輸出數(shù)碼管段選信號， P2 口輸出數(shù)碼管位選信號。 IP,IE 初始化 MOV IE, 82H MOV TMOD, olH；設(shè)定定時器 01 作方式 1 MOV THO, 3CH 自動打鈴系統(tǒng)設(shè)計 19 MOV TLO, oBoH；賦定時初值，定時 50ms SETB TRO；啟動定時器 0 MOV SP, 4OH；重設(shè)堆棧指針 / * * * * ＊主程序＊ * * * * / MAIN : CJNE R1, 00H, MAINl； 是否為正常走時狀態(tài) LCALL BIJIAO1；調(diào)用起床、熄燈打鈴比較子程序 LCALL BIJIAO2；調(diào)用上、下課少打鈴比較子程序 LCALL DALING ；調(diào)用響鈴方式執(zhí)行子程序 MAIN1 : LCALL DlSPLAY；調(diào)用顯示子程序 LCALL KEY_SCAN；調(diào)用按鍵檢測子程序 JZ MAIN；無鍵按下則返回重新循環(huán) LCALL SET_KEY；調(diào)用選擇鍵處理子程序 JB 46H, MAIN ；如果已進行長按調(diào)招（調(diào)時快進），則不再執(zhí)行下面的單步調(diào)整 LCALL ADD_KEY；調(diào)用增加鍵 處理子程序 LCALL DEC_KEY； 躺用減少鍵處理子程序 LCALL DALING_KEY；處理強制打鈴 /強制關(guān)閉鈴聲鍵 LJMP MAIN；重新循環(huán) 程序結(jié)束 （主程序中引用到的字程序如下） / * * * * ＊定時中斷服務程序 * * * * * / TIMER_O: PUCH ACC PUCH PSW；保護現(xiàn)場 江蘇信息職業(yè)技術(shù)學院畢業(yè)設(shè)計（論文） 20 MOV THO， 3CH MOV TLO, 0B0H；重新賦定時初值 CPL 47H；產(chǎn)生脈沖用于調(diào)時快進時基 INC 24H MOV A, 24H CJNEA, l0, ADD_TIME；產(chǎn) 秒基準時鐘，用于調(diào)時閃爍 CPL 48H；取反調(diào)時閃爍標志位 MOV 24IJ, 00H ADD_TIME: INC 20H MOV A， 20H CJNEA, 20, RETI1；產(chǎn)生 l 秒基準時鐘 MOV 20H, O0H；一秒鐘時間到，清零 20H MOV A ,21H ADD A， 01H DA A ；做十進制調(diào)整 MOV 21H, A CJNEA, 60H, RETIl MOV 21H， 00H；一分鐘到 MOV A， 22H ADD A， 01H DA A MOV 22H， A CJNE A， 60H， RETI1 自動打鈴系統(tǒng)設(shè)計 21 MOV 22H， 00H；一小時到 MOV A， 23H ADD A， 01H DA A MOV 23H， A CJNE A， 24H， RETI1 MOV 23H， 00H；到 24 點，清零小時 RETI1: POP PSW POP ACC；恢復現(xiàn)場 RET1；中斷返回 / * * * * ＊顯示處理＊ * * * * / DISPLAY: MOV A， 21H；秒 ANL A， 0FH MOV 2FH， A；轉(zhuǎn)換出秒個位，存入 2FH MOV A， 21H ANL A, OFOH SWAP A MOV 2EH, A；轉(zhuǎn)換出秒十位，存入 2EH JB 46H, MIN；如果長按按鍵（調(diào)時快進），則跳過閃爍處理 CJNE R1, 3, MIN；如果 R1 為 3,閃爍秒位待調(diào)整 JB 48H， MIN MOV ZFH, OAH；使該位為 10 ，查表得到使該位不顯示的輸出 江蘇信息職業(yè)技術(shù)學院畢業(yè)設(shè)計（論文） 22 MOV 2EH， 0AH MIN: MOV A， 22H；分 ANL A， 0FH MOV 2DH， A；轉(zhuǎn)換出分個位，存入 2DH MOV A， 22H ANL A, OFOH SWAP A MOV 2CH, A；轉(zhuǎn)換 出分十位，存入 2CH JB 46H, HOUR；如果長按按鍵（調(diào)時快進），則跳過閃爍處理 CJNE R1, 2, HOUR；如果 R1 為 2,閃爍秒位待調(diào)整 JB 48H， HOUR MOV ZDH, OAH；使該位為 10 ，查表得到使該位不顯示的輸出 MOV 2CH， 0AH HOUR: MOV A， 23H；時 ANL A， 0FH MOV 2BH， A；轉(zhuǎn)換出時個位，存入 2BH MOV A， 23H ANLA, OFOH SWAP A MOV 2AH, A；轉(zhuǎn)換出時十位，存入 2AH JB 46H, DISP；如果長按按鍵（調(diào)時快進），則跳過閃爍處理 自動打鈴系統(tǒng)設(shè)計 23 CJNE R1, 1, DISP；如果 R1 為 1,閃爍秒位待調(diào)整 JB 48H， DISP MOV ZBH, OAH；使該位為 10 ，查表得到使該位不顯示的輸出 MOV 2AH， 0AH / * * * * ＊數(shù)碼管動態(tài)掃描顯示＊ * * * * / DISP: MOV DPTR， TABLE MOV A， 2FH MOVC A， A+DPTR MOV P0， A CLR LCALL DELAY SETB ；顯示秒個位 MOV A， 2EH MOVC A， A+DPTR MOV P0， A CLR LCALL DELAY SETB ；顯示秒十位 MOV A， 0BFH MOV P0， A CLR LCALL DELAY 江蘇信息職業(yè)技術(shù)學院畢業(yè)設(shè)計（論文） 24 SETB ；顯示 “” MOV A， 2DH MOVC A， A+DPTR MOV P0， A CLR LCALL DELAY SETB ；顯示分個位 MOV A， 2CH MOVC A， A+DPTR MOV P0， A CLR LCALL DELAY SETB ；顯 示分十位 MOV A， 0BFH MOV P0， A CLR LCALL DELAY SETB ；顯示 “” MOV A， 2BH MOVC A， A+DPTR MOV P0， A 自動打鈴系統(tǒng)設(shè)計 25 CLR LCALL DELAY SETB ；顯示時個位 MOV DPTR， TABLE1；該位使用 TABLE1 以消除前置 0 MOV A， 2AH MOVC A， A+DPTR MOV P0， A CLR LCALL DELAY SETB ；顯示時十位 RET / * * * * ＊按鍵檢測子程序＊ * * * * / KEY_SCAN : CLR 46H；關(guān)閉長按調(diào)整（調(diào)時快進）標志 MOV P1, OFFH；將 P1 口設(shè)置成輸入狀態(tài) MOV A， P1 CPL A ANLA, OFH； P1 口低 4 位連接 4 個按鍵，只判斷該 4 位 JZ FXIT_KFY；無鍵按下則返回 LCALL DELAY；延時去抖動 MOV A, P1；重新判斷 CPL A ANL A， OFH JZ EXIT_KEY；鍵盤去抖動 江蘇信息職業(yè)技術(shù)學院畢業(yè)設(shè)計（論文） 26 MOV R5, A；臨時將鍵值存入 R5 MOV R4, 0OH；用于控制調(diào)時快進速度 ；設(shè)置為 OOH 是為了在進入長按處理前加長延時區(qū)分用戶的長按與短按，防止誤快進 LOOP: ；進入長按處理 LCALL DISPLAY；使長按時顯示正常 MOV A, Pl CPL A ANLA, OFH JB 47H, LOOP1 INC R4；調(diào)時快進間隔時間基準加 l LOOP1: CJNE R1, 03H, LOOP2；如果調(diào)秒時長按，則不處理 LJMP LOOP3 LOOP2: CJNE R4, 99H, LOOP3 MOV R4, 7OH；確認用戶長按后，重新設(shè)定起始值，加快調(diào)時快 進速度 SETB 46H；長按調(diào)整〔 調(diào)時快進）標志 LCALL ADD KEY LCALL DEC KEY LOOP3: JNZ LOOP；等待鍵釋放 自動打鈴系統(tǒng)設(shè)計 27 MOV A, R5；輸出鍵值 RET EXIT_KEY； RET / * * * * ＊延時子程序＊ * * * * / DELAY： MOV R7, 150 DJNZ R7, $ RET / * * * * ＊選擇鍵處理子程序＊ * * * * / SET_KEY： CJNE R5， 01H， EXIT；選擇鍵鍵值 INC R1；調(diào)整選擇功能標識加一 SETB BEEP CJNE R1， 4， EXIT MOV R1， 0 MOV 24H， 00H；調(diào)時閃爍基準清零 RET / * * * * ＊增加鍵處理子程序＊ * * * * / ADD_KEY： CJNE R5, 02H, EXIT；增加鍵鍵值 CJNE R1， 01H, NEXT1；選擇鍵功能標志為 l，調(diào)時，否則跳出 MOV A， 23H ADD A