testing helpers

diff --git a/msp4th/term.sh b/msp4th/term.sh
new file mode 100755 (executable)
index 0000000..3e6fc22
--- /dev/null
+++ b/msp4th/term.sh
@@ -0,0 +1,4 @@
+#!/bin/bash
+
+
+miniterm.py --rts=0 /dev/ttyUSB3 4800

diff --git a/msp4th/tests.4th b/msp4th/tests.4th
new file mode 100644 (file)
index 0000000..77951e3
--- /dev/null
+++ b/msp4th/tests.4th
@@ -0,0 +1,7 @@
+\ vim: ft=forth
+: fail ( -- ) 0x46 emit 0x41 emit 0x49 emit 0x4c emit cr ;
+: star ( -- ) 0x2a emit ;
+: <sp> ( -- ) 0x20 emit ;
+: cmp ( a b -- ) == not if fail then ;
+: tloop do i star <sp> . cr loop ;
+bye