ORG0000HLJMPMAINORG000BHLJMPTIM01 ;0.1sT0中斷ORG0300HMAIN:ACALL INIT ;調用初始化函數LOOP:LCALLKEYIN ;鍵盤輸入AJMPLOOPINIT: MOV7FH,#7EH ;7FH存當前輸入位置79-7EHMOV79H,#0 ;初始化顯示MOV7AH,#0MOV7BH,#0MOV7CH,#0MOV7DH,#0MOV7EH,#0MOV70H,#0 ;初始化 初始時間0h0m0sMOV71H,#0MOV72H,#0MOV73H,#0SETB20H.0 ;20H.0存儲當前輸入狀態，鬧鐘輸入，或初始值輸入KEYIN:LCALLKEY ;鍵盤輸入函數，循環對79-7EH輸入，或是命令輸入CLRCPUSHACC ;入棧，保存A值SUBBA,#10 ;和10比較JNCCONTRL ;大于等于10，命令鍵 POPACC ;A出棧 數字鍵，放到顯示緩存MOVR0,7FH ;A放到7FH內容指向地址處MOV@R0,AMOVA,7FH ;是否出了79H-7EH范圍CJNEA,#79H,RU ;出范圍，循環到7EHMOV7FH,#7FH RETRU:DEC7FH ;范圍內自減1RETCONTRL:POPACC ;控制鍵，執行相應控制操作CJNEA,#0DH,N0CLCALLKJUD ;D控制計時開始，KJUD判斷是否在有效時間范圍內JNCN0 ;控制操作完成退出LCALLTIMINIT ;定時器及相關內容初始化N0C:CJNEA,#0CH,N0B ;C暫停開始鍵CPLEA ;中斷開關控制計時起止N0B:CJNEA,#0BH,N0 ;B選擇輸入是鬧鐘還是起始值CPL20H.0 ;20H.0為其標志0起始1鬧鐘MOVC,20H.0 ;指示燈表示輸入鬧鐘還是起始值MOVP1.0,CN0:RETTIMINIT:MOVTH0,#03CH ;定時器及相關初始化MOVTL0,#0B0H ;初值SETBTR0 ;運行SETBET0 ;允許定時器中斷SETBEA ;總中斷允許MOV70H,#0 ;載入計時初值MOV71H,74HMOV72H,75HMOV73H,76H RETDISP:MOVR0,#79H ;顯示函數從右至左顯示MOVR3,#01H MOVA,R3DIO:MOVDPTR,#0FFDDHMOVX@DPTR,AMOVA,@R0MOVDPTR,#TAB1MOVCA,@A+DPTR;得到鍵值MOVDPTR,#0FFDCHDIR1:MOVX@DPTR,ALCALLDELAY1INCR0MOVA,R3JBACC.5,LD1RLAMOVR3,AAJMPDIOLD1:RETTAB1:DB0C0H,0F9H,0A4H,0B0H,099H,092H,082H,0F8H ;顯示表 A滅B顯示P（錯誤信號）DB080H,090H,0FFH,08CH,0C6H,0A1H,086H,08EHTAB2:DB07H,04H,08H,05H,09H,06H,0AH,0BH,01H,00H ;鍵值校正表DB02H,0FH,03H,0EH,0CH,0DHDELAY1:MOVR7,#02H ;延時函數12M時精確延時1msDE1:MOVR6,#0FFHDE2:DJNZR6,DE2DJNZR7,DE1RETJUDGE:MOVDPTR,#0FFDDH ;判斷是否有效MOVA,#00HMOVX@DPTR,AINCDPTRMOVXA,@DPTRCPLAANLA,#0FHRETKEY:LCALLJUDGEJNZLK1LCALLDISP;AJMPKEYLK1:LCALLDISP;LCALLJUDGEJNZLK2LCALLDISPAJMPKEYLK2:MOVR2,#0FEHMOVR4,#00HLK3:MOVDPTR,#0FFDDHMOVA,R2MOVX@DPTR,AINCDPTRMOVXA,@DPTRLINE0:JBACC.0,LINE1MOVA,#00HAJMPLKPLINE1:JBACC.1,LINE2MOVA,#08HAJMPLKPLINE2:JBACC.2,LINE3MOVA,#10HAJMPLKPLINE3:JBACC.3,NEXTMOVA,#18HLKP:ADDA,R4PUSHACCNT:LCALLDISPLCALLJUDGEJNZNTPOPACCCJNEA,#10H,NN:JNCEXITMOVDPTR,#TAB2MOVCA,@A+DPTREXIT:RETNEXT:INCR4MOVA,R2JNBACC.7,KND ;4*8RLAMOVR2,AAJMPLK3KND:AJMPKEYTIM01:PUSHPSW ;0.1s定時中斷PUSHACC ;保護現場MOVTH0,#03CH ;載入初值MOVTL0,#0B0HMOVA,70H ;0.1s計時值存到70HCJNEA,#59,EX01MOV70H,#0MOVA,71H ;秒值放入71HCJNEA,#59,EX1SMOV71H,#0 MOVA,72H ;分鐘放入72HCJNEA,#59,EX1MMOV72H,#0MOVA,73HCJNEA,#23,EX1HMOV73H,#0 ;小時73HEX01:INC70HAJMPIEXITEX1S:INC71HACALLALJUD ;判斷報警信號函數JNZALARMSETBP1.1 AJMPIEXIT ;報警ALARM:CLRP1.1AJMPIEXITEX1M:INC72HAJMPIEXITEX1H:INC73HAJMPIEXITIEXIT:LCALLDISTIMPOPACC ;恢復現場POPPSWRETIALJUD:CLRC ;報警判斷MOVA,73HSUBBA,66H ;鬧鐘值和現在時間值比較JCALEXCLRCMOVA,72HSUBBA,65HJCALEXSETBCMOVA,71HSUBBA,64HJCALEXCLRARETALEX:MOVA,#1RETDISTIM:MOVB,#10 ;把當前時間值放入79-7EH顯示MOVA,71HDIVABMOV79H,BMOV7AH,AMOVA,72HMOVB,#10DIVABMOV7BH,BMOV7CH,AMOVA,73HMOVB,#10DIVABMOV7DH,BMOV7EH,ARETKJUD:CLRC ;鍵值判斷，判斷輸入是否有效MOVA,7EHMOVB,#10MULABADDA,7DHJB20H.0,ALHMOV76H,AAJMPGOHALH:MOV66H,A ;初始值放入74-76H鬧鐘放入64-66HGOH:SUBBA,#24JNCEXMOVA,7CHMOVB,#10MULABADDA,7BHJB20H.0,ALMMOV75H,AAJMPGOMALM:MOV65H,AGOM:SUBBA,#60JNCEXMOVA,7AHMOVB,#10MULABADDA,79HJB20H.