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