collapseos/blk/394

: ABORT (resSP) QUIT ;

: = CMP NOT ;
: < CMP -1 = ;
: > CMP 1 = ;
: 0< 32767 > ;
: >= < NOT ;
: <= > NOT ;
: 0>= 0< NOT ;
( n l h -- f )
: >< 2 PICK > ( n l f ) ROT ROT > AND ;
: =><= 2 PICK >= ( n l f ) ROT ROT >= AND ;
( a -- a+1 c )
: C@+ DUP C@ SWAP 1+ SWAP ;
( c a -- a+1 )
: C!+ SWAP OVER C! 1+ ;
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+ ;`