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

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