From: Ralph Ronnquist Date: Sat, 5 Jun 2021 23:39:57 +0000 (+1000) Subject: fixed (comma) X-Git-Url: https://git.rrq.au/?a=commitdiff_plain;h=f92a7c96cb562f8c9d9e5e6c86cf9770a09edda1;p=rrq%2Frrqforth.git fixed (comma) --- 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"