X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=test%2Fsystem%2Fcomet2_lib%2Flib_abs%2Fabs.casl;fp=test%2Fsystem%2Fcomet2_lib%2Flib_abs%2Fabs.casl;h=e16585b0c1586eb89543afaf6fd6f6935a2da441;hb=473906d23322ef829ee8dad807895235d645981c;hp=0000000000000000000000000000000000000000;hpb=7ac339dcd755848e9820142422752fbdc8186b5c;p=YACASL2.git

diff --git a/test/system/comet2_lib/lib_abs/abs.casl b/test/system/comet2_lib/lib_abs/abs.casl
new file mode 100644
index 0000000..e16585b
--- /dev/null
+++ b/test/system/comet2_lib/lib_abs/abs.casl
@@ -0,0 +1,27 @@
+;;; ABSを呼び出す
+MAIN    START
+        LAD     GR2,0
+MLOOP   CPA     GR2,MLEN
+        JZE     MFIN
+        LD      GR1,MVAL,GR2
+        CALL    OUTA
+        CALL    ABS
+        JOV     PUTOV
+        JMI     PUTM
+        OUT     PLUS,=1
+        JUMP    PUTD
+PUTM    OUT     MINUS,=1
+        JUMP    PUTD
+PUTOV   OUT     OV,=2
+PUTD    CALL    OUTA
+        OUT     SEP,MLEN
+        LAD     GR2,1,GR2
+        JUMP    MLOOP
+MFIN    RET
+MVAL    DC      12,-12,1,-1,32767,-32767,0,-32768
+MLEN    DC      8
+SEP     DC      '--------'
+PLUS    DC      '+'
+MINUS   DC      '-'
+OV      DC      'OV'
+        END