mirror of https://github.com/wwarthen/RomWBW.git
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
41 lines
822 B
41 lines
822 B
sub positive(fp: int16): (ret: int16) is
|
|
@asm "jp __positive";
|
|
end sub;
|
|
|
|
sub neg(fp: int16): (ret: int16) is
|
|
@asm "jp __neg";
|
|
end sub;
|
|
|
|
sub fpmul(fp1: int16, fp2: int16): (ret: int16) is
|
|
# HL=fp1
|
|
@asm "ld de,(", fp2, ")"; # DE=fp2
|
|
@asm "jp __fpmul";
|
|
end sub;
|
|
|
|
sub fpdiv(fp1: int16, fp2: int16): (ret: int16) is
|
|
# HL=fp1
|
|
@asm "ld de,(", fp2, ")"; # DE=fp2
|
|
@asm "jp __fpdiv";
|
|
end sub;
|
|
|
|
sub fpsqrt(fp: int16): (ret: int16) is
|
|
@asm "jp __fpsqrt";
|
|
end sub;
|
|
|
|
sub fpsin(fp: int16): (ret: int16) is
|
|
@asm "jp __fpsin";
|
|
end sub;
|
|
|
|
sub fpcos(fp: int16): (ret: int16) is
|
|
@asm "jp __fpcos";
|
|
end sub;
|
|
|
|
sub fparctan(fp: int16): (ret: int16) is
|
|
@asm "jp __fparctan";
|
|
end sub;
|
|
|
|
sub xdivytofp(x: int16, y: int16): (ret: int16) is
|
|
# HL=x
|
|
@asm "ld bc,(", y, ")"; # BC=y
|
|
@asm "jp __xdivytofp";
|
|
end sub;
|
|
|