写了一个，可以试试
TAR1 #AR1_SAVE
TAR2 #AR2_SAVE
L DBNO
T #DB1_SAVE
L DINO
T #DB2_SAVE

OPN #IN1
CDB
OPN #IN0
L DBLG
L DILG
==I
JCN end1

L P#0.0
LAR1
LAR2

L DBLG
loop: T #i
L DBB [AR1,P#0.0]
L DIB [AR2,P#0.0]
==I
JCN end1
+AR1 P#1.0
+AR2 P#1.0
L #i
LOOP loop
JU end2

end1: SET
R #OUT2
JU end
end2: SET
S #OUT2
end: LAR1 #AR1_SAVE
LAR2 #AR2_SAVE
OPN DB [#DB1_SAVE]
OPN DI [#DB2_SAVE]
SET
SAVE