The Humanizer is a paper/stone which entered the KOTH.org 94nop hill on 8th November 2004, reaching age 179 before being pushed off on 8th August 2005. The Humanized also reached age 51 on the 94 hill.

;redcode-94nop
;name The Humanizer
;author bvowk/fiz
;strategy partly evolved
;assert 1
;optimax pws

pBov    equ     956  ;453
pAwa    equ     qbomb+790

zero    equ     qbomb
qtab3   equ     qbomb

qbomb   dat     >qoff,          >qc2
xGo     spl     pGo,            <875

        spl     2,              <qb1
qtab2   spl     1,              <qb2
        spl     1,              <qb3

        mov     <pBoo,          {pBoo
pBoo    spl     pAwa,           pAmmo+1
        djn.f   *-1,            <2058

    for 5
        dat     0,              0
    rof

pGo     mov     <pBoo,          {pBoo
        spl     1,              <479
        spl     1,              <3231
        spl     1,              <848
        mov.i   <pBo1,          {pBo1
pBo1    spl     zero+pBov,      pEnd
        mov.i   }pBo1,          >pBo2
pBo2    jmp.f   zero+pBov+235,  zero+pBov+235

        dat     zero-1,         qa1
qtab1   dat     zero-1,         qa2

pStone  spl     #2*2862,        {2*2862
        mov     pAmmo,          *2
        add.f   pStone,         1
        mov     4655,           4655+2862
pSrcS   jmp     -3,             pStone
        dat     0,              0
pAmmo   dat     }1,             >1


for 8+1
 dat 0, 0
 rof

        spl.b   @0,             >286
        mov.i   }-1,            >-1
        spl.b   @0,             <1040
        mov.i   }-1,            >-1
        spl.b   @0,             }1879
        mov.i   }-1,            >-1
        mov.i   #-3581,         {1
        mov.i   >705,           }-10
pEnd    dat     0,              0

    for 18-1
        dat     0,              0
    rof

qc2 equ ((1 + (qtab3-qptr)*qy) % CORESIZE)
qb1 equ ((1 + (qtab2-1-qptr)*qy) % CORESIZE)
qb2 equ ((1 + (qtab2-qptr)*qy) % CORESIZE)
qb3 equ ((1 + (qtab2+1-qptr)*qy) % CORESIZE)
qa1 equ ((1 + (qtab1-1-qptr)*qy) % CORESIZE)
qa2 equ ((1 + (qtab1-qptr)*qy) % CORESIZE)
qz equ 2108
qy equ 243
qgo sne qptr + qz*qc2, qptr + qz*qc2 + qb2
 seq <qtab3, qptr + qz*(qc2-1) + qb2
 jmp q0, }q0
 sne qptr + qz*qa2, qptr + qz*qa2 + qb2
 seq <qtab1, qptr + qz*(qa2-1) + qb2
 jmp q0, {q0
sne qptr + qz*qa1, qptr + qz*qa1 + qb2
 seq <(qtab1-1), qptr + qz*(qa1-1) + qb2
 djn.a q0, {q0
 sne qptr + qz*qb3, qptr + qz*qb3 + qb3
 seq <(qtab2+1), qptr + qz*(qb3-1) + (qb3-1)
 jmp q0, }q1
sne qptr + qz*qb1, qptr + qz*qb1 + qb1
 seq <(qtab2-1), qptr + qz*(qb1-1) + (qb1-1)
 jmp q0, {q1
 sne qptr + qz*qb2, qptr + qz*qb2 + qb2
 seq <qtab2, qptr + qz*(qb2-1) + (qb2-1)
 jmp q0
 seq >qptr, qptr + qz + (qb2-1)
 jmp q2, <qptr
seq qptr+(qz+1)*(qc2-1),qptr+(qz+1)*(qc2-1)+(qb2-1)
 jmp q0, }q0
seq qptr+(qz+1)*(qa2-1),qptr+(qz+1)*(qa2-1)+(qb2-1)
 jmp q0, {q0
seq qptr+(qz+1)*(qa1-1),qptr+(qz+1)*(qa1-1)+(qb2-1)
 djn.a q0, {q0
 jmz.f xGo, qptr + (qz+1)*(qb2-1) + (qb2-1)
qoff equ -87
qstep equ -7
qtime equ 14
q0 mul.b *2, qptr
q2 sne {qtab1, @qptr
q1 add.b qtab2, qptr
 mov qtab3, @qptr
qptr mov qbomb, }qz
 sub #qstep, qptr
 djn -3, #qtime
 jmp xGo
end qgo