2 .SUBSPA $DATA$,QUAD=1,ALIGN=8,ACCESS=31
3 .SUBSPA $BSS$,QUAD=1,ALIGN=8,ACCESS=31,ZERO,SORT=82
5 .SUBSPA $LIT$,QUAD=0,ALIGN=8,ACCESS=44
6 .SUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY
8 .IMPORT $$dyncall,MILLICODE
14 .EXPORT foobar,ENTRY,PRIV_LEV=3,ARGW0=FR,ARGW1=FU,ARGW2=FR,ARGW3=FU,RTNVAL=FR
17 .CALLINFO FRAME=0,NO_CALLS
20 addil LR'x-$global$,%r27
23 ldo RR'x-$global$(%r1),%r19
24 fmpysub,sgl %fr5L,%fr7L,%fr5L,%fr22L,%fr4L