CHNG  START             ;＜CHNG.CAS＞
      LAD    GR1,4      ; GR1=4
LP    LD     GR2,A,GR1  ; GR2=A(GR1)
      LD     GR3,B,GR1  ; GR3=B(GR1)
      ST     GR2,B,GR1  ; B(GR1)=GR2
      ST     GR3,A,GR1  ; A(GR1)=GR3
      SUBA   GR1,=1     ;デクリメント
      JPL    LP         ;終わり？
      JZE    LP         ;終わり？
      RET               ;終了
A     DC     'ABCDE'
B     DC     '12345'
      END