#
.sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
.sect .text
.define sim~
.extern trpim~
! $Header$

#define float

sim~:
	mov	(sp)+,r3
	mov	(sp)+,r0
	mov	r0,trpim~
#ifdef float
	stfps	r1
	bis	$07400,r1
	bit	$020,r0
	beq	0f
	bic	$01000,r1
0:	bit	$040,r0
	beq	0f
	bic	$02000,r1
0:	bit	$01000,r0
	beq	0f
	bic	$04000,r1
0:	bit	$02000,r0
	beq	0f
	bic	$0400,r1
0:	ldfps	r1
#endif
	jmp	(r3)