Windmill controller logger shield

-- Counting pulses on positive edge

include freejalduino4.jal

const timer0_isr_rate = 1000 -- 1 kHz isr rate

const DELAY_SLOTS = 1 -- we need only one delay at a time

include timer0_isr_interval

timer0_isr_init() -- init timer0 isr

var bit flag

var word counting -- if more than 65535 counts on 1 second expected,

                      -- use dword type instead of word.

enable_digital_io() -- all pins are now digital

-- define on which pin we do counting

D7_direction = INPUT

flag = 0

counting = 0

forever loop

  -- ======== start the counting procedure ========

  -- start the delay of 1 second on first slot (which is 0)

  set_delay(0, 1000)

  repeat

    if D7 == 1 then -- positive pulse on D7 pin

      flag = 1     -- so, mark it to be counted when pulse will fall

    elsif flag == 1 then -- now D7 is 0 (pulse fallen = complete) and if flag is set,

                         -- we count the pulse

      counting = counting + 1  -- counted! huray, we have a pulse!

      flag = 0     -- ok, clean the flag to be ready for another rising pulse

    end if

  until check_delay(0) -- check the slot to see if delay expired

  -- time expired, we erase the flag

  flag = 0

  -- ============= end the counting procedure ===============

  -- do something with counting variable and then reinitialize it

  -- ok, did something (e.g., sent the value via serial or displayed on LCD)

  counting = 0

end loop

-- Counting pulses on positive edge include freejalduino4.jal include usb_serial include print  const timer0_isr_rate = 1000 -- 1 kHz isr rate const DELAY_SLOTS = 1 -- we need only one delay at a time  include timer0_isr_interval timer0_isr_init() -- init timer0 isr  var bit flag var word counting -- if more than 65535 counts on 1 second expected,                       -- use dword type instead of word.  enable_digital_io() -- all pins are now digital  -- define on which pin we do counting D7_direction = INPUT  flag = 0 counting = 0  usb_serial_init()  forever loop   usb_serial_flush()   -- ======== start the counting procedure ========   for 200 loop -- 5 * 200 = 1 second     -- start the delay of 5 milliseconds on first slot (which is 0)     set_delay(0, 5)     repeat       if D7 == 1 then -- positive pulse on D7 pin         flag = 1     -- so, mark it to be counted when pulse will fall       elsif flag == 1 then -- now D7 is 0 (pulse fallen = complete) and if flag is set,

                           -- we count the pulse         counting = counting + 1 -- counted! huray, we have a pulse!         flag = 0     -- ok, clean the flag to be ready for another rising pulse       end if     until check_delay(0) -- check the slot to see if delay expired     usb_serial_flush() -- tell to the usb we are active   end loop   -- cycle ended, we erase the flag   flag = 0   -- ============= end the counting procedure ===============    -- do something with counting variable and then reinitialize it   print_word_dec(usb_serial_data, counting)   -- use print_dword_dec() if counting exceed 65535   usb_serial_data = 13 -- cr   usb_serial_data = 10 -- lf   counting = 0 end loop