+++ /dev/null
-;;; GR1のアドレスに格納されたGR2の個数の値の中で、最小値をGR0に格納する
-MINIM START
- LD GR0,0,GR1
- ST GR0,MIN
- LAD GR3,0
-S1 CPA GR3,GR2
- JZE LRET
- LAD GR1,1,GR1
- LD GR0,0,GR1
- CPA GR0,MIN
- JPL S2
- JZE S2
- ST GR0,MIN
-S2 LAD GR3,1,GR3
- JUMP S1
-LRET LD GR0,MIN
- RET
-MIN DS 1
- END