MOVE  START             ;＜MOVE.CAS＞
      LAD    GR1,0      ; GR1=0
LP    LD     GR2,A,GR1  ; GR2=A(GR1)
      ST     GR2,B,GR1  ; B(GR1)=GR2
      LAD    GR1,1,GR1  ;インクリメント
      CPA    GR1,=4     ;終わり？
      JNZ    LP
      RET               ;終了
A     DC     'ABCD'
B     DS     4
      END