L     W#16#1002
      T     LW     0
      L     #Length
      T     LW     2
      L     #Source_DB_Num
      T     LW     4
      L     #Source_start_adr
      SLD   3
      T     LD     6
      L     B#16#84
      T     LB     6

      L     W#16#1002
      T     LW    10
      L     #Length
      T     LW    12
      L     #Dest_DB_Num
      T     LW    14
      L     #Dest_start_adr
      SLD   3
      T     LD    16
      L     B#16#84
      T     LB    16

      CALL  "BLKMOV"
       SRCBLK :=#INT_POINTER1
       RET_VAL:=#Return_Value
       DSTBLK :=#INT_POINTER2

这是公司员工编写的一段用于把约定长度的数据从一个DB块转移到另一个DB块，看不懂这个程序的思路以及实现功能的原理。请大神们解释下。