Initial import of abandoned HQEMU version 2.5.2HEADmaster

1 files changed, 26 insertions, 0 deletions

diff --git a/src/roms/openbios/forth/lib/lists.fs b/src/roms/openbios/forth/lib/lists.fs
new file mode 100644
index 0000000..91f7867
--- /dev/null
+++ b/src/roms/openbios/forth/lib/lists.fs
@@ -0,0 +1,26 @@
+\ tag: misc useful functions
+\ 
+\ Misc useful functions
+\ 
+\ Copyright (C) 2003 Samuel Rydh
+\ 
+\ See the file "COPYING" for further information about
+\ the copyright and warranty status of this work.
+\ 
+
+\ -------------------------------------------------------------------------
+\ statically allocated lists
+\ -------------------------------------------------------------------------
+\ list-head should be a variable
+
+: list-add ( listhead -- )
+  here 0 , swap                  \ next, [data...]
+  ( here listhead )
+  begin dup @ while @ repeat !
+;
+
+: list-get ( listptr -- nextlistptr dictptr true | false )
+  @ dup if
+    dup na1+ true
+  then
+;