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

[YACASL2.git] / doc / casl2lib / diva / call_diva.casl

diff --git a/doc/casl2lib/diva/call_diva.casl b/doc/casl2lib/diva/call_diva.casl
deleted file mode 100644 (file)
index 13acb85..0000000
--- a/doc/casl2lib/diva/call_diva.casl
+++ /dev/null
@@ -1,18 +0,0 @@
-;; CASL2LIB > DIVAを呼び出し、-32767 / 255 の商と剰余を表示
-MAIN    START
-BEGIN   LD      GR1,A
-        LD      GR2,B
-        CALL    DIVA
-        JOV     ERR
-        LD      GR1,GR0
-        CALL    OUTA
-        LD      GR1,GR3
-        CALL    OUTA
-        JUMP    FIN
-ERR     OUT     EMSG,ELEN
-FIN     RET
-A       DC      -32767
-B       DC      255
-EMSG    DC      'error'
-ELEN    DC      5
-        END