ed $1.s
1a

/  This routine was converted to call the floating point
/  simulator directly 2-19-76 (rfb of ucsdcdcfs)

.
?.globl?a
.globl fpsim, fpsr, m.ext, m.lngi	/ Floating point simulator stuff
.
g/[	 ]cfcc[	 ]/i\
	jsr	pc, fpsim	/ call floating point simulator
g/[	 ]setf[	 ]/c\
	bic	$m.ext, fpsr	/ simulate setf
g/[	 ]setd[	 ]/c\
	bis	$m.ext, fpsr	/ simulate setd
g/[	 ]seti[	 ]/c\
	bic	$m.lngi, fpsr	/ simulate seti
g/[	 ]setl[	 ]/c\
	bis	$m.lngi, fpsr	/ simulate setl
g/[	 ]clrf[	 ]/i\
	jsr	pc, fpsim	/ call floating point simulator
g/[	 ]negf[	 ]/i\
	jsr	pc, fpsim	/ call floating point simulator
g/[	 ]absf[	 ]/i\
	jsr	pc, fpsim	/ call floating point simulator
g/[	 ]tstf[	 ]/i\
	jsr	pc, fpsim	/ call floating point simulator
g/[	 ]movf[	 ]/i\
	jsr	pc, fpsim	/ call floating point simulator
g/[	 ]movif[	 ]/i\
	jsr	pc, fpsim	/ call floating point simulator
g/[	 ]movfi[	 ]/i\
	jsr	pc, fpsim	/ call floating point simulator
g/[	 ]movof[	 ]/i\
	jsr	pc, fpsim	/ call floating point simulator
g/[	 ]movfo[	 ]/i\
	jsr	pc, fpsim	/ call floating point simulator
g/[	 ]movie[	 ]/i\
	jsr	pc, fpsim	/ call floating point simulator
g/[	 ]movei[	 ]/i\
	jsr	pc, fpsim	/ call floating point simulator
g/[	 ]addf[	 ]/i\
	jsr	pc, fpsim	/ call floating point simulator
g/[	 ]subf[	 ]/i\
	jsr	pc, fpsim	/ call floating point simulator
g/[	 ]mulf[	 ]/i\
	jsr	pc, fpsim	/ call floating point simulator
g/[	 ]divf[	 ]/i\
	jsr	pc, fpsim	/ call floating point simulator
g/[	 ]cmpf[	 ]/i\
	jsr	pc, fpsim	/ call floating point simulator
g/[	 ]modf[	 ]/i\
	jsr	pc, fpsim	/ call floating point simulator
g/[	 ]ldfps[	 ]/i\
	jsr	pc, fpsim	/ call floating point simulator
g/[	 ]stfps[	 ]/i\
	jsr	pc, fpsim	/ call floating point simulator
g/[	 ]stst[	 ]/i\
	jsr	pc, fpsim	/ call floating point simulator
g/[	 ]stexp[	 ]/i\
	jsr	pc, fpsim	/ call floating point simulator
g/[	 ]ldexp[	 ]/i\
	jsr	pc, fpsim	/ call floating point simulator
g/[	 ]cfcc$/i\
	jsr	pc, fpsim	/ call floating point simulator
g/[	 ]setf$/c\
	bic	$m.ext, fpsr	/ simulate setf
g/[	 ]setd$/c\
	bis	$m.ext, fpsr	/ simulate setd
g/[	 ]seti$/c\
	bic	$m.lngi, fpsr	/ simulate seti
g/[	 ]setl$/c\
	bis	$m.lngi, fpsr	/ simulate setl
g/^cfcc$/i\
	jsr	pc, fpsim	/ call floating point simulator
g/^setf$/c\
	bic	$m.ext, fpsr	/ simulate setf
g/^setd$/c\
	bis	$m.ext, fpsr	/ simulate setd
g/^seti$/c\
	bic	$m.lngi, fpsr	/ simulate seti
g/^setl$/c\
	bis	$m.lngi, fpsr	/ simulate setl
g/^cfcc[	 ]/i\
	jsr	pc, fpsim	/ call floating point simulator
g/^setf[	 ]/c\
	bic	$m.ext, fpsr	/ simulate setf
g/^setd[	 ]/c\
	bis	$m.ext, fpsr	/ simulate setd
g/^seti[	 ]/c\
	bic	$m.lngi, fpsr	/ simulate seti
g/^setl[	 ]/c\
	bis	$m.lngi, fpsr	/ simulate setl
g/^clrf[	 ]/i\
	jsr	pc, fpsim	/ call floating point simulator
g/^negf[	 ]/i\
	jsr	pc, fpsim	/ call floating point simulator
g/^absf[	 ]/i\
	jsr	pc, fpsim	/ call floating point simulator
g/^tstf[	 ]/i\
	jsr	pc, fpsim	/ call floating point simulator
g/^movf[	 ]/i\
	jsr	pc, fpsim	/ call floating point simulator
g/^movif[	 ]/i\
	jsr	pc, fpsim	/ call floating point simulator
g/^movfi[	 ]/i\
	jsr	pc, fpsim	/ call floating point simulator
g/^movof[	 ]/i\
	jsr	pc, fpsim	/ call floating point simulator
g/^movfo[	 ]/i\
	jsr	pc, fpsim	/ call floating point simulator
g/^movie[	 ]/i\
	jsr	pc, fpsim	/ call floating point simulator
g/^movei[	 ]/i\
	jsr	pc, fpsim	/ call floating point simulator
g/^addf[	 ]/i\
	jsr	pc, fpsim	/ call floating point simulator
g/^subf[	 ]/i\
	jsr	pc, fpsim	/ call floating point simulator
g/^mulf[	 ]/i\
	jsr	pc, fpsim	/ call floating point simulator
g/^divf[	 ]/i\
	jsr	pc, fpsim	/ call floating point simulator
g/^cmpf[	 ]/i\
	jsr	pc, fpsim	/ call floating point simulator
g/^modf[	 ]/i\
	jsr	pc, fpsim	/ call floating point simulator
g/^ldfps[	 ]/i\
	jsr	pc, fpsim	/ call floating point simulator
g/^stfps[	 ]/i\
	jsr	pc, fpsim	/ call floating point simulator
g/^stst[	 ]/i\
	jsr	pc, fpsim	/ call floating point simulator
g/^stexp[	 ]/i\
	jsr	pc, fpsim	/ call floating point simulator
g/^ldexp[	 ]/i\
	jsr	pc, fpsim	/ call floating point simulator
w
q
