View difference between Paste ID: wmpEstKv and YdqDPv9p

-;+17 bytes -150.5cc
+;+92 bytes, -110cc
 ;===============================================================
 BC_Div_DE:
 ;===============================================================
 ;Performs BC/DE
-;Speed:   890+6b+a cycles when DE<256 (1/256 of the time)
+;Speed:   674+6b+a cycles when DE<256 (1/256 of the time)
-;         541+6b cycles when DE>=256 (255/256 of the time)
+;         431+6b cycles when DE>=256 (255/256 of the time)
-;         Avg = 566.37890625cc
+;         Avg = 455.96484375cc
-;Size:    52 bytes
+;Size:    144 bytes
 ;Inputs:
 ;     BC is the numerator
 ;     DE is the denominator
 ;Outputs:
 ;     BC is the quotient
 ;     HL is the remainder
 ;     DE is not changed
 ;     A is 0
 ;     z flag is set
 ;     c flag is reset
 ;===============================================================
     ld hl,0
     ld a,b
     inc d
     dec d
     jr z,upper
     ld l,a
     ld a,c
-    ld c,h
+    ld b,h
 lower:
-    ld b,8
+;-110cc
-loop:
+    rla \ adc hl,hl \ sbc hl,de \ jr nc,$+3 \ add hl,de
     rla \ adc hl,hl \ sbc hl,de \ jr nc,$+3 \ add hl,de
-    adc hl,hl
+    rla \ adc hl,hl \ sbc hl,de \ jr nc,$+3 \ add hl,de
-    sbc hl,de
+    rla \ adc hl,hl \ sbc hl,de \ jr nc,$+3 \ add hl,de
-    jr nc,$+3
+    rla \ adc hl,hl \ sbc hl,de \ jr nc,$+3 \ add hl,de
-    add hl,de
+    rla \ adc hl,hl \ sbc hl,de \ jr nc,$+3 \ add hl,de
-    djnz loop
+    rla \ adc hl,hl \ sbc hl,de \ jr nc,$+3 \ add hl,de
-    ld b,c
+    rla \ adc hl,hl \ sbc hl,de \ jr nc,$+3 \ add hl,de
     rla
     cpl
     ld c,a
     ret
 upper:
-    ld b,8
+;-106
     ld a,h
 loop_upper:
-    rl c
+    rl c \ rla \ sub e \ jr nc,$+3 \ add a,e
     rl c \ rla \ sub e \ jr nc,$+3 \ add a,e
-    sub e
+    rl c \ rla \ sub e \ jr nc,$+3 \ add a,e
-    jr nc,$+3
+    rl c \ rla \ sub e \ jr nc,$+3 \ add a,e
-    add a,e
+    rl c \ rla \ sub e \ jr nc,$+3 \ add a,e
-    djnz loop_upper
+    rl c \ rla \ sub e \ jr nc,$+3 \ add a,e
     rl c \ rla \ sub e \ jr nc,$+3 \ add a,e
     rl c \ rla \ sub e \ jr nc,$+3 \ add a,e
     ld l,a
     ld a,c
     rla
     cpl
     ld b,a
     jp lower