红外线遥控读码机,用本实例配合本站套件可读出任何6121或6122(CD6121/CD6122/SC6121/SC6122)及其兼容芯片的红外线遥控器的用户码、键码。
;本例是一个红外线遥控接收解码程序,程序中数码管显示用的是定时器中断法的动态扫描
;动态显示二位数码管的方法，中断法，我们以3MS中断一次从而交换两位数码管轮流点亮。
;对准实验板红外线接收头轻按要测定的遥控器的待测按键一次，此时实验板的两位数码管将显示该键的键码，
;(显示为16进制的),轻触实验板的S2此时显示器切换为显示当前遥控器用户码的低8位, 再次轻触实验板的S2此时显示器切换为显示当前遥控器用户码的高8位,
;再一次轻触实验板的S2此时显示又回到显示当前键的键码，用按键S2可反复循环显示用户码低8位、高8位、键码。
;注意:所有的显示均为16进制,'A'显示为'A','B'显示为'b','C'显示为'c','D'显示为'd','E'显示为'E','F'显示为'F'.
;注意6121的遥控器发射码依次为:同步头(引导码)+32位数据码(用户码低8位+用户码高8位+键码+键码的反码)
;引导码是由9MS的高电平加4.5MS的低电平构成,我们接收到的刚好反相为9MS的低电平加4.5MS的高电平.
;数据码'0'是由560US的高电平加560US的低电平构成,接收时反相为560US的低电平加560US的高电平构成.
;数据码'1'是由560US的高电平加1.69MS的高电平构成,接收时反相为560US的低电平加1.69MS的高电平构成.
;PIC单片机学习网 陈学乾 http://www.pic16.com
;程序文件名：“ST-RMT.ASM"
;烧写时应注意:配置位已经在程序中写明，加载HEX文件时会自动加载，烧写时不用再手动设置配置位。
;实验时请注意套件跳线选择；
;*******************************************************************
LIST P=16F84A,R=DEC ;定义器件为16F84，默认数制为十进制
;-------------------------------------------------------
__CONFIG B'11111111110001';_CP_OFF&_WDT_OFF&_PWRITE_ON&_XT_OSC
;没有代码保护
;看门狗关闭
;上电廷时器开启
;振荡器模式为XT
;-------------------------------------------------------------
RTCC EQU 01H ;定义定时器0地址
PC EQU 02H ;定义程序计数器低字节寄存器地址
STATUS EQU 03H ;定义状态寄存器地址
PORTA EQU 05H ;定义RA口数据寄存器地址
PORTB EQU 06H ;定义RB口数据寄存器地址
INTCON EQU 0BH ;定义中断控制寄存器
OPTION_REG EQU 81H ;
TRISA EQU 85H ;定义RA口方向控制寄存器
TRISB EQU 86H ;定义RB口方向控制寄存器
;-----------------------STATUS
C EQU 0 ;定义进位标志位位地址
Z EQU 2 ;定义0标志位位地址
RP0 EQU 5 ;寄存器体选
;-------------------------INTCON
T0IF EQU 2 ;定时器0溢出中断标志位
T0IE EQU 5 ;定时器0溢出中断允许/禁止
GIE EQU 7 ;总中断允许/禁止
;-------------------------
RMT EQU 4 ;遥控接收输入脚位地址（RA。4）
;-------------------------
BITIN EQU 7 ;遥控接收数据位位标志
;-------------------------
CNT0 EQU 20H ;用户临时寄存器1
CNT1 EQU 21H ;用户临时寄存器2
CNT2 EQU 22H ;用户临时寄存器3
CNT3 EQU 23H ;用户临时寄存器4
TABADD EQU 24H ;数码管显示码取码用寄存器
FLAGS EQU 25H ;显示位选标志位
DISPBUF_H EQU 26H ;显示器高位
DISPBUF_L EQU 27H ;显示器低位
W_TEMP EQU 2BH ;W现场保护寄存器
STATUS_TEMP EQU 2CH ;STATUS现场保护寄存器
CSR0 EQU 2DH ;遥控键码反码寄存器
CSR1 EQU 2EH ;遥控器键码寄存器
CSR2 EQU 2FH ;遥控器用户码高8位寄存器
CSR3 EQU 30H ;遥控器用户码低8位寄存器
FLAGS2 EQU 31H ;临时寄存器
CSR0A EQU 32H ;遥控接收32位数据暂存寄存器
CSR1A EQU 33H ;遥控接收32位数
据暂存寄存器 CSR2A EQU 34H ;遥控接收32位数据暂存寄存器 CSR3A EQU 35H ;遥控接收32位数据暂存寄存器 COUNTER EQU 36H ;按键计数寄存器 ;-------------------- ORG 0000H GOTO MAIN ORG 0004H GOTO TMR0SERV ;定时器中断,扫描数码管 ORG 0008H ;------------------------------------------------- CONVERT MOVWF PC ;将W寄存器内的7段显示码地址放入PC TABLE ;PC执行新地址指令， 跳到相对的地址执行? RETLW 081H ;0 ;RETLW指令，将七段显示码存入W后返回 RETLW 0E7H ;1 RETLW 092H ;2 RETLW 0A2H ;3 RETLW 0E4H ;4 RETLW 0A8H ;5 RETLW 088H ;6 RETLW 0E3H ;7 RETLW 080H ;8 RETLW 0A0H ;9 RETLW 0C0H ;A RETLW 08CH ;b RETLW 09EH ;c RETLW 086H ;d RETLW 098H ;E RETLW 0D8H ;F ;----- ----------------------------------------------- TMR0SERV MOVWF W_TEMP ;现场保护 SWAPF STATUS,W ;用SWAPF才不会影响标志位 MOVWF STATUS_TEMP ;将W和STATUS存入各保护寄存器 MOVLW 0FFH MOVWF PORTB ;先熄灭所有数码管以免闪烁 BSF PORTA,1 BSF PORTA,2 MOVLW TABLE MOVWF TABADD ;将转换表的首地址存入TABADD MOVFW DISPBUF_L ;计数值(W)与转换表的起始地址相加 BTFSS FLAGS,1 MOVFW DISPBUF_H ADDWF TABADD,W CALL CONVERT ;存入W后调用转换表子程序 MOVWF PORTB ;送RB口显示 BTFSS FLAGS,1 ;根据标志位选择是点亮那一个数码管 BCF PORTA,1 BTFSC FLAGS,1 BCF PORTA,2 COMF FLAGS,1 MOVLW 155 ;送定时器初值 MOVWF RTCC BCF INTCON,T0IF ;清定时器0溢出中断标志位 SWAPF STATUS_TEMP,W ;恢复中断前STATUS，W的值 MOVWF STATUS SWAPF W_TEMP,F SWAPF W_TEMP,W ;（用SWAPF才不会影响STATUS的值） RETFIE ;------------------------------------------------ MAIN CLRF PORTA CLRF PORTB ;初始化IO口 BSF STATUS,RP0 ;设置寄存器体1 MOVLW 0F8H ;将RMT设置为输入,S2输入其它IO口设置为输出 MOVWF TRISA MOVLW 00H ; MOVWF TRISB MOVLW 84H MOVWF OPTION_REG ;预分频器分配给定时器0，分频比1:32; BCF STATUS,RP0 ;恢复寄存器体0 MOVLW 155 MOVWF RTCC ;定时器送初值(255-155)*32US=3.2MS,每3.2MS一次中断 MOVLW 0FFH ;先让数码管全部不显示 MOVWF PORTB CLRF DISPBUF_L ;数码管先显示00 CLRF DISPBUF_H CLRF COUNTER ;按键计数送初值 BCF INTCON,T0IF BSF INTCON,T0IE ;定时器0溢出中断允许 BSF INTCON,GIE ;总中断允许 ;-------------------------------------------------- LOOP BTFSS PORTA,3 ;是否按下S9 GOTO KEY ;跳转键处理 BTFSS PORTA,RMT ;是否有遥控器按下 GOTO RCV ;跳转遥控接收程序 GOTO LOOP ;反复检测 ;-------------------------------------------------- KEY CLRF CNT0 ;消除键抖动 MOVLW 100 MOVWF CNT1 KEY_A BTFSC PORTA,3 INCF CNT0,1 BTFSS PORTA,3 CLRF CNT0 BTFSC CNT0,3 GOTO LOOP DECFSZ CNT1,1 GOTO KEY_A INCF COUNTER,1 ;按键计数加一 MOVFW COUNTER MOVWF CNT1 DECFSZ CNT1,1 ;是否是第一次按下按键 GOTO KEY_B ;不是则转 SWAPF CSR3,W ;用户码低8位 高低位交换，先处理高位 ANDLW 0FH ;屏蔽掉高位 MOVWF DISPBUF_H ;存入寄存器 MOVFW CSR3 ;用户码低8位 低位处理 ANDLW 0FH ;屏蔽掉高位 MOVWF DISPBUF_L ;存入寄存器 GOTO KEY_END KEY_B DECFSZ CNT1,1 ;第二次按下按键否 GOTO KEY_C ;不是第二次按下按键则是第三次转相应程序 SWAPF CSR2,W ;显示值高低位交换，先处理高位 ANDLW 0FH ;屏蔽掉高位 MOVWF DISPBUF_H ;存入寄存器 MOVFW CSR2 ;显示值低位处理 ANDLW 0FH ;屏蔽掉高位 MOVWF DISPBUF_L ;存入寄存器 GOTO KEY_END KEY_C CLRF COUNTER ;该次循环结束，按键计数送初值 SWAPF CSR1,W ;键码值高低位交换，先处理高位 ANDLW 0FH ;屏蔽掉高位 MOVWF DISPBUF_H ;存入寄存器 MOVFW CSR1 ;键码值低位处理 ANDLW 0FH ;屏蔽掉高位 MOVWF DISPBUF_L ;存入寄存器 KEY_ENDBTFSS PORTA,3 ;等待键释放 GOTO $-1 GOTO LOOP ;-------------------------------------------------- RCV BTFSC PORTA,RMT GOTO LOOP ;是干扰退出 MOVLW 4 MOVWF CNT1 ;4*256*10us CLRF CNT2 CLRF CNT0 RCV1 ;先检测引导码的9MS低电平 GOTO $+1 ;每一个循环10US NOP BTFSC PORTA,RMT INCF CNT2,1 BTFSS PORTA,RMT CLRF CNT2 BTFSC CNT2,3 ;高电平大于8*10US=80US则为有效高电平,否则是一些干扰信号 GOTO RCV2 DECFSZ CNT0,1 GOTO RCV1 DECFSZ CNT1,1 GOTO RCV1 GOTO LOOP ;低电平大于4*256*10US=10.24MS则是错误脉冲 RCV2 MOVLW 3 SUBWF CNT1,0 ;低电平小于2*256*10US=5.12MS则是错误脉冲 SKPNC GOTO LOOP MOVLW 3 MOVWF CNT1 ;3*256*10us CLRF CNT2 CLRF CNT0 RCV3 GOTO $+1 ;每一个循环10US NOP BTFSS PORTA,RMT INCF CNT2,1 BTFSC PORTA,RMT CLRF CNT2 BTFSC CNT2,3 ; 低电平大于8*10US=80US则为有效低电平,否则是一些干扰信号 GOTO RCV4 DECFSZ CNT0,1 GOTO RCV3 DECFSZ CNT1,1 GOTO RCV3 GOTO LOOP ;高电平大于3*256*10US=7.68MS则是错误的 RCV4 MOVLW 3 SUBWF CNT1,0 ;高电平小于1*256*10US=2.56MS则是错误的 SKPNC GOTO LOOP MOVLW 32 MOVWF CNT2 ;接收数据共32位,16位用户码,8位控制码加8位控制码的反码 RCV5 CLRF CNT3 MOVLW 170 ;低电平大于256-170=86*10US=860US错误 MOVWF CNT0 MOVLW 56 MOVWF CNT1 ;高电平大于256-56=200*10US=2MS错误 RCV5_HI GOTO $+1 NOP BTFSC PORTA,RMT INCF CNT3,1 BTFSS PORTA,RMT CLRF CNT3 BTFSC CNT3,2 ;高电平大于8*10US=80US则为有效高电平 GOTO RCV6 INCFSZ CNT0,1 GOTO RCV5_HI ;低电平大于860US则是错误的 GOTO LOOPRCV6 CLRF CNT3 RCV6_LO GOTO $+1 NOP BTFSS PORTA,RMT INCF CNT3,1 BTFSC PORTA,RMT CLRF CNT3 BTFSC CNT3,3 ;低电平大于10*8US=80US则是有效低电平 GOTO COMPARE INCFSZ CNT1,1 GOTO RCV6_LO ;高电平大于256-56=200*10US=2MS错误 GOTO LOOP COMPARE MOVLW 170 SUBWF CNT0,1 ;CNT0的值减初始值等于实际低电平计数值 MOVLW 56 SUBWF CNT1,1 ;CNT1的值减初始值等于实际高电平计数值 MOVFW CNT1 ADDWF CNT0,1 ;将高低电平的计数加在一起并存入CNT0,通过比较高低电平总的时间来确定是1还是0 SKPNC GOTO LOOP ;总的值大于255(即时间大于255*10US=2.55MS)则错误 MOVLW 70 SUBWF CNT0,0 SKPC GOTO LOOP ;总的时间小于70*10US=700US则是错误的 MOVLW 130 ;130*10=1.3MS SUBWF CNT0,0 SKPNC GOTO COMPARE_H ;时间大于1.3MS转去确定是否1 BCF FLAGS2,BITIN ;时间在700US-1.3MS之间则是0 GOTO MOVDATA ;送数 COMPARE_H MOVLW 160 SUBWF CNT0,0 SKPC GOTO LOOP ;小于160*10US=1.6MS,则错误 MOVLW 230 SUBWF CNT0,0 SKPNC GOTO LOOP ;大于230*10US=2.3MS,则错误 BSF FLAGS2,BITIN ;时间在1.6MS-2.3MS之间则是1 MOVDATA RRF CSR0A,1 ;将每一位移入相应寄存器 RRF CSR1A,1 RRF CSR2A,1 RRF CSR3A,1 BCF CSR0A,7 BTFSC FLAGS2,BITIN ;接收当前位送入CSR0.7 BSF CSR0A,7 DECFSZ CNT2,1 ;是否接收完32位 GOTO RCV5 MOVFW CSR0A ;将临时寄存器中的数存回相应寄存器 MOVWF CSR0 MOVFW CSR1A MOVWF CSR1 MOVFW CSR2A MOVWF CSR2 MOVFW CSR3A MOVWF CSR3 COMF CSR0,0 ;比较键码的反码取反后是否等于键码 XORWF CSR1,0 BNZ LOOP ;不等于则接收到的是错误的信息 ;将键码送显示 SWAPF CSR1,W ;显示值高低位交换，先处理高位 ANDLW 0FH ;屏蔽掉高位 MOVWF DISPBUF_H ;存入寄存器MOVFW CSR1 ;显示值低位处理 ANDLW 0FH ;屏蔽掉高位 MOVWF DISPBUF_L ;存入寄存器 GOTO LOOP ;------------------------------------------------------ END ;***********************************************************
1.部分资源来自网络,经ET电子归类整理,旨在服务电子爱好者并无商业目的,不保证正确性与完整性.
2.如果您觉得本站资源对您有用,请告知您的好友,用搜索引擎搜"ET电子"即可.