Config Int2 = Rising  
Dim Helpb As Byte
Helpb = EICRA
Print Bin(Helpb)

   'Initialize interrupts for wind input on pin A.4 (PA4, PC Int0)
   ' rain on PCI3   wind is on PCI4

   pcmsk0 = &B00011000                                      'enable PCI3(rain) and PCI4(wind speed pulse)
   PCICR = &B00000001                                       'enable PC Int0
   on PCint0 count_anemometer saveall                 'no brackets - must look like a label


'***********************************************
sub count_anemometer()

   
      'rainswitch = tipping bucket rain gauge
      if rainswitch = 0 then

          if dn15 = 0 then
           
            rainsng = rainsng + rain_bucketsize
            Totalrainsng = Totalrainsng + rain_bucketsize               'rain in last 24 hrs
            print #1, "rain";Totalrainsng
          end if

          dn15 = 1

      else
          dn15 = 0
      end if
       
   'windswitch = anemometer lo going, normally hi
      if windswitch = 0 then

          if dn16 = 0 then
            incr windpulsecountw
            Toggle Wind_led
          end if
          dn16 = 1

       else
           dn16 = 0
       end if


end sub
'***************************************