REI56 START
      LAD    GR2,0        ;カウンタを0にする
      LD     GR1,KOSUU    ; GR1にデータ数を入れる
      LAD    GR1,-1,GR1   ;データ数のデクリメント
      LD     GR0,DATA     ;先頭データの読み込み
      ST     GR0,MAX      ;暫定最大値の保存
LOOP  LAD    GR2,1,GR2    ;カウンタをインクリメント
      LD     GR0,DATA,GR2 ;データの読み込み
      CPA    GR0,MAX      ;最大値と比較
      JMI    SKIP         ; GR0が小さいときSKIPへ
      ST     GR0,MAX      ;最大値の保存
SKIP  CPA    GR1,GR2      ;データ数とカウンタの比較
      JPL    LOOP         ;数の方が多いときLOOPへ
      RET
DATA  DC     10,15,8,20,7
KOSUU DC     5
MAX   DS     1
      END