OPN #DBNO
L DBLG
L 2
/I
T #LEN
L P#DBX 0.0
LAR1
L #VALUE
L 0
>I
FP #TEMP1
JCN _N03

_M01: L W [AR1,P#0.0]
L 0
==I
JCN _N02
L #VALUE
T W [AR1,P#0.0]
L 0
T #VALUE
JU _N01
_N02: +AR1 P#2.0
_N01: L #LEN
L 1
-I
T #LEN
L 0
>I
JC _M01
L 0
T #VALUE
_N03: NOP 0