cmp rax,1
jne p_lparen_loop
push rbx
- push qword ')'
+ push p_lbaren_rparen
push 1
DOFORTH p_strncmp
pop rax
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