ADDON/PORTABILITY.asm

   1 ; -*- coding: utf-8 -*-
   2 ; http://patorjk.com/software/taag/#p=display&f=Banner&t=Fast Forth
   3
   4 ; Fast Forth For Texas Instrument MSP430FRxxxx FRAM devices
   5 ; Copyright (C) <2015>  <J.M. THOORENS>
   6 ;
   7 ; This program is free software: you can redistribute it and/or modify
   8 ; it under the terms of the GNU General Public License as published by
   9 ; the Free Software Foundation, either version 3 of the License, or
  10 ; (at your option) any later version.
  11 ;
  12 ; This program is distributed in the hope that it will be useful,
  13 ; but WITHOUT ANY WARRANTY; without even the implied warranty of
  14 ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15 ; GNU General Public License for more details.
  16 ;
  17 ; You should have received a copy of the GNU General Public License
  18 ; along with this program.  If not, see <http://www.gnu.org/licenses/>.
  19
  20
  21 ;https://forth-standard.org/standard/core/CHARS
  22 ;C CHARS    n1 -- n2            chars->adrs units
  23             FORTHWORD "CHARS"
  24             mNEXT
  25
  26 ;https://forth-standard.org/standard/core/CHARPlus
  27 ;C CHAR+    c-addr1 -- c-addr2   add char size
  28             FORTHWORD "CHAR+"
  29             ADD     #1,TOS
  30             mNEXT
  31
  32 ;https://forth-standard.org/standard/core/CELLS
  33 ;C CELLS    n1 -- n2            cells->adrs units
  34             FORTHWORD "CELLS"
  35             ADD     TOS,TOS
  36             mNEXT
  37
  38 ;https://forth-standard.org/standard/core/CELLPlus
  39 ;C CELL+    a-addr1 -- a-addr2      add cell size
  40             FORTHWORD "CELL+"
  41             ADD     #2,TOS
  42             mNEXT
  43