mirror of
https://github.com/wwarthen/RomWBW.git
synced 2026-02-06 14:11:48 -06:00
a8a5a85c5c
Updated Cowgol disk image with the latest distribution from Ladislau Szilagyi. Co-Authored-By: ladislau szilagyi <87603175+Laci1953@users.noreply.github.com>
42 lines
822 B
Plaintext
42 lines
822 B
Plaintext
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;
|