12F629解PT2262IR的源程序（zt）
程序匠人 發表于 2007-5-22 8:53:00  閱讀全文(262) | 回復(0) | 引用通告(0) | 編輯

這段程序是用在一款七彩燈紅外遙控解碼程序里,單片機使用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
        ＃include"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