X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=test%2Fsystem%2Fcasl2%2Flib_divl%2Fdivl.casl;fp=test%2Fsystem%2Fcasl2%2Flib_divl%2Fdivl.casl;h=0000000000000000000000000000000000000000;hb=03832f246ce06d0dae29f96c087b94c7086bb993;hp=e988bea1825f973b160187e16a69764c648a7ace;hpb=a28d93cdaa900cf83060694519946f6ecc823936;p=YACASL2.git diff --git a/test/system/casl2/lib_divl/divl.casl b/test/system/casl2/lib_divl/divl.casl deleted file mode 100644 index e988bea..0000000 --- a/test/system/casl2/lib_divl/divl.casl +++ /dev/null @@ -1,38 +0,0 @@ -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