	.code
	.align 4
	.EXPORT foobar,ENTRY,PRIV_LEV=3,ARGW0=FR,ARGW1=FU,ARGW2=FR,ARGW3=FU,RTNVAL=FR
foobar
	.PROC
	.CALLINFO FRAME=0,NO_CALLS
	.ENTRY
	ldo -64(%r30),%r20
	addil LR'x-$global$,%r27
	fldds 8(%r20),%fr4
	fldds 0(%r20),%fr22
	ldo RR'x-$global$(%r1),%r19
	fmpysub,sgl %fr5L,%fr7L,%fr5L,%fr22L,%fr4L
	bv %r0(%r2)
	fstds %fr5,0(%r19)
	.EXIT
	.PROCEND
	.bss

x	.comm 8
y	.comm 8