\ main-2.fs
\ report rfm12 activity on LEDs via
\ interrupt service routine on INT1
\ rfm12 power is on PORTA.7!

include part1.fs

: int1-isr
  _data pin_high? if
    \ leading edge
    led_2 low
  else
    \ trailing edge
    led_2 high
  then
  \ clear int1
  GIFR  c@ %10000000 or GIFR  c!
;
: +int1
  ['] int1-isr INT1Addr int! \ register isr
  MCUCR c@ $04 or MCUCR c! \ irq on change
  GIFR  c@ $80 or GIFR  c! \ clear int1
  GICR  c@ $80 or GICR  c! \ enable int1
;
: -int1
  \ clear int1 and disable
  GIFR c@ %10000000 or GIFR  c!
  GICR c@ %10000000 invert and GICR c!
;

: init1
  led_0 high  led_0 pin_output
  led_1 high  led_1 pin_output
  led_2 high  led_2 pin_output
  led_3 high  led_3 pin_output
  -jtag
  rfm12.power.on &1000 ms
  +spi +rfm12 rfm12.init-ook
  _data pin_input
;