From: michaelh <michaelh@4a8a32a2-be11-0410-ad9d-d568d2c75423>
Date: Wed, 1 Aug 2001 03:33:57 +0000 (+0000)
Subject: Cleared the top bytes for use in arrays.
X-Git-Url: https://git.gag.com/?a=commitdiff_plain;h=ec0f46f9b436750f101701afeb2b73501c0ce709;p=fw%2Fsdcc

Cleared the top bytes for use in arrays.


git-svn-id: https://sdcc.svn.sourceforge.net/svnroot/sdcc/trunk/sdcc@1117 4a8a32a2-be11-0410-ad9d-d568d2c75423
---

diff --git a/device/lib/z80/mul.s b/device/lib/z80/mul.s
index fa3fb63e..f0817aef 100644
--- a/device/lib/z80/mul.s
+++ b/device/lib/z80/mul.s
@@ -32,9 +32,15 @@ __muluchar_rr_s::
         add     hl,sp
 
         ld      e,(hl)
+
         inc     hl
         ld      c,(hl)                
 
+        ;; Clear the top
+        xor     a
+        ld      d,a
+        ld      b,a
+        
         jp      .mulu16
         
 __mulsint_rr_s::