1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-25 17:08:07 +11:00
collapseos/blk/401
Virgil Dupras 44403c3d4c Move icore to blkfs
The way is clear for complete stage1 bootstrapping on the RC2014
target!
2020-04-23 15:14:14 -04:00

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
;