【正文】 　　　 SETB SETB ；門開MOV R2，0 ；5s定時開始CJNE R2，50，$ ；等待5s延時 CLR ；門關(guān) SETB CLR ；下降CJNE R3，0，DOWN12??；Stop鍵是否按下過 AJMP UP1DOWN12：CLR　　　 ?。蝗鬝top鍵按下過,轉(zhuǎn)S1停止工作 CLR AJMP S1 ；定時器T0中斷服務(wù)程序：5s計時TIME：　 MOV TH0，3CH MOV TL0，0B0H INC R2 ；R2計數(shù)器 RETI。********* T1中斷服務(wù)程序：按鍵狀態(tài)檢查***********TIME1： MOV TH1，0ECH ；每10s檢查一次按鍵 MOV TL1，78H MOV 6EH，A MOV 30H，P1 ；讀入所有按鍵狀態(tài) MOV 31H，P3 JB ，TIME11 ；若Stop鍵未按下,則正常運行 MOV R3，0FFH ；Stop鍵按下,標(biāo)志R3置非0數(shù) MOV 20H，0 ；清除全部電梯間上升請求 MOV 21H，0 ；清除全部電梯間下降請求 MOV　　 22H，0 ；清除全部電梯內(nèi)目標(biāo)樓層請求 MOV 30H，0FFH ；修改讀入的按鍵狀態(tài),使之為 MOV 31H，0FEH ；電梯內(nèi)目標(biāo)為一樓 CLR TR1 ；并關(guān)閉T1,不再讀取按鍵TIME11：　 MOV　　 A，30H CPL A ANL A，07H ；取得電梯間上升請求 ORL 20H，A MOV　 A，20H ；取得上升指示燈狀態(tài) CPL A ANL A，07H MOV 32H，A MOV A，30H CPL A ANL A，38H ；取得電梯間下降請求 RR A RR A ORL 21H，A MOV A，21H CPL A ANL A，0EH RL　　 A RL A ORL　 32H，A MOV A，P0 ANL A，0C0H ORL A，32H MOV P0，A ；刷新上升、下降請求指示燈 MOV A，31H ANL A，0FH　　　　??；取得電梯內(nèi)目標(biāo)樓層請求 ORL　 22H，A　　　　　MOV A，22H CPL A MOV　 P2，A　　　　??；刷新電梯內(nèi)目標(biāo)樓層指示燈TIME12：　 MOV　　A，6EH RETI。********* 2s延時程序***********DLY： MOV R5，20DLY1：　　　MOV R6，100DLY2：　　　MOV R7，250 DJNZ R7，$ DJNZ R6，DLY2 DJNZ R5，DLY1 RET END**************** PWM控制電梯門開關(guān)程序 ************************ ORG 0000H LMP START ORG 000EH LMP ZDCX ORG 0100HSTART： MOV SP，30H ；系統(tǒng)初始化， MOV DPTR，TAB MOV TL0，9CH MOV TH0，9CH MOV TMOD，02H ；定時器T0工作方式2 MOV IE，82H SETB TR0 LCALL QUZHI ；取第一個R0的值 MOV R0，A CLR LP： JNB 20H，LP ；輸出PWM波形 CLR 20H DJNZ R0，LP CPL LCALL QUZHI； CNE 55H，LP1 ；當(dāng)所取的數(shù)是結(jié)束標(biāo)志55時， LMP START ；程序重新開始LP1： MOV R0，A MP LPQUZHI： MOV A，00H ；取值子程序 MOVC A，@+DPTR INC DPTR RETZDCX： SETB 20H RETI TAB：DB 7，6，15，12，24，6，30，6，24，12，15，6，7，55 ；55為結(jié)束標(biāo)志 END*************PWM控制電梯上升與下降程序************* ORG 0000H LMP START ORG 000EH LMP ZDCX ORG 0100HSTART： MOV SP，30H MOV DPTR，TAB MOV TL0，9CH MOV TH0，9CH MOV TMOD，02H MOV IE，82H SETB TR0 LCALL QUZHI MOV R0，A CLR LP： JNB 20H，LP CLR 20H DJNZ R0，LP CPL LCALL QUZHI； CNE 55H，LP1 LMP STARTLP1： MOV R0，A LMP LPQUZHI： MOV A，00H MOVC A，@+DPTR INC DPTR RETZDCX： SETB 20H RETITAB： DB 5，10，15，20，5，10，15，5，5，10，15，20，5，10，5，55 END 專業(yè)整理分享