VolksForth/8080/AmstradCPC/TASKER.SCR

\\ Multitasker                                           11Nov86                                                                Dieses File enthaelt den Multitasker des volksFORTHs.           Er ist ein Round-Robin-Multitasker, d.h. jede Task behaelt      die Kontrolle ueber den Prozessor solange, bis sie sie          ausdruecklich abgibt.                                           Hintergrundtasks im volksFORTH koennen durch Semaphore geordnet auf den Massenspeicher und auf den Drucker zugreifen.                                                                           In Verbindung mit dem Printer-Interface ist es moeglich         Files im Hintergrund auszudrucken. (SPOOL)                                                                                                                                                                                                                                                                                                                                                      \ Multitasker Loadscreen                       27Jun86   20Nov87                                                                Onlyforth                                                                                                                       \needs multitask   1 +load                                                                                                      02 05 +thru    \ Tasker                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         \ stop singletask multitask                   28Aug86    20Nov87                                                                Code stop   UP lhld   0 ( nop )  M mvi                          Label taskpause                                                    IP push   RP lhld   H push   UP lhld   6 D lxi   D dad   xchg   H L mov   SP dad   xchg   E M mov   H inx   D M mov             UP lhld   H inx   pchl                                       end-code                                                                                                                        : singletask  [ ' pause @ ] Literal  ['] pause ! ;                                                                              : multitask   [ taskpause ] Literal  ['] pause ! ;                                                                                                                                                                                                                                                                              \ pass activate                                          28Aug86                                                                : pass   ( n0 ... nr-1 Taddr r -- )                              BEGIN  [ rot ( Trick !! ) ]                                      swap $F7 over c!        \ awake Task  ( rst 6 )                 r> -rot                 \ Stack:  IP r addr                     8 + >r                  \ s0 of Task                            r@ 2+ @ swap            \ Stack:  IP r0 r                       2+ 2*                   \ bytes on Taskstack incl. r0 & IP      r@ @ over -             \ new SP                                dup r> 2- !             \ into Ssave                            swap bounds  ?DO  I !  2 +LOOP  ;  restrict                                                                                   : activate   ( Taddr -- )                                        0 [ -rot  ( Trick !! ) ]  REPEAT ; restrict