X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=as%2Fcmd%2FCALL%2Fcall1.casl;h=70f8ae09179d32afced3371ef542dc66acb00cc3;hb=ec8eb57a5264ef792d5e37fbb4f47bf1b34e75b6;hp=f0282cab1f1aaf586582898bfb07fbac2befbf17;hpb=4fe8479d27f535a0ff44c9f6ce270249934e980f;p=YACASL2.git

diff --git a/as/cmd/CALL/call1.casl b/as/cmd/CALL/call1.casl
index f0282ca..70f8ae0 100644
--- a/as/cmd/CALL/call1.casl
+++ b/as/cmd/CALL/call1.casl
@@ -1,11 +1,8 @@
+;;; CALL 同じプログラムの中にあるラベルを指定
 MAIN    START   BEGIN
-BEGIN   LD      GR1,=29
+BEGIN   LAD     GR1,29
         CALL    COPY
-        ST      GR2,B
         RET
-B       DS      1
-        END
-COPY    START
-        LD      GR2,GR1
+COPY    LD      GR2,GR1
         RET
         END