forked from KolibriOS/kolibrios
9 lines
139 B
Forth
9 lines
139 B
Forth
|
|
\ from gforth
|
|
: REPLACE-WORD ( by-xt what-xt )
|
|
[ HEX ] E9 [ DECIMAL ] OVER C! \ JMP ...
|
|
1+ DUP >R
|
|
CELL+ -
|
|
R> !
|
|
;
|