Dave :-)
It's working like a charm :-)....I think, just getting an
extra character on every second line :-)
Range is awesome in the house, reaches all distant corners
--will do range tests tomorrow and feedback to you.
Here's the OLD code
Which worked but wasn't too accurate
TX CODE
RX codeCode:TRAIN VAR BYTE TRAIN=$55 hSEROUT [TRAIN,TRAIN,TRAIN,TRAIN,TRAIN,"9",dec 3,$d,$a]
Heres the NEW TX codeCode:HSERIN [WAIT("9"),DEC NET] HSERout ["I Recived this number ",DEC NET,$d,$a] 'net var value should show in hyperterminal
USING HSER
Code:DEFINE HSER_RCSTA 90h ' Enable serial port & continuous receive DEFINE HSER_TXSTA 20h ' Enable transmit, BRGH = 0 DEFINE HSER_SPBRG 207 ' 2400 Baud @ 32MHz, 0.17% DEFINE HSER_CLROERR 1 ' Clear overflow automatically test: TRAIN VAR BYTE train = $B3 SYNK VAR BYTE SYNK = $7E hserout [TRAIN,SYNK,DEC 23] goto test
and the RX code:
Code:DEFINE HSER_RCSTA 90h ' Enable serial port & continuous receive DEFINE HSER_TXSTA 20h ' Enable transmit, BRGH = 0 DEFINE HSER_SPBRG 207 ' 2400 Baud @ 32MHz, 0.17% DEFINE HSER_CLROERR 1 ' Clear overflow automatically test: high led hserin [WAIT(SYNK), DEC net] toggle LED HSERout ["I Recived this number ",DEC NET,$d,$a] 'net var value should show in hyperterminal goto test
Here's my receiver output from MCS serial tool window
As you can see I'm receiving DEC 2 and 23.Code:I Recived this number 2 I Recived this number 23 I Recived this number 2 I Recived this number 23 I Recived this number 2 I Recived this number 23
Where is the number 2 coming from ?
Eerie ?
Now all I need to do is akind of checksum for example, if
the number 23 is received 3 times then it's a VALID TX.
Any more optimizations or tweaks I should try ?
Thanks a million
Kind regards
(From a very happy:-))
Dennis




Bookmarks