X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=as%2FFUNC%2Fdivl_call.casl;fp=as%2FFUNC%2Fdivl_call.casl;h=0000000000000000000000000000000000000000;hb=58ee37be62a5e359d0f6eb603cc86b5692f74b90;hp=bceca27c06a2a5328c02eb530f53690957487542;hpb=85744703060a90c21ee325d3a692f80233bc281f;p=YACASL2.git

diff --git a/as/FUNC/divl_call.casl b/as/FUNC/divl_call.casl
deleted file mode 100644
index bceca27..0000000
--- a/as/FUNC/divl_call.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