Merge branch 'master' into cmd-casl

[YACASL2.git] / as / cmd / ADDA / adda1_s1.casl

diff --git a/as/cmd/ADDA/adda1_s1.casl b/as/cmd/ADDA/adda1_s1.casl
index 9f28bc1..4fe0c37 100644 (file)
--- a/as/cmd/ADDA/adda1_s1.casl
+++ b/as/cmd/ADDA/adda1_s1.casl
@@ -1,8 +1,9 @@
+;;; ADDA r,adr,x 演算結果が負数(r < adr)
 MAIN    START
         LD      GR1,A
-        LD      GR2,B
-        ADDA    GR1,GR2
+        LAD     GR2,1
+        ADDA    GR1,A,GR2
         RET
 A       DC      -10
-B       DC      20
+        DC      20
         END