X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=as%2Fcmd%2FCALL%2Fcall0.casl;h=84ef1e194318934dd694ef0b6f2ed82f8ef2c85d;hb=8775c998e3144243a87b3a574a1afae087dec54c;hp=bcd954394ba5029829d7caeca1c3851486b3f2c0;hpb=4fe8479d27f535a0ff44c9f6ce270249934e980f;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