【正文】 序 ajmp nnmn2: MOV BUT,30H MOV OPPBUT,0CFH LCALL REMOTE 。轉(zhuǎn)發(fā)送程序 ajmp nnmn3: MOV BUT,40H MOV OPPBUT,0BFH LCALL REMOTE 。轉(zhuǎn)發(fā)送程序 ajmp nnmn4: MOV BUT,50H MOV OPPBUT,0AFH LCALL REMOTE 。轉(zhuǎn)發(fā)送程序 ajmp nnmn5: MOV BUT,60H MOV OPPBUT,9FH LCALL REMOTE 。轉(zhuǎn)發(fā)送程序 ajmp nn。*************************************。* 編 碼 發(fā) 射 程 序 *。*************************************REMOTE: SETB ET1 。開T1中斷 SETB TR1 。開啟定時(shí)器T1 MOV R1,06H 。原數(shù)值09HOUT01: MOV R2,0C8H 。發(fā)5ms引導(dǎo)碼 DJNZ R2,$ DJNZ R1,OUT01 CLR TR1 。關(guān)定時(shí)器T1 CLR ET1 。關(guān)T1中斷 CLR 。關(guān)脈沖輸出 MOV R1,0AH 。3ms空隙OUT02: MOV R2,96H DJNZ R2,$ DJNZ R1,OUT02OUT03: 。發(fā)射數(shù)據(jù)流 MOV A,PCODE ACALL OUT04 ；調(diào)用發(fā)送子程序 MOV A,OPPCODE ACALL OUT04 ；調(diào)用發(fā)送子程序 MOV A,BUT ACALL OUT04 ；調(diào)用發(fā)送子程序 MOV A,OPPBUT ACALL OUT04 ；調(diào)用發(fā)送子程序 SETB C 。發(fā)送結(jié)束碼1 ACALL SEND ；調(diào)用發(fā)送子程序 MOV R1,0EAH 。延時(shí)130MS OUTWAIT:MOV R2,0C8H DJNZ R2,$ DJNZ R1,OUTWAIT RET。*************************************。* 發(fā) 射 子 程 序 *。*************************************OUT04: 。循環(huán)發(fā)射各數(shù)據(jù)位 MOV R1,08HOUT: RLC A ACALL SEND DJNZ R1,OUT RETSEND: CLR TR1 。關(guān)定時(shí)器T1 CLR ET1 。關(guān)T1中斷 CLR 。關(guān)脈沖輸出 JC SEND1 MOV R3,08H 。發(fā)射0碼SEND0: MOV R4,69H 。0碼低電平 DJNZ R4,$ DJNZ R3,SEND0 AJMP SIG 。轉(zhuǎn)脈沖發(fā)送信號(hào)SEND1: MOV R3,02H 。1碼低電平SEND10: MOV R4,8CH DJNZ R4,$ DJNZ R3,SEND10SIG: SETB ET1 。開T1中斷 SETB TR1 。開啟定時(shí)器T1 MOV R3,08CH 。發(fā)射脈沖 DJNZ R3,$ CLR TR1 。關(guān)定時(shí)器T1 CLR ET1 。關(guān)T1中斷 CLR 。關(guān)脈沖輸出 RET。*************************************。* T1中斷服務(wù)程序 *。*************************************INTT1: CPL 。40kHZ紅外線遙控信號(hào)產(chǎn)生 RETI 。中斷返回 END 。程序結(jié)束 附錄 4紅外遙控系統(tǒng)接收部分源程序 ORG 0000H LJMP START ORG 0003H LJMP INTEX0 ORG 0030H PCODE EQU 30H 。識(shí)別碼 OPPCODE EQU 31H 。識(shí)別碼反碼 BUT EQU 32H 。按鍵碼 OPPBUT EQU 33H 。按鍵反碼 CODENUM EQU 34H 。接收碼數(shù)START: MOV SP,70H MOV IE,00H 。關(guān)所有中斷 SETB EX0 。開外中斷 SETB EA ?？傊袛嘣试S MOV PCODE,0ABH 。識(shí)別碼初值 MOV OPPCODE,54H 。識(shí)別碼反碼初值MAIN: MOV R3,0FFH DJNZ R3,$ 。持續(xù)510微秒 MOV R5,08H MOV R6,P2 MOV R7,08HXUN: CLR C 。對(duì)工作狀態(tài)設(shè)備計(jì)數(shù) MOV A,R6 RLC A MOV R6,A MOV A,R5 SUBB A,00H MOV R5,A DJNZ R7,XUN MOV A,R5 MOV P1,A 。送LED顯示 LJMP MAIN 。轉(zhuǎn)MAIN循環(huán) NOP 。PC值出錯(cuò)處理 LJMP START 。出錯(cuò)時(shí)重新初始化。******************************。 遙控接收程序。******************************INTEX0: MOV 35H,A 。采用中斷接收 保護(hù)現(xiàn)場(chǎng) MOV 20H,C CLR EX0 。關(guān)外中斷 JNB ,READ 。 為高電平退出 OUT: SETB EX0 。開中斷（系干擾） MOV A,38H 。恢復(fù)現(xiàn)場(chǎng) MOV C,20H RETI 。退出中斷 READ: CLR A 。清A 讀取引導(dǎo)碼 MOV DPH,A 。清DPTR MOV DPL,A HEAD: JB ,HEAD01 。 INC DPTR 。用DPTR對(duì)低電平計(jì)數(shù) MOV R1,04H DJNZ R1,$ AJMP HEAD 。轉(zhuǎn)HARD循環(huán)（循環(huán)周期為16微秒）HEAD01: MOV A,DPH 。DPTR高8位放入A JZ OUT 。為0（脈寬小于16*255=4毫秒）退出 MOV R1,0AH 。3ms低電平HEAD02: MOV R2,96H DJNZ R2,$ DJNZ R1,HEAD02 ACALL READ01 。接收識(shí)別碼 CJNE A,PCODE,OUT 。識(shí)別碼判定 ACALL READ01 CJNE A,OPPCODE,OUT 。識(shí)別碼反碼判定 ACALL READ01 MOV BUT,A 。接收控制碼 ACALL READ01 。接收控制反碼 CPL A CJNE A,BUT,OUT ?？刂拼a校驗(yàn) ACALL READEND 。接收結(jié)束碼 CJNE A,01H,OUT MOV A,BUT 。按鍵動(dòng)作FUN1: CJNE A,10H,FUN2 。鍵盤碼查詢并動(dòng)作 CPL 。P2口各端口開關(guān)輸出控制 LJMP OUT 。轉(zhuǎn)中斷退出FUN2: CJNE A,20H,FUN3 CPL 。P2口各端口開關(guān)輸出控制 LJMP OUT 。轉(zhuǎn)中斷退出FUN3: CJNE A,30H,FUN4 CPL 。P2口各端口開關(guān)輸出控制 LJMP OUT 。轉(zhuǎn)中斷退出FUN4: CJNE A,40H,FUN5 CPL 。P2口各端口開關(guān)輸出控制 LJMP OUT 。轉(zhuǎn)中斷退出FUN5: CJNE A,50H,FUN6 MOV P2,0AAH 。全亮 LJMP OUT 。轉(zhuǎn)中斷退出FUN6: CJNE A,60H,OUT 。查無此人 退回 MOV P2,0FFH 。全滅 LJMP OUT 。轉(zhuǎn)中斷退出READ01: MOV CODENUM,08H 。讀取數(shù)據(jù)碼8位 CLR A 。清A LJMP READ02READEND: MOV CODENUM,01H 。讀取結(jié)束碼 CLR AREAD02: CLR C MOV R1,02H 。READ03: MOV R2,0C8H DJNZ R2,$ DJNZ R1,READ03 MOV C, 。取碼 CPL C 。還原碼值 RLC A 。移位賦值 JB ,$ JNB ,$ DJNZ CODENUM,READ02 RET END附錄 5實(shí)