as/min_main2.casl

   1 PROG    START   BEGIN
   2 BEGIN   LAD GR1,DATA_A
   3         LD  GR3,SIZE_A
   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 DATA_A   DC  17,21,15,28,6
  12 SIZE_A   DC  5
  13 DATA_B   DC  4,8,21,13,12
  14 SIZE_B   DC  5
  15 MINA    DS  1
  16 MINB    DS  1
  17         END