(label garbage::L2)
(push.l (:reg 5 :ebp :bp))
(move.l (:reg 4 :esp :sp) (:reg 5 :ebp :bp))
(push.l (:reg 6 :esi :si))
(sub.l (im (:final-frame-size 56 -4)) (:reg 4 :esp :sp))
(fmove.d (d -10 (:reg 2 :edx :dx :dl)) (:freg 1 "st(1)"))
(fmove.d (d -10 (:reg 0 :eax :ax :al)) (:freg 2 "st(2)"))
(fmove.d (:freg 1 "st(1)") (:flocal 0))
(label garbage::L1)
(move.l (:iparam 2) (:reg 0 :eax :ax :al))
(fmove.d (:freg 2 "st(2)") (:flocal 1))
(move.l (d 18 (:reg 6 :esi :si)) (:reg 3 :ebx :bx :bl))
(move.b (im 1) (:reg 1 :ecx :cx :cl))
	;;  is this the call to fstcw?
	;; (bcc :t (pc (:reg 7 :edi :di)) :link)

	(fstcw (:flocal 3))	; ?
(fmove.d (:flocal 1) (:freg 1 "st(1)"))
(fmove.d (:flocal 0) (:freg 2 "st(2)"))
(mul.d (:freg 2 "st(2)") (:freg 1 "st(1)") (:freg 1 "st(1)"))
(fmove.d (:freg 1 "st(1)") (:flocal 2))
(move.l (:iparam 2) (:reg 0 :eax :ax :al))
(move.l (d 22 (:reg 6 :esi :si)) (:reg 3 :ebx :bx :bl))
(move.b (im 1) (:reg 1 :ecx :cx :cl))
(bcc :t (pc (:reg 7 :edi :di)) :link)
(fmove.d (:flocal 2) (:freg 1 "st(1)"))
(fmove.d (:freg 1 "st(1)") (:freg 0 "st(0)"))
(move.l (im 0) (:reg 1 :ecx :cx :cl))
;;; 	(bcc :t (pc (d 531 (:reg 7 :edi :di))) :link)
		(fldcw (:flocal 3))	; ?
(clc)
(leave)
(move.l (d -4 (:reg 5 :ebp :bp)) (:reg 6 :esi :si))
(return)