1 /* yForth? - Written by Luca Padovani (C) 1996/97
2 * ------------------------------------------------------------------------
3 * This software is FreeWare as long as it comes with this header in each
4 * source file, anyway you can use it or any part of it whatever
5 * you want. It comes without any warranty, so use it at your own risk.
6 * ------------------------------------------------------------------------
7 * Module name: double.h
8 * Abstract: include file for "double-numbers" word set
28 /**************************************************************************/
29 /* PROTOTYPES *************************************************************/
30 /**************************************************************************/
32 code(two_constant, "2constant", 0)
33 code(two_literal, "2literal", COMP_ONLY | IMMEDIATE)
34 code(two_variable, "2variable", 0)
36 code(d_minus, "d-", 0)
38 code(d_dot_r, "d.r", 0)
39 code(d_zero_less, "d0<", 0)
40 code(d_zero_equals, "d0=", 0)
41 code(d_two_star, "d2*", 0)
42 code(d_two_slash, "d2/", 0)
43 code(d_less_than, "d<", 0)
44 code(d_equals, "d=", 0)
49 code(dnegate, "dnegate", 0)
50 code(m_star_slash, "m*/", 0)