发表于:2006/9/22 21:45:00
#0楼
谁能够把这注解一下,给大家分享一下,谢谢了
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
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