dumpwordコマンドで数値以外の値が引数のときにエラーが発生するよう修正
[YACASL2.git] / as / FUNC / 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,GR2
7         CALL    OUTL
8 MFIN    RET
9         END