完成對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

寫的不怎么樣。