machine	mc68020
	fpu	1

*******************************************************************************
* 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
	movem.l	d2,-(a7)
	fmove.d	#0.0000000000000000,fp0
	fmove.d	fp0,(-40,a5)
	fmove.d	#9.9999999999999982E-2,fp0
	fmove.d	fp0,(-24,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
	addi.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
	seq	d0
	extb.l	d0
	tst.l	d0
	beq	elseif1_1
	move.l	#-1,(-4,a5)
	addi.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)
	tst.l	(-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
	fmul.w	#10,fp0
	fmove.d	fp0,(-40,a5)
	fmove.d	(-40,a5),fp0
	fadd.l	(-16,a5),fp0
	fmove.d	fp0,(-40,a5)
	bra	end8
elseif8_1
	fmove.l	(-16,a5),fp0
	fmove.d	fp0,(-32,a5)
	fmove.d	(-32,a5),fp0
	fmul.d	(-24,a5),fp0
	fmove.d	fp0,(-32,a5)
	fmove.d	(-40,a5),fp0
	fadd.d	(-32,a5),fp0
	fmove.d	fp0,(-40,a5)
	fmove.d	(-24,a5),fp0
	fmul.d	#9.9999999999999982E-2,fp0
	fmove.d	fp0,(-24,a5)
end8
	bra	end6
elseif6_1
	move.l	(-12,a5),d0
	moveq	#46,d1
	cmp.l	d1,d0
	seq	d0
	extb.l	d0
	tst.l	d0
	beq	elseif6_2
	move.w	#0,(-8,a5)
	bra	end6
elseif6_2
	fmove.d	(-40,a5),fp0
	fmul.l	(-4,a5),fp0
	move.l	(8,a5),d0
	bra	RealValfinish
end6
	addi.l	#1,(8,a5)
	bra	while5
end5
RealValend
	fmove.d	(-40,a5),fp0
	fmul.l	(-4,a5),fp0
	move.l	(8,a5),d0
RealValfinish
	movem.l	(a7)+,d2
	unlk	a5
	rts
	section	".tocd",data