mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-06 02:20:58 +11:00
44403c3d4c
The way is clear for complete stage1 bootstrapping on the RC2014 target!
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
|
|
;
|
|
|
|
|