发布于 2005-03-21 14:15:59
0楼
出栈程序,仅供参考
A M 40.2
FP M 40.3
JCN J002
OPN DB101
L P#DBX 20.0
LAR2
L 75 //循环75次
L2: T #ATT_LOOP
CALL "FIFO"
TABLE :=DB103.DBX0.0
RET_VAL:=#FIFO_WORD
L #FIFO_WORD
T DBW [AR2,P#0.0]
L P#2.0 //指向下一个字
+AR2
L #ATT_LOOP
LOOP L2
J002: NOP 0
QQ:77465199