f1198da3d66e2a145e2222449f3cd54c2527e3ff
[YACASL2.git] / as / casl2lib / minim.casl
1 ;;; GR1のアドレスに格納されたGR2の個数の値の中で、最小値をGR0に格納する
2 MINIM   START
3         LD      GR0,0,GR1
4         ST      GR0,MIN
5         LAD     GR3,0
6 S1      CPA     GR3,GR2
7         JZE     LRET
8         LAD     GR1,1,GR1
9         LD      GR0,0,GR1
10         CPA     GR0,MIN
11         JPL     S2
12         JZE     S2
13         ST      GR0,MIN
14 S2      LAD     GR3,1,GR3
15         JUMP    S1
16 LRET    LD      GR0,MIN
17         RET
18 MIN     DS      1
19         END