### Diff for /gforth/extend.fs between versions 1.39 and 1.40

version 1.39, 2000/08/08 12:37:05 version 1.40, 2000/08/09 20:04:05
Line 43  decimal Line 43  decimal
' drop alias d>s ( d -- n ) \ double            d_to_s  ' drop alias d>s ( d -- n ) \ double            d_to_s

: m*/ ( d1 n2 u3 -- dquot ) \ double m-star-slash  : m*/ ( d1 n2 u3 -- dquot ) \ double m-star-slash
\G dquot=(d1*n2)/u3, with the intermediate result being triple-precision.
\G In ANS Forth u3 can only be a positive signed number.
>r s>d >r abs -rot      >r s>d >r abs -rot
s>d r> xor r> swap >r >r dabs rot tuck um* 2swap um*      s>d r> xor r> swap >r >r dabs rot tuck um* 2swap um*
swap >r 0 d+ r> -rot r@ um/mod -rot r> um/mod nip swap      swap >r 0 d+ r> -rot r@ um/mod -rot r> um/mod nip swap
Line 100  decimal Line 102  decimal

\ ERASE                                                 17may93jaw  \ ERASE                                                 17may93jaw

: erase ( addr len -- ) \ core-ext  : erase ( addr u -- ) \ core-ext
\G If @i{len}>0, clear all bits in each location of a memory region      \G Clear all bits in @i{u} aus starting at @i{addr}.
\ !! dependence on "1 chars 1 ="      \ !! dependence on "1 chars 1 ="
( 0 1 chars um/mod nip )  0 fill ;      ( 0 1 chars um/mod nip )  0 fill ;
: blank ( c-addr u -- ) \ string  : blank ( c-addr u -- ) \ string
\G If @i{u}>0, store the character value for a space in each      \G Store the space character into @i{u} chars starting at @i{c-addr}.
\G location of a memory region