izaya
/
collapseos
mirror of https://github.com/hsoft/collapseos.git
1
0
Fork 0
Code Issues Releases Wiki Activity
collapseos/blk/394

17 lines
304 B
Plaintext
Raw Normal View History

Move icore to blkfs The way is clear for complete stage1 bootstrapping on the RC2014 target!
2020-04-24 05:14:14 +10:00
: ABORT (resSP) QUIT ;
: = CMP NOT ;
: < CMP -1 = ;
: > CMP 1 = ;
: 0< 32767 > ;
Move all parsing words to Inner core This allows us to get rid of the (parse*) indirection.
2020-05-03 11:21:47 +10:00
: >= < NOT ;
: <= > NOT ;
: 0>= 0< NOT ;
Add words >< and =><=
2020-05-05 12:30:29 +10:00
( n l h -- f )
: >< 2 PICK > ( n l f ) ROT ROT > AND ;
: =><= 2 PICK >= ( n l f ) ROT ROT >= AND ;
Move all parsing words to Inner core This allows us to get rid of the (parse*) indirection.
2020-05-03 11:21:47 +10:00
( a -- a+1 c )
: C@+ DUP C@ SWAP 1+ SWAP ;
( c a -- a+1 )
: C!+ SWAP OVER C! 1+ ;