L P##S_W_No
LAR1
L W [AR1,P#0.0]
T LW 4
L D [AR1,P#2.0]
T LD 6
L #Repl_No
T LW 2
L 4
T LB 1
L B#16#10
T LB 0
// D
L P##D_W_No
LAR2
L W [AR2,P#0.0]
T LW 14
L D [AR2,P#2.0]
T LD 16
L #Repl_No
T LW 12
L 4
T LB 11
L B#16#10
T LB 10
CALL "BLKMOV"
SRCBLK :=#S_Addr
RET_VAL:=#Temp1
DSTBLK :=#D_Addr