dragon: Mangle debug outchar bytes for 6847

Signed-off-by: Tormod Volden <debian.tormod@gmail.com>

diff --git a/Kernel/platform-dragon/p6809.s b/Kernel/platform-dragon/p6809.s
index 4d66d28..2144f03 100644 (file)
--- a/Kernel/platform-dragon/p6809.s
+++ b/Kernel/platform-dragon/p6809.s
@@ -165,6 +165,10 @@ outchar:
 ;outcharw:
            pshs x
            ldx traceptr
+           cmpa #0x60          ; mangle for 6847 VDU charset
+           blo lc
+           suba #0x20
+lc         anda #0x3F
            sta ,x+
            stx traceptr
            puls x,pc