Moved redcode out of main dir.
[jars.git] / warriors / dwarf.red
diff --git a/warriors/dwarf.red b/warriors/dwarf.red
new file mode 100644 (file)
index 0000000..a6fa401
--- /dev/null
@@ -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.