\ part1.fs

\ these get loaded with "make marker"
\ include lib/misc.frt
\ include lib/bitnames.frt
\ include lib/ans94/marker.frt
\ include atmega32.frt
\ include first.fs

marker --start--

PORTB 0 portpin: led_0
PORTB 1 portpin: led_1
PORTB 2 portpin: led_2
PORTB 3 portpin: led_3
PORTB 5 portpin: _mosi
PORTB 6 portpin: _miso
PORTB 7 portpin: _clk
PORTC 2 portpin: _rfm12  \ rfm12 select
PORTD 3 portpin: _data   \ int1, data
PORTA 7 portpin: _w_pwr  \ rfm12 power

include ewlib/spi.fs
include ewlib/rfm12.fs
: rfm12.power.on
  _w_pwr high  _w_pwr pin_output
  led_0 low
;
: rfm12.power.off
  _w_pwr pin_highZ
  led_0 high
;
: rfm12.init-ook ( -- )  
  $8017 >wc
  $C431 >wc
  $a608 >wc
  $94c2 >wc
  $C220 >wc
  $82D8 >wc
  $CA00 >wc
  $CC67 >wc
  $C623 >wc
;