projects
/
rrq
/
rrqforth.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
ensuring full cell arithmetics
[rrq/rrqforth.git]
/
math.asm
diff --git
a/math.asm
b/math.asm
index d25d14cd3da5aa77ce1082d63df771280c38ac85..5547b57c136372053e937d9ad82a61449d4d9c4a 100644
(file)
--- a/
math.asm
+++ b/
math.asm
@@
-4,14
+4,14
@@
;; ( n1 n2 -- n3 )
;; n3 is the sum of n1 and n2
pop rax
;; ( n1 n2 -- n3 )
;; n3 is the sum of n1 and n2
pop rax
- add [rsp],rax
+ add
qword
[rsp],rax
next
WORD p_minus, '-',fasm
;; ( n1 n2 -- n3 )
;; n3 is the result of subtracting n2 from n1
pop rax
next
WORD p_minus, '-',fasm
;; ( n1 n2 -- n3 )
;; n3 is the result of subtracting n2 from n1
pop rax
- sub [rsp], rax
+ sub
qword
[rsp], rax
next
WORD p_mult, '*',fasm
next
WORD p_mult, '*',fasm