英锐恩单片机论坛,Microchip单片机,模拟器件,接口电路,麦肯单片机,单片机应用交流

 找回密码
 立即注册
搜索
电子烟方案单片机单片机开发深圳单片机开发
单片机方案国产单片机8位单片机电子烟方案开发
查看: 5332|回复: 0

[分享KEELQ 滚动码解码源程序---1

[复制链接]
发表于 2009-3-8 15:12:52 | 显示全部楼层 |阅读模式
[分享KEELQ 滚动码解码源程序---1

      LIST P=16C54,R=DEC
;------------------------------------------------------------------------------
;******USER DEFINITIONS******
MAX_USERS      EQU      15
; This is the maximum number of transmitters that the system is able to
; learn (1 to 15).  
;------------------------------------------------------------------------------

; GENERAL PURPOSE REGISTERS

IND      EQU      00H            ; INDIRECT ADDRESS REGISTER
RTCC      EQU      01H            ; REAL TIME COUNTER CLOCK
PC      EQU      02H            ; PROGRAM COUNTER
STATUS      EQU      03H             ; STATUS REGISTER
FSR      EQU      04H            ; FILE SELECT REGISTER
PORTA   EQU     05H            ; PORT A
PORTB   EQU     06H            ; PORT B

; USER DEFINED REGISTER

FLAGS      EQU      07H            ; USER FLAG REGISTER
ADDRESS      EQU      08H            ; ADDRESS REGISTER
TXNUM      EQU      09H            ; CURRENT TX
OUTBYT      EQU      0AH            ; GENERAL DATA REGISTER
MASK      EQU      OUTBYT            ; MASK REGISTER USED IN DECRYPTION
TMP_CNT      EQU      OUTBYT            ; TEMPORARY COUNTER

; COUNTER REGISTERS

CNT0    EQU     0BH            ; LOOP COUNTERS
CNT1    EQU      0CH            
CNT2    EQU     0DH            

CNT_HI      EQU      0EH            ; 16 BIT CLOCK COUNTER
CNT_LW      EQU      0FH            

; CIRCULAR BUFFER REGISTER

CSR0    EQU     10H                 ; 64 BIT RECEIVE SHIFT REGISTER
CSR1    EQU     11H            
CSR2    EQU     12H            
CSR3    EQU     13H            
CSR4    EQU     14H                 
CSR5    EQU     15H            
CSR6    EQU     16H            
CSR7    EQU     17H            

; TEMP REGISTERS
TMP1      EQU      18H            ; TEMP REGISTER FOR READ AND WRITE
TMP2      EQU      19H            ; TEMP REGISTER FOR READ AND WRITE
REG      EQU      1AH            ; NOT USED
REG1      EQU      1BH            ; NOT USED

KEY0      EQU      1CH            ; 64 BIT KEY SHIFT REGISTER
KEY1      EQU      1DH
KEY2      EQU      1EH
KEY3      EQU      1FH
KEY4      EQU      CNT2
KEY5      EQU      CSR5
KEY6      EQU      CSR6
KEY7      EQU      CSR7

; ***** USER REGISTER RE-MAPPINGS ***************

HOP1      EQU      CSR0            ; 32 BIT HOPCODE REGISTER
HOP2      EQU      CSR1
HOP3      EQU      CSR2
HOP4      EQU      CSR3

; RECEIVED TRANSMISSION OPEN 32 BITS

SER_0      EQU      CSR7            ; 28 BIT SERIAL NUMBER
SER_1      EQU      CSR6
SER_2      EQU      CSR5
SER_3      EQU      CSR4

; RECEIVED TRANSMISSION ENCRYPTED 32 BITS

FUNC      EQU      CSR3            ; BUTTON CODE & USER BIT FUNCTION BYTE
DISC      EQU      CSR2            ; DISCRIMINATION VALUE
CNTR_HI      EQU      CSR1            ; 16 BIT RX COUNTER HIGH BYTE
CNTR_LW      EQU      CSR0            ; 16 BIT RX COUNTER LOW BYTE

; ********* EEPROM MEMORY *******
LRNPTR      EQU      01H            ; LEARN POINTER

; ********* PORTA BIT DEFINITIONS *******

RES0      EQU      0H            ; RESERVED PIN
RFIN      EQU      1H            ; RF INPUT
LRN      EQU      2H            ; LEARN BUTTON
LED      EQU      3H            ; LEARN INDICATOR LED OUTPUT - VALID SIGNAL

; ********* PORTB BIT DEFINITIONS *******

S0      EQU      0H            ; S0 OUTPUT
S1      EQU      1H            ; S1 OUTPUT
S2      EQU      2H            ; S2 OUTPUT
S3      EQU      3H            ; S3 OUTPUT

DIO      EQU      4H            ; EEPROM DATA LINE
CLK      EQU      5H            ; EEPROM SERIAL CLOCK
CS      EQU      6H            ; EEPROM CHIP SELECT
RES1      EQU      7H            ; RESERVED PIN

; ********* COMPILER DEFINES ******************
NBITS   EQU     64           ; MAXIMUM TRANSMISSION BIT LENGTH
MIN     EQU     560                 ; TRANSMISSION HEADER MINIMUM LENGTH [鍿]
TRISA      EQU      0111B            ; PORTA: TRI-STATE VALUE
WRCFG      EQU      00000000B      ; PORTB: EEPROM WRITE TRI-STATE VALUE
RDCFG      EQU      00010000B      ; PORTB: EEPROM READ TRI-STATE VALUE

;****** FLAGS DEFINITIONS **************
BITIN      EQU      0H            ; RF BIT VALUE
LRNF      EQU      1H            ; LEARN FLAG
SEC_CNT      EQU      2H            ; SECOND COUNTER IS BEING CHECKED
RELEARN      EQU      3H            ; RELEARNING A TRANSMITTER

;****** STATUS REGISTER BIT DEFINITIONS *****************
C       EQU       0            ; CARRY
DC      EQU       1            ; DIGIT CARRY
Z       EQU       2            ; ZERO
PD      EQU       3            ; POWER DOWN
TO      EQU       4            ; TIMEOUT
PA0     EQU       5            ; NOT USED
PA1     EQU       6            ; NOT USED

;------------------------------------------------------------------------------
; PAGE 0:
;------------------------------------------------------------------------------
     ORG 00H

;------------------------------------------------------------------------------
;
; FUNCTION     : RESET ()                             
;
; DESCRIPTION  : PROGRAM RESET ROUTINE
;
;------------------------------------------------------------------------------

RESET      
     MOVLW      000111B                  ; SETUP RTCC PRESCALER
     OPTION

     CLRF      PORTA                  ; RESET PORTA
     CLRF      PORTB                  ; RESET PORTB

     MOVLW      TRISA                  ; SETUP PORTA
     TRIS      PORTA
     MOVLW      WRCFG                  ; SETUP PORTB
     TRIS      PORTB

     CLRF      FLAGS                  ; RESET FLAGS

     GOTO      M_LOOP                  ; GOTO MAIN PROGRAM LOOP

;------------------------------------------------------------------------------
;
; FUNCTION          : ROT_SHIFT()                             
;
; DESCRIPTION        : RIGHT ROTATE 64 BIT RECEIVE SHIFT REGISTER
;
; NOTE            : THIS ROUTINE MUST BE IN THE LOWER HALF OF THE PAGE
;
;------------------------------------------------------------------------------

ROT_SHIFT
        RRF     CSR7,F
        RRF     CSR6,F
        RRF     CSR5,F                     
        RRF     CSR4,F                     
        RRF     CSR3,F                     
        RRF     CSR2,F                     
        RRF     CSR1,F                    
        RRF     CSR0,F                    
     RETLW      0

;------------------------------------------------------------------------------
;
; FUNCTION          : TX_LOOKUP ()                             
;
; DESCRIPTION        : TRANSMITTER ADDRESS CALCULATION
;
; NOTE            : THIS ROUTINE MUST BE IN THE LOWER HALF OF THE PAGE
;
;------------------------------------------------------------------------------

TX_LOOKUP
     MOVF      TXNUM,W                  ; USE TRANSMITTER NUMBER TO CALCULATE
     MOVWF      ADDRESS                  ; ADDRESS OF TRANSMITER BLOCK
     CLRC                        ; MULTIPLY BY 4
     RLF      ADDRESS,F
     RLF      ADDRESS,F
     MOVLW      04H                  ; AND ADD 4
     ADDWF      ADDRESS,F
     RETLW      0                  ; RETURN

;------------------------------------------------------------------------------
;
; FUNCTION          : TST_RTCC ()                             
;
; DESCRIPTION        : UPDATE RTCC COUNTER
;
; NOTE            : THIS ROUTINE MUST BE IN THE LOWER HALF OF THE PAGE
;
;------------------------------------------------------------------------------
TST_RTCC
     CLRWDT                        ; RESET WATCHDOG TIMER
     MOVLW      TRISA                  ; UPDATE TRI-STATE REGISTER FOR PORTA
     TRIS      PORTA

     BTFSS      RTCC,7                  ; TEST FOR 32MS TIMEOUT      ON RTCC MSB
     RETLW      0                  ; ... DO QUICK RETURN TO RECEIVE ROUTINE

; **** INCREASE 16 BIT CLOCK TIMER *******

     BCF      RTCC,7                  ; CLEAR MSB OF RTCC
     INCF      CNT_LW,F            ; INCREASE 16 COUNTER
     SKPNZ                        ; INCREASE UPPER BYTE IF ZERO ( OVERFLOW )
     INCF      CNT_HI,F
     RETLW      0

;------------------------------------------------------------------------------
;
; FUNCTION          : TST_TIMER()                             
;
; DESCRIPTION        : TEST 32MS TIMER AND UPDATE OUTPUTS IF REQUIRED
;
; NOTE            : THIS ROUTINE MUST BE IN THE LOWER HALF OF THE PAGE
;
;------------------------------------------------------------------------------

TST_TIMER
; ***** TEST FOR 500 MS TIMEMOUT ON OUTPUTS **********
     BTFSS      CNT_LW,4            ; TEST FOR 500 MS TIMEOUT
     GOTO      TST_30                  ; ... IF NOT TEST 30S TIMEOUT

     MOVLW      0F0H
     ANDWF      PORTB,F                  ; DOWN ALL PULSE OUTPUTS

; ********* TEST FOR 30 S LEARN TIMEOUT *************
TST_30      BTFSS      FLAGS,LRNF
     GOTO      TST_END
     
     BTFSC      CNT_HI,2            ; TEST FOR LEARN TIMEOUT
     GOTO      RESET                  ; ... IF LEARN TIMEMOUT FORCE SOFT RESET

TST_END      
     RETLW      0H

;------------------------------------------------------------------------------
;
; FUNCTION          : SENDC ()                             
;
; DESCRIPTION        : SEND EEPROM COMMAND
;
; NOTE            : THIS ROUTINE MUST BE IN THE LOWER HALF OF THE PAGE
;
;------------------------------------------------------------------------------

SENDC
     CLRWDT                        ; RESET WATCHDOG TIMER

        BCF     PORTB,CS                ; RESET CS STATE
        BCF     PORTB,CLK               ; RESET CLK STATE
        BCF     PORTB,DIO               ; RESET DIO STATE

        MOVLW   WRCFG
        TRIS    PORTB                   ; DIO = OUTPUT
        GOTO    $+1                     ; WAIT FOR OUTPUTS TO SETTLE
        BSF     PORTB,CS                ; SELECT EEPROM
        SETC                            ; START BIT = 1
        MOVLW   9D                      ; START BIT + 8 DATA BITS
     MOVWF      CNT1

SENDC2
        SKPC                            ; TEST BIT
        BCF     PORTB,DIO               ; WRITE TO DIO
        SKPNC                           ; TEST BIT
        BSF     PORTB,DIO               ; WRITE TO DIO
        GOTO    $+1                     ; WAIT 2 US
        RLF     OUTBYT,F                ; GET NEXT BIT INTO CARRY
        BSF     PORTB,CLK               ; CLOCK HIGH
        GOTO    $+1                     ; WAIT 2 US
        GOTO    $+1                     ; WAIT 2 US
        BCF     PORTB,CLK               ; CLOCK LOW
     DECFSZ      CNT1,F                  ; LOOP COUNTER
        GOTO      SENDC2
        BCF     PORTB,DIO               ; AVOID CONTENTION WITH READ
        RETLW   0
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|公司首页|Microchip单片机,模拟器件,接口电路,麦肯单片机,单片机应用交流 ( 粤ICP备09008620号 )

GMT+8, 2024-3-19 12:24 , Processed in 0.055285 second(s), 23 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表