version 1.10, 2007/10/17 15:50:01
|
version 1.11, 2007/10/17 16:05:22
|
Line 83 Defer -trailing-garbage ( xc-addr u1 --
|
Line 83 Defer -trailing-garbage ( xc-addr u1 --
|
over >r +x/string |
over >r +x/string |
r> xc@ ; |
r> xc@ ; |
|
|
Create xholdbuf 8 allot |
|
: xhold ( xc -- ) |
: xhold ( xc -- ) |
\G Put xc into the pictured numeric output |
\G Put xc into the pictured numeric output |
xholdbuf 8 xc!+? 2drop |
dup xc-size negate chars holdptr +! |
BEGIN 1- dup xholdbuf u>= WHILE dup c@ hold REPEAT drop ; |
holdptr @ dup holdbuf u< -&17 and throw |
|
8 xc!+? 2drop drop ; |
|
|
\ fixed-size versions of these words |
\ fixed-size versions of these words |
|
|