L #DB_Num
T #LW2
OPN DB [#LW2]

L P#DBX 0.0
L #SOURCE_ADR
SLD 3
+D
LAR1

L P#DBX 0.0
L #DEST_ADR
SLD 3
+D
LAR2

L 5
JMP1: T #Loop
L D [AR1,P#0.0]
T D [AR2,P#0.0]
L P#4.0
+AR1
+AR2
L #Loop
LOOP JMP1
SET
S*E