Burning Metal is a paper/imp with an embedded vortex launch paired with a standard paper which entered the KOTH.org 94 hill on 19th June 2006. Burning Metal reached aged 133 before being pushed off on 28th November 2008 and also survived 66 challenges on the 94nop hill.
;redcode-94nop
;name Burning Metal
;author inversed
;strategy Anti-imp paper/Imp paper
;strategy Based on insights into heavily optimized anti-imp papers
;assert (CORESIZE==8000) && (MAXPROCESSES==8000)
ofs0 equ 1057
ofs1 equ 2001
bofs1 equ 5108
bofs2 equ 4530
len1 equ 7
iofs equ 5255
aofs equ 4510
zofs equ 5302
istep equ 1143
len2 equ 8
bdp equ 5507
bdi equ 4707
qf equ 3553
qy equ 5217
dq equ (qy+1)%CORESIZE
qa1 equ (1+qf*(qt1-1-found))%CORESIZE
qa2 equ (1+qf*(qt1 -found))%CORESIZE
qb1 equ (1+qf*(qt2-1-found))%CORESIZE
qb2 equ (1+qf*(qt2 -found))%CORESIZE
qb3 equ (1+qf*(qt2+1-found))%CORESIZE
qc2 equ (1+qf*(qt3 -found))%CORESIZE
qt1 equ boot2
qt3 equ qbomb
x0 equ wgo
org qgo
wgo spl 1, qb1
qt2 spl 1, qb2
spl boot2, qb3
mov -2, 0
mov {silk0, {bpp
bpp jmp x0+bdp+len1, qa1
boot2 spl 1, qa2
mov {isilk, {bpi
bpi jmp x0+bdi+len2, 0
for 14
dat 0, 0
rof
silk0 spl @len1, <ofs0
mov }silk0, >silk0
silk1 spl @0, <ofs1
mov }silk1, >silk1
mov pbomb, >bofs1
mov pbomb, }bofs2
pbomb dat <2667, <5334
for 14
dat 0, 0
rof
isilk spl @len2, >iofs
mov }isilk, >isilk
clear spl #0, 0
add.x imp, iptr
iptr djn.f imp-istep-1, {aofs
dat 0, 0
dat 0, 0
imp mov.i #aofs, istep
for 12
dat 0, 0
rof
;q0 mutations
qgo sne found+dq*qc2, found+dq*qc2+qb2
seq <qt3, found+dq*(qc2-1)+qb2
jmp q0, }q0
sne found+dq*qa1, found+dq*qa1+qb2
seq <qt1-1, found+dq*(qa1-1)+qb2
djn.a q0, {q0
sne found+dq*qa2, found+dq*qa2+qb2
seq <qt1, found+dq*(qa2-1)+qb2
jmp q0, {q0
;q1 mutations
sne found+dq*qb1, found+dq*qb1+qb1
seq <qt2-1, found+dq*(qb1-1)+(qb1-1)
jmp q0, {q1
sne found+dq*qb3, found+dq*qb3+qb3
seq <qt2+1, found+dq*(qb3-1)+(qb3-1)
jmp q0, }q1
;no mutation
sne found+dq*qb2, found+dq*qb2+qb2
seq <qt2, found+dq*(qb2-1)+(qb2-1)
jmp q0, 0
;dq mutation
seq >found, found+dq+(qb2-1)
jmp qsel, <found
;q0 mutation
seq found+(dq+1)*(qc2-1), found+(dq+1)*(qc2-1)+(qb2-1)
jmp q0, }q0
seq found+(dq+1)*(qa2-1), found+(dq+1)*(qa2-1)+(qb2-1)
jmp q0, {q0
seq found+(dq+1)*(qa1-1), found+(dq+1)*(qa1-1)+(qb2-1)
djn.a q0, {q0
;free scan
jmz.f wgo, found+(dq+1)*(qb2-1)+(qb2-1)
q0 mul.b *q1, found
qsel sne <qt1, @found
q1 add.b qt2, found
qoff equ -86
qtime equ 20
qstep equ 7
qloop mov qbomb, @found
found mov qbomb, }dq
add #qstep, found
djn qloop, #qtime
jmp wgo, 0
qbomb dat {qoff, {qc2