I'm trying to send a string of 9 bytes out in decimal form see code below. I don't know if I can do the decimal string.Using PBP3 and a 16F690
Code:
define OSC 4
'-----------------------Enable EUSART------------------------------------
DEFINE HSER_RCSTA 90h ' Enable serial port & continuous receive
DEFINE HSER_TXSTA 20h ' Enable transmit, BRGH = 0
DEFINE HSER_CLROERR 1 ' Clear overflow automatically
DEFINE HSER_SPBRG 51 ' 4800 Baud @ 4MHz, 0.17%
SPBRGH = 0
BAUDCTL.3 = 1 ' Enable 16 bit baudrate generator
'-----------------------REGISTERS----------------------------------------
TRISA=%001000 ' RA0,RA3,RA4,RA5 inputs
ANSEL=%00000000 ' All digital
ANSELH=$0000 ' AN11, rest digital
TRISB=$00 ' All pins output
TRISC=%00000000 ' RC5 input
CM1CON0.7=0 ' Shut off comparators
CM2CON0.7=0 ' Shut off comparators
OPTION_REG.7=0
WPUA=%001000 ' Weak Pull Ups Enabled
track var PORTA.3
rottime var byte[9]
rot1time var rottime[0]
rot2time var rottime[1]
rot3time var rottime[2]
rot4time var rottime[3]
rot5time var rottime[4]
rot6time var rottime[5]
rot7time var rottime[6]
rot8time var rottime[7]
rot9time var rottime[8]
rot10time var rottime[9]
Main:
if track=0 then
rot1time=1
rot2time=2
rot3time=3
rot4time=4
rot5time=5
rot6time=6
rot7time=7
rot8time=8
rot9time=9
rot10time=10
hserout [str rottime\9,13,10]
pause 500
endif
goto main
Bookmarks