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

;-------------------------------------------------------- ;filename: 24LED_Remote.asm ;     mcu: PIC12f629 ;   clock: 4 MHz for INTRC ;    date: 2006/02/25 ;  writer: aLin ; IC type: PT2262IR ;    Rosc: 470K ;--------------------------------------------------------

        list p=pic12f629         ＃i nclude"p12f629.inc"                 #define    B_LED    gpio,0   ;绿LED输出端口         #define    G_LED    gpio,1   ;蓝LED输出端口         #define    R_LED    gpio,2   ;红LED输出端口         #define    rem      gpio,3   ;GP3/MCLR,定义遥控输入端                  ;因为当按住PT2262的按键不放的时候 ;PT2262会把编码不断的送出 ;设置ENABLE位用来检测按键有没有放开过, ;如果没有放开则不再响应          ;用于遥控型                 #define    enable       user_reg,0     ;接收允许位         #define    on_off       user_reg,1     ;该位为0时，按花样选择键无效         #define    go_next      user_reg,2     ;该位为1时,跳下一段         #define    reset        user_reg,3     ;该位为1时,关显示          #define    unlock       user_reg,4     ;用于配合on_off位 ;--------------------------------------------------------- ;定义变量 ;         r1    equ    20h       ;用于d5ms子程序         r2    equ    21h       ;用于d5ms子程序         r3    equ    22h       ;用于d320mS子程序      P_reg    equ    23h       ;正脉宽时间寄存器      N_reg    equ    24h       ;负脉宽时间寄存器     count1    equ    25h       ;计数器1     count2    equ    26h       ;计数器2     W_temp    equ    27h       ;W临时寄存器   user_reg    equ    28h       ;用户寄存器    ee_data    equ    29h       ;eeprom读写数据出入口    ee_addr    equ    2ah       ;eeprom读写地址入口  data_temp    equ    2bh       ;用于暂存从EEPROM读出的数所数据  index_reg    equ    2ch       ;用于保存引导值   data_reg    equ    2dh       ;用于保存从EEPROM读出的值                    A0_addr1   equ    30h    A0_addr2   equ    31h    A1_addr1   equ    32h    A1_addr2   equ    33h          r5   equ    34h       ;用于解码延时          r6   equ    35h       ;用于解码延时   addr_set1   equ    36h       ;用于存储比较密码        addr_set2   equ    37h       ;用于存储比较密码      output   equ    38h       count   equ    39h       ;接收12位编码 status_temp   equ    3ah       ;保存status的值,用于现场保护     ww_temp   equ    3bh       ;W工作寄存器,用于现场保护用    A0_data1   equ    3ch       ;用于存储比较数据D8    A0_data2   equ    3dh       ;用于存储比较数据D8    A1_data1   equ    3eh       ;用于存储比较数据D11    A1_data2   equ    3fh       ;用于存储比较数据D11 ;------------------------------------------- ;定义常数 ;      index    equ    00h       ;EEData数据引导地址                              ;--------------------------------------------------                  org 0000h                         call init          ;调用初始化程序             goto main             ;-------------------------------------------------- ;中断处理入口 ;TMR1溢出中断,说明按键松开时间大于等于65.536mS左右

            org 0004h             movwf ww_temp      ;保护现场             swapf status,w             movwf status_temp                         bcf intcon,gie     ;关所有中断             bcf t1con,tmr1on   ;停止TMR1             bcf pir1,tmr1if    ;清TMR1中断标志位             bcf enable         ;按键松开,清enable                         swapf status_temp,w             movwf status             swapf ww_temp,f             swapf ww_temp,w                         return                                 ;--------------------------------------------------    ;读出引导地址单元(00H)内容              main  movlw index        ;送引导地址中转             movwf ee_addr                          call ee_data_rd    ;调用读EEPROM程序                        movf ee_data,w     ;读出引导地址内容                         movwf index_reg    ;保存引导地址内容             movwf ee_addr      ;送待读出内容地址                         call ee_data_rd             movf ee_data,w             movwf data_reg     ;保存读出                             movf data_reg,w             addlw jumper_tab                        movwf pcl             jumper_tab  goto start         ;跳到开始0段             goto seg1          ;跳到第1段             goto seg2          ;跳到第2段             goto seg3          ;跳到第3段             goto seg4          ;跳到第4段             goto seg5          ;跳到第5段             goto seg6          ;跳到第6段             goto seg7          ;跳到第7段             goto seg8          ;跳到第8段                                                      ;------------------------------------------------

             如下略....

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

;

;解码程序

;

;--------------------------------------------------------- ; A0  | A1  | 说明              ;-----+-----+------------------ ; 30H | 32H | 接收的8位地址编码 ;-----+-----+------------------ ; 31H | 33H | 接收的4位数据编码 ;-----+-----+------------------ ; 36H | 37H | 设定的8位地址密码 ;------------------------------ ; ;  A0_addr1   equ   30h ;  A0_addr2   equ   31h ;  A1_addr1   equ   32h ;  A1_addr2   equ   33h   ; ;其中以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_sw  btfss rem          ;rem为1,无接收到信号,返回             goto  remote0                        bcf   go_next      ;没按键,清0             bcf   reset        ;没按键,清0             bcf   unlock                              remote_end  return             ;没有按键,反回 ;--------------------------------------------------------         remote0  btfss enable       ;rem为0,但enable为1,按键没放开,返回             goto  incept       ;接收12位编码             ;重新设定TMR1             bcf t1con,tmr1on   ;停止TMR1             clrf tmr1h         ;ffff为65.536mS             clrf tmr1l             bsf t1con,tmr1on   ;重启动TMR1                           bcf reset          ;按键没松开,解码取消,清0             bcf go_next        ;按键没松开,解码取消,清0              bcf unlock                         goto remote_end    ;按键没有放开,返回

;清除上次解码内容 ;接收12位编码 ;     incept  movlw .12             movwf count ;解码 ;先找出接收到的开头,即16mS左右的高电平 ;设置高电平时间为15~17mS ; ;检测和等待15mS的高电平 ;    remote1  movlw .30              movwf r5    remote2  movlw .100             movwf r6    remote3  btfss rem             goto remote1             decfsz r6,f             goto remote3             decfsz r5,f             goto remote2                     ;等待在2mS内接收到的低电平             movlw .4              movwf r5    remote4  movlw .100             movwf r6                  ;15mS到17mS内接收到下降沿,则跳去解码,否则返回    remote5  btfss rem             goto remote6             decfsz r6,f             goto remote5             decfsz r5,f             goto remote4 

;超出17mS,接收错误,返回             bcf enable             goto remote_end                 ;等待1200uS后,采集接收信号    remote6  movlw .200             movwf r5             decfsz r5,f             goto $-1             movlw .200             movwf r5             decfsz r5,f             goto $-1

;采集接收信号,并记录

            btfss rem         ;如果rem为1,则c置1,否则清0             clrc             btfsc rem                        setc              ;rem为1,c置1                         rlf A0_addr2,f             rlf A0_addr1,f              ;等待第二个下降沿 ;加入了限时判断，防止死循环。 ; ;            btfss rem        ;rem为0,一直执行 ;            goto $-1

            movlw .255             movwf r5             btfsc rem         ;rem为0,一直执行             goto $+4             decfsz r5,f             goto $-3             goto remote8      ;超时，跳到错误处理                              ;            btfsc rem         ;rem为1,一直执行 ;            goto $-1

            movlw .255             movwf r5             btfss rem         ;rem为1,一直执行             goto $+4             decfsz r5,f             goto $-3             goto remote8      ;超时，跳到错误处理                         ;等待1200uS后采集接收信号                                          movlw .200                  movwf r5             decfsz r5,f             goto $-1             movlw .200             movwf r5             decfsz r5,f             goto $-1                             btfss rem         ;如果rem为1,则c置1,否则清0             clrc             btfsc rem             setc              ;rem为1,c置1                         rlf A1_addr2,f             rlf A1_addr1,f   ;等待第二个码值的下降沿 ;加入了限时判断，防止死循环。 ; ;            btfss rem        ;rem为0,一直执行 ;            goto $-1

            movlw .255             movwf r5             btfsc rem         ;rem为0,一直执行             goto $+4             decfsz r5,f             goto $-3             goto remote8      ;超时，跳到错误处理                              ;            btfsc rem         ;rem为1,一直执行 ;            goto $-1

            movlw .255             movwf r5             btfss rem         ;rem为1,一直执行             goto $+4             decfsz r5,f             goto $-3             goto remote8      ;超时，跳到错误处理                                          decfsz count,f             goto remote6      ;连续接收12位             goto decode       ;接收完12位编码,跳到解码

;开始解码 ;把接收的编码左移4位,将8位密码放在同一字节上     decode  movlw .4             movwf count    remote7  clrc             rlf A0_addr2,f             rlf A0_addr1,f             clrc             rlf A1_addr2,f             rlf A1_addr1,f             decfsz count,f             goto remote7           ;把4位数据编码由高4位移到低4位上             swapf A0_addr2,f             swapf A1_addr2,f                   ;比较密码                                                     movf A0_addr1,w             xorwf addr_set1,w             skpz             goto remote8       ;跳到接收错误处理                              movf A1_addr1,w             xorwf addr_set2,w             skpz             goto remote8       ;跳到接收错误处理

;接收正确处理                                   ;每次按键都一次响应 ;按键为PT2262IR pin10(D8) 和 pin13(D11) ;以下只识别D8、D11，对数据理D9、D10不作处理 ; ;悬空: A0=1 , A1=0 ;  1: A0=0 , A1=0 ;  0: A0=1 , A1=1 ; ;检查键值D8,ON/OFF键

            movf A0_addr2,w             andlw 0fh             xorwf A0_data1,w               skpz             goto D11           ;不是只有键值D8按下,检查键值D11,                                ;即D8没有按下或D8按下同时还有其它按键按下             movf A1_addr2,w             andlw 0fh             xorwf A1_data1,w             skpz             goto D11           ;不是只有键值D8按下,检查键值D11                                ;即D8没有按下或D8按下同时还有其它按键按下

;是键值D8按下,开始处理    ;on/off处理,按下on/off键假如on, ;再按下就是off,然后再按下又是off。                                               movlw b'00000010'  ;取反user_reg的on_off位             xorwf user_reg,f             btfss on_off       ;on_off位为0，reset置1，返回时关显示             goto clr_rst             bsf unlock         ;on_off位为1，置unlock为1，返回时开显示             goto back   ;检查键值D11,NEXT键。         D11  btfss on_off       ;on_off为0,当前已关显示，按键NEXT无效             goto back          ;返回                                 movf A0_addr2,w             andlw 0fh             xorwf A0_data2,w                skpz             goto back          ;也不是只有键值D11按下,返回                                ;即D11没有按下或D11按下同时还有其它按键按下             movf A1_addr2,w             andlw 0fh             xorwf A1_data2,w             skpz             goto back          ;也不是只有键值D11按下,返回                                ;即D11没有按下或D11按下同时还有其它按键按下             ;是键值D11按下,开始处理                         bsf go_next        ;跳下一段             bcf reset              goto back                                                              clr_rst  bsf reset             bcf go_next             goto back                                 back  bcf t1con,tmr1on  ;停止TMR1             clrf tmr1h             clrf tmr1l             bsf t1con,tmr1on  ;启动TMR1             bsf enable        ;置1,防止开关按住不放，不断响应。                                     work_end  retfie            ;返回并开中断             ;接收错误处理                    remote8  bcf enable                         bcf go_next       ;密码错误,取消解码,清0             bcf reset         ;密码错误,取消解码,清0             bcf unlock                         bsf enable        ;虽接收错误,但都是有按键按下             ;重新设定TMR1             bcf t1con,tmr1on  ;停止TMR1                   clrf tmr1h        ;ffff为65.536mS             clrf tmr1l             bsf t1con,tmr1on  ;重启动TMR1             retfie            ;返回并开中断                                                                  ;------------------------------------------- ;初始化程序

      init  bsf status,rp0     ;选择bank1             call 3ffh             movwf osccal             movlw b'00001000'  ;GP0/1/2为输出             movwf trisio       ;GP3为输入             clrf ioc           ;关闭所有电平变化中断             bsf pie1,tmr1ie    ;开TMR1中断                         bcf status,rp0     ;选择bank0             bcf intcon,gie     ;关所有中断             bsf intcon,peie    ;开外设中断             bcf t1con,tmr1on   ;停止TMR1                         clrf gpio          ;输出清0             movlw 07h                     movwf cmcon        ;设置GP0/1/2为IO                         bcf enable         ;头次上电,初始化enable、reset、go_next             bcf reset             bcf go_next             ;编码地址设定为:A0~A7为悬空(A0=1,A1=0)             movlw b'11111111'  ;A0             movwf addr_set1             movlw b'00000000'  ;A1             movwf addr_set2             ;D8设置1(A0=0,A1=0),D9、D10悬空(A0=1,A1=0) ;D11设置0(A0=1,A1=1),该状态为只有D8按下。D8为ON/OFF键。             movlw b'00001110'  ;A0                                    movwf A0_data1             movlw b'00001000'  ;A1             movwf A1_data1             ;D11设置1(A0=0,A1=0),,D9、D10悬空(A0=1,A1=0) ;D8设置0(A0=1,A1=1),该状态为只有D11按下。D11为NEXT键。             movlw b'00000111'  ;A0                                    movwf A0_data2             movlw b'00000001'  ;A1                        movwf A1_data2               return              ;------------------------------------------------------