as/min_sub2.casl

   1 MINIM   START
   2         ST      GR2,CNT
   3     LD  GR0,0,GR1
   4     ST  GR0,MIN
   5     LAD GR3,0
   6 LOOP  CPA GR3,CNT
   7         JZE     MINEND
   8     LAD GR1,1,GR1
   9     LD  GR0,0,GR1
  10     CPA GR0,MIN
  11     JPL CNTADD
  12     ST  GR1,MIN
  13 CNTADD  LAD     GR3,1,GR3
  14         JUMP    LOOP
  15 MINEND  LD      GR0,MIN
  16         RET
  17 CNT     DS      1
  18 MIN     DS      1
  19         END