Ο κωδικας του δεκτη. Ειναι για RF αλλα αν δεν κανω λαθος μπορει να χρησιμοποιηθει και με IR module
;************************************************* *********************
; *
; Filename: mrx-009.asm *
; Date: *
; File Version: *
; *
; Author: *
; http://jap.hu/ *
;************************************************* *********************
;NOTES
;
; Manchester decoding routine
;
; supposed crystal freq is 4MHz
; T ~= 620 usec (half bit)
;
;************************************************* *********************
;HISTORY
;
;000-20010108
;initial version, for MPSIM debugging - simple bit decoding tested
; - behaviour on errors is not tested
;
;001-20010108
;to be linked with other external sources
;
;002-20010109
;protocol decoding tested
;
; header = 16xbit1, 1xbit0 (min/max n. of bit1s in header reqs are not yet checked)
; byte = 8xbitX, 1xbit1, 1xbit0
;
; if not in header, max 9xbit1 or 9xbit0 can be received (which can't be sync'ed to)
;
;003-20010110
;radio receiving tested OK - debug info on LCD
; counting 0-4 encoding errors/rcvd packets, displaying protocol errors
;
;004-20010113
; same algorythm without using TMR0
; (whis is reserved for measuring timeouts)
;
;005-20010113
;debug on LED. 0=OK, other=error. Point shows validity
;
;006-20010113
;same as 005, plus check buffer checksum and devid
;
;007-20010113
;raw OUT, 5-byte buffer, adapt to C508
;
;008-20010121
;monitor version with LCD
;
;009-20010123
;raw OUT for the 16C505. Based on 007
;corresponding transmitter is mtx(014) for the 16C505,
; which sends the following format:
; data0 - - B5 B4 B3 B2 B1 B0
; data1 - - C5 C4 - C2 C1 C0
;
;this is mapped into the 16C620A pins as
; PB7-0 C5 C4 B5 B4 B3 B2 B1 B0
; PA2-0 - - - V - C2 C1 C0
;
;PA3 shows output validity.
;************************************************* *********************
;define F628
#define C620
; the only difference btw. generated C620 & F628 code is the fuse config
#ifdef F628
#define X62X
list p=16F628 ; list directive to define processor
__CONFIG _CP_OFF & _WDT_OFF & _PWRTE_ON & _XT_OSC & _LVP_OFF
;WDT=watchdog, PWRTE=power on timer, XT=external crystal osc
#include <p16F628> ; processor specific variable definitions
#endif
#ifdef C620
#define X62X
list p=16c620a ; list directive to define processor
__CONFIG _CP_OFF & _WDT_OFF & _PWRTE_ON & _XT_OSC & _BODEN_OFF
;WDT=watchdog, PWRTE=power on timer, XT=external crystal osc
#include <p16c620a> ; processor specific variable definitions
#endif
#ifdef X62X
#define RXBIT PORTA, 4
#endif
#ifdef C508
listp=12c508
#include <p12C508>
__CONFIG _CP_OFF & _WDT_OFF & _MCLRE_OFF & _IntRC_OSC
#define RXBIT GPIO, 3
#endif
;***** VARIABLES
#define IF_SHORT flags, 0
#define FIRST_HALF flags, 1
#define HEADER flags, 2
#define VALID flags, 7
if_short_valEQU1 ; bit value of IF_SHORT flag
first_half_valEQU2 ; bit value of FIRST_HALF flag
#ifdef X62X
.mainda UDATA 0x20
#endif
#ifdef C508
.mainda UDATA 0x07
#endif
bitcntres1
tmrvalres1 ; timer value
btres1 ; receive byte buffer
flagsres1 ; decode logic status
btcntres1 ; byte counter
agetmrres1 ; age out timer
bufferres4 ; receive packet buffer
bsumres1 ; receive buffer, checksum
;***** CONSTANT VALUES
hdrcntminEQU0x0c
hdrcntmaxEQU0x10
min_tEQU.34
min_2tEQU.104
max_2tEQU.174
age_maxEQU.15 ; age out last valid packet
packet_lenEQU5 ; packet length, check var. alloc!
devid1EQU0x9a
devid2EQU0xe9
#ifdef X62X
vectorsCODE 0
goto main; go to beginning of program
nop
nop
nop
; interrupt vector location
retfie
progCODE 5
#endif
#ifdef C508
CODE 0
movwf OSCCAL
goto hwinit_508
#endif
mp_receive; receive a full manchester-encoded packet
s3; set flags: first_half=1, if_short=0
bsf FIRST_HALF
s4bcf IF_SHORT
s5; init before the received packet
; set FSR to buffer start
movlw buffer
movwf FSR
; set byte counter
movlw packet_len ; bytes / packet
movwf btcnt
; set header receive mode
bsf HEADER
clrf bitcnt ; counting bit1-s in this mode
s2; wait for a pulse
btfss RXBIT
goto s2
s6; wait for end of (short) pulse up to min_2t
clrf tmrval
s6_wbtfss RXBIT
goto s7 ; goto s7 at end of pulse
incf tmrval, F
nop
movlw min_2t
subwf tmrval, W
btfss STATUS, C
goto s6_w
; timeout, exit
retlw 1 ; illegal startbit
s7; start timer
clrf tmrval
s8; if (if_short & rxbit) goto s9
; if (!if_short & !rxbit) goto s9
; goto s10
btfsc IF_SHORT
; if_short = 1
goto s8_ss1
s8_ss0; if_short = 0
btfsc RXBIT
goto s10 ; rxbit = 1, goto s10
s9_ss0; if (timer > max_2t) exit - else goto s8
movlw max_2t
subwf tmrval, W
btfsc STATUS, C
retlw 2 ; signal too long
incf tmrval, F
goto s8_ss0
s8_ss1; if_short = 1
btfss RXBIT
goto s10 ; rxbit = 0, goto s10
s9_ss1; if (timer > max_2t) exit - else goto s8
movlw max_2t
subwf tmrval, W
btfsc STATUS, C
retlw 2 ; signal too long
incf tmrval, F
goto s8_ss1
s10; invert if_short
movlw if_short_val
xorwf flags, F
s11; if (timer < min_t) exit
movlw min_t
subwf tmrval, W
btfss STATUS, C
retlw 3 ; signal too short
s12; if (timer < min_2t) goto s14
movlw min_2t
subwf tmrval, W
btfss STATUS, C
goto s14
s13; if (first_half = 0) goto s16 - else exit
btfss FIRST_HALF
goto s16
retlw 4 ; no mid-frame transition/out of sync
s14; invert first_half
movlw first_half_val
xorwf flags, F
s15; if (first_half = 1) goto 7
btfsc FIRST_HALF
goto s7
s16; if_short is a decoded bit. Handle here
btfss HEADER
goto s16_not_header
; header receiving mode
btfss IF_SHORT
goto s16_header_end
; header bit is 1
btfss bitcnt, 4 ; inc up to 16
incf bitcnt, F ; 16 is enough...
call age ; age out even if never leaving this loop
#ifdef NOMAXHDR
; test for max header length
movlw hdrcntmax
subwf bitcnt, W
btfss STATUS, C
#endif
goto s7 ; loop back
retlw 9 ; header too long
s16_header_end; header ends indicated by a 0
bcf HEADER
; test for min header length
movlw hdrcntmin
subwf bitcnt, W
btfss STATUS, C
retlw 0x0a ; header too short
next_bytemovlw 0x0a
movwf bitcnt
goto s7 ; loop back
s16_not_header; receiving bytes
decf bitcnt, F
bz s16_s4 ; if (bitcnt = 0) check for a byte-sep 1
; if (bitcnt = 1) check for a byte-separator 0
movlw 1
xorwf bitcnt, W
bnz s16_s2
; test for a byte separator 1
btfsc IF_SHORT
goto s7
retlw 7 ; byte-ending 1 not present
s16_s2; bit is data
rrf flags, W
rlf bt, F
goto s7
s16_s4; check for a byte-separator 0
btfsc IF_SHORT
retlw 8 ; byte-ending 0 not present
; OK, received byte is sane, store in buffer
movf bt, W
movwf INDF
incf FSR, F
decfsz btcnt, F
goto next_byte
retlw 0 ; OK, buffer received
chk_buf; check buffer sanity by chksum
movlw buffer
movwf FSR
movlw (packet_len-1) ; number of bytes w/o the chksum byte
movwf btcnt
clrw
chk0addwf INDF, W
incf FSR, F
decfsz btcnt, F
goto chk0
;chksum is now in W
subwf bsum, W
bnz chk_err
retlw 0 ; result is in Z
chk_errretlw 0x0c ; checksum error
chk_devid;check if the device id is the same
; (first two bytes)
movlw devid1
subwf buffer, W
bnz chk_err2
movlw devid2
subwf (buffer+1), W
bnz chk_err2
retlw 0 ; OK
chk_err2retlw 0x0d ; devid error
#ifdef C508
hwinit_508;C508 HARDWARE INIT
clrf GPIO
clrw; movlw 0x08
tris GPIO ; all except GP3 is output
clrwdt
movlw 0x47 ; no pullup on GP3 (1&0 outputs)
option
#endif
main
#ifdef X62X
;X62X HARDWARE INIT
clrf PORTA ;set output levels
clrf PORTB
movlw 0x10 ; PORTA4 is input
TRIS PORTA
MOVLW 0 ; PORTB outputs
TRIS PORTB
clrwdt ; changing default presc. assignment
movlw 0x87 ; prescaler 1:256 assigned to TMR0
OPTION ; T0CS selects internal CLK
movlw 7
movwf CMCON ; disable analog comparators
#endif
clrf TMR0
call age_clr ; no valid packet
loopcall age
call mp_receive
andlw 0xff
bnz l_skip
call chk_buf
andlw 0xff
bnz l_skip
call chk_devid
l_skipmovwf bt ; 0=OK, other=error
movf bt, F
btfss STATUS, Z
goto loop
; rx was OK, turn on outputs
; buffer+2, buffer+3 contains state information
; set PA0-PA2 from C0, C1, C2
; set PA3 as High (valid output)
movf buffer+3, W
andlw 0x7
xorlw 0x0f
movwf PORTA
; shift C4, C5 to bit#6, bit#7
rlf buffer+3, F
rlf buffer+3, F
movlw 0x3f
iorwf buffer+3, F
; glue together C4, C5 with B0-B5
movlw 0xc0
iorwf buffer+2, W
andwf buffer+3, W
xorlw 0xff
movwf PORTB
; set age timer
call age_set
goto loop
age; time out last packet
btfss TMR0, 7
return
clrf TMR0
decfsz agetmr, F
return
age_clr; age out
bcf VALID
movlw age_max
movwf agetmr
clrf PORTA ; clear all outputs
clrf PORTB
return
age_set; validate now
bsf VALID
movlw age_max
movwf agetmr
; show validity here
return
end