【正文】 取列號 JC PINT01 DEC R1 DJNZ R3,PINT01 PINT02: MO。置列初號 MOV R3,03H 。將列置輸入端 MOV A,P1 CPL A ANL A,0F0H 。 SCANKEY: MOV A,P1 CPL A ANL A,0FH MOV R2,A 。等 3 則置 ZCF SETB ZCF JMP KEY_K3C KEY_K3C: RET 。等 1 則置ZRF SETB ZRF JMP KEY_K3C KEY_K3A: CJNE A,2,KEY_K3B 。自然風(fēng)、睡眠風(fēng)、正常風(fēng)的置標(biāo)志位子程序 FENG_3: CLR ZRF CLR SMF CLR ZCF MOV A,MRD CJNE A,03H,KEY_K3C 。高中低檔的置標(biāo)志位子程序 KEY_K10: CLR DANG01 CLR DANG02 CLR DANG03 MOV A,MRD CJNE A,01H,KEY_K1C 。等 3 則置 ZCF SETB SJ02 JMP KEY_K4D KEY_K4C: CJNE A,4,KEY_K4D 。等 1 則置ZRF SETB SJ00 JMP KEY_K4D KEY_K4A:CJNE A,2,KEY_K4B 。定時的置位標(biāo)志程序 JS: CLR SJ00 CLR SJ01 CLR SJ02 CLR SJ03 MOV A,MRD CJNE A,04H,KEY_K4D 。按鍵標(biāo)志位 SETB EX1 。置風(fēng)類的標(biāo)志位 CALL JS 。關(guān)斷 INT1 LCALL SCANKEY CALL KEY_K10 。打開 INT0 的中斷 RETI 。進行數(shù)據(jù)碼和數(shù)據(jù)的反碼進行比較 EXIT: POP PSW POP ACC SETB LREC 。送存貯單元中 DJNZ R3,JJJJ 。送 C 中 JNC UUU LCALL DY1000US UUU: MOV A,R1 。右移的次數(shù) JJJJ: JNB ,$ 。將 送 C 中 JNC UUUA 。 5MS時間的引導(dǎo)碼 MOV R7,16 。檢測為 0 時，等待 ACALL DY4700US 。檢測為 0 時，引導(dǎo)碼 過 JNB ,$。避開 9MS 時間的引導(dǎo)碼 SB: CALL DY882US JB ,EXIT 。INT0 中斷處理程序：對接收數(shù)據(jù)進行接收 JISH_INT0: PUSH ACC PUSH PSW CLR EX0 。將 4H 的標(biāo)志位進行清零 JMP GRET 。4 小時到后向下執(zhí)行 MOV P1,0FFH 。中斷返回 LOOP_4H: CJNE A,60,GRET 。關(guān)斷 2H 的標(biāo)志位 SETB SJ03 。1 小時到后向下執(zhí)行 INC HOUR MOV A,HOUR CJNE A,2,GRET MOV P1,0FFH 。將 1H 的標(biāo)志位進行置 0 SETB SJ02 。將 1H 的標(biāo)志位進行置 1 JMP GRET LOOP_1H: CJNE A,60,GRET 。半小時到后向下執(zhí)行 MOV P1,0FFH 。定時 2 小時的處理 JB SJ03,LOOP_4H。1 分鐘到后向下執(zhí)行 INC MIN MOV A,MIN JB SJ01,LOOP_1H。1S到后向下執(zhí)行 MOV CUZHI,20 。中斷處理 PUSH PSW MOV TH0,3CH 。其他鍵的不處理直接返回 。中 39。返 GUAN: SETB LLOW 。開關(guān)機 KEY5: CJNE A,05H,POTHER 。K4 的定時的處理程序 JB SJ01,DY1H JB SJ02,DY2H JB SJ03,DY4H JNB SJ00,FAN4 CLR SJ00 SETB TR0 。 。查詢 CLR HIGHT 。高 SETB MDI SETB HIGHT LCALL DY20MS JB LREC,ZHUAN2 。關(guān)低 39。查詢 CLR MDI 。高 SETB MDI SETB HIGHT LCALL DY20MS JB LREC,ZHUAN2 。關(guān)低 39。查詢 JB LKEYON,ZHUAN2 。高 SETB MDI SETB HIGHT CALL DY20MS CLR LLOW 。處理正常風(fēng) ,關(guān)低 39。 。查詢 JB LKEYON,ZHUAN1 。中 39。查詢 CALL DY10S SETB LLOW 。開高檔 JB LREC,ZHUAN1 。查詢 JB LKEYON,ZHUAN1 。中 39。查詢 CALL DY10S SETB LLOW 。高 SETB MDI SETB HIGHT JB LREC,ZHUAN1 。關(guān)低 39。查詢 JB LKEYON,ZHUAN1 。查詢 CALL DY10S CLR MDI 。高 SETB MDI SETB HIGHT JB LREC,ZHUAN1 。關(guān)低 39。查詢 JB LKEYON,ZHUAN1 。查詢 CALL DY6S CLR LLOW 。高 SETB MDI SETB HIGHT JB LREC,ZHUAN1 。處理睡眠風(fēng) ,關(guān)低 39。 。查詢 JB LKEYON,ZHUAN0 。中 39。查詢 CALL DY6S SETB LLOW 。查詢 CALL DY20MS CLR MDI JB LREC,ZHUAN0 。高 SETB MDI SETB HIGHT JB LREC,ZHUAN0 。關(guān)低 39。查詢 JB LKEYON,ZHUAN0 。查詢 JB LKEYON,ZHUAN0 。中 39。自然風(fēng)控制 WATERM: JNB ZRF,FAN1 CLR ZRF SETB LLOW 。K3 的處理程序處理風(fēng)類 JB SMF,SKEEP JB ZCF,SPRING_A JB ZRF,WATERM JMP MAIN KEY4_A:JMP KEY4 SPRING_A: JMP SPRING 。 。第二次按時將彩燈關(guān)斷 SETB LED_LAP CLR PLAP JMP MAIN 。第一次按時將彩燈打開， CLR LED_LAP SETB PLAP JMP MAIN 。彩燈控制： KEY2: CJNE A,02H,KEY3 。保證三個 SCR 全部為關(guān)斷 狀態(tài) CLR HIGHT CLR LED_H CLR DANG03 AJMP MAIN 。關(guān)中 SETB HIGHT 。高檔控制 QIANGFENG: JNB DANG03,FAN0 SETB LLOW 。保證三個 SCR 全部為關(guān)斷狀態(tài) CLR MDI CLR LED_M CLR DANG02 AJMP MAIN 。關(guān)中 SETB HIGHT 。中檔控制 ZHONGFENG: JNB DANG02,FAN0 SETB LLOW 。開低風(fēng) CLR LED_L 。關(guān)高 CALL DY20MS 。完成了低檔的程序 ,關(guān)低 SETB MDI 。 。DANG02 中檔標(biāo)志位 JB DANG03,QIANGFENG 。低、中、高、的控制 。KEYHANDLE: CLR LKEYON CLR LREC MOV A,MRD CJNE A,01H,KEY2 。K4 鍵 : 完 成 定 時 的 控 制 , 同時,1H,2H,4H,相應(yīng)的指示燈點亮 。K2 鍵 :完成彩燈控制 ,相應(yīng)的指示燈點亮 。鍵盤處理程序 。轉(zhuǎn)主程序 。檢按鍵標(biāo)志位 JB REC,KEYHANDLE 。關(guān)所有的指示燈 SETB EX0 SETB EX1 SETB EA 。關(guān)高風(fēng) SETB LLAP 。關(guān)低風(fēng) SETB MDI 。預(yù)使用單元清 0 CLR A MAIN0: MOV R0,A DJNZ R0,MAIN0 MOV SP,60H MOV TMOD,01H MOV TH0,3CH 。定時中斷 ORG 0013H JMP KEY_INT1 。正常風(fēng)的處理流程：開低檔 10S 開中檔 10S 開高檔 10S 循環(huán) $INCLUDE() $INCLUDE() ORG 0000H JMP START ORG 0003H JMP JISH_INT0 。睡眠風(fēng)的處理流程：停 6S開低檔10S停延時 10S開中檔 10S 。自然風(fēng)的處理流程：停 開低檔 延時 6 秒 開中檔 。K4：定時 30分鐘， 1 小時， 2 小時，4 小時 。K2：彩燈，相應(yīng)的指示燈亮 。風(fēng)扇具有紅外遙控功能 。數(shù)據(jù)輸出 $RESTORE 電風(fēng)扇紅外接收 (控制板 )程序： 。定義發(fā)送系統(tǒng)碼緩沖的地址 FMOUT BIT 。 AT89C2051 內(nèi)存 RAM 分配 Fiel = $SAVE $NOLIST R31 DATA 1FH KEYON BIT 。延時 9000us 子程序 : DY9000us: MOV R31,91 L2A: PUSH R31 L3A: DJNZ R31,L3A POP R31 DJNZ R31,L2A RET 。若 C 等 0 CALL DY562us CLR DATAOUT CALL DY562us ONE: SETB DATAOUT CALL DY562us CLR DATAOUT CALL DY1687us DJNZ R2,PP1 INC R1 DJNZ R3,PP0 。右環(huán)移帶進位 JC ONE 。將數(shù)據(jù)首址 CLR C 。發(fā)送的字節(jié)數(shù) MOV R1,SENDBUF PP0: MOV R2,08H 。引導(dǎo)脈沖子程序 SEND: SETB DATAOUT LCALL DY9000us CLR DATAOUT LCALL DY4500us RET 。關(guān) T0的中斷 SETB EX0 。發(fā)送一幀數(shù)據(jù) .包括系統(tǒng)碼和數(shù)據(jù)碼 CLR TR0 。發(fā)送引導(dǎo)碼 SETB TR0 。系統(tǒng)碼在 30H單元中 MOV SENDBUF+1,00H 。鍵號存于 32H 單23 元中 CPL A MOV SENDBUF+3,A 。取行號 MOV R2,00H MOV R3,03H 。置循環(huán)次數(shù) CLR C PINT01: RLC A 。取列號并存入 A 中 MOV R1,03H 。將行號存入 R2 中 MOV P1,0F0H 。進入待機 LOOP1: JMP MAIN 。1/3 的高電平標(biāo)志 MOV R2,02H 。T0 的工作方式 2 MOV TH0,0F7H 。設(shè)置電平觸發(fā) SETB PT0 SETB EX0 SETB EA MOV 40H,0FFH MOV 41H,0FFH MOV 42H,0FFH CLR DATAOUT CLR FMOUT 。清緩沖的地址單元 MOV SP,60H MOV P1,00001111B 。進入主程序 MAIN: MOV R0,7FH 。IN