From 3a3dcb2bde3d3497a8f894c6d0b4406be8da0996 Mon Sep 17 00:00:00 2001
From: ketmar <ketmar@ketmar.no-ip.org>
Date: Thu, 23 Jul 2020 17:24:47 +0000
Subject: [PATCH] dsforth: mode 8x8 driver code

FossilOrigin-Name: fc871e2f367ea5ab8ae8f9be280314d6c6dbfc2fb4fb169aaa02c0a221a318b8
---
 dsforth/main_emit6.zas | 67 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 67 insertions(+)

diff --git a/dsforth/main_emit6.zas b/dsforth/main_emit6.zas
index 91b4d82..ea777bd 100644
--- a/dsforth/main_emit6.zas
+++ b/dsforth/main_emit6.zas
@@ -828,6 +828,27 @@ $FORTH_CODE_WORD CR8
   jr    fword_emit_lf
 $FORTH_END_CODE_WORD CR8
 
+$FORTH_CODE_WORD SPACE8
+;; k8
+;; ( -- )
+  ld    l,32
+  push  hl
+  jp    fword_xemit8
+$FORTH_END_CODE_WORD SPACE8
+
+$FORTH_WORD SPACES8
+;; k8
+;; ( n -- )
+  DUP 1- 0< 0BRANCH fword_spaces8_ok
+    DROP ;S
+fword_spaces8_ok:
+  0 (DO)
+fword_spaces8_loop:
+    SPACE8
+  (LOOP) fword_spaces8_loop
+  ;S
+$FORTH_END_WORD SPACES8
+
 $FORTH_WORD TYPE8
 ;; AberSoft
 ;; ( addr len -- )
@@ -868,6 +889,16 @@ $FORTH_CODE_WORD AT8
   jp    i_next
 $FORTH_END_CODE_WORD AT8
 
+$FORTH_WORD KEY8
+;; k8
+;; ( -- c )
+  (KEY-SHOW-CURSOR) C@
+  (KEY-SHOW-CURSOR) 0C!
+  KEY
+  SWAP (KEY-SHOW-CURSOR) C!
+  ;S
+$FORTH_END_WORD KEY8
+
 $FORTH_WORD (.8")  ;;"
 ;; k8
 ;; ( -- )
@@ -886,4 +917,40 @@ fword_qs8_0:
   ;S
 $FORTH_END_WORD .8"  ;;"
 
+$FORTH_WORD D.8R
+;; AberSoft
+;; ( d n -- )
+  >R SWAP OVER DABS <# #S SIGN #> R> OVER - SPACES8 TYPE8 ;S
+$FORTH_END_WORD D.8R
+
+$FORTH_WORD .8R
+;; AberSoft
+;; ( n1 n2 -- )
+  >R S->D R> D.8R ;S
+$FORTH_END_WORD .8R
+
+$FORTH_WORD D.8
+;; AberSoft
+;; ( d -- )
+  0 D.8R SPACE8 ;S
+$FORTH_END_WORD D.8
+
+$FORTH_WORD .8
+;; AberSoft
+;; ( n -- )
+  S->D D.8 ;S
+$FORTH_END_WORD .8
+
+$FORTH_WORD U.8
+;; AberSoft
+;; ( u -- )
+  0 D.8 ;S
+$FORTH_END_WORD U.8
+
+$FORTH_WORD U.8R
+;; AberSoft
+;; ( u n -- )
+  >R 0 R> D.8R ;S
+$FORTH_END_WORD U.8R
+
   ENDIF
-- 
2.11.4.GIT