X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=rrqforth.asm;h=96b90837b5843ff0c3ee817b00c5d410e235144d;hb=0b2424d77066d82aadd748ba74dc35eb81dde81b;hp=b06fed1062ced657472f3362bc9071ed14d897e1;hpb=42844a6fe395162a374bd7bb6e8ed9a04b8d580c;p=rrq%2Frrqforth.git

diff --git a/rrqforth.asm b/rrqforth.asm
index b06fed1..96b9083 100644
--- a/rrqforth.asm
+++ b/rrqforth.asm
@@ -190,7 +190,7 @@ p_lparen_loop:
 	cmp rax,1
 	jne p_lparen_loop
 	push rbx
-	push qword ')'
+	push p_lbaren_rparen
 	push 1
 	DOFORTH p_strncmp
 	pop rax
@@ -199,7 +199,8 @@ p_lparen_loop:
 p_lparen_exit:
 	popr rsi
 	next
-	
+p_lbaren_rparen: db ')',0
+
 ;;; ******** The main entry point. ********
 ;;; This could be set up as a WORD but it isn't