发表于:2006-03-08 15:12:00
7楼
您看这样对吗
LAR1 P##SOURCE
L B#16#10
T LB [AR1,P#0.0]
L B#16#2
T LB [AR1,P#1.0]
L #LENG
T LW [AR1,P#2.0]
L #SOU_DB
T LW [AR1,P#4.0]
L P#DBX 0.0
T LD [AR1,P#6.0]
LAR1 P##DEST
L B#16#10
T LB [AR1,P#0.0]
L B#16#2
T LB [AR1,P#1.0]
L #LENG
T LW [AR1,P#2.0]
L #DES_DB
T LW [AR1,P#4.0]
L P#DBX 0.0
T LD [AR1,P#6.0]
CALL "BLKMOV"
SRCBLK := #SOURCE
RET_VAL := MW 0
DSTBLK := #DEST