CASLファイルとテストの整理

[YACASL2.git] / as / casl2lib_driver / divl1.casl

diff --git a/as/casl2lib_test/divl_call1.casl b/as/casl2lib_driver/divl1.casl
similarity index 55%
rename from as/casl2lib_test/divl_call1.casl
rename to as/casl2lib_driver/divl1.casl
index 5b22066..bd84ab3 100644 (file)
--- a/as/casl2lib_test/divl_call1.casl
+++ b/as/casl2lib_driver/divl1.casl
@@ -1,7 +1,12 @@
-;;; casl2 div0_call0.casl div0.casl outl.casl
+;;; 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
@@ -9,5 +14,5 @@ BEGIN   LD      GR1,X
         CALL    OUTL
         RET
 X       DC      123
-Y       DC      10       
+Y       DC      10
         END