Orange Pi5 kernel

^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300   1) /*
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300   2)  * fp_emu.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 <linux/linkage.h>
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  39) #include <asm/entry.h>
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  40) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  41) #include "fp_emu.h"
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  42) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  43) 	.globl	fpu_emu
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  44) 	.globl	fp_debugprint
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  45) 	.globl	fp_err_ua1,fp_err_ua2
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  46) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  47) 	.text
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  48) fpu_emu:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  49) 	SAVE_ALL_INT
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  50) 	GET_CURRENT(%d0)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  51) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  52) #if defined(CPU_M68020_OR_M68030) && defined(CPU_M68040_OR_M68060)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  53)         tst.l	m68k_is040or060
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  54)         jeq	1f
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  55) #endif
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  56) #if defined(CPU_M68040_OR_M68060)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  57) 	move.l	(FPS_PC2,%sp),(FPS_PC,%sp)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  58) #endif
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  59) 1:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  60) 	| emulate the instruction
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  61) 	jsr	fp_scan
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  62) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  63) #if defined(CONFIG_M68060)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  64) #if !defined(CPU_M68060_ONLY)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  65) 	btst	#3,m68k_cputype+3
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  66) 	jeq	1f
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  67) #endif
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  68) 	btst	#7,(FPS_SR,%sp)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  69) 	jne	fp_sendtrace060
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  70) #endif
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  71) 1:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  72) 	| emulation successful?
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  73) 	tst.l	%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  74) 	jeq	ret_from_exception
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  75) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  76) 	| send some signal to program here
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  77) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  78) 	jra	ret_from_exception
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  79) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  80) 	| we jump here after an access error while trying to access
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  81) 	| user space, we correct stackpointer and send a SIGSEGV to
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  82) 	| the user process
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  83) fp_err_ua2:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  84) 	addq.l	#4,%sp
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  85) fp_err_ua1:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  86) 	addq.l	#4,%sp
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  87) 	move.l	%a0,-(%sp)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  88) 	pea	LSEGV_MAPERR
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  89) 	pea	LSIGSEGV
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  90) 	jsr	fpemu_signal
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  91) 	add.w	#12,%sp
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  92) 	jra	ret_from_exception
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  93) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  94) #if defined(CONFIG_M68060)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  95) 	| send a trace signal if we are debugged
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  96) 	| it does not really belong here, but...
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  97) fp_sendtrace060:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  98) 	move.l	(FPS_PC,%sp),-(%sp)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  99) 	pea	LTRAP_TRACE
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 100) 	pea	LSIGTRAP
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 101) 	jsr	fpemu_signal
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 102) 	add.w	#12,%sp
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 103) 	jra	ret_from_exception
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 104) #endif
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 105) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 106) 	.globl	fp_get_data_reg, fp_put_data_reg
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 107) 	.globl	fp_get_addr_reg, fp_put_addr_reg
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 108) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 109) 	| Entry points to get/put a register. Some of them can be get/put
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 110) 	| directly, others are on the stack, as we read/write the stack
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 111) 	| directly here, these function may only be called from within
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 112) 	| instruction decoding, otherwise the stack pointer is incorrect
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 113) 	| and the stack gets corrupted.
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 114) fp_get_data_reg:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 115) 	jmp	([0f:w,%pc,%d0.w*4])
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 116) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 117) 	.align	4
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 118) 0:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 119) 	.long	fp_get_d0, fp_get_d1
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 120) 	.long	fp_get_d2, fp_get_d3
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 121) 	.long	fp_get_d4, fp_get_d5
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 122) 	.long	fp_get_d6, fp_get_d7
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 123) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 124) fp_get_d0:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 125) 	move.l	(PT_OFF_D0+8,%sp),%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 126) 	printf	PREGISTER,"{d0->%08x}",1,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 127) 	rts
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 128) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 129) fp_get_d1:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 130) 	move.l	(PT_OFF_D1+8,%sp),%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 131) 	printf	PREGISTER,"{d1->%08x}",1,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 132) 	rts
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 133) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 134) fp_get_d2:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 135) 	move.l	(PT_OFF_D2+8,%sp),%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 136) 	printf	PREGISTER,"{d2->%08x}",1,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 137) 	rts
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 138) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 139) fp_get_d3:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 140) 	move.l	%d3,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 141) 	printf	PREGISTER,"{d3->%08x}",1,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 142) 	rts
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 143) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 144) fp_get_d4:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 145) 	move.l	%d4,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 146) 	printf	PREGISTER,"{d4->%08x}",1,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 147) 	rts
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 148) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 149) fp_get_d5:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 150) 	move.l	%d5,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 151) 	printf	PREGISTER,"{d5->%08x}",1,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 152) 	rts
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 153) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 154) fp_get_d6:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 155) 	move.l	%d6,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 156) 	printf	PREGISTER,"{d6->%08x}",1,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 157) 	rts
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 158) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 159) fp_get_d7:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 160) 	move.l	%d7,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 161) 	printf	PREGISTER,"{d7->%08x}",1,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 162) 	rts
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 163) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 164) fp_put_data_reg:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 165) 	jmp	([0f:w,%pc,%d1.w*4])
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 166) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 167) 	.align	4
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 168) 0:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 169) 	.long	fp_put_d0, fp_put_d1
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 170) 	.long	fp_put_d2, fp_put_d3
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 171) 	.long	fp_put_d4, fp_put_d5
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 172) 	.long	fp_put_d6, fp_put_d7
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 173) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 174) fp_put_d0:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 175) 	printf	PREGISTER,"{d0<-%08x}",1,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 176) 	move.l	%d0,(PT_OFF_D0+8,%sp)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 177) 	rts
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 178) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 179) fp_put_d1:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 180) 	printf	PREGISTER,"{d1<-%08x}",1,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 181) 	move.l	%d0,(PT_OFF_D1+8,%sp)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 182) 	rts
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 183) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 184) fp_put_d2:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 185) 	printf	PREGISTER,"{d2<-%08x}",1,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 186) 	move.l	%d0,(PT_OFF_D2+8,%sp)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 187) 	rts
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 188) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 189) fp_put_d3:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 190) 	printf	PREGISTER,"{d3<-%08x}",1,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 191) |	move.l	%d0,%d3
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 192) 	move.l	%d0,(PT_OFF_D3+8,%sp)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 193) 	rts
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 194) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 195) fp_put_d4:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 196) 	printf	PREGISTER,"{d4<-%08x}",1,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 197) |	move.l	%d0,%d4
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 198) 	move.l	%d0,(PT_OFF_D4+8,%sp)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 199) 	rts
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 200) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 201) fp_put_d5:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 202) 	printf	PREGISTER,"{d5<-%08x}",1,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 203) |	move.l	%d0,%d5
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 204) 	move.l	%d0,(PT_OFF_D5+8,%sp)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 205) 	rts
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 206) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 207) fp_put_d6:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 208) 	printf	PREGISTER,"{d6<-%08x}",1,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 209) 	move.l	%d0,%d6
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 210) 	rts
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 211) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 212) fp_put_d7:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 213) 	printf	PREGISTER,"{d7<-%08x}",1,%d0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 214) 	move.l	%d0,%d7
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 215) 	rts
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 216) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 217) fp_get_addr_reg:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 218) 	jmp	([0f:w,%pc,%d0.w*4])
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 219) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 220) 	.align	4
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 221) 0:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 222) 	.long	fp_get_a0, fp_get_a1
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 223) 	.long	fp_get_a2, fp_get_a3
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 224) 	.long	fp_get_a4, fp_get_a5
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 225) 	.long	fp_get_a6, fp_get_a7
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 226) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 227) fp_get_a0:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 228) 	move.l	(PT_OFF_A0+8,%sp),%a0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 229) 	printf	PREGISTER,"{a0->%08x}",1,%a0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 230) 	rts
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 231) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 232) fp_get_a1:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 233) 	move.l	(PT_OFF_A1+8,%sp),%a0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 234) 	printf	PREGISTER,"{a1->%08x}",1,%a0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 235) 	rts
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 236) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 237) fp_get_a2:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 238) 	move.l	(PT_OFF_A2+8,%sp),%a0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 239) 	printf	PREGISTER,"{a2->%08x}",1,%a0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 240) 	rts
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 241) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 242) fp_get_a3:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 243) 	move.l	%a3,%a0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 244) 	printf	PREGISTER,"{a3->%08x}",1,%a0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 245) 	rts
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 246) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 247) fp_get_a4:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 248) 	move.l	%a4,%a0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 249) 	printf	PREGISTER,"{a4->%08x}",1,%a0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 250) 	rts
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 251) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 252) fp_get_a5:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 253) 	move.l	%a5,%a0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 254) 	printf	PREGISTER,"{a5->%08x}",1,%a0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 255) 	rts
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 256) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 257) fp_get_a6:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 258) 	move.l	%a6,%a0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 259) 	printf	PREGISTER,"{a6->%08x}",1,%a0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 260) 	rts
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 261) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 262) fp_get_a7:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 263) 	move.l	%usp,%a0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 264) 	printf	PREGISTER,"{a7->%08x}",1,%a0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 265) 	rts
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 266) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 267) fp_put_addr_reg:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 268) 	jmp	([0f:w,%pc,%d0.w*4])
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 269) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 270) 	.align	4
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 271) 0:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 272) 	.long	fp_put_a0, fp_put_a1
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 273) 	.long	fp_put_a2, fp_put_a3
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 274) 	.long	fp_put_a4, fp_put_a5
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 275) 	.long	fp_put_a6, fp_put_a7
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 276) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 277) fp_put_a0:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 278) 	printf	PREGISTER,"{a0<-%08x}",1,%a0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 279) 	move.l	%a0,(PT_OFF_A0+8,%sp)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 280) 	rts
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 281) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 282) fp_put_a1:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 283) 	printf	PREGISTER,"{a1<-%08x}",1,%a0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 284) 	move.l	%a0,(PT_OFF_A1+8,%sp)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 285) 	rts
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 286) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 287) fp_put_a2:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 288) 	printf	PREGISTER,"{a2<-%08x}",1,%a0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 289) 	move.l	%a0,(PT_OFF_A2+8,%sp)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 290) 	rts
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 291) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 292) fp_put_a3:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 293) 	printf	PREGISTER,"{a3<-%08x}",1,%a0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 294) 	move.l	%a0,%a3
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 295) 	rts
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 296) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 297) fp_put_a4:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 298) 	printf	PREGISTER,"{a4<-%08x}",1,%a0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 299) 	move.l	%a0,%a4
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 300) 	rts
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 301) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 302) fp_put_a5:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 303) 	printf	PREGISTER,"{a5<-%08x}",1,%a0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 304) 	move.l	%a0,%a5
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 305) 	rts
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 306) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 307) fp_put_a6:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 308) 	printf	PREGISTER,"{a6<-%08x}",1,%a0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 309) 	move.l	%a0,%a6
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 310) 	rts
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 311) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 312) fp_put_a7:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 313) 	printf	PREGISTER,"{a7<-%08x}",1,%a0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 314) 	move.l	%a0,%usp
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 315) 	rts
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 316) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 317) 	.data
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 318) 	.align	4
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 319) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 320) fp_debugprint:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 321) |	.long	PMDECODE
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 322) 	.long	PMINSTR+PMDECODE+PMCONV+PMNORM
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 323) |	.long	PMCONV+PMNORM+PMINSTR
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 324) |	.long	0