X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=as%2Fcasl2lib%2Ftest%2Fdivl%2Fdivl.casl;fp=as%2Fcasl2lib%2Ftest%2Fdivl%2Fdivl.casl;h=0000000000000000000000000000000000000000;hb=424f582a6be629ccdbf605a53ae22f5ce60a41f7;hp=e988bea1825f973b160187e16a69764c648a7ace;hpb=d1f82970bf7d41db2fea11b08cd8e308f6cb8138;p=YACASL2.git diff --git a/as/casl2lib/test/divl/divl.casl b/as/casl2lib/test/divl/divl.casl deleted file mode 100644 index e988bea..0000000 --- a/as/casl2lib/test/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