基于mcs-51單片機的數字時鐘系統設計(編輯修改稿)

　

【文章內容簡介】 運算結果，以 BCD 碼數形式存放在顯示緩沖單元的數據字節中，用轉換子程序 BSHIFT 倒序后存回原處。 。********************************************************** 。b. MAX7219 7211 應用程序 單 片機串行發送數據的啟動在主程序中進行，每發送兩個字節后，在中斷子程序中控制使 MAX7219 的 LOAD 引腳產生正跳變，把數據鎖存入相應的寄存器中。該中斷子程序既可發送一個 16 位數據，也可連續發送多個，非常方便。由于MAX7219 易受干擾影響，因此在程序執行過程中應經常對顯示進行更新。 所以主程序及發送中斷子程序、數據格式轉換子程序如下。 ??；主程序 ；把數據格式轉換為 7219 的方式 MOV R1，＃ 31H MOV R5，＃ 8 ； ； 把 8 位數均轉換為 7219 方式 LCALL BSHIFT ；初始化 7219 MOV R2，＃ 8 MOV R0，＃ 40H SETB P3． 2；奇偶字節發送判斷標志 CLR P3． 2 MOV A，＠ R0 MOV SBUF， A；發送 40H 起內容 ?? ；發送 8 個要顯示的數據 MOV R2，＃ 8＋ 8； 8個數據共 16 字節 MOV R0，＃ 30H； 30H 為數據緩沖區首址 SETB P3． 2；準備 7219 的 LOAD 電平 MOV A，＠ R0 MOV SBUF， A；開始發送數據 ?? ；對 7219 的串行發送中斷子程序 STINT1： CLR TI CPL F0 JNB F0， ST13 SETB P3． 2；發完 16位后產生 LOAD 脈沖 變高 CLR P3． 2 ST13： CJNE R2，＃ 0， STI1；判斷是否發送完 SJMP STI2 STI1： DEC R2；沒送完 INC R0；地址偏移 MOV A，＠ R0 MOV SBUF， A；發下一字節 STI2： RETI ； BCD 碼轉換為 7219 數據形式子程序，轉換數據及結果由 R1 間址 BSHIFT： MOV A，＠ R1 ADD A， ＃ 6 MOVC A，＠ A＋ PC MOCV ＠ R1， A INC R1 INC R1 DJNZ R5， BSHIFT RET DB 0， 80H， 40H， 0C0H， 20H， 0A0H， 60H， 0E0H， 10H， 90H 4． 3 定時器中斷服務程序 定時中斷方式， 利用 T0每隔 50mS向 CPU發出中斷一次中斷請求（設系統使用 12MHZ 晶振器，定時器工作方式一的定時器初值為 3CB0H， THO=3CH,TL0=0B0H） ,CPU 響應 中斷后進入中斷服務子程序 。 中斷服務子程序以 100mS、 1S、 1MIN、 1HOUR 對時 鐘計時 ， 每產生一次中斷 50mS 計數單元加 1， 當該單元內容累計到 20 時 ， 秒計數單元加 1， 并將 50mS 單元清0， 秒累計到 60 時 ， 分計數單元加 1， 并將秒計數單元清 0， 當分計數單元累計到 60 時 ， 時計數單元加 1， 并將分計數單元清 0； 時計數單元滿 24 后 ， 所用單元內容清 0。 定時器計數單元的內容為十六進制數， 需把該數調整為壓縮 BCD 碼，并通過程序拆分成單字節 BCD 碼后， 送入顯示緩沖區， 進行輸出顯示。 軟件流程圖如圖 43 所示 保護現場重裝定時 T0 的初值循環次數減壓是否滿 20 次？秒單元加 1是否滿 60s ？秒單元清零分單元加 1是否滿 60min?分單元清零小時單元加 1恢復現場返回小時單元清零是否滿 24 小時？ 圖 43 鍵盤程序設計 本設計采用 4 個按鍵構成的獨立式鍵盤，它們分別與單片機的 到 相連。這些 測試線相互獨立無編碼關系，因而鍵盤軟件不存在譯碼問題，一旦檢測到測試線上有鍵閉合，便可直接轉入相應的鍵功能處理程序進行處理。 首先判斷有無鍵按下 ，假如檢測到有鍵按下，就延時 20ms 避開抖動的影響，查詢的是哪個鍵被按下并執行相關的操作。流程圖如 圖 44 所示 鍵分析讀 P1 口有鍵按下？延時 20ms=0? 小于 1 秒？ 省電模式調分程序 小于 秒？=0?=0 ？時鐘，定時功能轉換定時啟動分析結束=0 ？分加 1調時程序大于 ？減 1 程序退出調整程序NYNYNNYYNYYNNYNY讀 P1 口鍵已釋放？延時 20msYN 圖 44 調整指示程序流程圖。 （調時程序有定時器 T1完成，如圖 45所示） 保護現場中斷開始閃爍？恢復現場中斷返回閃爍加 10msNY圖 45 程序清單 AT89C51 單片機數字鐘程序清單如 下 ： DISBEG EQU 30H ；顯示單元首地址 CALB EQU ；報警喇叭 TIMCON EQU 2FH ；存放報警次數 ORG 0000H ；程序開始 LJMP MAIN ORG OOO3H ；關閉中斷 0 RETI ORG 000BH ；定時器 T0中斷程序入口 LJMP INTTO ；跳至 INTT0 執行 ORG OO13H RETI ORG 001BH LJMP INTT1 ORG 0023H LJMP STINT1 DIY1M: MOV R6,14H ； 1ms 延時 DL_LOOP： MOV R7,19H DL_LOOP1: DJNZ R7,DL_LOOP1 DJNZ R6,DL_LOOP RET DIY20M: CLR CLAB ； 2Oms 延時 LCALL D_II_PLAY LCALL D_II_PLAY LCALL D_II_PLAY SETB CALB RET DL_LOOPS: LCALL DLO5S LCALL DLO5S RET DLO5S : MOV R3， 20H ； 8ms*32= DL05S1: LCALL D_II_PLAY DJNZ R3 ,DL05S1 RET ；以下是程序開始 ；整點報時用 CTIME: MOV A,10H MOV B, 79H MUL AB ADD A,78H MOV TIMCON ,A CLOOP: LCALL DLY20M LCALL DL_LOOPS LCALL DL_LOOPS LCALL DL_LOOPS DJNZ TIMCON, CLOOP CLR 08H ；清整點報時標記 ；主程序開始 MAIN: MOV R0 ,00H ；清 00h? 7FH 內存單元 MOV R7 ,80H MLOOP: MOV @R0 ,00H INC R0 DJNZ R7 ,MLOOP MOV 20H ,@00H MOV 7AH ,OAH MOV TMOD ,11H MOV TL0 ,0B0H MOV TH0 , 3CH MOV TL1 ,0B0H MOV TH1 , 3CH MOV SCON ,00H SETB EA SETB ES SET0 ET0 SETB TR0 MOV R4, 14H MOV DISBEG, 30H MLOOP1: LCALL D_II_PLAY ；調用顯示子程序 JNB ,T_SETSC JNB P1,1 ,DLY5 JNB , FUNBT JNB ,TSET ； JB 08H ,CTIME AJMP MLOOP1 FUNBT: LJMP DLY6 ；以下定時時間設定程序，按 進入設定 TSET: LCALL DLY2OM JB , MLOOP1 TS_LOOP: JNB ,TS_LOOP JB 05H , CLRBELL MOV 5OH ,0CH MOV 51H ,0AH MINCHG: SETB EA LCALL D_II_PLAY JNB ,DLY1 JNB ,DIY3 JNB ,DLY AJMP MINCHG CLRBELL: CLR 05H CLR CALB AJMP MLOOP1 DLY: LCALL DLY20M JB , MINCHG LCALL DLY8 T_SETSC: LJMP R_SETTIM DLY1: LCALL D_II_PLAY JB , MINCHG DLY2: LCALL D_II_PLAY JNB , DLY2 CLR EA MOV R0 , 53H LCALL ADD_1 MOV A , R3 CLR C CJNE A , 60H , ADD_M ADDD_M: JC MINCHG ACALL CLR_H AJMP MINCHG DLY3: LCALL DLY20M JB , MINCHG DLY4: LCALL D_II_PLAY JNB , DLY4 CLR EA MOV R0 , 53H LCALL SNB_M LJMP MINCHG :以下秒表功能 /時鐘轉換程序 DLY5: LCALL DLY20M JB ,T_MLOOP1 JNB ,$ CPL 03H JNB 03H,DIS_SET MOV DISBEG,60H MOV 60H,00H MOV 61H,OOH MOV 62H,OOH MOV 63H,00H MOV 64H.00H MOV 65H,00H MOV TL1,OFOH MOV TH1,OD8H SETB TR1 SETB ET1 T_MLOOP1:LJMP MLOOP1 DIS_SET: MOV DISBEG,70H CLR ET1 CLR TR1 T_MLOOP11:LJMP MLOOP1 以下秒表暫停 /清零功能程序 ：按下 暫停或清 0，按下 退出秒表回到時鐘計時 DLY6: LCALL DLY20M JB ,T_MLOOP11 T_EST11: JNB ,T_EST11 CLR ET1 CLR TR1 T_EST22: JNB ,DLY5 JB ,T_EST21 LCALL DLY20M JB ,T_EST22 T_EST55: JNB ,T_EST51 MOV 60H,OOH MOV 61H,OOH MOV 62H,OOH MOV 63H,OOH MOV 64H,OOH MOV