meta/meta-70-tc-interp-30-math.f

   1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   2 ;; UrForth level 1: self-hosting 32-bit Forth compiler
   3 ;; Metacompiler
   4 ;; Copyright (C) 2020 Ketmar Dark // Invisible Vector
   5 ;; GPLv3 ONLY
   6 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   7
   8 : +  forth:+ ;
   9 : -  forth:- ;
  10 : *  forth:* ;
  11 : /  forth:/ ;
  12 : */  forth:*/ ;
  13 : MOD  forth:mod ;
  14 : U*  forth:U* ;
  15 : U/  forth:U/ ;
  16 \ : U*/  forth:U*/ ;
  17 : UMOD  forth:UMOD ;
  18 : lshift  forth:lshift ;
  19 : rshift  forth:rshift ;
  20 : CELL  forth:cell ;
  21 : CELLS  forth:cells ;
  22 : CELLS^  forth:cells^ ;
  23 : CELL+  forth:cell+ ;
  24 : CELL-  forth:cell- ;
  25 : +CELLS  forth:+cells ;
  26 : -CELLS  forth:-cells ;
  27 : OR  forth:or ;
  28 : AND  forth:and ;
  29 : ~AND  forth:~and ;