3 .SUBSPA $DATA$,QUAD=1,ALIGN=8,ACCESS=31
4 .SUBSPA $BSS$,QUAD=1,ALIGN=8,ACCESS=31,ZERO,SORT=82
6 .SUBSPA $LIT$,QUAD=0,ALIGN=8,ACCESS=44
7 .SUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY
9 .IMPORT $$dyncall,MILLICODE
15 .NSUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY
16 .EXPORT main,ENTRY,PRIV_LEV=3,RTNVAL=GR
19 .CALLINFO FRAME=64,CALLS,SAVE_RP
21 fmpyfadd
,sgl
%fr4L
,%fr4R
,%fr5R
,%fr5L