2 .SUBSPA $DATA$,QUAD=1,ALIGN=8,ACCESS=31
4 .SUBSPA $LIT$,QUAD=0,ALIGN=8,ACCESS=44
5 .SUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY
7 .IMPORT $$dyncall,MILLICODE
15 .STRING "%d %lf %d\x0a\x00"
17 .EXPORT error__3AAAiidi
18 .EXPORT error__3AAAiidi,PRIV_LEV=3,ARGW0=GR,ARGW1=GR,ARGW2=GR,ARGW3=FR,ARGW4=FU,RTNVAL=GR
21 .CALLINFO FRAME=128,CALLS,SAVE_RP
53 ldo R'LC$0000(%r26),%r26
56 .CALL ARGW0=GR,ARGW1=GR,ARGW2=FR,ARGW3=FU
76 .EXPORT ok__3AAAidi,PRIV_LEV=3,ARGW0=GR,ARGW1=GR,ARGW2=FR,ARGW3=FU,RTNVAL=GR
79 .CALLINFO FRAME=128,CALLS,SAVE_RP
111 ldo R'LC$0000(%r26),%r26
114 .CALL ARGW0=GR,ARGW1=GR,ARGW2=FR,ARGW3=FU
135 ; .double 5.50000000000000000000e+00
136 .word 1075183616 ; = 0x40160000
140 .EXPORT main,PRIV_LEV=3,RTNVAL=GR
143 .CALLINFO FRAME=128,CALLS,SAVE_RP
156 ldo R'LC$0001(%r20),%r21
166 .CALL ARGW0=GR,ARGW1=GR,ARGW2=GR
167 bl error__3AAAiidi,%r2
174 ldo R'LC$0001(%r19),%r20
176 .CALL ARGW0=GR,ARGW1=GR,ARGW2=FR,ARGW3=FU