From: Ralph Ronnquist Date: Sat, 22 May 2021 11:36:45 +0000 (+1000) Subject: simplify EMIT and add "dot" for number display X-Git-Url: https://git.rrq.au/?a=commitdiff_plain;h=5e1475bc1afeecd3bd9388cac34d937ea67c2a68;p=rrq%2Frrqforth.git simplify EMIT and add "dot" for number display --- diff --git a/stdio.asm b/stdio.asm index 5767d8b..a6cf512 100644 --- a/stdio.asm +++ b/stdio.asm @@ -32,7 +32,7 @@ ;;; * block address ;;; * -1 ;;; * size of block -;;; * current read position (starts at 8 = after block size) +;;; * current read position WORD p_stream,'STREAM',fasm ;; ( fd size -- addr ) or ( block -1 -- addr ) @@ -187,19 +187,17 @@ p_read_word_nomore: popr rsi next -p_emit_buffer: dq 0 - WORD p_emit,'EMIT',fasm ;; ( c -- ) ;; Write byte to stdout pushr rsi - pop rax - mov [p_emit_buffer],al + mov rax,rsp push 1 - push p_emit_buffer + push rax push 1 DOFORTH sys_write - pop rax + pop rax ; ignore return value + pop rax ; drop input data popr rsi next @@ -212,4 +210,36 @@ p_emit_buffer: dq 0 ;; ( -- c ) ;; Pushes a space character on the stack dq 10 - + + WORD p_digits,'DIGITS',dovariable + db '0123456789abcdef' + + WORD p_dot,'.',fasm + ;; ( v -- ) + ;; Print TOP value as unsigned BASE integer + pushr rsi + mov rax,qword [rsp] + 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] + neg rax +p_dot_positive: + 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: + pop rdx + xor rax,rax + mov al,[p_digits_DFA+rdx] + push rax + DOFORTH p_emit + popr rsi + next