\ Based on HMSL Forth
\
\ Author: Phil Burk
-\ Copyright 1994 3DO, Phil Burk, Larry Polansky, Devid Rosenboom
+\ Copyright 1994 3DO, Phil Burk, Larry Polansky, David Rosenboom
\
\ The pForth software code is dedicated to the public domain,
\ and any third party may reproduce, distribute and modify
2* swap
;
+: D= ( xd1 xd2 -- flag )
+ rot = -rot = and
+;
+
+: D< ( d1 d2 -- flag )
+ d- nip 0<
+;
+
+: D> ( d1 d2 -- flag )
+ 2swap d<
+;
+
\ define some useful constants ------------------------------
1 0= constant FALSE
0 0= constant TRUE