alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

More shuffling.

Browse Source
This commit is contained in:
Brad Nelson
2022-07-14 11:04:18 -07:00
parent 3da2f4bfd3
commit 8066bfb2e8
14 changed files with 53 additions and 45 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
common/tasks.fs
View File

@ -14,10 +14,12 @@
( Cooperative Tasks )
vocabulary tasks tasks definitions
vocabulary tasks tasks definitions also internals
variable task-list
: .tasks task-list @ begin dup 2 cells - see. @ dup task-list @ = until drop ;
forth definitions tasks also internals
: pause
@ -51,4 +53,4 @@ DEFINED? ms-ticks [IF]
tasks definitions
0 0 0 task main-task main-task start-task
forth definitions
only forth definitions