完成對(duì)DB數(shù)據(jù)塊的數(shù)組進(jìn)行賦值運(yùn)算，
      L     0
      T     MW   200
      T     MB    20

      L     0
      T     MB    21
      L     20        
n0:   T     MW   100 //裝載循環(huán)計(jì)數(shù)器,循環(huán)21次。
      L     MW   200
      L     MW   100
      +I    
      T     MW   200
      //對(duì)DB2中的數(shù)組進(jìn)行賦值 ，數(shù)組的長(zhǎng)度為20
      OPN   "數(shù)組1"                     //打開(kāi)數(shù)據(jù)塊
      L     MB    20
      LAR1                              //把MB20的內(nèi)容裝載到地址寄存器AR1中，
      L     MB    21                    //把mb21裝載到累加器中
      T     DBB [AR1,P#0.0]    //把mb21傳送到db的數(shù)組中


      L     MB    20
      L     8
      +I    
      T     MB    20           //mb20數(shù)組偏移指針自加一個(gè)字節(jié)

      L     MB    21
      L     1
      +I    
      T     MB    21

      L     MW   100 //循環(huán)計(jì)數(shù)器自加
      LOOP  n0

寫(xiě)的不怎么樣。