; *******************************
; ***** Sample Header File *****
; *******************************
; Filename: Wasserschalter
; Date: 09.05.16
; File Version: 1
; Written by: Ron's
; Function:RemoteControl WaterValve
; Last Revision:
; Target PICAXE:20X2 / AXE118
; *******************************


#picaxe 20x2
#no_table
#no_data
symbol index = b10
;Hserin=Pin B.6
;Hserout=Pin C.0
SYMBOL batV = w10
SYMBOL ADCval = w9
SYMBOL D1 = b14
SYMBOL D2 = b15
symbol switchflag=b22
Low b.2:Low b.3:switchflag=0
hsersetup B9600_8,%001 ;<--this sets up the hser stuff: 1= N ,0, 1=Hserin background enable
setintflags %00100000, %00100000 '<--this will zip down to the interrupt
' routine
Hserout 0, ("I+STARTED+My+Tramsmission+and+Reciving+Job")
main:

if pinc.3=1 then gosub VENTSW 'the pushButton

pause 150

goto main

interrupt:
pause 200; wait a while to be sure you got everything --may or may not need this
low c.7
get 0,b1 ;<-- this is the first byte that came in (scratch pad location 0)
get 1,b2 ;<-- this is the second byte that came in (scratch pad location 1);
get 2,b3 ;<--and so on. All the bytes that you receive will get put on
get 3,b4 ;the scratchpad --use "get" to read any or all of them
get 4,b5 ;they come numbered in the order they come in
get 5,b6
get 6,b7
get 7,b8


if b1<>"g" then goto MAIN
if b2<>"G" then goto MAIN
if b3<>"W" then goto MAIN
if b4="H" and b5="E" and b6="L" and b7="L" and b8="O" then gosub HELLO
if b4="V" and b5="E" and b6="N" then gosub VENTSW
if b4="S" and b5="T" and b6="A" and b7="T" and b8="S" then gosub Status



hserptr = 0 ; reset the background receive pointer (scratchpad pointer)
; the next time we get some data, it will get written to the
' scratchpad starting at location 0 --sorta "resets" the system
; ready for the next send

hserinflag=0 ;reset the interrupt flag so you don't interrupt again
;as soon as you leave this subroutine

setintflags %00100000, %00100000 'fire up the int flags again

return ;get back to what ever you were doing
HELLO:
hserout 0,("HELLO")
CALIBADC10 ADCval
batV = 10475 / ADCval
BinToAscii batV,D2,D2,D1
Hserout 0, ("AKKU:",D2,",",D1,"Volt")
return

VENTSW:
high c.7' is an LED
if pinc.3=1 or b7="T" and b8="G" then 'pinc.3 is an manual switch
if switchflag=1 then
switchflag=0

toggle b.2
toggle b.3
hserout 0,("+Ventil=Zu")
else
hserout 0,("+Ventil=Auf")
toggle b.2
toggle b.3
switchflag=1

low c.7
endif


endif
pause 250
return
Status:
hserout 0,("HELLO")

return