【正文】 MOV A，R4 ；移入工作模式選擇 RL A ；指針放大 MOV DPTR JMP A+DPTR ；根據(jù)工作模式跳轉到相應程序段M—TAB: AJMP WORKl AJMP WORK2 AJMP WORK3 AJMP WORK4 NOP NOP LJMP ERR ；軟件陷阱 WORKl： WORK2: CLR SWITCH ；工作方式1和2：開繼電器 AJMP MAIN2 NOP NOP LJMP ERR ；軟件陷阱WORK3： WORK4： SETB SWI丁CH ；工作方式3和4：不開繼電器MAIN2， CLR BELL ； ACALL DL05S SETB BELL JUDGl JNB WORKIN，MAINl ；判斷是否在定時之中 MOV A，SL ；判斷秒是否為零 JNZ MAINl MOV A，SH ；判斷秒是否為零 JNZ MAINl MOV A，ML ；判斷分是否為零 JNZ MAINl MOV A，HH ；判斷時是否為零 JNZ MAINl ；若時、分、秒全為零 CLR ET0 ；停止計時 CLR TR0 ACALL ACTION ；調(diào)用到點工作子程序 AJMP MAIN ；返回 NOP NOP lJMP ERR ；軟件陷阱步進電機控制程序：ORG 0100HROUNT1：MOV A，N ；步進電機步數(shù)→A JNB 00H，LOOP2 ；反向，轉 LOOP2LOOP1： MOV P1，03H ；正向，輸出第一拍 ACALL DELAY ；延時 DEC A ；A＝0，轉DONE JZ DONE MOV P1，06H ；輸出第二拍 ACALL DELAY ；延時 DEC A ；A＝0，轉DONE JZ DONE MOV P1，05H ；輸出第三拍 ACALL DELAY ；延時 DEC A ；A≠0，轉LOOP1 JNZ LOOP1 ： AJMP DONE ；A＝0，轉DONELOOP2： MOV P1，03H ；反向，輸出第一拍 ACALL DELAY ；延時DEC A；A＝0，轉DON JZ DONE MOV P1，05H ；輸出第二拍 ACALL DELAY ；延時 DEC A JZ DONE ； MOV P1，06H ；輸出第三拍 ACALL DELAY ；延時 DEC A ；A≠0，轉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 ；延時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)用判有無鍵閉合子程序JNZ LK1 ；有鍵閉合，跳LK1NI： ACALL DIR ；無鍵閉合，調(diào)用顯示子程序,延遲6ms后，跳KEYIAJMP KEYILK1： ACALL DIR ；可能有鍵閉合，延遲12ms，軟件去抖ACALL DIRACALL KS1 ；調(diào)用判有無鍵閉合子程序JNZ LK2 ；經(jīng)去抖，判鍵確實閉合，跳LK2處理ACALL DIR ；調(diào)用顯示子程序延遲6msAJMP KEYI ；抖動引起，跳KEYILK2： MOV R2,＃0FEH ；列選碼→R2MOV R4,＃00H ；R4為列號計數(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行線為高，無鍵閉合，跳LONE，轉判1行MOV A,＃00H ；0行有鍵閉合,首鍵號0→AAJMP LKP ；跳LKP，計算鍵號LONE：JB ,LTW0 ；1行線為高，無鍵閉合，跳LTW0，轉判2行MOV A,＃08H ；1行有鍵閉合,首鍵號8→AAJMP LKP LTW0：JB ,LTHR ；2行線為高，無鍵閉合，跳LTHR，轉判3行MOV A,＃10H ；2行有鍵閉合,首鍵號10H→AAJMP LKP ；跳LKP，計算鍵號LTHR：JB ,NEXT ；3行線為高，無鍵閉合，跳NEXT，準備下一列掃描MOV A,＃18H ；3行有鍵閉合,首鍵號18H→ALKP： ADD A,R4 ；計算鍵號：首鍵號＋列號=鍵號PUSH A ；鍵號進棧保護LK3： ACALL DIR ；調(diào)用顯示子程序，延時6msACALL KS1 ；調(diào)用判有無鍵閉合子程序，延時6msJNZ LK3 ；判鍵釋放否，未釋放，則循環(huán)POP A ；鍵已釋放，鍵號出棧→ARETNEXT：INC R4 ；列計數(shù)器加1，為下一列掃描作準備MOV A,R2 ；判是否已掃到最后一列（最右一列）JNB ,KND ；鍵掃描已掃到最后一列，跳KND，重新進行掃描RL A ；鍵掃描未掃到最后一列，位選碼左移一位MOV R2,A ；位選碼→R2AJMP LK4 KND： AJMP KEYI KS1： MOV DPTR ,7F01H ；判有無鍵閉合子程序，全“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 ；行線取反，如無鍵按下，則A為0；ANL A,＃0FH ；屏蔽無用的高4位RET