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