: MOD /MOD DROP ;
: */ * / ;
-: '\n' 10 ;
-: BL 32 ;
-
-: CR '\n' emit ;
-: SPACE BL emit ;
-
-: NEGATE 0 swap - ;
+: NEGATE 0 SWAP - ;
: TRUE -1 ;
: FALSE 0 ;
: DEPTH PSP@ PSP0 @ - ;
+: '\n' 10 ;
+: BL 32 ;
+
: LITERAL IMMEDIATE ' LIT , , ;
: ':' [ CHAR : ] LITERAL ;
: '-' [ CHAR - ] LITERAL ;
: '.' [ CHAR . ] LITERAL ;
+: CR '\n' emit ;
+: SPACE BL emit ;
+
: [COMPILE] IMMEDIATE
WORD \ get the next word
FIND \ find it in the dictionary
: HEX ( -- ) 16 BASE ! ;
( Compute absolute value. )
-: ABS ( n -- m)
+: ABS ( n -- |n| )
dup 0< if
negate
then
;
+: MAX ( n m -- max )
+ 2dup - 0< if
+ swap drop
+ else
+ drop
+ then
+;
+
+: MIN ( n m -- max )
+ 2dup - 0> if
+ swap drop
+ else
+ drop
+ then
+;
+
( PRINTING NUMBERS ---------------------------------------------------------------------- )
( This is the underlying recursive definition of U. )