gno/lib/lsaneglue/fpspecnum.asm

	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