2 files changed, 28 insertions, 0 deletions
diff --git a/msp430/examples/spi.txt b/msp430/examples/spi.txt
new file mode 100644
index 0000000..64a7189
--- /dev/null
+++ b/msp430/examples/spi.txt
@@ -0,0 +1,15 @@
+unsigned char RXData = 0;
+unsigned char TXData;
+
+: spi-init
+  bit2 bit5 or bit6 or p3sel0 byte set
+  ucb1ctlw0
+  ucswrst over reg set
+  ucmst ucsync or ucckpl or ucmsb or over reg set
+  ucssel__aclk over reg set
+  2 ucb1brw reg!
+  ucswrst swap reg clear ;
+
+: spi-emit
+  begin ucb1ifg reg@ uctxifg and until
+  ucb1txbuf reg! ;
diff --git a/msp430/examples/uart.txt b/msp430/examples/uart.txt
new file mode 100644
index 0000000..e090e75
--- /dev/null
+++ b/msp430/examples/uart.txt
@@ -0,0 +1,13 @@
+\ UART example, 19200 baud, pins D0/1
+
+: uart-init ( -- )
+  bit5 bit6 or p2sel0 byte set
+  ucswrst uca1ctlw0 reg set
+  ucssel__smclk uca1ctlw0 reg set
+  52 uca1brw reg!
+  18688 ucos16 or ucbrf0 or uca1mctlw reg!
+  ucswrst uca1ctlw0 reg clear ;
+
+: uart-emit ( n -- )
+  begin uca1ifg reg@ uctxifg and until
+  uca1txbuf byte! ;