Added mulAbyHL

FSHa.asm

@@ -12,7 +12,6 @@ Setup:
  LD HL, 0
  CALL fshvarfill
 
-
 Input:
  LD   C, $00
  CALL fshcmdfill

includes/Math.asm

@@ -28,6 +28,7 @@ cpBCDE:
   sbc hl, de
  pop hl
  ret
+
 ;; mulAbyB
 ;; Multiplys AxB
 ;; Inputs:
@@ -45,50 +46,30 @@ mulAbyBLoop:
  pop bc
  ret
 
-;; mul8By8 [Maths]
+;; mulAbyHL
-;;  Performs an unsigned multiplication of H and E
+;; Multiplys AxHL
 ;; Inputs:
-;;  H: Multiplier
+;;  A: Multiplier
-;;  E: Multiplicand
+;;  HL: Multiplicand
 ;; Outputs:
-;;  HL: Product of H and E.
+;;  HL: Product of A and HL.
-mul8By8:
+mulAbyHL:
+ push bc
  push de
-  ld l, 0
+  ld de, 0
-  ld d, l
+  ex de, hl
-
+  cp 0
-  sla h
+  jr z, mulAbyHLEnd
-  jr nc, $ + 3
+  ld b, a
-  ld l, e
+mulAbyHLLoop:
-
-  add hl, hl
-  jr nc, $ + 3
   add hl, de
-  add hl, hl
+  djnz mulAbyHLLoop
-  jr nc, $ + 3
+mulAbyHLEnd:
-  add hl, de
-  add hl, hl
-  jr nc, $ + 3
-  add hl, de
-  add hl, hl
-  jr nc, $ + 3
-  add hl, de
-  add hl, hl
-  jr nc, $ + 3
-  add hl, de
-  add hl, hl
-  jr nc, $ + 3
-  add hl, de
-  add hl, hl
-  jr nc, $ + 3
-  add hl, hl
-  jr nc, $ + 3
-  add hl, de
-  add hl, de
-
  pop de
+ pop bc
  ret
 
+
 ;; mul32By8 [Maths]
 ;;  Performs an unsigned multiplication of DEHL and A.
 ;; Outputs: