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

[YACASL2.git] / as / cmd / SRL / srl_s.casl

diff --git a/as/cmd/SRL/srl_s.casl b/as/cmd/SRL/srl_s.casl
new file mode 100644 (file)
index 0000000..94917f4
--- /dev/null
+++ b/as/cmd/SRL/srl_s.casl
@@ -0,0 +1,6 @@
+;;; SRL r,adr 負数
+SRL2    START   BEGIN
+BEGIN   LAD     GR1,#C000
+        SRL     GR1,0
+        RET
+        END