git.gag.com Git - debian/yforth/blob - doublee.c

   1 /* yForth? - A Forth interpreter written in ANSI C
   2  * Copyright (C) 2012 Luca Padovani
   3  *
   4  * This program is free software: you can redistribute it and/or modify
   5  * it under the terms of the GNU General Public License as published by
   6  * the Free Software Foundation, either version 3 of the License, or
   7  * (at your option) any later version.
   8  *
   9  * This program is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12  * GNU General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU General Public License
  15  * along with this program.  If not, see <http://www.gnu.org/licenses/>.
  16  * ------------------------------------------------------------------------
  17  * Module name:     doublee.c
  18  * Abstract:        double-extension word set
  19  */
  20
  21 #include "yforth.h"
  22 #include "doublee.h"
  23
  24 /**************************************************************************/
  25 /* WORDS ******************************************************************/
  26 /**************************************************************************/
  27
  28 void _two_rote() {
  29         register DCell d1 = GET_DCELL(sp);
  30         register DCell d2 = GET_DCELL(sp + 2);
  31         register DCell d3 = GET_DCELL(sp + 4);
  32         PUT_DCELL(sp, d3);
  33         PUT_DCELL(sp + 2, d1);
  34         PUT_DCELL(sp + 4, d2);
  35 }
  36
  37 void _d_u_less() {
  38         register UDCell ud1 = GET_DCELL(sp + 2);
  39         register UDCell ud2 = GET_DCELL(sp);
  40         sp += 3;
  41         sp[0] = FFLAG(ud1 < ud2);
  42 }
  43