CASL2LIBを独立させるため、削除

[YACASL2.git] / as / casl2lib / sample / call_divl.casl

diff --git a/as/casl2lib/sample/call_divl.casl b/as/casl2lib/sample/call_divl.casl
deleted file mode 100644 (file)
index e988bea..0000000
--- a/as/casl2lib/sample/call_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