[crt] Fix __ftoll ABI and left shift amount

Author: calc84maniac

src/crt/ftoll.c

@@ -12,6 +12,6 @@ long long _ftoll_c(float x)
         const long long result = mantissa >> (bias + FLT_MANT_DIG - 1 - exponent);
         return parts.sign ? -result : result;
     }
-    const long long result = (long long)mantissa << (exponent - bias);
+    const long long result = (long long)mantissa << (exponent - (bias + FLT_MANT_DIG - 1));
     return parts.sign ? -result : result;
 }

src/crt/ftoll.src

@@ -6,9 +6,8 @@ __ftoll:
 __ftoull:
 __dtoll:
 __dtoull:
-	ld      e, a
 	ld	d, a
-	push	iy, de, bc
+	push	iy, de, hl
 	call	__ftoll_c
 	pop	af, af, iy
 	ret