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