;redcode
;name Genocide
;author Mike Nonemacher
;strategy Simpler is better.
;kill Genocide
 
STEP    EQU    -3510            ;Initial bomber is mod-10
SBOOT    EQU    1562            ;Distance to boot bomber
FOUND    EQU    start+SBOOT-1+STEP    ;Points to what my Bscan found
SJINC    EQU    3044            ;increment for anti-SPL/JMPer
TIMER    EQU    790            ;When Bscan finds this, launch paper
CORE    EQU    ksj2-1
 
ksj2    mov    @-2,    1
ksj3    djn    -2,    #1999
ksj5    mov    @20,    <-2
start    mov    s4,    SBOOT
    mov    s3,    <start
    mov    s2,    <start
    mov    s1,    <start
    jmp    @start,    <FOUND-TIMER    ;hit - OK
g    dat    <-18-2668,    <-18
enter    sub    @FOUND,    @FOUND
    cmp    @FOUND,    CORE        ;compare to core
    jmp    notcore
    sub    #3,    FOUND
    jmn    clear,    @FOUND
    jmp    paper
notcore    cmp    @FOUND,    imp
    jmp    sjk
impf    spl    paper,    #3        ;hit - last
    mov    s1-1,    @FOUND
    add    #2667,    FOUND
    jmp    -2
paper    spl    1
    spl    1
    spl    1            ;8-process paper
    spl    p5
    spl    p4
    spl    p003-1
    dat    #0            ;hit - OK
p1    spl    p2,    #ksj4
p001    mov    #8,    8
    mov    <-1,    <2
    jmn    5,    p001
    spl    @0,    -2395
    mov    3,    <-1
    mov    2,    <-2
    jmz    @0,    p001
    dat    <2667,    <5334
    dat    #0            ;hit - OK
clear    spl    0,    <-17
    mov    @-11,    <19
    jmp    -1,    <-19
avamp    jmz    0,    <-1000        ;search for a fang
    sub    @avamp-1000,    ptr
    add    avamp-1000,    ptr
av    mov    CORE,    <ptr
    djn    -1,    #23
ptr    dat    #avamp-1000+12
    dat    #0            ;hit - OK
p002    mov    #8,    8
p2    mov    <-1,    <1
    spl    @0,    -2595
    mov    4,    <-1
    mov    3,    <-2
    mov    2,    <-3
    jmz    @0,    p002
    dat    <2667,    <5334
ksj1    add    #SJINC,    1
s4    jmp    -SBOOT+enter-start    ;hit - OK
    spl    p1,    #clear-30
p003    mov    #8,    8
p3    mov    <-1,    <1
    spl    @0,    -2795
    mov    3,    <-1
    mov    3,    <-2
    jmz    @0,    p003
    dat    <2667,    <5334
    mov    0,    <1
s3    jmz    -2,    <STEP        ;hit - OK
p004    mov    #8,    8
p4    mov    <-1,    <2
    jmn    5,    p004
    spl    @0,    -2995
    mov    3,    <-1
    mov    2,    <-2
    jmz    @0,    p004
    dat    <2667,    <5334
ksj4    spl    0,    <-20
s2    sub    1,    -1        ;hit - OK
    dat    #clear-50
p005    mov    #8,    8
p5    mov    <-1,    <1
    spl    @0,    -3195
    mov    4,    <-1
    mov    3,    <-2
    mov    2,    <-3
    jmz    @0,    p005
    dat    <2667,    <5334
s1    mov    <40,    -STEP+5        ;hit - OK
sjk    spl    avamp
    add    #2,    FOUND
    mov    ksj5,    @FOUND
    mov    ksj4,    <FOUND
    mov    ksj3,    <FOUND
    mov    ksj2,    <FOUND
    mov    ksj1,    <FOUND
    jmp    @FOUND
imp    mov    0,    0
END    start