X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=as%2Fcasl2lib%2Ftest%2Fdivl%2Fdivl1%2Fdivl1.casl;fp=as%2Fcasl2lib%2Ftest%2Fdivl%2Fdivl1%2Fdivl1.casl;h=bd84ab33ee3d3071125f4d518ad2bfa9919aad36;hb=05965ee87822b44616998d347d8f91fbf550eb2e;hp=0000000000000000000000000000000000000000;hpb=e53b9aa2cd0e67ff64c52fa1b83e16c048283dbd;p=YACASL2.git

diff --git a/as/casl2lib/test/divl/divl1/divl1.casl b/as/casl2lib/test/divl/divl1/divl1.casl
new file mode 100644
index 0000000..bd84ab3
--- /dev/null
+++ b/as/casl2lib/test/divl/divl1/divl1.casl
@@ -0,0 +1,18 @@
+;;; casl2 divl1.casl ../casl2lib/outl.casl
+MAIN    START
+BEGIN   LD      GR1,X
+        CALL    OUTL
+        LD      GR2,Y
+        PUSH    0,GR1
+        LD      GR1,GR2
+        CALL    OUTL
+        POP     GR1
+        CALL    DIVL
+        LD      GR1,GR0
+        CALL    OUTL
+        LD      GR1,GR3
+        CALL    OUTL
+        RET
+X       DC      123
+Y       DC      10
+        END