CASL2LIBのドキュメント記述内容とテストを編集、再構成

[YACASL2.git] / as / casl2lib / test / divl / divl0 / call_divl.casl

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