L P##address
LAR1
L W [AR1,P#4.0]
T #db_no
L D [AR1,P#6.0]
LAR1
OPN DB [#db_no]
L W [AR1,P#0.0]
T #sum
L #cd
L 1
-I
c1: T #jscd
L #sum
L W [AR1,P#2.0]
>I
JCN m1
TAK
m1: T #sum
+AR1 P#2.0
L #jscd
LOOP c1
L #sum
T #out
通过模拟测试，达到控制要求。