Optimize copysign

src/libc/copysign.src

@@ -5,19 +5,18 @@
 _copysign:
 _copysignf:
 	pop	bc
-	pop	hl
-	pop	de
-	ld	a,e
-	pop	de
 	pop	de
-	push	de
-	push	de
-	push	de
+	pop	hl
+	ld	a,l
+	inc	sp
+	ex	(sp),hl
+	dec	sp
 	push	hl
+	push	de
 	push	bc
-	xor	a,e
-	and	a,$7F
-	xor	a,e
-	ld	e,a
+	add	hl,hl
+	rla
+	rrca
+	ld	l,a
+	ex	de,hl
 	ret
-