OSDN Git Service

v 162, added Conditionnal Compilation and bootloader
[fast-forth/master.git] / ADDON / ARITHMETIC.asm
index a32394a..45c6f6a 100644 (file)
 ; along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
 
-;https://forth-standard.org/standard/core/NIP
-;CE NIP    x1 x2 -- x2
-            FORTHWORD "NIP"
-NIP         ADD     #2,PSP          ; 1
-            mNEXT                   ; 4
-
-;https://forth-standard.org/standard/core/StoD
-;C S>D    n -- d          single -> double prec.
-            FORTHWORD "S>D"
-STOD:       SUB     #2,PSP
-            MOV     TOS,0(PSP)
-            JMP     ZEROLESS
-
     .IFDEF MPY
 
 ;https://forth-standard.org/standard/core/UMTimes