完成对DB数据块的数组进行赋值运算，
      L     0
      T     MW   200
      T     MB    20

      L     0
      T     MB    21
      L     20        
n0:   T     MW   100 //装载循环计数器,循环21次。
      L     MW   200
      L     MW   100
      +I    
      T     MW   200
      //对DB2中的数组进行赋值 ，数组的长度为20
      OPN   "数组1"                     //打开数据块
      L     MB    20
      LAR1                              //把MB20的内容装载到地址寄存器AR1中，
      L     MB    21                    //把mb21装载到累加器中
      T     DBB [AR1,P#0.0]    //把mb21传送到db的数组中


      L     MB    20
      L     8
      +I    
      T     MB    20           //mb20数组偏移指针自加一个字节

      L     MB    21
      L     1
      +I    
      T     MB    21

      L     MW   100 //循环计数器自加
      LOOP  n0

写的不怎么样。