aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/appl/eval-pollin/blocks/netio.frt
diff options
context:
space:
mode:
Diffstat (limited to 'amforth-6.5/appl/eval-pollin/blocks/netio.frt')
-rw-r--r--amforth-6.5/appl/eval-pollin/blocks/netio.frt32
1 files changed, 32 insertions, 0 deletions
diff --git a/amforth-6.5/appl/eval-pollin/blocks/netio.frt b/amforth-6.5/appl/eval-pollin/blocks/netio.frt
new file mode 100644
index 0000000..6c1f62c
--- /dev/null
+++ b/amforth-6.5/appl/eval-pollin/blocks/netio.frt
@@ -0,0 +1,32 @@
+
+\ Definitions for the netio-addon board
+
+\ SPI communication pins
+ PORTB 4 portpin: /ss
+ PORTB 5 portpin: _mosi
+ PORTB 6 portpin: _miso
+ PORTB 7 portpin: _clk
+
+\ setup the SPI pins
+ : +spi ( -- )
+ /ss high \ activate pullup!
+ _mosi high _mosi pin_output
+ _clk low _clk pin_output
+ ;
+
+ : -spi 0 SPCR c! ;
+
+ \ transfer 1 cell
+ : ><spi ( x -- x' )
+ dup >< c!@spi
+ swap c!@spi
+ swap >< +
+ ;
+
+: +mmc
+ /ss low
+;
+: -mmc
+ /ss high
+;
+