.globl ___fs2schar
___fs2schar:
lcall ___fs2slong
+ jnz fs2schar_not_zero
+ mov a, dpl
+ orl a, dph
+ orl a, b
+ jnz fs2schar_clr_a
+ ret
+fs2schar_clr_a:
+ clr a
+fs2schar_not_zero:
jnb sign_a, fs2schar_pos
fs2schar_neg:
cpl a
signed long sl=__fs2slong(f);
if (sl>=CHAR_MAX)
return CHAR_MAX;
- if (sl<=CHAR_MIN)
+ if (sl<=CHAR_MIN)
return -CHAR_MIN;
return sl;
}