REI57  START
       LD     GR1,KOSUU    ;データ数をGR1に入れる
       CALL   SAIDAI       ;サブルーチンの呼び出し
       RET
DATA   DC     10,15,8,20,7
KOSUU  DC     5
MAX    DS     1
;サブルーチン化した部分
SAIDAI LAD    GR1,-1,GR1
       LAD    GR2,0        ;カウンタを0に
       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
       END