; １から１０までの和を計算します。
; 1+2+3+...+9+10 結果を ANS へ格納します。
;---------------------------------------
SAMP START
  XOR GR1,GR1 ; COUNTER
  XOR GR2,GR2 ; + VALN
  XOR GR3,GR3 ; SUM
LP ADDA GR2, DELTA
  ADDA GR3, GR2
  ST GR3,ANS
  ADDA GR1, ONE
  CPA GR1, STOP
  JNZ LP
  ST GR3, ANS
  RET
ONE   DC 1
STOP  DC 10
DELTA DC 1
ANS   DS 1
  END
;----------------------------
; ソースコードをダブル
; クリックすると対応する
; 機械語コードがわかります。
;
; 逆はシングルクリックで
; 可能。
;-----------------
;ソースコードを AL3011_1to20.txt と名前を付けて保存する。
;そして、次に、ソースコードを１から２０まで加算の
;プログラムに改造してください。;
;----------------------------------
;ソースコードを、きれいに、ならべて記述することに
;こだわる必要はありません。
;--------EOF-------------
