指针编程怎么做
郑志武
发布于2013-01-10 23:55
110
0
标签：
把db1里的0至100个连续浮点数分别除以0.65然后依次成批放至db2的连接200至300个连续浮点数变量里,这一个指针编程怎么做?
佳答案
把db1里的0至100个连续浮点数分别除以0.65然后依次成批放至db2的连接200至300个连续浮点数变量里：
注意！0至100个总共为101个，200至300个也是总共为101个。
opndb1//打开db1
lp#0.0//初始读指针
lar1
lp#0.0//初始写指针
lar2
l101//101个双字的循环计数为初值
m001:tmb10//计数值送入mb10
ldbd[ar1,p#0.0]//按读指针指示的地址读数据
l0.65//输入后系统会自动转换为指数形式650000e-002
/r//浮点除法
tdb2.dbd[ar2,p#200.0]//按写指针指示的地址写数据
+ar1p#4.0//读指针指向下一数据（双字）地址
+ar2p#4.0//写指针指向下一数据（双字）地址
lmb10//取循环计数值
loopm001//循环计数值如为0则结束循环；如不为0减1后则转向标号为m001的语句，继续循环
