X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?p=YACASL2.git;a=blobdiff_plain;f=as%2Fmisc%2Ftest%2Fdivl0%2Fdivl.casl;fp=as%2Fmisc%2Ftest%2Fdivl0%2Fdivl.casl;h=e988bea1825f973b160187e16a69764c648a7ace;hp=0000000000000000000000000000000000000000;hb=330f6a8723886b86e745e91ffc3479eda9159b8d;hpb=a0b34ca06b5e92ee139895159dbced007b276384

diff --git a/as/misc/test/divl0/divl.casl b/as/misc/test/divl0/divl.casl
new file mode 100644
index 0000000..e988bea
--- /dev/null
+++ b/as/misc/test/divl0/divl.casl
@@ -0,0 +1,38 @@
+MAIN    START
+        LD      GR1,XMAX
+LOOPX   CPA     GR1,XMIN
+        JMI     FIN
+        OUT     SEP,SLEN
+        LD      GR2,YMIN
+LOOPY   CPL     GR2,YMAX
+        JPL     XNEXT
+        CALL    OUTL
+        PUSH    0,GR1
+        LD      GR1,GR2
+        CALL    OUTL
+        POP     GR1
+        CALL    DIVL
+        JOV     WOV
+        PUSH    0,GR1
+        LD      GR1,GR0
+        CALL    OUTL
+        LD      GR1,GR3
+        CALL    OUTL
+        POP     GR1
+YNEXT   OUT     SEP,SLEN
+        LAD     GR2,1,GR2
+        JUMP    LOOPY
+WOV     OUT     Y0MSG,YLEN
+        JUMP    YNEXT
+XNEXT   LAD     GR1,-1,GR1
+        JUMP    LOOPX
+FIN     RET
+XMAX    DC      100
+XMIN    DC      0
+YMAX    DC      10
+YMIN    DC      0
+SEP     DC      '--------------------'
+SLEN    DC      20
+Y0MSG   DC      'Error: div by 0'
+YLEN    DC      15
+        END