[代码]红外线发射与接收源程序.doc

红外线发射与接收一例;include ;歌林电子制作实验室 ;TELemail:;-STATUS equ 0X03PORTA equ 0x05PORTB equ 0x06W equ 0x00F equ 0x01Z equ 0x02C equ 0x00;-n55ks equ 0x0C ; nchks equ 0x0D ; avgIR equ 0x0E ; nsamp equ 0x0F ; tdetect equ 0x10 ; ;-org 0x000goto startorg 0x004startmovlw b00000001tris PORTA ; RA0 红外输入movlw b00000000tris PORTB ;RB0 红外输出 ; 2us in goto at end of loopblip call doblip ; +6.248ms = 6.250ms totalcall seeblip ; 6.250ms totalcall seeblip ; 6.250ms totalcall seeblip ; 6.250ms totalcall seeblip ; 6.250ms totalcall seeblip ; 6.250ms totalcall seeblip ; 6.250ms totalcall seeblip ; 6.250ms totalnopnop call doblip call seeblip call seeblip call seeblip call seeblip call seeblip call seeblip call seeblip goto blip ; ;= 产生 55.5kHz锯形波(346*18us=6.228ms)=doblip movlw 0xFFmovwf n55ks osc nop call make55k ;RB0 红外输出 decfsz n55ks,F goto osc ;-morblip ;6253us DELAY movlw 0x5Bmovwf n55ks oscmore call make55k ;RB0 红外输出 nop decfsz n55ks,F goto oscmore ;- call delay8unopnopnopnopnop bcf PORTB,2 ; RB2 LED指示return ;-make55k bsf PORTB,0 ;RB0 红外输出 call delay8u bcf PORTB,0 return delay8u nop nop nop nop return ;= 6.250ms =seeblip clrf avgIR movlw 0xF9movwf nchks chk call chkIR ;/decfsz nchks,F goto chk movf avgIR,W ; sublw 0X78 btfss STATUS,C goto detectd bcf PORTB,0 ;RB0 红外输出 OFFgoto chkdone detectd bsf PORTB,0 nop chkdone call delay8u nopnopnopnopreturn ;=chkIR clrf nsamp btfss PORTA,0incf nsamp,F btfss PORTA,0 ; RA0 红外输入incf nsamp,F btfss PORTA,0 ; RA0 红外输入计数值存到nsampincf nsamp,F btfss PORTA,0 incf nsamp,F btfss PORTA,0incf nsamp,F btfss PORTA,0 ;共六次 nsamp5，avgI