Re: [Flashforth-devel] bit.txt problem

[Mikael N. <mik...@fl...>]

Or this. It depends on exactly what kind of SPI you want.

ddrb  out bit1: spi-out-pin
portb out bit0: spi-out-0 inlined
portb out bit1: spi-out-1 inlined
ddrb  clk bit1: spi-clk-pin
portb clk bit0: spi-clk-0 inlined
portb clk bit1: spi-clk-1 inlined

: spi! ( u --- )
   spi-pin-pin spi-clk-pin
   spi-clk-0
   #8 for
     dup $80 and
     if spi-out-1 else spi-out-0 then
     spi-clk-1 2* spi-clk-0
   next drop ;

Mike