|
|
@@ -2,14 +2,11 @@ |
|
|
|
: ERR LIT< (print) (find) IF EXECUTE THEN ABORT ; |
|
|
|
: = 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 ; |
|
|
|
: >< ( 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+ ; |
|
|
|
( a -- a-1 c ) |
|
|
|
: C@- DUP C@ SWAP 1- SWAP ; |
|
|
|
( c a -- a-1 ) |
|
|
|
: C!- SWAP OVER C! 1- ; |
|
|
|
: MIN ( n n - n ) 2DUP > IF SWAP THEN DROP ; |
|
|
|
: MAX ( n n - n ) 2DUP < IF SWAP THEN DROP ; |
|
|
|
: C@+ ( a -- a+1 c ) DUP C@ SWAP 1+ SWAP ; |
|
|
|
: C!+ ( c a -- a+1 ) SWAP OVER C! 1+ ; |
|
|
|
: C@- ( a -- a-1 c ) DUP C@ SWAP 1- SWAP ; |
|
|
|
: C!- ( c a -- a-1 ) SWAP OVER C! 1- ; |