X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?p=YACASL2.git;a=blobdiff_plain;f=as%2Fcmd%2FSRA%2Fsra_o.casl;h=a8703eb16e72efd0a72a2c0497a8b493a2ef0670;hp=ab7aac9a774f8e791c7bf3cbb647ea6a23de7a02;hb=f2b4a9880e544d2fcb54f5a6dda673f67767d93d;hpb=2ef92a7c1a848fbe897ac6e14f73fd6dbeef8c84

diff --git a/as/cmd/SRA/sra_o.casl b/as/cmd/SRA/sra_o.casl
index ab7aac9..a8703eb 100644
--- a/as/cmd/SRA/sra_o.casl
+++ b/as/cmd/SRA/sra_o.casl
@@ -1,5 +1,6 @@
+;;; SRA r,adr 正数のオーバーフロー
 MAIN    START
-        LAD     GR1,#4000
-        SLA     GR1,1
+        LAD     GR1,#6000
+        SRA     GR1,14
         RET
         END