mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-27 18:38:06 +11:00
13 lines
231 B
Plaintext
13 lines
231 B
Plaintext
|
( The NOT is to normalize the negative/positive numbers to 1
|
||
|
|
or 0. Hadn't we wanted to normalize, we'd have written:
|
||
|
|
32 CMP 1 - )
|
||
|
|
: WS? 33 CMP 1+ NOT ;
|
||
|
|
|
||
|
|
: TOWORD
|
||
|
|
BEGIN
|
||
|
|
C< DUP WS? NOT IF EXIT THEN DROP
|
||
|
|
AGAIN
|
||
|
|
;
|
||
|
|
|
||
|
|
|