aboutsummaryrefslogtreecommitdiff
path: root/docs/j1demo/firmware/doc.fs
diff options
context:
space:
mode:
Diffstat (limited to 'docs/j1demo/firmware/doc.fs')
-rw-r--r--docs/j1demo/firmware/doc.fs20
1 files changed, 20 insertions, 0 deletions
diff --git a/docs/j1demo/firmware/doc.fs b/docs/j1demo/firmware/doc.fs
new file mode 100644
index 0000000..8b3c07d
--- /dev/null
+++ b/docs/j1demo/firmware/doc.fs
@@ -0,0 +1,20 @@
+( Documentation conventions JCB 14:37 10/26/10)
+
+meta
+
+: getword ( -- a u )
+ begin
+ bl word count dup 0=
+ while
+ 2drop refill true <> abort" Failed to find word"
+ repeat
+;
+
+: ================================================================
+ begin
+ getword
+ nip 64 =
+ until
+;
+
+target