Return to extend.fs CVS log | Up to [gforth] / gforth |
version 1.5, 1994/08/25 15:25:22 | version 1.6, 1994/08/31 19:42:45 |
---|---|
Line 75 decimal | Line 75 decimal |
\ ROLL 17may93jaw | \ ROLL 17may93jaw |
: roll dup 1+ pick >r | : roll dup 1+ pick >r |
cells sp@ 2 cells + dup cell+ rot move drop r> ; | cells sp@ cell+ dup cell+ rot move drop r> ; |
\ SOURCE-ID SAVE-INPUT RESTORE-INPUT 11jun93jaw | \ SOURCE-ID SAVE-INPUT RESTORE-INPUT 11jun93jaw |