1 .code 2 .align 4 3 .EXPORT foobar,ENTRY,PRIV_LEV=3,ARGW0=FR,ARGW1=FU,ARGW2=FR,ARGW3=FU,RTNVAL=FR 4 foobar 5 .PROC 6 .CALLINFO FRAME=0,NO_CALLS 7 .ENTRY 8 ldo -64(%r30),%r20 9 addil LR'x-$global$,%r27 10 fldds 8(%r20),%fr4 11 fldds 0(%r20),%fr22 12 ldo RR'x-$global$(%r1),%r19 13 fmpysub,sgl %fr5L,%fr7L,%fr5L,%fr22L,%fr4L 14 bv %r0(%r2) 15 fstds %fr5,0(%r19) 16 .EXIT 17 .PROCEND 18 .bss 19 20 x .comm 8 21 y .comm 8 22