[gforth] / gforth / tasker.fs  

gforth: gforth/tasker.fs

Diff for /gforth/tasker.fs between version 1.8 and 1.9

version 1.8, Sat Sep 23 15:46:59 2000 UTC version 1.9, Tue Jun 12 09:29:10 2001 UTC
Line 54 
Line 54 
   dup r@ user' fp0   + ! over -    dup r@ user' fp0   + ! over -
   dup r@ user' sp0   + ! over -    dup r@ user' sp0   + ! over -
   dup r@ user' normal-dp + dup >r !    dup r@ user' normal-dp + dup >r !
    r> r@ user' dpp  + ! + $10 +     r> r@ user' dpp  + ! 2drop
       r@ user' >tib + !      0 r@ user' current-input + !
   r> dup 2dup 2! dup sleep ;    r> dup 2dup 2! dup sleep ;
   
 : kill-task  : kill-task

Generate output suitable for use with a patch program
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help