Return to tasker.fs CVS log

Up to [gforth] / gforth / arch / r8c

Annotation of gforth/arch/r8c/tasker.fs, revision 1.4

1.1       pazsan      1: \ Multitasker
                      2: 
                      3: rom
                      4: 
1.4     ! pazsan      5: Variable bgtask $20 cells allot
1.1       pazsan      6: : pause  bgtask @ 0= ?EXIT
                      7:   rp@ bgtask @ sp@ cell+ bgtask ! sp! rp! ;
1.4     ! pazsan      8: : task r> bgtask $20 cells + !
        !             9:   bgtask $20 cells + bgtask $10 cells + !
        !            10:   bgtask $10 cells + bgtask ! ;
1.2       pazsan     11: : pkey echo @ IF
                     12:      BEGIN pause key? UNTIL THEN (key) ;
1.1       pazsan     13: ' pkey is key
                     14: 
                     15: ram