REI59  START
       LAD    GR0,0         ; GR0に合計値を入れる
       LAD    GR1,LAST      ; LASTのアドレスを読む
       LAD    GR2,DATA      ; DATAのアドレスを読む
LOOP   ADDA   GR0,0,GR2     ; GR0に足し込む
       LAD    GR2,1,GR2     ;インクリメント
       CPL    GR1,GR2       ;データの最後か
       JPL    LOOP          ; GR1＞GR2ならLOOPへ
       ST     GR0,SUM       ;合計の保存
       RET
DATA   DC     1,5,6,8,9
LAST   DS     0             ; DATAの最終アドレス
SUM    DS     1
       END