From a76977af62010a392c16010c367185e61e856ffe Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Wed, 30 Oct 2019 20:04:56 +0100 Subject: mv to docs --- docs/j1demo/firmware/doc.fs | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) create mode 100644 docs/j1demo/firmware/doc.fs (limited to 'docs/j1demo/firmware/doc.fs') 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 -- cgit v1.2.3