From: Ralph Ronnquist Date: Tue, 18 May 2021 08:21:22 +0000 (+1000) Subject: adding TELL and EMIT X-Git-Url: https://git.rrq.au/?a=commitdiff_plain;h=cf11109f96ba17c7c7a74a8fd3c31c985b8938d1;p=rrq%2Frrqforth.git adding TELL and EMIT --- diff --git a/stdio.asm b/stdio.asm index f94b0cc..7cf148d 100644 --- a/stdio.asm +++ b/stdio.asm @@ -164,3 +164,34 @@ p_read_word_nomore: pop rax popr rsi next + + WORD p_tell,'TELL',fasm + ;; ( chars* n -- ) + ;; Write n bytes from chars* to stdout + pushr rsi + pop rbx + pop rax + push 1 + push rax + push rbx + DOFORTH sys_write + pop rax + 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 + push 1 + push p_emit_buffer + push 1 + DOFORTH sys_write + pop rax + popr rsi + next +