marker --start--
PORTC 2 portpin: _rfm12
PORTB 5 portpin: _mosi
PORTB 6 portpin: _miso
PORTB 7 portpin: _clk
PORTB 4 portpin: /ss
: +spi
  /ss high
  _mosi high _mosi pin_output
  _clk low _clk pin_output
  $53 SPCR c!
;
: -spi 0 SPCR c! ;
: ><spi
  dup >< spirw
  swap spirw
  swap >< +
;
: w?  _rfm12 low begin _miso pin_high? until ;
: (>wc)  _rfm12 low ><spi _rfm12 high ;
: >wc (>wc) drop ;
: wc?   0 (>wc)      ;
: w.status wc? 4 hex u0.r ;
: >w $00ff and $b800 +   w? (>wc) drop ;
: <w $b000 w? (>wc) ;
: +rfm12
  _rfm12 low _rfm12 pin_output
;
: rfm12.init
  $80d7 >wc
  $82d9 >wc
  $a6b8 >wc
  $c647 >wc
  $94a0 >wc
  $c2ac >wc
  $ca81 >wc
  $c483 >wc
  $9854 >wc
  $e000 >wc
  $c800 >wc
  $c000 >wc
;
PORTA 7 portpin: _w_pwr
: rfm12.power.on _w_pwr high _w_pwr pin_output ;
: rfm12.power.off _w_pwr pin_highZ ;
: rfm12.rx $82d9 >wc ;
: rfm12.off $8201 >wc ;
: rfm12.rx.all
  -jtag
  +spi +rfm12
  rfm12.init w.status cr
  rfm12.rx
  $ca87 >wc
  hex
  begin
    <w 2 u0.r space
  key? until
  key drop
  rfm12.off
;
: rfm12.tx.on $8238 >wc ;
: rfm12.tx.off $8208 w? >wc ;
: init
  -jtag
  +spi +rfm12
  rfm12.init
  w.status cr
;
: rfm12.tx.data
  rfm12.tx.on
  $aa >w
  $aa >w
  $aa >w
  $2d >w
  $d4 >w
  $10 0 do
    i $30 + $b800 + w? >wc
  loop
  $b8aa w? >wc
  $b8aa w? >wc
  $b8aa w? >wc
  rfm12.tx.off
;
: rfm12.rx.clearfifo $ca81 >wc $ca83 >wc ;
: rfm12.rx.sync $82c8 >wc ;
: rfm12.rx.data
  rfm12.rx.sync
  rfm12.rx.clearfifo
  hex
  w?
   0 do <w 2 u0.r space loop
;