From caceb8b8b03e950a6f543650d0478c1f84b1cc71 Mon Sep 17 00:00:00 2001
From: Benji Dial <benji@benjidial.net>
Date: Tue, 30 May 2023 16:02:55 -0400
Subject: modify warrior set

---
 warriors/bait.red             |  8 +++++++
 warriors/big-nothing.red      |  8 -------
 warriors/dwarf-replicator.red | 55 -------------------------------------------
 warriors/dwarf.red            |  2 +-
 warriors/train.red            | 25 ++++++++++++++++++++
 5 files changed, 34 insertions(+), 64 deletions(-)
 create mode 100644 warriors/bait.red
 delete mode 100644 warriors/big-nothing.red
 delete mode 100644 warriors/dwarf-replicator.red
 create mode 100644 warriors/train.red

(limited to 'warriors')

diff --git a/warriors/bait.red b/warriors/bait.red
new file mode 100644
index 0000000..3b863dc
--- /dev/null
+++ b/warriors/bait.red
@@ -0,0 +1,8 @@
+;author Benji Dial
+;name Bait
+
+start
+  for 19
+    nop
+  rof
+  jmp start
diff --git a/warriors/big-nothing.red b/warriors/big-nothing.red
deleted file mode 100644
index 6a1a0dd..0000000
--- a/warriors/big-nothing.red
+++ /dev/null
@@ -1,8 +0,0 @@
-;author Benji Dial
-;name Big Nothing
-
-start
-  for 19
-    nop
-  rof
-  jmp start
diff --git a/warriors/dwarf-replicator.red b/warriors/dwarf-replicator.red
deleted file mode 100644
index c5022a2..0000000
--- a/warriors/dwarf-replicator.red
+++ /dev/null
@@ -1,55 +0,0 @@
-;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 #the_end - start, start
-  jmp start
-  jmp 2
-
-  dat
-
-  sub.ab #the_end - start, start
-  spl @start
-  jmp 2, <start
-
-  dat
-
-dwarf
-  mov the_end, the_end + 4
-  add.ab #4, dwarf
-  jmp 2
-
-  dat
-
-  seq.ab #start + 723 - dwarf, dwarf
-  jmp dwarf
-  jmp 2
-
-  dat
-
-core_clear
-  mov the_end, the_end + 1
-  add.ab #1, -1
-  jmp 2
-
-  dat
-
-  seq.a #0-1, core_clear
-  jmp core_clear
-  jmp 2
-
-  dat
-
-  mov.ab #the_end + 1, core_clear
-  jmp core_clear
-  dat
-
-the_end
diff --git a/warriors/dwarf.red b/warriors/dwarf.red
index d2df37e..a43ef50 100644
--- a/warriors/dwarf.red
+++ b/warriors/dwarf.red
@@ -2,5 +2,5 @@
 ;name Dwarf
 
 mov 3, 7
-add.ab #4, -1
+add.ab #4948, -1
 jmp -2
diff --git a/warriors/train.red b/warriors/train.red
new file mode 100644
index 0000000..556896b
--- /dev/null
+++ b/warriors/train.red
@@ -0,0 +1,25 @@
+;author Benji Dial
+;name Train
+
+step equ 4943
+
+  spl 1
+  spl 1
+  spl 1
+
+paper
+  mov.f var + 1, var
+  spl @var
+  mov }var, >var
+
+  mov.a #step / 2, the_end + 2
+
+stone
+  mov the_end + 1, }the_end + 2
+  jmp stone, }the_end + 2
+
+var
+  dat
+  dat paper + 1, paper + step + 1
+
+the_end
-- 
cgit v1.2.3