X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=as%2Fcmd%2FCALL%2Fcall0.casl;h=84ef1e194318934dd694ef0b6f2ed82f8ef2c85d;hb=641024682d02a49ea9fed303c2f6db4b4bd1d9c1;hp=bcd954394ba5029829d7caeca1c3851486b3f2c0;hpb=24f3ed4394bc3d9bfe2f387f91e0b7f41ec8555e;p=YACASL2.git

diff --git a/as/cmd/CALL/call0.casl b/as/cmd/CALL/call0.casl
index bcd9543..84ef1e1 100644
--- a/as/cmd/CALL/call0.casl
+++ b/as/cmd/CALL/call0.casl
@@ -1,10 +1,8 @@
-MAIN    START   BEGIN
-BEGIN   LD      GR1,A
+;;; CALL ほかのプログラムの入口名を指定
+MAIN    START
+        LAD     GR1,29
         CALL    COPY
-        ST      GR2,B
         RET
-A       DC      29
-B       DS      1
         END
 COPY    START
         LD      GR2,GR1