\ main-1.fs
\ report rfm12 activity on LEDs and
\ serial console
\ rfm12 power is on PORTA.7!

include part1.fs

: .data
  _data pin_high? if
    led_2 low   led_3 high  [char] |
  else
    led_2 high  led_3 low   [char] .
  then
  emit
;
: 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
;
: run1
  init1
  w.status cr
  begin
    .data
  key? until
  key drop
  rfm12.power.off
;