From f92a7c96cb562f8c9d9e5e6c86cf9770a09edda1 Mon Sep 17 00:00:00 2001 From: Ralph Ronnquist Date: Sun, 6 Jun 2021 09:39:57 +1000 Subject: [PATCH] fixed (comma) --- compile.asm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/compile.asm b/compile.asm index be5a908..72a8763 100644 --- a/compile.asm +++ b/compile.asm @@ -18,7 +18,7 @@ mov qword [rbx+24],rcx ; PFA (length) pop rsi ; chars* (source) lea rdi,[rbx+32] ; (dest) - ;; clear DF + cld p_create_COPY: movsb dec rcx @@ -60,8 +60,8 @@ p_quote_end: WORD p_comma,',' ;; ( v -- ) ;; Put cell value onto the heap and advance "HERE" - dq p_here, p_put, p_literal, 8, p_here, p_put_plus, p_exit - + dq p_here, p_literal, 8, p_get_n_increment, p_put, p_exit + WORD p_Ccomma,'C,' ;; ( c -- ) ;; Put byte value onto the heap and advance "HERE" -- 2.39.2