X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;ds=inline;f=doc%2Fcasl2lib%2Fdivl%2Fcall_divl.casl;fp=doc%2Fcasl2lib%2Fdivl%2Fcall_divl.casl;h=2347a43e7384bed9dc0d3f3ed9df7821cb24ced4;hb=3c757d760e9af5c84f56e8e3e4cc69eb85721d7c;hp=0000000000000000000000000000000000000000;hpb=e934f979236c43e098be7b500e7bc11103911630;p=YACASL2.git

diff --git a/doc/casl2lib/divl/call_divl.casl b/doc/casl2lib/divl/call_divl.casl
new file mode 100644
index 0000000..2347a43
--- /dev/null
+++ b/doc/casl2lib/divl/call_divl.casl
@@ -0,0 +1,18 @@
+;; CASL2LIB > DIVLを呼び出し、65534 / 255 の商と剰余を表示
+MAIN    START
+BEGIN   LD      GR1,A
+        LD      GR2,B
+        CALL    DIVL
+        JOV     ERR
+        LD      GR1,GR0
+        CALL    OUTL
+        LD      GR1,GR3
+        CALL    OUTL
+        JUMP    FIN        
+ERR     OUT     EMSG,ELEN
+FIN     RET
+A       DC      65534
+B       DC      255
+EMSG    DC      'error'
+ELEN	DC	5
+        END