X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?p=YACASL2.git;a=blobdiff_plain;f=as%2Fcasl2lib%2Fdiva.casl;fp=as%2Fcasl2lib%2Fdiva.casl;h=eb873313a0d4aeec7295e6b2f825d22653e035c9;hp=0000000000000000000000000000000000000000;hb=955b8eab6e12f9d9704d7f9bd1f12613a57a6ca0;hpb=4fe8479d27f535a0ff44c9f6ce270249934e980f

diff --git a/as/casl2lib/diva.casl b/as/casl2lib/diva.casl
new file mode 100644
index 0000000..eb87331
--- /dev/null
+++ b/as/casl2lib/diva.casl
@@ -0,0 +1,7 @@
+;;; -32767〜32767の範囲にある整数の割算（筆算方式）を行う
+;;; 入力 GR1:被除数 GR2:除数
+;;; 出力 GR0:商 GR3:剰余
+;;; GR2が0の場合は、GR0、GR3とも0になり、オーバーフロー
+DIVL    START
+        RET
+        END