X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=logic.asm;h=53673a8272dc88524a9dbb0b334579832ed18e76;hb=1650b06e609ebb40a1fcd3df54a3147f41f42138;hp=26963322797442ab1ddbb5a0afd485401b247301;hpb=bcb53ba8222ecba94f82880c98a23f2fc8a66161;p=rrq%2Frrqforth.git

diff --git a/logic.asm b/logic.asm
index 2696332..53673a8 100644
--- 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