【文章內容簡介】 JNZ IN 。不是全0說明有鍵按下 RET 。無鍵按下返回IN: ACALL DELAY1 。調延時,等待按合抖動過去 MOV R2,04H 。R2做計數(shù)器,存待掃描行數(shù) MOV R4,7FH 。R4做指針,指示待掃描行數(shù) MOV R7,00H 。R7用于決定鍵號,初值置以0SCAN: MOV A,R4 RL A MOV R4,A 。以上三條調整待掃描行 MOV P2,A 。逐行掃描,被掃描行送低電平 MOV P1,00H MOV A,P1 。讀回各列線電平值 MOV R3,04H 。R3做記數(shù)器,存被掃描行的待查列數(shù)NEXT: RRC A 。調整待查列 JNC FIND 。被查列為低電平,被按鍵找到,轉FIND INC R7 。未找到,鍵號加一 DJNZ R3,NEXT 。被掃描行的待查列數(shù)不為0,轉回NEXT DJNZ R2,SCAN 。未找到所按鍵,返回 RETFIND: MOV BUF,R7 MOV P2,0E0HLOOSEN:MOV A,P1 ORL A,0F0H CPL A JNZ LOOSEN 。以上幾條重復全掃描,等待所按鍵松按 MOV A,R7 。松按后才考慮鍵處理,保證每按鍵一次,只處理一次,本條為取所按鍵號 ADD A,0F6H JC ORDER NUM: MOV A,01H 。鍵號小于等于9,是數(shù)字鍵,轉NUM,執(zhí)行數(shù)字鍵處理程序 XRL A,74H 。判斷模式 JZ X0 。計時模式則不處理數(shù)字按鍵 CLR C INC 37H MOV A,0F9H ADD A,37H JC MAIN1 。輸入夠6個數(shù)字則等待命令鍵 LCALL DS1 。調用顯示子程序 MOV A,R7 XCH A,45H 。存輸入的密碼 XCH A,44H XCH A,43H XCH A,42H XCH A,41H XCH A,40H RET ORDER: MOV A,01H 。鍵號大于9,是命令鍵,轉ORDER,執(zhí)行命令鍵處理程序 XRL A,74H JZ ORDER1 。判斷模式 MOV A,R7 XRL A,0AH JZ X15 。重置 MOV A,R7 XRL A,0BH JZ X16 。重置確認 MOV A,R7 XRL A,0CH JZ X9 。輸入密碼確認，判斷正誤 MOV A,R7 XRL A,0DH JZ X2 。清零 MOV A,R7 XRL A,0EH JZ X1 。初始化密碼 MOV A,R7 XRL A,0FH JZ X5 。顯示時間X1: LJMP START1X2: LJMP MAINX3: LJMP MAIN2X5: MOV 74H,01H 。進入計時模式 MOV 29H,00H LJMP MAIN3X9: LJMP COMPX15: LJMP RESETX16: LJMP SET0X0: LJMP KEYORDER1: MOV A,R7 XRL A,0AH JZ X6 。 分鐘加一 MOV A,R7 XRL A,0BH JZ X7 。 小時加一 MOV A,R7 XRL A,0CH JZ X11 。鬧鐘分加一 MOV A,R7 XRL A,0DH JZ X12 。鬧鐘小時加一 MOV A,R7 XRL A,0EH JZ X13 。顯示鬧鐘時間 MOV A,R7 XRL A,0FH JZ X8 ?；氐降却艽a輸入 JMP X0X6: MOV A,MBF ADD A,01H DA A MOV MBF,A CJNE A,60H,X10 MOV MBF,00H MOV A,HBF ADD A,01H DA A MOV HBF,A CJNE A,24H,X10 MOV HBF,00H RETX7: MOV A,HBF ADD A,01H DA A MOV HBF,A CJNE A,24H,X10 MOV HBF,00H RETX11: MOV A,59H ADD A,01H DA A MOV 59H,A RETX12: MOV A,58H ADD A,01H DA A MOV 58H,A RETX13: MOV 29H,01H LJMP MAIN3 X8: MOV 74H,00H 。進入輸密碼模式 MOV 29H,00H LJMP MAINX10: RETX4: LJMP MAINRESET: MOV 37H,00H MOV A,39H CLR C RRC A