X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?p=YACASL2.git;a=blobdiff_plain;f=as%2Fcmd%2FSRL%2Fsrl.casl;fp=as%2Fcmd%2FSRA%2Fsra_so.casl;h=5170cf0de83492a577e781035c03accc18e16d9d;hp=d5aee000d2b392f06ae0625d4716440fd28d62b0;hb=f2b4a9880e544d2fcb54f5a6dda673f67767d93d;hpb=2ef92a7c1a848fbe897ac6e14f73fd6dbeef8c84

diff --git a/as/cmd/SRA/sra_so.casl b/as/cmd/SRL/srl.casl
similarity index 63%
rename from as/cmd/SRA/sra_so.casl
rename to as/cmd/SRL/srl.casl
index d5aee00..5170cf0 100644
--- a/as/cmd/SRA/sra_so.casl
+++ b/as/cmd/SRL/srl.casl
@@ -1,5 +1,6 @@
+;;; SRL r,adr
 MAIN    START
         LAD     GR1,#C000
-        SLA     GR1,1
+        SRL     GR1,14
         RET
         END