blob: ad8bb615a939bc814403596d240fd6a48ca5aea1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
;redcode
;name Dwarf
;author A. K. Dewdney
;version 94.1
;date April 29, 1993
;strategy Bombs every fourth instruction.
ORG start ; Indicates the instruction with
; the label "start" should be the
; first to execute.
step EQU 4 ; Replaces all occurrences of "step"
; with the character "4".
target DAT.F #0, #0 ; Pointer to target instruction.
start ADD.AB #step, target ; Increments pointer by step.
MOV.AB #0, @target ; Bombs target instruction.
JMP.A start ; Same as JMP.A -2. Loops back to
; the instruction labelled "start".
END
|