//S
L P##S_W_No
LAR1
L W [AR1,P#0.0]
T #S_DB_No // Source DB NUMBER
L #Repl_No
L 1
-I
L 2
*I
SLW 3
L D [AR1,P#2.0]
+D
LAR1 // Source End Address
//D
L P##D_W_No
LAR2
L W [AR2,P#0.0]
T #D_DB_No // Destination DB NUMBER
L #Repl_No
L 1
-I
L 2
*I
SLW 3
L D [AR2,P#2.0]
+D
LAR2 // Destination End Address
OPN DB [#S_DB_No]
OPN DI [#D_DB_No]
L #Repl_No
next: T #Loop_Count // REPLICATION FACTOR
L W [AR1,P#0.0]
T W [AR2,P#0.0]
TAR1
L P#2.0
-D
LAR1
TAR2
L P#2.0
-D
LAR2
L #Loop_Count
LOOP next
滬公網(wǎng)安備31010802001143號
