mirror of https://github.com/GnoConsortium/gno.git
105 lines
1.6 KiB
NASM
105 lines
1.6 KiB
NASM
case on
|
|
mcopy fpspecnum.mac
|
|
|
|
*
|
|
* Test an extended to see whether it is NaN or INF
|
|
*
|
|
|
|
*
|
|
* Dummy function to take care of fpspecnum.root, which
|
|
* can then be discarded.
|
|
*
|
|
|
|
dummy start
|
|
copy :lang:orca:libraries:ainclude:e16.sane ; Apple-supplied SANE EQUs
|
|
end
|
|
|
|
****************************************************************
|
|
*
|
|
* int _isnan (extended x);
|
|
*
|
|
* Check whether x is NaN, if so, return 1, otherwise, return 0.
|
|
*
|
|
****************************************************************
|
|
*
|
|
|
|
_isnan start
|
|
result equ 1
|
|
space equ result+2
|
|
|
|
csub (10:ext_x),space
|
|
|
|
short m clear the specific NaN code
|
|
stz ext_x+6
|
|
long m
|
|
|
|
lda ext_x and do the compare
|
|
cmp nan_x
|
|
bne diff
|
|
lda ext_x+2
|
|
cmp nan_x+2
|
|
bne diff
|
|
lda ext_x+4
|
|
cmp nan_x+4
|
|
bne diff
|
|
lda ext_x+6
|
|
cmp nan_x+6
|
|
bne diff
|
|
lda ext_x+8
|
|
cmp nan_x+8
|
|
bne diff
|
|
lda #1
|
|
sta result
|
|
bra bye
|
|
diff stz result
|
|
|
|
bye ret (2:result)
|
|
|
|
nan_x dc h'0000000000000040FF7F' ; Hex encoding of a NaN
|
|
end
|
|
|
|
****************************************************************
|
|
*
|
|
* int _isinf (extended x);
|
|
*
|
|
* Check whether x is INF, if so, return 1, otherwise, return 0.
|
|
*
|
|
****************************************************************
|
|
*
|
|
|
|
_isinf start
|
|
result equ 1
|
|
space equ result+2
|
|
|
|
csub (10:ext_x),space
|
|
short m
|
|
lda ext_x+9 get rid of sign bit
|
|
and #%01111111
|
|
sta ext_x+9
|
|
long m
|
|
|
|
lda ext_x and do the compare
|
|
cmp inf_x
|
|
bne diff
|
|
lda ext_x+2
|
|
cmp inf_x+2
|
|
bne diff
|
|
lda ext_x+4
|
|
cmp inf_x+4
|
|
bne diff
|
|
lda ext_x+6
|
|
cmp inf_x+6
|
|
bne diff
|
|
lda ext_x+8
|
|
cmp inf_x+8
|
|
bne diff
|
|
lda #1
|
|
sta result
|
|
bra bye
|
|
diff stz result
|
|
|
|
bye ret (2:result)
|
|
|
|
inf_x dc h'0000000000000000FF7F' ; Hex encoding of +INF
|
|
end
|