as/FUNC/mula_call2.casl

   1 ;;; casl2 mula_call0.casl mula.casl outa.casl
   2 MAIN    START
   3         LAD     GR1,0
   4         LAD     GR2,32767
   5 LOOP    CALL    MULA
   6         LD      GR1,GR0
   7         CALL    OUTA
   8 FIN     RET
   9         END