mirror of
https://github.com/byteworksinc/ORCALib.git
synced 2024-11-19 08:31:26 +00:00
98 lines
1.9 KiB
NASM
98 lines
1.9 KiB
NASM
keep obj/fpextra
|
|
mcopy fpextra.macros
|
|
|
|
****************************************************************
|
|
*
|
|
* FPextra - extra floating-point routines
|
|
*
|
|
* This code provides routines dealing with floating-point
|
|
* numbers that are used only by ORCA/C, supplementing the
|
|
* ones in SysFloat.
|
|
*
|
|
****************************************************************
|
|
*
|
|
fpextra private dummy segment
|
|
end
|
|
|
|
****************************************************************
|
|
*
|
|
* ~SinglePrecision - limit fp value to single precision & range
|
|
*
|
|
* Inputs:
|
|
* extended-format real on stack
|
|
*
|
|
****************************************************************
|
|
*
|
|
~SinglePrecision start
|
|
tsc
|
|
clc
|
|
adc #4
|
|
ldy #0
|
|
phy
|
|
pha
|
|
phy
|
|
pha
|
|
phy
|
|
pha
|
|
phy
|
|
pha
|
|
FX2S
|
|
FS2X
|
|
rtl
|
|
end
|
|
|
|
****************************************************************
|
|
*
|
|
* ~DoublePrecision - limit fp value to double precision & range
|
|
*
|
|
* Inputs:
|
|
* extended-format real on stack
|
|
*
|
|
****************************************************************
|
|
*
|
|
~DoublePrecision start
|
|
tsc
|
|
clc
|
|
adc #4
|
|
ldy #0
|
|
phy
|
|
pha
|
|
phy
|
|
pha
|
|
phy
|
|
pha
|
|
phy
|
|
pha
|
|
FX2D
|
|
FD2X
|
|
rtl
|
|
end
|
|
|
|
****************************************************************
|
|
*
|
|
* ~CompPrecision - limit fp value to comp precision & range
|
|
*
|
|
* Inputs:
|
|
* extended-format real on stack
|
|
*
|
|
****************************************************************
|
|
*
|
|
~CompPrecision start
|
|
tsc
|
|
clc
|
|
adc #4
|
|
ldy #0
|
|
phy
|
|
pha
|
|
phy
|
|
pha
|
|
phy
|
|
pha
|
|
phy
|
|
pha
|
|
FX2C
|
|
FC2X
|
|
rtl
|
|
end
|
|
|