X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=as%2FCMD%2Fcpa1.casl;fp=as%2FCMD%2Fcpa1.casl;h=a5ca590184fcab51b20432dc1c78d752ceffd318;hb=fb54b1c9d2fbc3d4a62c6b4d38ff68e9d3b25c26;hp=0000000000000000000000000000000000000000;hpb=b4e48008c95b35c692827326191698c22b06124f;p=YACASL2.git

diff --git a/as/CMD/cpa1.casl b/as/CMD/cpa1.casl
new file mode 100644
index 0000000..a5ca590
--- /dev/null
+++ b/as/CMD/cpa1.casl
@@ -0,0 +1,6 @@
+MAIN    START   BEGIN
+BEGIN   LAD     GR1,#5000
+        LAD     GR2,#F000
+        CPA     GR2,GR1
+        RET
+        END