moved fpmul labels into jr range

Author: ZERICO2005

src/crt/fpmul.src

@@ -5,6 +5,58 @@
 	.global	__fpmul
 	.type	__fpmul, @function
 
+.L.underflow:
+	pop	af
+	pop	af
+	pop	hl
+	pop	de
+	and	a, 080h
+	ld	bc, 0
+	ret
+.L.nonfinite:
+	sbc	hl, bc
+	jr	z, .L.return.2
+	add	hl, bc
+	pop	bc
+	jr	.L.return.1
+.L.nonfinite.1:
+	inc	d
+	jr	z, .L.nonfinite
+	ex	de, hl
+	pop	hl
+	add	hl, bc
+	or	a, a
+	sbc	hl, bc
+	ex	de, hl
+	jr	nz, .L.return.1
+	ld	h, a
+.L.return.1:
+	pop	af
+	ex	(sp), hl
+	pop	bc
+	jr	.L.return
+.L.nonfinite.2:
+	add	hl, bc
+	or	a, a
+	sbc	hl, bc
+	jr	z, .L.return.nan
+.L.return.2:
+	pop	bc
+	pop	af
+	pop	bc
+	push	bc
+.L.return.pop:
+	pop	hl
+.L.return:
+	pop	de
+	or	a, 07Fh
+	ret
+.L.return.nan:
+	pop	bc
+	set	7, b
+	pop	af
+	jr	.L.return.pop
+
 ; IEEE single precision multiplication
 ; aubc = aubc * euhl
 __fpmul: ; CHECK: same(bitcast(float, pair8_24_t, { out.BC, out.A }), bitcast(float, pair8_24_t, { in.BC, in.A }) * bitcast(float, pair8_24_t, { in.HL, in.E })) && out.DE == in.DE && out.HL == in.HL && out.IX == in.IX && out.IY == in.IY
@@ -20,9 +72,9 @@ __fpmul: ; CHECK: same(bitcast(float, pair8_24_t, { out.BC, out.A }), bitcast(fl
 	ld	e, a
 	call	__fppop2
 	inc	e
-	jp	z, .L.nonfinite.1
+	jr	z, .L.nonfinite.1
 	inc	d
-	jp	z, .L.nonfinite.2
+	jr	z, .L.nonfinite.2
 	ld	a, d
 	ld	d, b; 0
 	rlc	e
@@ -43,7 +95,7 @@ __fpmul: ; CHECK: same(bitcast(float, pair8_24_t, { out.BC, out.A }), bitcast(fl
 	jr	z, .L.subnormal
 	jr	c, .L.continue
 	cp	a, -23
-	jp	c, .L.underflow
+	jr	c, .L.underflow
 .L.subnormal:
 	dec	a
 	ld	d, a
@@ -138,57 +190,6 @@ __fpmul: ; CHECK: same(bitcast(float, pair8_24_t, { out.BC, out.A }), bitcast(fl
 	pop	bc
 	pop	de
 	ret
-.L.underflow:
-	pop	af
-	pop	af
-	pop	hl
-	pop	de
-	and	a, 080h
-	ld	bc, 0
-	ret
-.L.nonfinite:
-	sbc	hl, bc
-	jr	z, .L.return.2
-	add	hl, bc
-	pop	bc
-	jr	.L.return.1
-.L.nonfinite.1:
-	inc	d
-	jr	z, .L.nonfinite
-	ex	de, hl
-	pop	hl
-	add	hl, bc
-	or	a, a
-	sbc	hl, bc
-	ex	de, hl
-	jr	nz, .L.return.1
-	ld	h, a
-.L.return.1:
-	pop	af
-	ex	(sp), hl
-	pop	bc
-	jr	.L.return
-.L.nonfinite.2:
-	add	hl, bc
-	or	a, a
-	sbc	hl, bc
-	jr	z, .L.return.nan
-.L.return.2:
-	pop	bc
-	pop	af
-	pop	bc
-	push	bc
-.L.return.pop:
-	pop	hl
-.L.return:
-	pop	de
-	or	a, 07Fh
-	ret
-.L.return.nan:
-	pop	bc
-	set	7, b
-	pop	af
-	jr	.L.return.pop
 
 	.extern	__fppop1
 	.extern	__fppop2