X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=jars.git;a=blobdiff_plain;f=warriors%2Fdwarf.red;fp=warriors%2Fdwarf.red;h=a6fa4011012ca733bc26b726baa203bdd608d15c;hp=0000000000000000000000000000000000000000;hb=302cb3939367d4cb234cae66b70208243211e437;hpb=47ac8e0ad3cc6cf75a637c1491059aaede68f4f4

diff --git a/warriors/dwarf.red b/warriors/dwarf.red
new file mode 100644
index 0000000..a6fa401
--- /dev/null
+++ b/warriors/dwarf.red
@@ -0,0 +1,16 @@
+;redcode
+
+;name          Dwarf
+;author        A. K. Dewdney
+;version       94.1
+;date          April 29, 1993
+
+;strategy      Bombs every fourth instruction.
+;assert        CORESIZE % 4 == 0
+
+ORG     1          ; Indicates execution begins with the second instruction
+
+DAT.F   #0, #0     ; Pointer to target instruction.
+ADD.AB  #4, $-1    ; Increments pointer by step.
+MOV.AB  #0, @-2    ; Bombs target instruction.
+JMP.A   $-2, #0    ; Loops back two instructions.