[x51,x22]
fr
?apmq file?
;<1>docapmq
fr
?angf file?
;<2>refangles
fr 
?angles file?
;<3>angles


do lb1 i=1,x22
x21=x0
ud ic,x21,x41,x42,x43,x44,x45,x46
<1>
if(x41.le.x51) goto lb2
x41=x41-x51
lb2
ud ic,x41,x71,x72,x73
<2>
sd x46,x71,x72,x73
<3>
lb1
ud ice
<1>
ud ice
<2>
sd e
<3>
re