当前位置:首页 > 单片机 > 单片机
[导读]这段程序是用在一款七彩灯红外遥控解码程序里,单片机使用PIC12F629,软件模拟三路PWM输出驱动红绿蓝LED分八组共24个LED,实现单LED渐明渐暗,两LED一明一暗,七彩等九种花样.有断电记忆功能.如下是解码程序.;-----------

这段程序是用在一款七彩灯红外遥控解码程序里,单片机使用PIC12F629,软件模拟三路PWM输出驱动红绿蓝LED分八组共24个LED,实现单LED渐明渐暗,两LED一明一暗,七彩等九种花样.有断电记忆功能.如下是解码程序.

;--------------------------------------------------------
;filename:24LED_Remote.asm
;cpu:PIC12f629
;clock:4MHzforINTRC
;date:2006/02/25
;writer:aLin
;ICtype:PT2262IR
;Rosc:470K
;--------------------------------------------------------
listp=PIC12f629
#include"p12f629.inc"

#defineB_LEDgpio,0;绿LED输出端口
#defineG_LEDgpio,1;蓝LED输出端口
#defineR_LEDgpio,2;红LED输出端口
#defineremgpio,3;GP3/MCLR,定义遥控输入端seg9

;因为当按住PT2262的按键不放的时候
;PT2262会把编码不断的送出
;设置ENABLE位用来检测按键有没有放开过,
;如果没有放开则不再响应
;用于遥控型

#defineenableuser_reg,0;接收允许位
#defineon_offuser_reg,1;该位为0时,按花样选择键无效
#definego_nextuser_reg,2;该位为1时,跳下一段
#defineresetuser_reg,3;该位为1时,关显示
#defineunlockuser_reg,4;用于配合on_off位
;---------------------------------------------------------
;定义变量
;
r1equ20h;用于d5ms子程序
r2equ21h;用于d5ms子程序
r3equ22h;用于d320mS子程序
P_regequ23h;正脉宽时间寄存器
N_regequ24h;负脉宽时间寄存器
count1equ25h;计数器1
count2equ26h;计数器2
W_tempequ27h;W临时寄存器
user_regequ28h;用户寄存器
ee_dataequ29h;eeprom读写数据出入口
ee_addrequ2ah;eeprom读写地址入口
data_tempequ2bh;用于暂存从EEPROM读出的数所数据
index_regequ2ch;用于保存引导值
data_regequ2dh;用于保存从EEPROM读出的值

A0_addr1equ30h
A0_addr2equ31h
A1_addr1equ32h
A1_addr2equ33h
r5equ34h;用于解码延时
r6equ35h;用于解码延时
addr_set1equ36h;用于存储比较密码
addr_set2equ37h;用于存储比较密码
outputequ38h
countequ39h;接收12位编码
status_tempequ3ah;保存status的值,用于现场保护
ww_tempequ3bh;W工作寄存器,用于现场保护用
A0_data1equ3ch;用于存储比较数据D8
A0_data2equ3dh;用于存储比较数据D8
A1_data1equ3eh;用于存储比较数据D11
A1_data2equ3fh;用于存储比较数据D11
;-------------------------------------------
;定义常数
;
indexequ00h;EEData数据引导地址

;--------------------------------------------------
org0000h

callinit;调用初始化程序
gotomain

;--------------------------------------------------
;中断处理入口
;TMR1溢出中断,说明按键松开时间大于等于65.536mS左右
org0004h
movwfww_temp;保护现场
swapfstatus,w
movwfstatus_temp

bcfintcon,gie;关所有中断
bcft1con,tmr1on;停止TMR1
bcfpir1,tmr1if;清TMR1中断标志位
bcfenable;按键松开,清enable

swapfstatus_temp,w
movwfstatus
swapfww_temp,f
swapfww_temp,w

return
;--------------------------------------------------
;读出引导地址单元(00H)内容

mainmovlwindex;送引导地址中转
movwfee_addr

callee_data_rd;调用读EEPROM程序
movfee_data,w;读出引导地址内容

movwfindex_reg;保存引导地址内容
movwfee_addr;送待读出内容地址

callee_data_rd
movfee_data,w
movwfdata_reg;保存读出

movfdata_reg,w
addlwjumper_tab
movwfpcl

jumper_tabgotostart;跳到开始0段
gotoseg1;跳到第1段
gotoseg2;跳到第2段
gotoseg3;跳到第3段
gotoseg4;跳到第4段
gotoseg5;跳到第5段
gotoseg6;跳到第6段
gotoseg7;跳到第7段
gotoseg8;跳到第8段

;------------------------------------------------

如下略....


;-----------------------------------------------
;
;解码程序
;
;---------------------------------------------------------
;A0|A1|说明
;-----+-----+------------------
;30H|32H|接收的8位地址编码
;-----+-----+------------------
;31H|33H|接收的4位数据编码
;-----+-----+------------------
;36H|37H|设定的8位地址密码
;------------------------------
;
;A0_addr1equ30h
;A0_addr2equ31h
;A1_addr1equ32h
;A1_addr2equ33h
;
;其中以30H,0和32H,0为例
;悬空:30H,0=1,32H,0=0
;1:30H,0=0,32H,0=0
;0:30H,0=1,32H,0=1
;38H:输出控制
;---------------------------------------------------------
;
;解码子程序

check_swbtfssrem;rem为1,无接收到信号,返回
gotoremote0
bcfgo_next;没按键,清0
bcfreset;没按键,清0
bcfunlock

remote_endreturn;没有按键,反回
;--------------------------------------------------------

remote0btfssenable;rem为0,但enable为1,按键没放开,返回
gotoincept;接收12位编码

;重新设定TMR1
bcft1con,tmr1on;停止TMR1
clrftmr1h;ffff为65.536mS
clrftmr1l
bsft1con,tmr1on;重启动TMR1

bcfreset;按键没松开,解码取消,清0
bcfgo_next;按键没松开,解码取消,清0
bcfunlock

gotoremote_end;按键没有放开,返回
;清除上次解码内容
;接收12位编码
;
inceptmovlw.12
movwfcount
;解码
;先找出接收到的开头,即16mS左右的高电平
;设置高电平时间为15~17mS
;
;检测和等待15mS的高电平
;
remote1movlw.30
movwfr5
remote2movlw.100
movwfr6
remote3btfssrem
gotoremote1
decfszr6,f
gotoremote3
decfszr5,f
gotoremote2

;等待在2mS内接收到的低电平
movlw.4
movwfr5
remote4movlw.100
movwfr6

;15mS到17mS内接收到下降沿,则跳去解码,否则返回
remote5btfssrem
gotoremote6
decfszr6,f
gotoremote5
decfszr5,f
gotoremote4

;超出17mS,接收错误,返回
bcfenable
gotoremote_end

;等待1200uS后,采集接收信号
remote6movlw.200
movwfr5
decfszr5,f
goto$-1
movlw.200
movwfr5
decfszr5,f
goto$-1
;采集接收信号,并记录
btfssrem;如果rem为1,则c置1,否则清0
clrc
btfscrem
setc;rem为1,c置1

rlfA0_addr2,f
rlfA0_addr1,f

;等待第二个下降沿
;加入了限时判断,防止死循环。
;
;btfssrem;rem为0,一直执行
;goto$-1
movlw.255
movwfr5
btfscrem;rem为0,一直执行
goto$+4
decfszr5,f
goto$-3
gotoremote8;超时,跳到错误处理


;btfscrem;rem为1,一直执行
;goto$-1
movlw.255
movwfr5
btfssrem;rem为1,一直执行
goto$+4
decfszr5,f
goto$-3
gotoremote8;超时,跳到错误处理


;等待1200uS后采集接收信号
movlw.200
movwfr5
decfszr5,f
goto$-1
movlw.200
movwfr5
decfszr5,f
goto$-1

btfssrem;如果rem为1,则c置1,否则清0
clrc
btfscrem
setc;rem为1,c置1

rlfA1_addr2,f
rlfA1_addr1,f

;等待第二个码值的下降沿
;加入了限时判断,防止死循环。
;
;btfssrem;rem为0,一直执行
;goto$-1
movlw.255
movwfr5
btfscrem;rem为0,一直执行
goto$+4
decfszr5,f
goto$-3
gotoremote8;超时,跳到错误处理


;btfscrem;rem为1,一直执行
;goto$-1
movlw.255
movwfr5
btfssrem;rem为1,一直执行
goto$+4
decfszr5,f
goto$-3
gotoremote8;超时,跳到错误处理


decfszcount,f
gotoremote6;连续接收12位
gotodecode;接收完12位编码,跳到解码
;开始解码
;把接收的编码左移4位,将8位密码放在同一字节上
decodemovlw.4
movwfcount
remote7clrc
rlfA0_addr2,f
rlfA0_addr1,f
clrc
rlfA1_addr2,f
rlfA1_addr1,f
decfszcount,f
gotoremote7

;把4位数据编码由高4位移到低4位上
swapfA0_addr2,f
swapfA1_addr2,f

;比较密码
movfA0_addr1,w
xorwfaddr_set1,w
skpz
gotoremote8;跳到接收错误处理

movfA1_addr1,w
xorwfaddr_set2,w
skpz
gotoremote8;跳到接收错误处理
;接收正确处理
;每次按键都一次响应
;按键为PT2262IRpin10(D8)和pin13(D11)
;以下只识别D8、D11,对数据理D9、D10不作处理
;
;悬空:A0=1,A1=0
;1:A0=0,A1=0
;0:A0=1,A1=1
;
;检查键值D8,ON/OFF键
movfA0_addr2,w
andlw0fh
xorwfA0_data1,w
skpz
gotoD11;不是只有键值D8按下,检查键值D11,
;即D8没有按下或D8按下同时还有其它按键按下
movfA1_addr2,w
andlw0fh
xorwfA1_data1,w
skpz
gotoD11;不是只有键值D8按下,检查键值D11
;即D8没有按下或D8按下同时还有其它按键按下
;是键值D8按下,开始处理
;on/off处理,按下on/off键假如on,
;再按下就是off,然后再按下又是off。

movlwb’00000010’;取反user_reg的on_off位
xorwfuser_reg,f
btfsson_off;on_off位为0,reset置1,返回时关显示
gotoclr_rst
bsfunlock;on_off位为1,置unlock为1,返回时开显示
gotoback

;检查键值D11,NEXT键。
D11btfsson_off;on_off为0,当前已关显示,按键NEXT无效
gotoback;返回

movfA0_addr2,w
andlw0fh
xorwfA0_data2,w
skpz
gotoback;也不是只有键值D11按下,返回
;即D11没有按下或D11按下同时还有其它按键按下
movfA1_addr2,w
andlw0fh
xorwfA1_data2,w
skpz
gotoback;也不是只有键值D11按下,返回
;即D11没有按下或D11按下同时还有其它按键按下

;是键值D11按下,开始处理
bsfgo_next;跳下一段
bcfreset
gotoback

clr_rstbsfreset
bcfgo_next
gotoback

backbcft1con,tmr1on;停止TMR1
clrftmr1h
clrftmr1l
bsft1con,tmr1on;启动TMR1
bsfenable;置1,防止开关按住不放,不断响应。

work_endretfie;返回并开中断

;接收错误处理
remote8bcfenable

bcfgo_next;密码错误,取消解码,清0
bcfreset;密码错误,取消解码,清0
bcfunlock

bsfenable;虽接收错误,但都是有按键按下

;重新设定TMR1
bcft1con,tmr1on;停止TMR1
clrftmr1h;ffff为65.536mS
clrftmr1l
bsft1con,tmr1on;重启动TMR1
retfie;返回并开中断

;-------------------------------------------
;初始化程序
initbsfstatus,rp0;选择bank1
call3ffh
movwfosccal
movlwb’00001000’;GP0/1/2为输出
movwftrisio;GP3为输入
clrfioc;关闭所有电平变化中断
bsfpie1,tmr1ie;开TMR1中断

bcfstatus,rp0;选择bank0
bcfintcon,gie;关所有中断
bsfintcon,peie;开外设中断
bcft1con,tmr1on;停止TMR1

clrfgpio;输出清0
movlw07h
movwfcmcon;设置GP0/1/2为IO

bcfenable;头次上电,初始化enable、reset、go_next
bcfreset
bcfgo_next

;编码地址设定为:A0~A7为悬空(A0=1,A1=0)
movlwb’11111111’;A0
movwfaddr_set1
movlwb’00000000’;A1
movwfaddr_set2

;D8设置1(A0=0,A1=0),D9、D10悬空(A0=1,A1=0)
;D11设置0(A0=1,A1=1),该状态为只有D8按下。D8为ON/OFF键。
movlwb’00001110’;A0
movwfA0_data1
movlwb’00001000’;A1
movwfA1_data1

;D11设置1(A0=0,A1=0),,D9、D10悬空(A0=1,A1=0)
;D8设置0(A0=1,A1=1),该状态为只有D11按下。D11为NEXT键。
movlwb’00000111’;A0
movwfA0_data2
movlwb’00000001’;A1
movwfA1_data2

return

本站声明: 本文章由作者或相关机构授权发布,目的在于传递更多信息,并不代表本站赞同其观点,本站亦不保证或承诺内容真实性等。需要转载请联系该专栏作者,如若文章内容侵犯您的权益,请及时联系本站删除。
换一批
延伸阅读

9月2日消息,不造车的华为或将催生出更大的独角兽公司,随着阿维塔和赛力斯的入局,华为引望愈发显得引人瞩目。

关键字: 阿维塔 塞力斯 华为

加利福尼亚州圣克拉拉县2024年8月30日 /美通社/ -- 数字化转型技术解决方案公司Trianz今天宣布,该公司与Amazon Web Services (AWS)签订了...

关键字: AWS AN BSP 数字化

伦敦2024年8月29日 /美通社/ -- 英国汽车技术公司SODA.Auto推出其旗舰产品SODA V,这是全球首款涵盖汽车工程师从创意到认证的所有需求的工具,可用于创建软件定义汽车。 SODA V工具的开发耗时1.5...

关键字: 汽车 人工智能 智能驱动 BSP

北京2024年8月28日 /美通社/ -- 越来越多用户希望企业业务能7×24不间断运行,同时企业却面临越来越多业务中断的风险,如企业系统复杂性的增加,频繁的功能更新和发布等。如何确保业务连续性,提升韧性,成...

关键字: 亚马逊 解密 控制平面 BSP

8月30日消息,据媒体报道,腾讯和网易近期正在缩减他们对日本游戏市场的投资。

关键字: 腾讯 编码器 CPU

8月28日消息,今天上午,2024中国国际大数据产业博览会开幕式在贵阳举行,华为董事、质量流程IT总裁陶景文发表了演讲。

关键字: 华为 12nm EDA 半导体

8月28日消息,在2024中国国际大数据产业博览会上,华为常务董事、华为云CEO张平安发表演讲称,数字世界的话语权最终是由生态的繁荣决定的。

关键字: 华为 12nm 手机 卫星通信

要点: 有效应对环境变化,经营业绩稳中有升 落实提质增效举措,毛利润率延续升势 战略布局成效显著,战新业务引领增长 以科技创新为引领,提升企业核心竞争力 坚持高质量发展策略,塑强核心竞争优势...

关键字: 通信 BSP 电信运营商 数字经济

北京2024年8月27日 /美通社/ -- 8月21日,由中央广播电视总台与中国电影电视技术学会联合牵头组建的NVI技术创新联盟在BIRTV2024超高清全产业链发展研讨会上宣布正式成立。 活动现场 NVI技术创新联...

关键字: VI 传输协议 音频 BSP

北京2024年8月27日 /美通社/ -- 在8月23日举办的2024年长三角生态绿色一体化发展示范区联合招商会上,软通动力信息技术(集团)股份有限公司(以下简称"软通动力")与长三角投资(上海)有限...

关键字: BSP 信息技术
关闭
关闭