統合テストに、最新版Autotest.mkを反映
[YACASL2.git] / test / system / casl2 / lib_abs / abs.casl
1 ;;; ABSを呼び出す
2 MAIN    START
3         LAD     GR2,0
4 MLOOP   CPA     GR2,MLEN
5         JZE     MFIN
6         LD      GR1,MVAL,GR2
7         CALL    OUTA
8         CALL    ABS
9         JOV     PUTOV
10         JMI     PUTM
11         OUT     PLUS,=1
12         JUMP    PUTD
13 PUTM    OUT     MINUS,=1
14         JUMP    PUTD
15 PUTOV   OUT     OV,=2
16 PUTD    CALL    OUTA
17         OUT     SEP,MLEN
18         LAD     GR2,1,GR2
19         JUMP    MLOOP
20 MFIN    RET
21 MVAL    DC      12,-12,1,-1,32767,-32767,0,-32768
22 MLEN    DC      8
23 SEP     DC      '--------'
24 PLUS    DC      '+'
25 MINUS   DC      '-'
26 OV      DC      'OV'
27         END