2020-04-24 05:14:14 +10:00
|
|
|
: ABORT (resSP) QUIT ;
|
2020-05-15 01:57:26 +10:00
|
|
|
: ERR LIT< (print) (find) IF EXECUTE THEN ABORT ;
|
2020-05-07 10:37:08 +10:00
|
|
|
: = CMP NOT ; : < CMP -1 = ; : > CMP 1 = ;
|
|
|
|
|
: 0< 32767 > ; : >= < NOT ; : <= > NOT ; : 0>= 0< NOT ;
|
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 ;
|
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+ ;
|
2020-05-07 10:37:08 +10:00
|
|
|
( a -- a-1 c )
|
|
|
|
|
: C@- DUP C@ SWAP 1- SWAP ;
|
|
|
|
|
( c a -- a-1 )
|
|
|
|
|
: C!- SWAP OVER C! 1- ;
|
