From: Dan White <dan@whiteaudio.com>
Date: Thu, 16 May 2013 06:56:11 +0000 (-0500)
Subject: testing helpers
X-Git-Tag: cheetah~67
X-Git-Url: http://git.whiteaudio.com/gitweb/?a=commitdiff_plain;h=3780e3dd810efabbed0c5ddca1060d4521d7f52f;p=430.git

testing helpers
---

diff --git a/msp4th/term.sh b/msp4th/term.sh
new file mode 100755
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
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