projects
/
rrq
/
rrqforth.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
added / (div) primitive
[rrq/rrqforth.git]
/
logic.asm
diff --git
a/logic.asm
b/logic.asm
index 26963322797442ab1ddbb5a0afd485401b247301..53673a8272dc88524a9dbb0b334579832ed18e76 100644
(file)
--- a/
logic.asm
+++ b/
logic.asm
@@
-27,17
+27,15
@@
not qword [rsp]
next
not qword [rsp]
next
- WORD p_false, 'FALSE',
fasm
+ WORD p_false, 'FALSE',
dovalue
;; ( -- 0 )
;; Push a false flag, 0.
;; ( -- 0 )
;; Push a false flag, 0.
- push qword 0
- next
+ dq 0
- WORD p_true, 'TRUE',
fasm
+ WORD p_true, 'TRUE',
dovalue
;; ( -- true )
;; Return a true flag, -1. (non-zero)
;; ( -- true )
;; Return a true flag, -1. (non-zero)
- push qword -1
- next
+ dq -1
pop_false_next:
mov qword [rsp],0
pop_false_next:
mov qword [rsp],0