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: doublee.c
8 * Abstract: double-extension word set
14 /**************************************************************************/
15 /* WORDS ******************************************************************/
16 /**************************************************************************/
19 register DCell d1 = GET_DCELL(sp);
20 register DCell d2 = GET_DCELL(sp + 2);
21 register DCell d3 = GET_DCELL(sp + 4);
23 PUT_DCELL(sp + 2, d1);
24 PUT_DCELL(sp + 4, d2);
28 register UDCell ud1 = GET_DCELL(sp + 2);
29 register UDCell ud2 = GET_DCELL(sp);
31 sp[0] = FFLAG(ud1 < ud2);