Orange Pi5 kernel

^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300   1) /*
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300   2)  * fp_cond.S
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300   3)  *
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300   4)  * Copyright Roman Zippel, 1997.  All rights reserved.
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300   5)  *
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300   6)  * Redistribution and use in source and binary forms, with or without
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300   7)  * modification, are permitted provided that the following conditions
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300   8)  * are met:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300   9)  * 1. Redistributions of source code must retain the above copyright
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  10)  *    notice, and the entire permission notice in its entirety,
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  11)  *    including the disclaimer of warranties.
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  12)  * 2. Redistributions in binary form must reproduce the above copyright
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  13)  *    notice, this list of conditions and the following disclaimer in the
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  14)  *    documentation and/or other materials provided with the distribution.
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  15)  * 3. The name of the author may not be used to endorse or promote
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  16)  *    products derived from this software without specific prior
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  17)  *    written permission.
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  18)  *
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  19)  * ALTERNATIVELY, this product may be distributed under the terms of
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  20)  * the GNU General Public License, in which case the provisions of the GPL are
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  21)  * required INSTEAD OF the above restrictions.  (This clause is
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  22)  * necessary due to a potential bad interaction between the GPL and
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  23)  * the restrictions contained in a BSD-style copyright.)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  24)  *
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  25)  * THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR IMPLIED
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  26)  * WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  27)  * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  28)  * DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT,
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  29)  * INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  30)  * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  31)  * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  32)  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  33)  * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  34)  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  35)  * OF THE POSSIBILITY OF SUCH DAMAGE.
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  36)  */
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  37) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  38) #include "fp_emu.h"
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  39) #include "fp_decode.h"
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  40) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  41) 	.globl	fp_fscc, fp_fbccw, fp_fbccl
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  42) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  43) #ifdef FPU_EMU_DEBUG
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  44) fp_fnop:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  45) 	printf	PDECODE,"fnop\n"
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  46) 	jra	fp_end
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  47) #else
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  48) #define fp_fnop fp_end
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  49) #endif
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  50) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  51) fp_fbccw:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  52) 	tst.w	%d2
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  53) 	jeq	fp_fnop
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  54) 	printf	PDECODE,"fbccw "
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  55) 	fp_get_pc %a0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  56) 	lea	(-2,%a0,%d2.w),%a0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  57) 	jra	1f
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  58) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  59) fp_fbccl:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  60) 	printf	PDECODE,"fbccl "
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  61) 	fp_get_pc %a0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  62) 	move.l	%d2,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  63) 	swap	%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  64) 	fp_get_instr_word %d0,fp_err_ua1
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  65) 	lea	(-2,%a0,%d0.l),%a0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  66) 1:	printf	PDECODE,"%x",1,%a0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  67) 	move.l	%d2,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  68) 	swap	%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  69) 	jsr	fp_compute_cond
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  70) 	tst.l	%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  71) 	jeq	1f
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  72) 	fp_put_pc %a0,1
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  73) 1:	printf	PDECODE,"\n"
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  74) 	jra	fp_end
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  75) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  76) fp_fdbcc:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  77) 	printf	PDECODE,"fdbcc "
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  78) 	fp_get_pc %a1				| calculate new pc
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  79) 	fp_get_instr_word %d0,fp_err_ua1
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  80) 	add.w	%d0,%a1
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  81) 	fp_decode_addr_reg
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  82) 	printf	PDECODE,"d%d,%x\n",2,%d0,%a1
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  83) 	swap	%d1				| test condition in %d1
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  84) 	tst.w	%d1
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  85) 	jne	2f
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  86) 	move.l	%d0,%d1
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  87) 	jsr	fp_get_data_reg
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  88) 	subq.w	#1,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  89) 	jcs	1f
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  90) 	fp_put_pc %a1,1
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  91) 1:	jsr	fp_put_data_reg
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  92) 2:	jra	fp_end
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  93) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  94) | set flags for decode macros for fs<cc>
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  95) do_fscc=1
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  96) do_no_pc_mode=1
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  97) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  98) fp_fscc:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  99) 	printf	PDECODE,"fscc "
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 100) 	move.l	%d2,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 101) 	jsr	fp_compute_cond
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 102) 	move.w	%d0,%d1
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 103) 	swap	%d1
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 104) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 105) 	| decode addressing mode
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 106) 	fp_decode_addr_mode
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 107) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 108) 	.long	fp_data, fp_fdbcc
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 109) 	.long	fp_indirect, fp_postinc
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 110) 	.long	fp_predecr, fp_disp16
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 111) 	.long	fp_extmode0, fp_extmode1
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 112) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 113) 	| addressing mode: data register direct
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 114) fp_data:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 115) 	fp_mode_data_direct
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 116) 	move.w	%d0,%d1			| save register nr
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 117) 	jsr	fp_get_data_reg
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 118) 	swap	%d1
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 119) 	move.b	%d1,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 120) 	swap	%d1
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 121) 	jsr	fp_put_data_reg
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 122) 	printf	PDECODE,"\n"
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 123) 	jra	fp_end
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 124) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 125) fp_indirect:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 126) 	fp_mode_addr_indirect
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 127) 	jra	fp_do_scc
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 128) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 129) fp_postinc:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 130) 	fp_mode_addr_indirect_postinc
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 131) 	jra	fp_do_scc
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 132) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 133) fp_predecr:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 134) 	fp_mode_addr_indirect_predec
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 135) 	jra	fp_do_scc
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 136) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 137) fp_disp16:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 138) 	fp_mode_addr_indirect_disp16
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 139) 	jra	fp_do_scc
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 140) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 141) fp_extmode0:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 142) 	fp_mode_addr_indirect_extmode0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 143) 	jra	fp_do_scc
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 144) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 145) fp_extmode1:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 146) 	bfextu	%d2{#13,#3},%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 147) 	jmp	([0f:w,%pc,%d0*4])
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 148) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 149) 	.align	4
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 150) 0:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 151) 	.long	fp_absolute_short, fp_absolute_long
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 152) 	.long	fp_ill, fp_ill		| NOTE: jump here to ftrap.x
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 153) 	.long	fp_ill, fp_ill
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 154) 	.long	fp_ill, fp_ill
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 155) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 156) fp_absolute_short:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 157) 	fp_mode_abs_short
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 158) 	jra	fp_do_scc
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 159) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 160) fp_absolute_long:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 161) 	fp_mode_abs_long
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 162) |	jra	fp_do_scc
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 163) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 164) fp_do_scc:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 165) 	swap	%d1
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 166) 	putuser.b %d1,(%a0),fp_err_ua1,%a0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 167) 	printf	PDECODE,"\n"
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 168) 	jra	fp_end
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 169) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 170) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 171) #define tst_NAN	btst #24,%d1
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 172) #define tst_Z	btst #26,%d1
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 173) #define tst_N	btst #27,%d1
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 174) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 175) fp_compute_cond:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 176) 	move.l	(FPD_FPSR,FPDATA),%d1
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 177) 	btst	#4,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 178) 	jeq	1f
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 179) 	tst_NAN
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 180) 	jeq	1f
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 181) 	bset	#15,%d1
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 182) 	bset	#7,%d1
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 183) 	move.l	%d1,(FPD_FPSR,FPDATA)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 184) 1:	and.w	#0xf,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 185) 	jmp	([0f:w,%pc,%d0.w*4])
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 186) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 187) 	.align	4
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 188) 0:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 189) 	.long	fp_f  , fp_eq , fp_ogt, fp_oge
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 190) 	.long	fp_olt, fp_ole, fp_ogl, fp_or
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 191) 	.long	fp_un , fp_ueq, fp_ugt, fp_uge
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 192) 	.long	fp_ult, fp_ule, fp_ne , fp_t
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 193) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 194) fp_f:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 195) 	moveq	#0,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 196) 	rts
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 197) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 198) fp_eq:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 199) 	moveq	#0,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 200) 	tst_Z
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 201) 	jeq	1f
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 202) 	moveq	#-1,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 203) 1:	rts
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 204) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 205) fp_ogt:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 206) 	moveq	#0,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 207) 	tst_NAN
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 208) 	jne	1f
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 209) 	tst_Z
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 210) 	jne	1f
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 211) 	tst_N
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 212) 	jne	1f
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 213) 	moveq	#-1,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 214) 1:	rts
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 215) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 216) fp_oge:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 217) 	moveq	#-1,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 218) 	tst_Z
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 219) 	jne	2f
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 220) 	tst_NAN
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 221) 	jne	1f
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 222) 	tst_N
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 223) 	jeq	2f
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 224) 1:	moveq	#0,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 225) 2:	rts
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 226) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 227) fp_olt:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 228) 	moveq	#0,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 229) 	tst_NAN
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 230) 	jne	1f
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 231) 	tst_Z
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 232) 	jne	1f
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 233) 	tst_N
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 234) 	jeq	1f
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 235) 	moveq	#-1,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 236) 1:	rts
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 237) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 238) fp_ole:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 239) 	moveq	#-1,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 240) 	tst_Z
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 241) 	jne	2f
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 242) 	tst_NAN
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 243) 	jne	1f
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 244) 	tst_N
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 245) 	jne	2f
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 246) 1:	moveq	#0,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 247) 2:	rts
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 248) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 249) fp_ogl:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 250) 	moveq	#0,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 251) 	tst_NAN
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 252) 	jne	1f
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 253) 	tst_Z
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 254) 	jne	1f
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 255) 	moveq	#-1,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 256) 1:	rts
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 257) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 258) fp_or:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 259) 	moveq	#0,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 260) 	tst_NAN
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 261) 	jne	1f
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 262) 	moveq	#-1,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 263) 1:	rts
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 264) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 265) fp_un:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 266) 	moveq	#0,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 267) 	tst_NAN
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 268) 	jeq	1f
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 269) 	moveq	#-1,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 270) 	rts
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 271) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 272) fp_ueq:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 273) 	moveq	#-1,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 274) 	tst_NAN
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 275) 	jne	1f
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 276) 	tst_Z
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 277) 	jne	1f
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 278) 	moveq	#0,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 279) 1:	rts
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 280) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 281) fp_ugt:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 282) 	moveq	#-1,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 283) 	tst_NAN
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 284) 	jne	2f
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 285) 	tst_N
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 286) 	jne	1f
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 287) 	tst_Z
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 288) 	jeq	2f
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 289) 1:	moveq	#0,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 290) 2:	rts
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 291) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 292) fp_uge:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 293) 	moveq	#-1,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 294) 	tst_NAN
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 295) 	jne	1f
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 296) 	tst_Z
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 297) 	jne	1f
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 298) 	tst_N
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 299) 	jeq	1f
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 300) 	moveq	#0,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 301) 1:	rts
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 302) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 303) fp_ult:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 304) 	moveq	#-1,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 305) 	tst_NAN
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 306) 	jne	2f
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 307) 	tst_Z
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 308) 	jne	1f
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 309) 	tst_N
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 310) 	jne	2f
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 311) 1:	moveq	#0,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 312) 2:	rts
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 313) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 314) fp_ule:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 315) 	moveq	#-1,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 316) 	tst_NAN
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 317) 	jne	1f
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 318) 	tst_Z
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 319) 	jne	1f
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 320) 	tst_N
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 321) 	jne	1f
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 322) 	moveq	#0,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 323) 1:	rts
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 324) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 325) fp_ne:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 326) 	moveq	#0,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 327) 	tst_Z
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 328) 	jne	1f
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 329) 	moveq	#-1,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 330) 1:	rts
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 331) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 332) fp_t:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 333) 	moveq	#-1,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 334) 	rts