as/min_sub.casl

   1 MINIM   START
   2         ST      GR3,GOSU
   3     LD  GR0,0,GR1
   4     ST  GR0,MIN
   5     LAD GR2,1
   6 S1  CPA GR2,GOSU
   7         JPL     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     GR2,1,GR2
  15         JUMP    S1
  16 LRET    LD      GR0,MIN
  17         RET
  18 GOSU    DS      1
  19 MIN     DS      1
  20         END