It always worth to do some test with a PC or a LCD... it won't bite you
Code:
DEFINE OSC 20
DEFINE HSER_RCSTA 90h ' Enable serial port & continuous receive
DEFINE HSER_TXSTA 24h ' Enable transmit, BRGH = 1
DEFINE HSER_SPBRG 129 ' 9600 Baud @ 0.16%
DEFINE HSER_CLROERR 1 ' Clear overflow automatically
WordA var word
Start:
worda=1
gosub sendit
worda=12345
gosub sendit
Spin: goto Spin
SendIt:
hserout ["WordA=",dec worda,13,10,_
" DEC1:",dec1 worda,13,10,_
" DEC2:",dec2 worda,13,10,_
" DEC3:",dec3 worda,13,10,_
" DEC4:",dec4 worda,13,10,_
" DEC5:",dec5 worda,13,10]
return
<img src="http://www.picbasic.co.uk/forum/attachment.php?attachmentid=1281&stc=1&d=116641400 5">
Bookmarks