'rob@faludi.com

define OSC 4

' define ADCIN parameters for analog sensors (not used in the current version)
DEFINE  ADC_BITS        10     ' Set number of bits in result
DEFINE  ADC_CLOCK       3     	' Set clock source (3=rc)
DEFINE  ADC_SAMPLEUS    50    	' Set sampling time in uS

'set a constant with the baudmode 9600-8-n-1-inverted:
inv9600 con 16468  'inverted for sending to a computer's serial port
non9600 con 84     'non-inverted, for sending to the XPort


blinky var portb.0
txPort var portc.6
rxPort var portc.7
i var byte
inputData var word
inputdata = 0
outputData var word
outputData = 0
pauseValue var byte
 
for i = 0 to 3
    pausevalue = 1000
    gosub blink
next

main:

    serout2 txport, non9600, [outputData]
    outputdata = outputData + 1
     'serin2 rxPort, inv9600, [inputData]
    pausevalue = 200
    gosub blink
    pause 2000
goto main


blink:
    high blinky
    pause pauseValue
    low blinky
    pause pauseValue
return