シフト演算に関するCASLコードを追加

[YACASL2.git] / as / cmd / SRA / sra_s.casl

diff --git a/as/cmd/SRA/sra_s.casl b/as/cmd/SRA/sra_s.casl
index 440cacc..cf5e692 100644 (file)
--- 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