【正文】 TAB: AJMP WORKl AJMP WORK2 AJMP WORK3 AJMP WORK4 NOP NOP LJMP ERR ；軟件陷阱 WORKl： WORK2: CLR SWITCH ；工作方式1和2：開(kāi)繼電器 AJMP MAIN2 NOP NOP LJMP ERR ；軟件陷阱WORK3： WORK4： SETB SWI丁CH ；工作方式3和4：不開(kāi)繼電器MAIN2， CLR BELL ； ACALL DL05S SETB BELL JUDGl JNB WORKIN，MAINl ；判斷是否在定時(shí)之中 MOV A，SL ；判斷秒是否為零 JNZ MAINl MOV A，SH ；判斷秒是否為零 JNZ MAINl MOV A，ML ；判斷分是否為零 JNZ MAINl MOV A，HH ；判斷時(shí)是否為零 JNZ MAINl ；若時(shí)、分、秒全為零 CLR ET0 ；停止計(jì)時(shí) CLR TR0 ACALL ACTION ；調(diào)用到點(diǎn)工作子程序 AJMP MAIN ；返回 NOP NOP lJMP ERR ；軟件陷阱步進(jìn)電機(jī)控制程序：ORG 0100HROUNT1：MOV A，N ；步進(jìn)電機(jī)步數(shù)→A JNB 00H，LOOP2 ；反向，轉(zhuǎn) LOOP2LOOP1： MOV P1，03H ；正向，輸出第一拍 ACALL DELAY ；延時(shí) DEC A ；A＝0，轉(zhuǎn)DONE JZ DONE MOV P1，06H ；輸出第二拍 ACALL DELAY ；延時(shí) DEC A ；A＝0，轉(zhuǎn)DONE JZ DONE MOV P1，05H ；輸出第三拍 ACALL DELAY ；延時(shí) DEC A ；A≠0，轉(zhuǎn)LOOP1 JNZ LOOP1 ： AJMP DONE ；A＝0，轉(zhuǎn)DONELOOP2： MOV P1，03H ；反向，輸出第一拍 ACALL DELAY ；延時(shí)DEC A；A＝0，轉(zhuǎn)DON JZ DONE MOV P1，05H ；輸出第二拍 ACALL DELAY ；延時(shí) DEC A JZ DONE ； MOV P1，06H ；輸出第三拍 ACALL DELAY ；延時(shí) DEC A ；A≠0，轉(zhuǎn)LOOP2 JNZ LOOP2DONE： RET顯示程序：START: MOV A , 03H ； 初始化MOV DPTR , 7F00HMOVX @DPTR , AMOV R0 , 60H ； 置顯示緩沖區(qū)首地址MOV R2 , 01H ； 置位選碼初值MOV A , R2LOOP:MOV DPTR , 7F01HMOVX @DPTR , AINC DPTRMOV A , @R0ADD A , 0DH ；形成查表的偏移地址MOVC A , @A+PCDIR:MOVX @DPTR , AACLL DELAY ；延時(shí)INC R0MOV A , R2JB , LOOP1 ； 判斷6位是否顯示完畢RL AMOV R2 , AAJMP LOOPLOOP1:RETDB 3FH , 06H , 5BH , 4FH , 66H , 6DHDB 7DH , 07H , 7FH , 6FH , 77H , 7CHDB 39H , 5EH , 79H , 71HDELAY: MOV R7 , 04HDELAY1:MOV R6 , 0FFHDELAY2:DJNZ R6 , DELAY2DJNZ R7 , DELAY1RET鍵盤程序：KEYI：ACALL KS1 ；調(diào)用判有無(wú)鍵閉合子程序JNZ LK1 ；有鍵閉合，跳LK1NI： ACALL DIR ；無(wú)鍵閉合，調(diào)用顯示子程序,延遲6ms后，跳KEYIAJMP KEYILK1： ACALL DIR ；可能有鍵閉合，延遲12ms，軟件去抖ACALL DIRACALL KS1 ；調(diào)用判有無(wú)鍵閉合子程序JNZ LK2 ；經(jīng)去抖，判鍵確實(shí)閉合，跳LK2處理ACALL DIR ；調(diào)用顯示子程序延遲6msAJMP KEYI ；抖動(dòng)引起，跳KEYILK2： MOV R2,＃0FEH ；列選碼→R2MOV R4,＃00H ；R4為列號(hào)計(jì)數(shù)器LK4： MOV DPTR,＃7F01H ；列選碼→8155H的PA口MOV A,R2 MOVX @DPTR,A INC DPTR ；數(shù)據(jù)指針增2，指向PC口INC DPTR MOVX A,@DPTR ；讀8155H PC口JB ,LONE ；0行線為高，無(wú)鍵閉合，跳LONE，轉(zhuǎn)判1行MOV A,＃00H ；0行有鍵閉合,首鍵號(hào)0→AAJMP LKP ；跳LKP，計(jì)算鍵號(hào)LONE：JB ,LTW0 ；1行線為高，無(wú)鍵閉合，跳LTW0，轉(zhuǎn)判2行MOV A,＃08H ；1行有鍵閉合,首鍵號(hào)8→AAJMP LKP LTW0：JB ,LTHR ；2行線為高，無(wú)鍵閉合，跳LTHR，轉(zhuǎn)判3行MOV A,＃10H ；2行有鍵閉合,首鍵號(hào)10H→AAJMP LKP ；跳LKP，計(jì)算鍵號(hào)LTHR：JB ,NEXT ；3行線為高，無(wú)鍵閉合，跳NEXT，準(zhǔn)備下一列掃描MOV A,＃18H ；3行有鍵閉合,首鍵號(hào)18H→ALKP： ADD A,R4 ；計(jì)算鍵號(hào)：首鍵號(hào)＋列號(hào)=鍵號(hào)PUSH A ；鍵號(hào)進(jìn)棧保護(hù)LK3： ACALL DIR ；調(diào)用顯示子程序，延時(shí)6msACALL KS1 ；調(diào)用判有無(wú)鍵閉合子程序，延時(shí)6msJNZ LK3 ；判鍵釋放否，未釋放，則循環(huán)POP A ；鍵已釋放，鍵號(hào)出棧→ARETNEXT：INC R4 ；列計(jì)數(shù)器加1，為下一列掃描作準(zhǔn)備MOV A,R2 ；判是否已掃到最后一列（最右一列）JNB ,KND ；鍵掃描已掃到最后一列，跳KND，重新進(jìn)行掃描RL A ；鍵掃描未掃到最后一列，位選碼左移一位MOV R2,A ；位選碼→R2AJMP LK4 KND： AJMP KEYI KS1： MOV DPTR ,7F01H ；判有無(wú)鍵閉合子程序，全“0”→掃描口（PA口）MOV A,＃00H ；即列線全為低電平MOVX @DPTR,A INC DPTR ；DPTR增2，指向PC口INC DPTR ；指針增1，指向PC口MOVX A,@DPTR ；從PC口讀行線的狀態(tài)CPL A ；行線取反，如無(wú)鍵按下，則A為0；ANL A,＃0FH ；屏蔽無(wú)用的高4位R