dumpwordコマンドで数値以外の値が引数のときにエラーが発生するよう修正
[YACASL2.git] / as / FUNC / abs_call.casl
1 ;;; ABSを呼び出す
2 ;;; casl2 abs_call.casl abs.casl outa.casl
3 MAIN    START
4         LAD     GR2,0
5 MLOOP   CPA     GR2,MLEN
6         JZE     MFIN
7         LD      GR1,MVAL,GR2
8         CALL    ABS
9         CALL    OUTA
10         LAD     GR2,1,GR2
11         JUMP    MLOOP
12 MFIN    RET
13 MVAL    DC      12,-12,1,-1,32767,-32767,0,-32768
14 MLEN    DC      8
15         END