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

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