dwarf.red

   1 ;redcode
   2
   3 ;name          Dwarf
   4 ;author        A. K. Dewdney
   5 ;version       94.1
   6 ;date          April 29, 1993
   7
   8 ;strategy      Bombs every fourth instruction.
   9 ;assert        CORESIZE % 4 == 0
  10
  11 ORG     1          ; Indicates execution begins with the second
  12 ; instruction (ORG is not actually loaded, and is
  13
  14 DAT.F   #0, #0     ; Pointer to target instruction.
  15 ADD.AB  #4, $-1    ; Increments pointer by step.
  16 MOV.AB  #0, @-2    ; Bombs target instruction.
  17 JMP.A   $-2, #0    ; Loops back two instructions.