level0/syssrc/ans-math-shit.f

   1 ;; Native x86 GNU/Linux Forth System, Direct Threaded Code
   2 ;; WITHIN
   3 ;;
   4 ;; Copyright (C) 2020 Ketmar Dark // Invisible Vector
   5 ;;
   6 ;; This program is free software: you can redistribute it and/or modify
   7 ;; it under the terms of the GNU General Public License as published by
   8 ;; the Free Software Foundation, version 3 of the License ONLY.
   9 ;;
  10 ;; This program is distributed in the hope that it will be useful,
  11 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  12 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13 ;; GNU General Public License for more details.
  14 ;;
  15 ;; You should have received a copy of the GNU General Public License
  16 ;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
  17
  18 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  19 ;; ANS morons
  20 alias 1+ CHAR+  ( count -- count+1 )
  21 alias 1- CHAR-  ( count -- count-1 )
  22 alias NOOP CHARS  ( count -- count )
  23 alias NOOP ALIGN  ( -- )
  24 alias NOOP ALIGNED  ( addr -- addr )