From 7789b4e182a7359eb86bc7a374393a29f903d132 Mon Sep 17 00:00:00 2001 From: Brad Nelson Date: Sun, 9 May 2021 16:36:01 -0700 Subject: [PATCH] Added .tasks --- ueforth/common/tasks.fs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/ueforth/common/tasks.fs b/ueforth/common/tasks.fs index 8bb0191..8b606db 100644 --- a/ueforth/common/tasks.fs +++ b/ueforth/common/tasks.fs @@ -31,6 +31,8 @@ forth definitions tasks also internals then ; +: .tasks task-list @ begin dup 2 cells - see. @ dup task-list @ = until drop ; + DEFINED? ms-ticks [IF] : ms ( n -- ) ms-ticks >r begin pause ms-ticks r@ - over >= until rdrop drop ; [THEN]