From 12142c4fa865561c8288c0b163b8852a061b7994 Mon Sep 17 00:00:00 2001
From: Vincent Pelletier <plr.vincent@gmail.com>
Date: Fri, 30 Sep 2022 11:06:38 +0000
Subject: [PATCH] DSPSpy: Add st3 BLOOP{,I} tests.

---
 Source/DSPSpy/tests/st3_test.ds | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 Source/DSPSpy/tests/st3_test.ds

diff --git a/Source/DSPSpy/tests/st3_test.ds b/Source/DSPSpy/tests/st3_test.ds
new file mode 100644
index 0000000000..a10724af37
--- /dev/null
+++ b/Source/DSPSpy/tests/st3_test.ds
@@ -0,0 +1,25 @@
+; This test checks when $st3 gets decremented during BLOOP{,I} iterations.
+; Expected $st3 values are: 2, 1, 0x0b88, 2, 1, 0x0b88.
+
+incdir  "tests"
+include "dsp_base.inc"
+
+test_main:
+	LRI $ac0.l, #2
+	BLOOP $ac0.l, last_of_bloop
+	CALL send_back
+	NOP
+	NOP
+last_of_bloop:
+	NOP
+	CALL send_back
+
+	BLOOPI #2, last_of_bloopi
+	CALL send_back
+	NOP
+	NOP
+last_of_bloopi:
+	NOP
+	CALL send_back
+
+	JMP end_of_test