mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-25 18:48:09 +11:00
44403c3d4c
The way is clear for complete stage1 bootstrapping on the RC2014 target!
11 lines
153 B
Plaintext
11 lines
153 B
Plaintext
: SCPY
|
|
BEGIN ( a )
|
|
DUP C@ ( a c )
|
|
DUP C, ( a c )
|
|
NOT IF DROP EXIT THEN
|
|
1+ ( a+1 )
|
|
AGAIN
|
|
;
|
|
|
|
|