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

《[代码]红外线发射与接收源程序》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、红外线发射与接收一例;include       ;歌林电子制作实验室www.nbglin.com;TEL：0574-88464538 email:nbglin@126.com;------------------STATUS equ    0X03PORTA  equ    0x05PORTB  equ    0x06W      equ    0x00F      equ    0x01Z      equ    0x02C      equ    0x00;------------------n55ks  equ   

2、 0x0C           ;nchks  equ    0x0D           ;avgIR  equ    0x0E           ;nsamp  equ    0x0F           ;tdetectequ    0x10           ;;------------------------------------org    0x000goto   startorg    0x004startmovlw  b'00000001'tris   PORTA          ;RA0红外输入movlw  b'0000000

3、0'tris   PORTB          ;RB0红外输出;2usingotoatendofloopblipcalldoblip;+6.248ms=6.250mstotalcallseeblip;6.250mstotalcallseeblip;6.250mstotalcallseeblip;6.250mstotalcallseeblip;6.250mstotalcallseeblip;6.250mstotalcallseeblip;6.250mstotalcallseeblip;6.250mstotalnopnopcalldoblipcallse

4、eblipcallseeblipcallseeblipcallseeblipcallseeblipcallseeblipcallseeblipgotoblip;;============产生55.5kHz锯形波(346*18us=6.228ms)======doblip                        movlw  0xFFmovwf  n55ks          osc    nop                  call   make55k     ;RB0红外输出 decfsz n55ks,F     goto   osc  

5、;--------------morblip                      ;6253usDELAYmovlw  0x5Bmovwf  n55ks      oscmorecall   make55k     ;RB0红外输出 nop                 decfsz n55ks,F      goto   oscmore ;-------------   calldelay8unopnopnopnopnopbcf    PORTB,2;RB2LED指示return                ;---------------

6、------------make55kbsf    PORTB,0;RB0红外输出call   delay8u      bcf    PORTB,0 return                 delay8unop                nop                   nop                nop                 return               ;=========6.250ms===================seeblip                       clrf  

7、 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       

8、  detectdbsf    PORTB,0  nop