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