mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-05 15:10:55 +11:00
3d908cef3a
This allows us to get rid of the (parse*) indirection.
15 lines
206 B
Plaintext
15 lines
206 B
Plaintext
: ABORT (resSP) QUIT ;
|
|
|
|
: = CMP NOT ;
|
|
: < CMP -1 = ;
|
|
: > CMP 1 = ;
|
|
: 0< 32767 > ;
|
|
: >= < NOT ;
|
|
: <= > NOT ;
|
|
: 0>= 0< NOT ;
|
|
|
|
( a -- a+1 c )
|
|
: C@+ DUP C@ SWAP 1+ SWAP ;
|
|
( c a -- a+1 )
|
|
: C!+ SWAP OVER C! 1+ ;
|