as/FUNC/minim_call.casl

   1 ;;; casl2 minim_call.casl minim.casl outa.casl
   2 MAIN    START
   3         LAD     GR1,DATA
   4         LD      GR2,CNT
   5         CALL    MINIM
   6         LD      GR1,GR0
   7         CALL    OUTA
   8         RET
   9 DATA    DC      23,78,2,45,67,-39,86
  10 CNT     DC      7
  11         END