as/misc/test/sum/sum_call.casl

   1 ;;; sum.caslを呼び出し、1から361までの数値の合計を求める
   2 ;;; casl2 sum_call.casl sum.call outl.casl
   3 MAIN    START
   4         LAD     GR1,361
   5         CALL    SUM
   6         LD      GR1,GR0
   7         CALL    OUTL
   8 MFIN    RET
   9         END