From 28e855f5424df395dd1ba98354a53536d4598d47 Mon Sep 17 00:00:00 2001
From: Benji Dial <benji@benjidial.net>
Date: Tue, 30 May 2023 00:22:29 -0400
Subject: fix djn again, and pre-dec / post-inc; few other changes

---
 warriors/dwarf-replicator.red | 55 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 55 insertions(+)
 create mode 100644 warriors/dwarf-replicator.red

(limited to 'warriors/dwarf-replicator.red')

diff --git a/warriors/dwarf-replicator.red b/warriors/dwarf-replicator.red
new file mode 100644
index 0000000..f301a05
--- /dev/null
+++ b/warriors/dwarf-replicator.red
@@ -0,0 +1,55 @@
+;author Benji Dial
+;name Dwarf Replicator
+
+;not a particularly good warrior, but is sufficient to test a few things
+
+start:
+  mov 0, 2908
+  nop }start, >start
+  jmp 2
+
+  dat
+
+  seq.a #end - start, start
+  jmp start
+  jmp 2
+
+  dat
+
+  sub.ab #end - start, start
+  spl @start
+  jmp 2, <start
+
+  dat
+
+dwarf:
+  mov end, end + 4
+  add.ab #4, dwarf
+  jmp 2
+
+  dat
+
+  seq.ab #start + 723 - dwarf, dwarf
+  jmp dwarf
+  jmp 2
+
+  dat
+
+core_clear:
+  mov end, end + 1
+  add.ab #1, 0-1
+  jmp 2
+
+  dat
+
+  seq.a #0-1, core_clear
+  jmp core_clear
+  jmp 2
+
+  dat
+
+  mov.ab #end + 1, core_clear
+  jmp core_clear
+  dat
+
+end:
-- 
cgit v1.2.3