'Pressure sensor example
'http://aquaticus.info

$regfile = "M8DEF.DAT"

$crystal = 8000000

Config Serialin = Buffered , Size = 20

Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0

$baud = 9600

'configure ADC
Config Adc = Single , Prescaler = Auto , Reference = Avcc

'ADC conversion result
Dim C As Long

'Depth in cm
Dim D As Long

'Pressure [bar] * 10 at 100m
Const X = 98

'D =((C*5000000)/256-4000000)/(16*X)
Const Z1 = 5000000 / 256
Const Z2 = 16 * X

' power ADC
Start Adc

Do

   C = Getadc(0)

   D = C * Z1
   D = D - 4000000
   D = D / Z2

   Print "Depth: " + D + "cm"

   'wait 1s
   Wait 1

Loop