as/FUNC/mula_call1.casl

   1 ;;; casl2 mula_call0.casl mula.casl outa.casl
   2 MAIN    START
   3         LAD     GR1,151
   4         LAD     GR2,255
   5         CALL    MULA
   6         JOV     WAN
   7         LD      GR1,GR0
   8         CALL    OUTA
   9         JUMP    FIN
  10 WAN     OUT     MSG,MLEN
  11 FIN     RET
  12 MSG     DC      'OF'
  13 MLEN    DC      2
  14         END