;redcode 
;name Night Terrors
;author John Metcalf 
;strategy qscan -> paper/imp 
;assert CORESIZE==8000

; qscan - 36 scans in 48 instructions 

        qfirst equ (qp2+2*qstep) 
        qdist  equ qfirst+qstep*4+126 
        qstep  equ 291 

        qi  equ 7 
        qr  equ 7 

qbomb   dat <qi/2-qi*qr,   <qi*qr-qi/2 

        qa  equ qstep*16 
        qb  equ qstep*5+2 
        qc  equ qstep*10 
        qd  equ qstep*2 
        qe  equ qstep*1 

qgo     cmp qdist+qc,      qfirst+qc 
        jmp qfast,         <qa 
        cmp qdist+qe+qd,   qfirst+qe+qd 
qp1     jmp <qfast,        <qc 
qp2     cmp qdist,         qfirst 
qp3     jmp qskip,         <qe 

        cmp qdist+qb,      qfirst+qb 
q1      djn qfast,         #qp1 

        cmp qdist+qd+qc,   qfirst+qd+qc 
        jmp qslow,         <qfirst+qd+qc+4 
        cmp qdist+qd+qb,   qfirst+qd+qb 
x1      jmp qslow,         <q1 
        cmp qdist+qc+qc,   qfirst+qc+qc 
q2      djn qslow,         #qp2 
        cmp qdist+qd,      qfirst+qd 
        jmp qslow,         <qfast 
        cmp qdist+qa,      qfirst+qa 
        jmp q1,            <q1 

        cmp qdist+qa+qd,   qfirst+qa+qd 
        jmp x1,            <q1 
        cmp qdist+qc+qb,   qfirst+qc+qb 
        jmp q2,            <q1 
        cmp qdist+qe+qd+qc,qfirst+qe+qd+qc 
        jmp qslower,       <qfirst+qe+qd+qc+4 
        cmp qdist+qe+qd+qb,qfirst+qe+qd+qb 
        jmp qslower,       <q1 
        cmp qdist+qe+qc+qc,qfirst+qe+qc+qc 
        jmp qslower,       <q2 
        cmp qdist+qd+qd+qc,qfirst+qd+qd+qc 
q3      djn qslower,       #qp3 
        cmp qdist+qe+qc,   qfirst+qe+qc 
        jmp <qfast,        <q2 
        cmp qdist+qd+qd,   qfirst+qd+qd 
        jmp <qfast,        <q3 
        cmp qdist+qd+qd+qb,qfirst+qd+qd+qb 
        slt <q3,           <q1 

        jmz pgo,           qdist+qe+qd+qc+10 

qslower add @q3,           @qslow 
qslow   add @q2,           qkil 
qfast   add @q1,           @qslow 

qskip   cmp <qdist+qstep+50, @qkil 
        jmp qloop,         <1234 

        add #qdist-qfirst, qkil 
qloop   mov qbomb,         @qkil 
qkil    mov <qfirst+qstep+50, <qfirst 
        sub #qi,           @qloop 
        djn qloop,         #qr+2 

        istep  equ 2667 
        pstepa equ 722 
        pstepb equ 4340 
        pstepc equ 6590 
        proc   equ 8 

pgo     spl 1,             <imp+100 
        spl 1,             <imp-istep+100 
        spl 1,             <imp+istep+100 

from    spl top,           paper+proc 
        mov <from,         <g1 
g1      jmp @0,            paper+proc-istep 

top     mov @from,         <g2 
g2      spl @0,            paper+proc+istep 

paper   mov <proc,         <silka 
silka   spl @0,            pstepa+proc 
        mov <proc,         <silkb 
silkb   spl @0,            pstepb+proc 
        mov <proc,         <silkc 
silkc   spl @0,            pstepc+proc 
        spl imp+istep,     <4000 
imp     mov 0,             istep 

        end qgo