X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=as%2Fcmd%2FSLA%2Fsla_s.casl;h=5013b7861d952bd30f0020e6f8c245e622e28a2a;hb=2ef92a7c1a848fbe897ac6e14f73fd6dbeef8c84;hp=440cacc9e09dac7ab7d45461112aa61123b56c15;hpb=79c9b16dc33c688a93d47bd52e558e54fb875331;p=YACASL2.git

diff --git a/as/cmd/SLA/sla_s.casl b/as/cmd/SLA/sla_s.casl
index 440cacc..5013b78 100644
--- a/as/cmd/SLA/sla_s.casl
+++ b/as/cmd/SLA/sla_s.casl
@@ -1,5 +1,6 @@
+;;; SLA r,adr 負数
 SLA2    START   BEGIN
-BEGIN   LAD     GR1,#8000
-        SLA     GR1,1
+BEGIN   LAD     GR1,#8001
+        SLA     GR1,7
         RET
         END