added open-file" and load-file"

[rrq/rrqforth.git] / math.asm

diff --git a/math.asm b/math.asm
index 5547b57c136372053e937d9ad82a61449d4d9c4a..3b82bd49ccef3e290bc65a6e324ab17fc576e4a1 100644 (file)
--- a/math.asm
+++ b/math.asm
@@ -16,26 +16,10 @@
 
        WORD p_mult, '*',fasm
        ;; ( n1 n2 -- n3 )
-       ;; Multiply n1 by n2 giving the product n3.
-       ;; [rsp{8}] * [rsp+8{8}]
-       ;; dd00 = [rsp+4{4}]*[rsp+12{4}] ignored
-       ;; needs checking !!
-       ;; 
-       ;; 0cc0 = [rsp{4}]*[rsp+12{4}]
-       mov eax, dword [rsp]
-       imul dword [rsp+12]
-       mov ebx,eax
-       ;; 0bb0 = [rsp+4{4}]*[rsp+8{4}]
-       mov eax, dword [rsp+4]
-       imul dword [rsp+8]
-       add ebx, eax
-       ;; 00aa = [rsp{4}]*[rsp+8{4}]
-       mov eax, dword [rsp]
-       imul dword [rsp+8]
-       add ebx, edx
-       shl rbx,32
-       mov eax,eax             ; ensure zero-extending eax
-       add rax, rbx
+       ;; multiply n1 * n2 to n3 ignoring overflow
+       pop rax
+       pop rbx
+       imul rax,rbx
        push rax
        next
 
@@ -56,4 +40,24 @@ p_abs_end:
        mov qword [rsp],rax
        next
 
-       
+       WORD p_divmod,'/MOD',fasm
+       ;; ( x y -- q r )
+       ;; divide signed x/y giving quotient q and remainder r
+       pop rbx
+       pop rax
+       xor rdx,rdx
+       idiv rbx
+       push rax
+       push rdx
+       next
+
+       WORD p_div,'/',fasm
+       ;; ( x y -- q )
+       ;; divide signed x/y giving quotient q and discard remainder
+       pop rbx
+       pop rax
+       xor rdx,rdx
+       idiv rbx
+       push rax
+       next
+