machine	mc68020
*******************************************************************************
* name      	 offset
* sign      	 -4
* pre       	 -8
* m         	 -12
* n         	 -16
* o         	 -24
* f         	 -32
* d         	 -40
* args
* str       	 12
* pos       	 8
	xdef	_RealVal
_RealVal
	link	a5,#-40
	move.l	d2,-(a7)
*	fmove.d	#0.0000000000000000,fp0
	clr.l	fp0
	clr.l	fp0+4
*	fmove.d	fp0,(-40,a5)
	move.l	fp0,(-40,a5)
	move.l	fp0+4,(-36,a5)
*	fmove.d	#9.9999999999999982E-2,fp0
	move.l	#$3FB99999,fp0
	move.l	#$99999999,fp0+4
*	fmove.d	fp0,(-24,a5)
	move.l	fp0,(-24,a5)
	move.l	fp0+4,(-20,a5)
	move.w	#$FFFF,(-8,a5)
while0
	movea.l	(12,a5),a0
	move.l	(8,a5),d2
	move.b	(a0,d2.l*1),d1
	andi.l	#255,d1
	moveq	#32,d2
	cmp.l	d2,d1
	seq	d1
	extb.l	d1
	move.l	d1,d0
	movea.l	(12,a5),a0
	move.l	(8,a5),d2
	move.b	(a0,d2.l*1),d1
	andi.l	#255,d1
	moveq	#10,d2
	cmp.l	d2,d1
	seq	d1
	extb.l	d1
	or.l	d1,d0
	movea.l	(12,a5),a0
	move.l	(8,a5),d2
	move.b	(a0,d2.l*1),d1
	andi.l	#255,d1
	moveq	#9,d2
	cmp.l	d2,d1
	seq	d1
	extb.l	d1
	or.l	d1,d0
	tst.l	d0
	beq	end0
	addq.l	#1,(8,a5)
	bra	while0
end0
if1
	movea.l	(12,a5),a0
	move.l	(8,a5),d1
	move.b	(a0,d1.l*1),d0
	andi.l	#255,d0
	moveq	#45,d1
	cmp.l	d1,d0
	bne	elseif1_1
	move.l	#-1,(-4,a5)
	addq.l	#1,(8,a5)
	bra	end1
elseif1_1
	move.l	#1,(-4,a5)
end1
while5
	movea.l	(12,a5),a0
	move.l	(8,a5),d0
	move.b	(a0,d0.l*1),d1
	andi.l	#255,d1
	move.l	d1,(-12,a5)
	beq	end5
if6
	move.l	(-12,a5),d1
	moveq	#48,d2
	cmp.l	d2,d1
	sge	d1
	extb.l	d1
	move.l	d1,d0
	move.l	(-12,a5),d1
	moveq	#57,d2
	cmp.l	d2,d1
	sle	d1
	extb.l	d1
	and.l	d1,d0
	tst.l	d0
	beq	elseif6_1
	move.l	(-12,a5),d0
	moveq	#48,d1
	sub.l	d1,d0
	move.l	d0,(-16,a5)
if8
	tst.w	(-8,a5)
	beq	elseif8_1
*	fmove.d	(-40,a5),fp0
	move.l	(-40,a5),fp0
	move.l	(-36,a5),fp0+4
*	fmul.w	#10,fp0
	movem.l	d0-d3/a0-a1/a6,-(a7)
	move.l	fp0,d0
	move.l	fp0+4,d1
	move.l	#$40240000,d2
	moveq	#0,d3
	movea.l	_MathIEEEDoubBasBase,a6
	jsr	(-78,a6)		; IEEEDPMul
	move.l	d0,fp0
	move.l	d1,fp0+4
	movem.l	(a7)+,d0-d3/a0-a1/a6
*	fmove.d	fp0,(-40,a5)
	move.l	fp0,(-40,a5)
	move.l	fp0+4,(-36,a5)
*	fmove.d	(-40,a5),fp0
	move.l	(-40,a5),fp0
	move.l	(-36,a5),fp0+4
*	fadd.l	(-16,a5),fp0
	movem.l	d0-d3/a0-a1/a6,-(a7)
	move.l	(-16,a5),d0
	movea.l	_MathIEEEDoubBasBase,a6
	jsr	(-36,a6)		; IEEEDPFlt
	move.l	d0,d2
	move.l	d1,d3
	move.l	fp0,d0
	move.l	fp0+4,d1
	jsr	(-66,a6)		; IEEEDPAdd
	move.l	d0,fp0
	move.l	d1,fp0+4
	movem.l	(a7)+,d0-d3/a0-a1/a6
*	fmove.d	fp0,(-40,a5)
	move.l	fp0,(-40,a5)
	move.l	fp0+4,(-36,a5)
	bra	end8
elseif8_1
*	fmove.l	(-16,a5),fp0
	movem.l	d0-d1/a0-a1/a6,-(a7)
	move.l	(-16,a5),d0
	movea.l	_MathIEEEDoubBasBase,a6
	jsr	(-36,a6)		; IEEEDPFlt
	move.l	d0,fp0
	move.l	d1,fp0+4
	movem.l	(a7)+,d0-d1/a0-a1/a6
*	fmove.d	fp0,(-32,a5)
	move.l	fp0,(-32,a5)
	move.l	fp0+4,(-28,a5)
*	fmove.d	(-32,a5),fp0
	move.l	(-32,a5),fp0
	move.l	(-28,a5),fp0+4
*	fmul.d	(-24,a5),fp0
	movem.l	d0-d3/a0-a1/a6,-(a7)
	move.l	fp0,d0
	move.l	fp0+4,d1
	move.l	(-24,a5),d2
	move.l	(-24,a5),d3
	movea.l	_MathIEEEDoubBasBase,a6
	jsr	(-78,a6)		; IEEEDPMul
	move.l	d0,fp0
	move.l	d1,fp0+4
	movem.l	(a7)+,d0-d3/a0-a1/a6
*	fmove.d	fp0,(-32,a5)
	move.l	fp0,(-32,a5)
	move.l	fp0+4,(-28,a5)
*	fmove.d	(-40,a5),fp0
	move.l	(-40,a5),fp0
	move.l	(-36,a5),fp0+4
*	fadd.d	(-32,a5),fp0
	movem.l	d0-d3/a0-a1/a6,-(a7)
	move.l	fp0,d0
	move.l	fp0+4,d1
	move.l	(-32,a5),d2
	move.l	(-32,a5),d3
	movea.l	_MathIEEEDoubBasBase,a6
	jsr	(-66,a6)		; IEEEDPAdd
	move.l	d0,fp0
	move.l	d1,fp0+4
	movem.l	(a7)+,d0-d3/a0-a1/a6
*	fmove.d	fp0,(-40,a5)
	move.l	fp0,(-40,a5)
	move.l	fp0+4,(-36,a5)
*	fmove.d	(-24,a5),fp0
	move.l	(-24,a5),fp0
	move.l	(-20,a5),fp0+4
*	fmul.d	#9.9999999999999982E-2,fp0
	movem.l	d0-d3/a0-a1/a6,-(a7)
	move.l	fp0,d0
	move.l	fp0+4,d1
	move.l	#$3FB99999,d2
	move.l	#$99999999,d3
	movea.l	_MathIEEEDoubBasBase,a6
	jsr	(-78,a6)		; IEEEDPMul
	move.l	d0,fp0
	move.l	d1,fp0+4
	movem.l	(a7)+,d0-d3/a0-a1/a6
*	fmove.d	fp0,(-24,a5)
	move.l	fp0,(-24,a5)
	move.l	fp0+4,(-20,a5)
end8
	bra	end6
elseif6_1
	move.l	(-12,a5),d0
	moveq	#46,d1
	cmp.l	d1,d0
	bne	elseif6_2
	clr.w	(-8,a5)
	bra	end6
elseif6_2
*	fmove.d	(-40,a5),fp0
	move.l	(-40,a5),fp0
	move.l	(-36,a5),fp0+4
*	fmul.l	(-4,a5),fp0
	movem.l	d0-d3/a0-a1/a6,-(a7)
	move.l	(-4,a5),d0
	movea.l	_MathIEEEDoubBasBase,a6
	jsr	(-36,a6)		; IEEEDPFlt
	move.l	d0,d2
	move.l	d1,d3
	move.l	fp0,d0
	move.l	fp0+4,d1
	jsr	(-78,a6)		; IEEEDPMul
	move.l	d0,fp0
	move.l	d1,fp0+4
	movem.l	(a7)+,d0-d3/a0-a1/a6
	move.l	(8,a5),d0
	bra	RealValfinish
end6
	addq.l	#1,(8,a5)
	bra	while5
end5
RealValend
*	fmove.d	(-40,a5),fp0
	move.l	(-40,a5),fp0
	move.l	(-36,a5),fp0+4
*	fmul.l	(-4,a5),fp0
	movem.l	d0-d3/a0-a1/a6,-(a7)
	move.l	(-4,a5),d0
	movea.l	_MathIEEEDoubBasBase,a6
	jsr	(-36,a6)		; IEEEDPFlt
	move.l	d0,d2
	move.l	d1,d3
	move.l	fp0,d0
	move.l	fp0+4,d1
	jsr	(-78,a6)		; IEEEDPMul
	move.l	d0,fp0
	move.l	d1,fp0+4
	movem.l	(a7)+,d0-d3/a0-a1/a6
	move.l	(8,a5),d0
RealValfinish
	move.l	(a7)+,d2
	unlk	a5
	rts
	section	".tocd",data
	xref	_MathIEEEDoubBasBase
	xref	_MathIEEEDoubTransBase
	xref	fp0,fp1,fp2,fp3,fp4,fp5,fp6,fp7,fpcc