From 3780e3dd810efabbed0c5ddca1060d4521d7f52f Mon Sep 17 00:00:00 2001
From: Dan White <dan@whiteaudio.com>
Date: Thu, 16 May 2013 01:56:11 -0500
Subject: [PATCH] testing helpers

---
 msp4th/term.sh   | 4 ++++
 msp4th/tests.4th | 7 +++++++
 2 files changed, 11 insertions(+)
 create mode 100755 msp4th/term.sh
 create mode 100644 msp4th/tests.4th

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
-- 
2.25.1