\ 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
+;
+
\ define some useful constants ------------------------------
1 0= constant FALSE
0 0= constant TRUE