Request v2.0 is a vampire which entered the Pizza 94 draft hill on 9th April 1994 and survived 347 before being pushed off in June.

;redcode-94 verbose
;name Request v2.0
;author Brant D. Thomsen
;contact bdthomse@peruvian.cs.utah.edu
;strategy '94 Vampire
;strategy The latest program in my "quest"
;strategy to yield less wins to anti-vampiric programs.
;strategy Submitted: Sat Apr  9 10:32:10 MDT 1994
;assert 1

step    equ     2211
init    equ     (vamp+2+step)

gate    equ     (wimp-15)
decoy   equ     (gate+1)

        dat     #start*10, #1
        dat     #start*10, #1
        dat     #start*10, #1
        dat     #start*10, #1
        dat     #start*10, #1
        dat     #start*10, #1
        dat     #start*10, #1
        dat     #start*10, #1
        dat     #start*10, #1
        dat     #start*10, #1

        dat     #start*10, #1
        dat     #start*10, #1
        dat     #start*10, #1
        dat     #start*10, #1
        dat     #start*10, #1
        dat     #start*10, #1
        dat     #start*10, #1
        dat     #start*10, #1
        dat     #start*10, #1
        dat     #start*10, #1

        dat     #start*10, #1
        dat     #start*10, #1
        dat     #start*10, #1
        dat     #start*10, #1
        dat     #start*10, #1
        dat     #start*10, #1
        dat     #start*10, #1
        dat     #start*10, #1
        dat     #start*10, #1
        dat     #start*10, #1

        dat     #start*10, #1
        dat     #start*10, #1
        dat     #start*10, #1
        dat     #start*10, #1
        dat     #start*10, #1
        dat     #start*10, #1
        dat     #start*10, #1
        dat     #start*10, #1
        dat     #start*10, #1
        dat     #start*10, #1

        dat     #start*10, #1
        dat     #start*10, #1
        dat     #start*10, #1
        dat     #start*10, #1
        dat     #start*10, #1
        dat     #start*10, #1
        dat     #start*10, #1
        dat     #start*10, #1
        dat     #start*10, #1
        dat     #start*10, #1

        dat     #start*10, #1
        dat     #start*10, #1
        dat     #start*10, #1
        dat     #start*10, #1
        dat     #start*10, #1
        dat     #start*10, #1
        dat     #start*10, #1

start   mov     jump, <dist

        sub     #jump-adder-1, dist

        mov     adder, <dist

        sub     #adder-pit-4, dist

        mov     pit+3, <dist
        mov     pit+2, <dist
        mov     pit+1, <dist
        mov     pit, <dist

        sub     #pit-vamp-4, dist

        mov     vamp+3, <dist
        mov     vamp+2, <dist
        mov     vamp+1, <dist
        mov     vamp, <dist
        spl     @dist, <2000    ; Start the vampire

;       sub     #vamp-help-2, dist

        mov     help+1, <dist
        mov     help, <dist
        spl     @dist, <3000    ; Send 2 processes to "help" so that will
        spl     @dist, <4000    ; execute "MOV" once cycle.

        sub     #help-wimp-1, dist

        mov     wimp, <dist
        spl     @dist, <5000

        sub     #3000, dist     ; Erase record of where boot-strapped.
dist    dat     #6570           ; Then kill the process.


        ; The following is the code for the program.
        ; Spacing (for DATs between segments) is computed automatically.

        ; Wimp is necessary so will still have a process when pit dies.
        ; Runs no risk of starvation since no SPL in it.

wimp    jmp     #0, <gate

        dat     #start*10, #1
        dat     #start*10, #1

pit     mov     @23, <gate-2
        spl     #0, <gate
        spl     -2, <gate
        spl     -2, <gate

        dat     #start*10, #1

adder   dat     <-step, <step

        dat     #start*10, #1

jump    jmp     @decoy-init, init

        dat     #start*10, #1
        dat     #start*10, #1
        dat     #start*10, #1

help    mov     #pit-decoy, decoy
        jmp     help, <gate

vamp    spl     #0, <gate
move    mov     @0, @jump
        add     adder, @move
        djn.F   -2, <-3001

        end     start