发布于 2015-07-31 14:52:01
1楼
申明变量:
IN
in1:Any
STAT
arr:array
TEMP
tmp1:Any
tmpAR1:Dword
tmpRetVal:INT
//保存地址寄存器
TAR1 #tmpAR1
将输入实参指向Any变量#tmp1
L P##in1
TAR2
AD DW#16#FFFFFF
+D
LAR1
L D[AR1,P#0.0]
T LD0
L D[AR1,P#4.0]
T LD4
L W[AR1,P#8.0]
T LW8
//将输入实参拷贝到Stat中Array变量
call "BLKMOV"
SRCBLK:=#tmp1
RET_VAL:=#tmpRetVal
DSTBLK:=#arr
//恢复地址寄存器
LAR1 #tmpAR1