【正文】 ； R5 為一空單元 (備用 ) MOV R4， 00H ； R4 為工作模式選擇寄存器 MOV SL, 00H ；定時(shí)單元清零 MOV SH， 00H ；秒 MOV ML， 00H ； MOV MH， 00H ；分 MOV HL， 00H ； MOV HH， 00H ；時(shí) MOV PLYTS， 64H ；賦顯示次數(shù)初值為 100 次 MOV DSPLYP， L0 ；顯示指針指向顯存單元 MOV L0,0AH ；送顯示數(shù)據(jù) “ 一一一一一 ” MOV L1, 0AH MOV L2， 0AH MOV L3，共 04H SETB LED4 ； LED4 為數(shù)碼管之間的發(fā)光二極管 SETB LPLMOD ；設(shè)定顯示方式為閃爍 SETB HPLMOD SETB BRIGHT ；允許顯示 CLR WORKIN ；清工作標(biāo)志，待命 AJMP SETUP ；轉(zhuǎn)開始工作 NOP NOP LJMP ERR ；軟件陷阱 HSTART： MOV SCON， 00H ；有上電標(biāo)志 ,熱啟動(dòng) ,清串行口控制 MOV IP， 00H ；清中斷優(yōu)先控制寄存器 28 SETB FKEY ；重 設(shè)按鍵 SETB MKEY SETB EA ；開中斷 AJMP BEGIN ；轉(zhuǎn)向繼續(xù)工作 NOP NOP LJMP ERR ；軟件陷阱 SETUP： SETB EA ；開中斷 MAINl： ACALL DISPLY ；調(diào)用顯示 JB FKEY， JUDGE ；按鍵掃描 ACALL KEYDLY ；延時(shí)消抖動(dòng) JB FKEY， JUDGE ；無鍵按下轉(zhuǎn)向判斷是否到點(diǎn) CLR ET0 ；功能鍵被按下 CLR TR0 ；暫停計(jì)日寸 ACALL MENU ；調(diào)用菜單設(shè)置程序 BEGIN： SETB WORKIN ；置工作標(biāo)志位，開始工作 SETB ET0 ；開中斷 SETB TR0 ；開始計(jì)時(shí) MOV A， R4 ；移 入 工作模式選擇 RL A ；指針放大 MOV DPTR JMP A+DPTR ；根據(jù)工作模式跳轉(zhuǎn)到相應(yīng)程序段 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 ；軟件陷阱 29 WORK3： WORK4： SETB SWI丁 CH ；工作方式 3 和 4：不開繼電器 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 0100H ROUNT1： MOV A， N ；步進(jìn)電機(jī)步數(shù)→ A JNB 00H， LOOP2 ；反向，轉(zhuǎn) LOOP2 LOOP1： 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 ： 30 AJMP DONE ； A＝ 0，轉(zhuǎn) DONE LOOP2： 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 LOOP2 DONE： RET 顯示程序： START: MOV A , 03H ； 初始化 MOV DPTR , 7F00H MOVX DPTR , A MOV R0 , 60H ； 置顯示緩沖區(qū)首地址 MOV R2 , 01H ； 置位選碼初值 MOV A , R2 LOOP:MOV DPTR , 7F01H MOVX DPTR , A INC DPTR MOV A , R0 ADD A , 0DH ；形成查表的偏移地址 MOVC A , A+PC DIR:MOVX DPTR , A ACLL DELAY ；延時(shí) INC R0 MOV A , R2 JB , LOOP1 ； 判斷 6 位是否顯示完畢 RL A MOV R2 , A AJMP LOOP LOOP1:RET 31 DB 3FH , 06H , 5BH , 4FH , 66H , 6DH DB 7DH , 07H , 7FH , 6FH , 77H , 7CH DB 39H , 5EH , 79H , 71H DELAY: MOV R7 , 04H DELAY1:MOV R6 , 0FFH DELAY2:DJNZ R6 , DELAY2 DJNZ R7 , DELAY1 RET 鍵盤程序： KEYI： ACALL KS1 ； 調(diào)用判有無鍵閉合子程序 JNZ LK1 ；有鍵閉合，跳 LK1 NI： ACALL DIR ；無鍵閉合，調(diào)用顯示子程序 ,延遲 6ms 后，跳 KEYI AJMP KEYI LK1： ACALL DIR ；可能有鍵閉合，延遲 12ms，軟件去抖 ACALL DIR ACALL KS1 ；調(diào)用判有無鍵閉合子程序 JNZ LK2 ；經(jīng)去抖，判鍵確實(shí)閉合，跳 LK2 處理 ACALL DIR ；調(diào)用顯示子程序延遲 6ms AJMP KEYI ；抖動(dòng)引起，跳 KEYI LK2： MOV R2,＃ 0FEH ；列選碼→ R2 MOV 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行線為高，無鍵閉合，跳 LONE，轉(zhuǎn)判 1行 MOV A,＃ 00H ； 0 行有鍵閉合 ,首鍵號(hào) 0→ A AJMP LKP ；跳 LKP，計(jì)算鍵號(hào) LONE： JB ,LTW0 ； 1 行線為高，無鍵閉合，跳 LTW0，轉(zhuǎn)判 2行 MOV A,＃ 08H ； 1 行有鍵閉合 ,首鍵號(hào) 8→ A AJMP LKP LTW0： JB ,LTHR ； 2 行線為高，無鍵閉合，跳 LTHR，轉(zhuǎn)判 3行 MOV A,＃ 10H ； 2 行有鍵閉合 ,首鍵號(hào) 10H→ A 32 AJMP LKP ；跳 LKP，計(jì)算鍵號(hào) LTHR： JB ,NEXT ； 3行線為高， 無鍵閉合，跳 NEXT，準(zhǔn)備下一列掃描 MOV A,＃ 18H ； 3行有鍵閉合 ,首鍵號(hào) 18H→ A LKP：