From: dfffffff <dflamand@gmail.com>
Date: Fri, 26 Aug 2016 14:23:18 +0000 (-0400)
Subject: Kernel/lowlevel-6809.s: fixed outd outputting wrong byte, changed code to use less... 
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=8b891909954f4eea05da9d19dacc523189008ab3;p=FUZIX.git

Kernel/lowlevel-6809.s: fixed outd outputting wrong byte, changed code to use less memory
---

diff --git a/Kernel/lowlevel-6809.s b/Kernel/lowlevel-6809.s
index bf8fc52f..0df9bd4c 100644
--- a/Kernel/lowlevel-6809.s
+++ b/Kernel/lowlevel-6809.s
@@ -429,14 +429,6 @@ outnewline:
         jsr outchar
         rts
 
-outd:  ; prints D in hex.
-	pshs b
-        tfr b,a
-        jsr outcharhex
-        puls b
-        jsr outcharhex
-        rts
-
 outx:  ; prints X
 	pshs d
 	tfr x,d
@@ -449,6 +441,12 @@ outy:  ; prints Y
 	bsr outd
 	puls d,pc
 
+outd:  ; prints D in hex.
+	pshs b
+	bsr outcharhex
+	puls a
+	; FALL THROUGH
+
 ; print the byte in A as a two-character hex value
 outcharhex:
 	pshs a
@@ -456,10 +454,9 @@ outcharhex:
         lsra
         lsra
         lsra
-        jsr outnibble
+        bsr outnibble
 	puls a
-        jsr outnibble
-        rts
+	; FALL THROUGH
 
 ; print the nibble in the low four bits of A
 outnibble: