ADDA、ADDL、CPA、CPL、DCのテストコードを整理

[YACASL2.git] / as / cmd / CPL / cpl1_s.casl

diff --git a/as/cmd/CPL/cpl1_s.casl b/as/cmd/CPL/cpl1_s.casl
new file mode 100644 (file)
index 0000000..614245b
--- /dev/null
+++ b/as/cmd/CPL/cpl1_s.casl
@@ -0,0 +1,9 @@
+;;; CPL r,adr,x SF:1
+MAIN    START   BEGIN
+BEGIN   LD      GR1,A
+        LAD     GR2,1
+        CPL     GR1,A,GR2
+        RET
+A       DC      #5000
+        DC      #7000
+        END