From 422b6c976e28445d2a6e14586fa416b0f16c093f Mon Sep 17 00:00:00 2001
From: Kimplul <kimi.h.kuparinen@gmail.com>
Date: Sat, 24 Jun 2023 20:48:32 +0300
Subject: initial commit

---
 ops/sr/gen_sr.sh | 39 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)
 create mode 100755 ops/sr/gen_sr.sh

(limited to 'ops/sr/gen_sr.sh')

diff --git a/ops/sr/gen_sr.sh b/ops/sr/gen_sr.sh
new file mode 100755
index 0000000..0de47a2
--- /dev/null
+++ b/ops/sr/gen_sr.sh
@@ -0,0 +1,39 @@
+# shift right register o
+for i in $(seq 0 63); do
+	opname=sro"$i"
+	filename="$opname".c
+	echo	"#include \"../common.h\"\n"			\
+		"DEFINE_OP($opname) {"				\
+		"NEXT_OP(sp, a, x, y, (sreg_t)o >> $i);"	\
+		"}" > "$filename"
+done
+
+# shift right register x
+for i in $(seq 0 63); do
+	opname=srx"$i"
+	filename="$opname".c
+	echo	"#include \"../common.h\"\n"			\
+		"DEFINE_OP($opname) {"				\
+		"NEXT_OP(sp, a, (sreg_t)x >> $i, y, o);"	\
+		"}" > "$filename"
+done
+
+# shift right register y
+for i in $(seq 0 63); do
+	opname=sry"$i"
+	filename="$opname".c
+	echo	"#include \"../common.h\"\n"			\
+		"DEFINE_OP($opname) {"				\
+		"NEXT_OP(sp, a, x, (sreg_t)y >> $i, o);"	\
+		"}" > "$filename"
+done
+
+# shift right register a
+for i in $(seq 0 63); do
+	opname=sra"$i"
+	filename="$opname".c
+	echo	"#include \"../common.h\"\n"			\
+		"DEFINE_OP($opname) {"				\
+		"NEXT_OP(sp, (sreg_t)a >> $i, x, y, o);"	\
+		"}" > "$filename"
+done
-- 
cgit v1.3