machine	mc68020
*******************************************************************************
* name      	 offset
* buf       	 0
* rest      	 24
* top       	 28
* d         	 32
* args
* str       	 56
* f         	 48
* n         	 44
	xdef	_RealStr
_RealStr
	lea	(-40,a7),a7
	movem.l	a0-a1,-(a7)
	move.l	fp0,-(a7)
	move.l	fp0+4,-(a7)
	move.l	(48+16+0,a7),fp0
	move.l	(48+16+4,a7),fp0+4
	move.l	fp0,(32+16+0,a7)
	move.l	fp0+4,(32+16+4,a7)
	move.l	(32+16+0,a7),fp0
	move.l	(32+16+4,a7),fp0+4
	move.l	(32+16+0,a7),fp0
	move.l	(32+16+4,a7),fp0+4
	move.l	fp0,(32+16+0,a7)
	move.l	fp0+4,(32+16+4,a7)
	move.l	(32+16+0,a7),fp0
	move.l	(32+16+4,a7),fp0+4
	movem.l	d0-d3/a0-a1/a6,-(a7)
	move.l	fp0,d0
	move.l	fp0+4,d1
	move.l	#$41CDCD65,d2
	moveq	#0,d3
	movea.l	_MathIEEEDoubBasBase,a6
	jsr	(-78,a6)
	move.l	d0,fp0
	move.l	d1,fp0+4
	movem.l	(a7)+,d0-d3/a0-a1/a6
	move.l	fp0,(32+16+0,a7)
	move.l	fp0+4,(32+16+4,a7)
	move.l	(32+16+0,a7),fp0
	move.l	(32+16+4,a7),fp0+4
if0
	move.l	(48+16+0,a7),fp0
	move.l	(48+16+4,a7),fp0+4
	movem.l	d0-d3/a0-a1/a6,-(a7)
	move.l	fp0,d0
	move.l	fp0+4,d1
	moveq	#0,d2
	moveq	#0,d3
	movea.l	_MathIEEEDoubBasBase,a6
	jsr	(-42,a6)
	move.l	d0,fpcc
	movem.l	(a7)+,d0-d3/a0-a1/a6
	fbge	end0
	move.l	(28+16+0,a7),d0
	
	move.l	d0,(28+16+0,a7)
end0
	move.l	(24+16+0,a7),-(a7)
	move.l	(28+16+4,a7),-(a7)
	lea	str0,a0
	move.l	a0,-(a7)
	lea	(0+16+12,a7),a0
	move.l	a0,-(a7)
	bsr	_StringF
	lea	(16,a7),a7
	movea.l	(56+16+0,a7),a0
	lea	(0+16+0,a7),a1
	move.l	a1,-(a7)
	move.l	a0,-(a7)
	lea	(0+16+8,a7),a0
	bsr	_StrLen
	movea.l	(a7)+,a0
	movea.l	(a7)+,a1
	subi.l	#9,d0
	add.l	(44+16+0,a7),d0
	bsr	_StrCopy
RealStrend
	move.l	(56+16+0,a7),d0
RealStrfinish
	move.l	(a7)+,fp0+4
	move.l	(a7)+,fp0
	movem.l	(a7)+,a0-a1
	lea	(40,a7),a7
	rts
	xref	_StrCopy
	xref	_StringF
	xref	_StrLen
	xref	_MathIEEEDoubBasBase
	xref	_MathIEEEDoubTransBase
	xref	fp0,fp1,fp2,fp3,fp4,fp5,fp6,fp7,fpcc
str0	dc.b	"%ld.%09.9ld",0