$regfile = "m8def.dat"
$crystal = 1000000
$baud = 4800



Print "VacControl 1.0"
Print "19.08.2014 A.Hermann"
Print "Slavesystem"

'Referenz und Umrechnung Druck
Dim Ref As Single
Dim Fak As Single
Ref = 53.00
Fak = 18.44

'Allgemeine Variablen
Dim Druck_volt As Integer
Dim Druck_bar As Single
Dim Druck_bar_ As String * 10


'ADC Konfigurieren
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc
'Interrupt RS232 Empfang
Declare Sub Serial0charmatch


Config Serialin = Buffered , Size = 20 , Bytematch = 13
Enable Interrupts


'Link LED
Link Alias Portd.6
Config Link = Output

'Run LED
Run Alias Portd.5
Config Run = Output

Test Alias Portb.0
Config Test = Output

Gosub Init

'Hauptprogramm
Main:

Do
Wait 2
Druck_volt = Getadc(0)
Waitms 50
'Print "Druck ADC= " ; Druck_volt
Wait 2


Loop
End

Dim I As Byte



Sub Serial0charmatch()
     'Datenempfang Signalisieren
   Local Incomming_data As String * 10
   'lesen
   Input Incomming_data Noecho

   If Incomming_data = "132" Then
   Toggle Test
     Toggle Link
     Waitms 100
     Toggle Link
     Waitms 100
     Toggle Link
     Waitms 100
     Toggle Link
     Wait 1
     Toggle Test
   Gosub Senden
   Else
   !NOP
   End If

End Sub


Init:

   Run = 1
   Link = 1

Return

Senden:
 'Print "Sensor 1: " ; Druck_volt ; "Volt"
 Waitms 100
 Druck_bar = Druck_volt - 36                                'Referenz abziehen
 'Print "Druck nach abzug" ; Druck_bar
 Druck_bar = Druck_bar / 18.44                              'umrechen in bar
 Druck_bar = Druck_bar / 100
 Druck_bar_ = Str(druck_bar)
 Druck_bar_ = Fusing(druck_bar , "#.##")


 Print Druck_bar_ ; "bar"
 Toggle Link
     Waitms 100
     Toggle Test
     Toggle Link
     Waitms 100
     Toggle Test
     Toggle Link
     Waitms 100
     Toggle Test
     Toggle Link
     Waitms 100
     Toggle Test
Return