一楼如果加上一句初始化地址寄存器语句就好了，这样可以防止指针“飞车”，如果不加，地址寄存器里面的内容不一定是0.0。其实楼主的要求只是一个数据拷贝功能，这样处理一下可能比较简单一些，效率也会高一点。
OPN DB 1
LAR1 P#0.0
L 2
a002: T LW 20
L ID [AR1,P#0.0]
T MD [AR1,P#0.0]
T DBD [AR1,P#0.0]
+AR1 P#4.0
L LW 20
LOOP a002

呵呵，针对楼主的要求，拷贝的数据量比较少，不能老想着用指针和循环。能用简单的方法就用简单的方法去实现，下面的方法虽然朴素，可能会更简单、实惠一点：
L ID 0
T MD 0
T DB1.DBD 0
L ID 4
T MD 4
T DB1.DBD 4