anchor.diff:  \  Round-robin list task handling - do not use in IRQ !
   \ -------------------------------------------------------
   
  +\ Change state of currently running task
   : stop    ( -- ) false task-state ! pause ; \ Stop current task
   : running ( -- ) true task-state ! pause ;  \ Mark current task as running
   : wfi     ( -- ) 1 task-state ! pause ;     \ Mark task as waiting-for-interrupt
  +
  +\ Enable/Disable Multitasking
   : multitask  ( -- ) ['] (pause) hook-pause ! ;
   : singletask ( -- ) [']  nop    hook-pause ! ;
   
  
positive.code: 
  \ Internal stucture of task memory:
  \  0: Pointer to next task
  \  4: Task currently active ? (-1 ACTIVE, 0 SLEEPING, 1 WAITING-FOR-INTERRUPT)
  \  8: Saved stack pointer
  \ 12: Handler for Catch/Throw
  \  Parameter stack space
  
negative.code: \  Lowpower mode
  \ --------------------------------------------------
  
  : up-alone? ( -- ? ) \ Checks if all other tasks are currently in stopped or waiting for next interrupt
    next-task @ \ Current task is in UP. Start with the next one.
    begin
      dup up @ <> \ Scan the whole round-robin list until back to current task.
  