version 1.106, 2004/08/23 14:03:53
|
version 1.107, 2004/11/11 20:13:53
|
Line 104 Defer source ( -- c-addr u ) \ core
|
Line 104 Defer source ( -- c-addr u ) \ core
|
\ number? number 23feb93py |
\ number? number 23feb93py |
|
|
hex |
hex |
const Create bases 10 , 2 , A , 100 , |
const Create bases 0A , 10 , 2 , 0A , 100 , |
\ 16 2 10 character |
\ 10 16 2 10 character |
|
|
\ !! protect BASE saving wrapper against exceptions |
\ !! protect BASE saving wrapper against exceptions |
: getbase ( addr u -- addr' u' ) |
: getbase ( addr u -- addr' u' ) |
over c@ [char] $ - dup 4 u< |
over c@ [char] # - dup 5 u< |
IF |
IF |
cells bases + @ base ! 1 /string |
cells bases + @ base ! 1 /string |
ELSE |
ELSE |