X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=as%2Fcmd%2FCALL%2Fcall0.casl;h=ec37f341b0ff7fbe27624cda3e459180391ecf11;hb=ec8eb57a5264ef792d5e37fbb4f47bf1b34e75b6;hp=bcd954394ba5029829d7caeca1c3851486b3f2c0;hpb=58ee37be62a5e359d0f6eb603cc86b5692f74b90;p=YACASL2.git

diff --git a/as/cmd/CALL/call0.casl b/as/cmd/CALL/call0.casl
index bcd9543..ec37f34 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