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

diff --git a/test/system/comet2_lib/lib_mula/mula.casl b/test/system/comet2_lib/lib_mula/mula.casl
new file mode 100644
index 0000000..6fa37b6
--- /dev/null
+++ b/test/system/comet2_lib/lib_mula/mula.casl
@@ -0,0 +1,37 @@
+MAIN    START
+        LAD     GR3,0           ; Xのインデックス
+LOOPX   CPA     GR3,XCNT
+        JZE     FIN
+        LD      GR1,X,GR3
+        LAD     GR4,0           ; Yのインデックス
+LOOPY   CPA     GR4,YCNT
+        JZE     XNEXT
+        LD      GR2,Y,GR4
+        CALL    OUTA
+        PUSH    0,GR1
+        LD      GR1,GR2
+        CALL    OUTA
+        POP     GR1
+        CALL    MULA
+        JOV     WOV
+        PUSH    0,GR1
+        LD      GR1,GR0
+        CALL    OUTA
+        POP     GR1
+YNEXT   OUT     SEP,SLEN
+        LAD     GR4,1,GR4
+        JUMP    LOOPY
+WOV     OUT     YOMSG,YLEN
+        JUMP    YNEXT
+XNEXT   LAD     GR3,1,GR3
+        JUMP    LOOPX
+FIN     RET
+X       DC      0,1,2,127,128,151,217,255,256,257,32767,-32768,-32767,-257,-256,-255,-217,-151,-128,-127,-2,-1
+Y       DC      0,1,2,127,128,151,217,255,256,257,32767,-32768,-32767,-257,-256,-255,-217,-151,-128,-127,-2,-1
+XCNT    DC      22
+YCNT    DC      22
+SEP     DC      '--------------------'
+SLEN    DC      20
+YOMSG   DC      'Warning: overflow'
+YLEN    DC      17
+        END