MAXMIN  START             ;最大・最小値 [a03.cas]
        LAD    GR1,DATA   ;DATAのアドレス
        LD     GR0,0,GR1  ;最初の数値を取り出す
        ST     GR0,MAX    ;最大値を格納 [  a  ]
        ST     GR0,MIN    ;最小値を格納
LOOP    LAD    GR1,1,GR1  ;次のアドレス
        LD     GR0,0,GR1  ;数値を取り出す
        JZE    FIN        ;0ならば終了
        CPA    GR0,MAX    ;最大値と比較 [  b  ]
        JMI    NEXT
        ST     GR0,MAX    ;最大値を格納
        JUMP   LOOP       ;繰り返す
NEXT    CPA    GR0,MIN    ;最小値と比較
        JPL    LOOP       ;繰り返す
        ST     GR0,MIN    ;最小値を格納 [  c  ]
        JUMP   LOOP       ;繰り返す
FIN     RET
DATA    DC     15,28,32,5,102,0
MIN     DS     1
MAX     DS     1
        END