X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=as%2Fcmd%2FSRA%2Fsra_s.casl;h=cf5e69270863d9276331068a486a25e78d819fea;hb=d998766540ffc4332d6212a76a38a2242419ffa5;hp=440cacc9e09dac7ab7d45461112aa61123b56c15;hpb=93cd1261d2f4247c3324a2bcb69dc4a077a4aa77;p=YACASL2.git

diff --git a/as/cmd/SRA/sra_s.casl b/as/cmd/SRA/sra_s.casl
index 440cacc..cf5e692 100644
--- a/as/cmd/SRA/sra_s.casl
+++ b/as/cmd/SRA/sra_s.casl
@@ -1,5 +1,6 @@
-SLA2    START   BEGIN
-BEGIN   LAD     GR1,#8000
-        SLA     GR1,1
+;;; SRA r,adr 負数
+SRA2    START   BEGIN
+BEGIN   LAD     GR1,#A000
+        SRA     GR1,13
         RET
         END