as/FUNC/mull_call1.casl

   1 ;;; casl2 mull_call0.casl mull.casl outl.casl
   2 MAIN    START
   3         LAD     GR1,1
   4         LAD     GR2,#8000
   5         CALL    MULL
   6         JOV     WAN
   7         LD      GR1,GR0
   8         CALL    OUTL
   9         JUMP    FIN
  10 WAN     OUT     MSG,MLEN
  11 FIN     RET
  12 MSG     DC      'OF'
  13 MLEN    DC      2
  14         END