as/min_main.casl

   1 PROG    START   BEGIN
   2 BEGIN   LAD GR1,A
   3         LD  GR3,C5
   4         CALL    MINIM
   5         ST  GR0,MINA
   6         LAD  GR1,B
   7         LD  GR3,C5
   8         CALL    MINIM
   9         ST  GR0,MINB
  10         RET
  11 A   DC  17
  12     DC  21
  13     DC  15
  14     DC  28
  15     DC  6
  16 B   DC  4
  17     DC  8
  18     DC  21
  19     DC  13
  20     DC  12
  21 MINA    DS  1
  22 MINB    DS  1
  23 C5  DC  4
  24         END