這段程序是用在一款七彩燈紅外遙控解碼程序里,單片機使用PIC12F629,軟件模擬三路PWM輸出驅(qū)動紅綠藍LED分八組共24個LED,實現(xiàn)單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會把編碼不斷的送出
;設(shè)置ENABLE位用來檢測按鍵有沒有放開過,
;如果沒有放開則不再響應(yīng)
;用于遙控型

#defineenableuser_reg,0;接收允許位
#defineon_offuser_reg,1;該位為0時，按花樣選擇鍵無效
#definego_nextuser_reg,2;該位為1時,跳下一段
#defineresetuser_reg,3;該位為1時,關(guān)顯示
#defineunlockuser_reg,4;用于配合on_off位
;---------------------------------------------------------
;定義變量
;
r1equ20h;用于d5ms子程序
r2equ21h;用于d5ms子程序
r3equ22h;用于d320mS子程序
P_regequ23h;正脈寬時間寄存器
N_regequ24h;負脈寬時間寄存器
count1equ25h;計數(shù)器1
count2equ26h;計數(shù)器2
W_tempequ27h;W臨時寄存器
user_regequ28h;用戶寄存器
ee_dataequ29h;eeprom讀寫數(shù)據(jù)出入口
ee_addrequ2ah;eeprom讀寫地址入口
data_tempequ2bh;用于暫存從EEPROM讀出的數(shù)所數(shù)據(jù)
index_regequ2ch;用于保存引導(dǎo)值
data_regequ2dh;用于保存從EEPROM讀出的值

A0_addr1equ30h
A0_addr2equ31h
A1_addr1equ32h
A1_addr2equ33h
r5equ34h;用于解碼延時
r6equ35h;用于解碼延時
addr_set1equ36h;用于存儲比較密碼
addr_set2equ37h;用于存儲比較密碼
outputequ38h
countequ39h;接收12位編碼
status_tempequ3ah;保存status的值,用于現(xiàn)場保護
ww_tempequ3bh;W工作寄存器,用于現(xiàn)場保護用
A0_data1equ3ch;用于存儲比較數(shù)據(jù)D8
A0_data2equ3dh;用于存儲比較數(shù)據(jù)D8
A1_data1equ3eh;用于存儲比較數(shù)據(jù)D11
A1_data2equ3fh;用于存儲比較數(shù)據(jù)D11
;-------------------------------------------
;定義常數(shù)
;
indexequ00h;EEData數(shù)據(jù)引導(dǎo)地址

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

callinit;調(diào)用初始化程序
gotomain

;--------------------------------------------------
;中斷處理入口
;TMR1溢出中斷,說明按鍵松開時間大于等于65.536mS左右
org0004h
movwfww_temp;保護現(xiàn)場
swapfstatus,w
movwfstatus_temp

bcfintcon,gie;關(guān)所有中斷
bcft1con,tmr1on;停止TMR1
bcfpir1,tmr1if;清TMR1中斷標志位
bcfenable;按鍵松開,清enable

swapfstatus_temp,w
movwfstatus
swapfww_temp,f
swapfww_temp,w

return
;--------------------------------------------------
;讀出引導(dǎo)地址單元(00H)內(nèi)容

mainmovlwindex;送引導(dǎo)地址中轉(zhuǎn)
movwfee_addr

callee_data_rd;調(diào)用讀EEPROM程序
movfee_data,w;讀出引導(dǎo)地址內(nèi)容

movwfindex_reg;保存引導(dǎo)地址內(nèi)容
movwfee_addr;送待讀出內(nèi)容地址

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位數(shù)據(jù)編碼
;-----+-----+------------------
;36H|37H|設(shè)定的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位編碼

;重新設(shè)定TMR1
bcft1con,tmr1on;停止TMR1
clrftmr1h;ffff為65.536mS
clrftmr1l
bsft1con,tmr1on;重啟動TMR1

bcfreset;按鍵沒松開,解碼取消,清0
bcfgo_next;按鍵沒松開,解碼取消,清0
bcfunlock

gotoremote_end;按鍵沒有放開,返回
;清除上次解碼內(nèi)容
;接收12位編碼
;
inceptmovlw.12
movwfcount
;解碼
;先找出接收到的開頭,即16mS左右的高電平
;設(shè)置高電平時間為15~17mS
;
;檢測和等待15mS的高電平
;
remote1movlw.30
movwfr5
remote2movlw.100
movwfr6
remote3btfssrem
gotoremote1
decfszr6,f
gotoremote3
decfszr5,f
gotoremote2

;等待在2mS內(nèi)接收到的低電平
movlw.4
movwfr5
remote4movlw.100
movwfr6

;15mS到17mS內(nèi)接收到下降沿,則跳去解碼,否則返回
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

;等待第二個下降沿
;加入了限時判斷，防止死循環(huán)。
;
;btfssrem;rem為0,一直執(zhí)行
;goto$-1
movlw.255
movwfr5
btfscrem;rem為0,一直執(zhí)行
goto$+4
decfszr5,f
goto$-3
gotoremote8;超時，跳到錯誤處理


;btfscrem;rem為1,一直執(zhí)行
;goto$-1
movlw.255
movwfr5
btfssrem;rem為1,一直執(zhí)行
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

;等待第二個碼值的下降沿
;加入了限時判斷，防止死循環(huán)。
;
;btfssrem;rem為0,一直執(zhí)行
;goto$-1
movlw.255
movwfr5
btfscrem;rem為0,一直執(zhí)行
goto$+4
decfszr5,f
goto$-3
gotoremote8;超時，跳到錯誤處理


;btfscrem;rem為1,一直執(zhí)行
;goto$-1
movlw.255
movwfr5
btfssrem;rem為1,一直執(zhí)行
goto$+4
decfszr5,f
goto$-3
gotoremote8;超時，跳到錯誤處理


decfszcount,f
gotoremote6;連續(xù)接收12位
gotodecode;接收完12位編碼,跳到解碼
;開始解碼
;把接收的編碼左移4位,將8位密碼放在同一字節(jié)上
decodemovlw.4
movwfcount
remote7clrc
rlfA0_addr2,f
rlfA0_addr1,f
clrc
rlfA1_addr2,f
rlfA1_addr1,f
decfszcount,f
gotoremote7

;把4位數(shù)據(jù)編碼由高4位移到低4位上
swapfA0_addr2,f
swapfA1_addr2,f

;比較密碼
movfA0_addr1,w
xorwfaddr_set1,w
skpz
gotoremote8;跳到接收錯誤處理

movfA1_addr1,w
xorwfaddr_set2,w
skpz
gotoremote8;跳到接收錯誤處理
;接收正確處理
;每次按鍵都一次響應(yīng)
;按鍵為PT2262IRpin10(D8)和pin13(D11)
;以下只識別D8、D11，對數(shù)據(jù)理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，返回時關(guān)顯示
gotoclr_rst
bsfunlock;on_off位為1，置unlock為1，返回時開顯示
gotoback

;檢查鍵值D11,NEXT鍵。
D11btfsson_off;on_off為0,當前已關(guān)顯示，按鍵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,防止開關(guān)按住不放，不斷響應(yīng)。

work_endretfie;返回并開中斷

;接收錯誤處理
remote8bcfenable

bcfgo_next;密碼錯誤,取消解碼,清0
bcfreset;密碼錯誤,取消解碼,清0
bcfunlock

bsfenable;雖接收錯誤,但都是有按鍵按下

;重新設(shè)定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;關(guān)閉所有電平變化中斷
bsfpie1,tmr1ie;開TMR1中斷

bcfstatus,rp0;選擇bank0
bcfintcon,gie;關(guān)所有中斷
bsfintcon,peie;開外設(shè)中斷
bcft1con,tmr1on;停止TMR1

clrfgpio;輸出清0
movlw07h
movwfcmcon;設(shè)置GP0/1/2為IO

bcfenable;頭次上電,初始化enable、reset、go_next
bcfreset
bcfgo_next

;編碼地址設(shè)定為:A0~A7為懸空(A0=1,A1=0)
movlwb’11111111’;A0
movwfaddr_set1
movlwb’00000000’;A1
movwfaddr_set2

;D8設(shè)置1(A0=0,A1=0),D9、D10懸空(A0=1,A1=0)
;D11設(shè)置0(A0=1,A1=1),該狀態(tài)為只有D8按下。D8為ON/OFF鍵。
movlwb’00001110’;A0
movwfA0_data1
movlwb’00001000’;A1
movwfA1_data1

;D11設(shè)置1(A0=0,A1=0),,D9、D10懸空(A0=1,A1=0)
;D8設(shè)置0(A0=1,A1=1),該狀態(tài)為只有D11按下。D11為NEXT鍵。
movlwb’00000111’;A0
movwfA0_data2
movlwb’00000001’;A1
movwfA1_data2

return