From: Ralph Ronnquist Date: Sat, 5 Jun 2021 10:51:58 +0000 (+1000) Subject: split . into .TEMP rendering, then stdout writing X-Git-Url: https://git.rrq.au/?a=commitdiff_plain;h=6a3b3b67e53e5d59085a9b9f50f13df50554b8f7;p=rrq%2Frrqforth.git split . into .TEMP rendering, then stdout writing --- diff --git a/stdio.asm b/stdio.asm index dd559c6..1926880 100644 --- a/stdio.asm +++ b/stdio.asm @@ -312,32 +312,46 @@ p_double_quote_endstream: WORD p_digits,'DIGITS',dovariable db '0123456789abcdef' - WORD p_dot,'.',fasm + WORD p_dot_temp,'.TEMP',fasm ;; ( v -- ) ;; Print TOP value as unsigned BASE integer pushr rsi - mov rax,qword [rsp] + mov rdi,p_pad_DFA + pop rax cmp rax,0 jge p_dot_positive cmp qword [p_base_DFA],10 jne p_dot_positive - push '-' - DOFORTH p_emit - mov rax,qword [rsp] + mov byte[rdi],'-' + inc rdi neg rax p_dot_positive: + call p_dot_pad_subr + xor rax,rax + stosb + push p_pad_DFA + sub rdi,p_pad_DFA + push rdi + DOFORTH p_str2temp + dec qword [rsp] ; don't count the ending NUL + popr rsi + next + +p_dot_pad_subr: ; xor rdx,rdx div qword [p_base_DFA] ; rdx:rax / BASE => q=rax, r=rdx - mov qword [rsp],rdx cmp rax,0 je p_dot_remainder - push rax - DOFORTH p_dot -p_dot_remainder: + push rdx + call p_dot_pad_subr pop rdx +p_dot_remainder: xor rax,rax mov al,[p_digits_DFA+rdx] - push rax - DOFORTH p_emit - popr rsi - next + stosb + ret + + WORD p_dot,'.' + ;; ( v -- ) + ;; Print value to stdout + dq p_dot_temp, p_literal,1, p_fdtell, p_exit