update

[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
 
-       WORD p_false, 'FALSE',fasm
+       WORD p_false, 'FALSE',dovalue
        ;; ( -- 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)
-       push qword -1
-       next
+       dq -1
 
 pop_false_next:
        mov qword [rsp],0