digit?
convert character to number, set flag if successful
Stackeffects
( c base -- number flag )R( -- )
Definition
: digit?
>r dup (literal) '9' >
(?branch) PFA_DIGITQ1
(literal) $00DF and (literal) 'A' (literal) 10 >r
(branch) PFA_DIGITQ2
PFA_DIGITQ1:
(literal) '0' 0 >r
PFA_DIGITQ2:
- r> + dup 0 r> within
;