;redcode-94nop ;name devilish 2.02 ;author David Houston ;assert CORESIZE==8000 ;strategy q^5 -> stone/imp. org qgo ;pointer to instruction #0 zero equ qbomb ;----------------------------------------------------- qtab3 equ qbomb qbomb dat >qoff, >qc2 ;----------------------------------------------------- ; the boot bdaway equ 3277 biaway equ 6140 boot mov @bdptr, zero + 5 + bdaway + dboff spl 2, -1, >1 add.f diamond, @-1 djn.f @-2, -1, >1 ;----------------------------------------------------- ; the imps ; boring 7-point imps ; in theory, impi can be moved away from main body istep equ 1143 istart equ (imps + 4) imps spl #istart, <-20 sub.f #-(istep + 1), ijmp mov istart, }imps ijmp jmp istart - 2 * (istep + 1), <-3700 impi mov.i #-5, istep dat zero - 1, qa1 qtab1 dat zero - 1, qa2 ;----------------------------------------------------- ; this core intentionally left blank for 42 dat 0, 0 rof ;----------------------------------------------------- ;extended Q^4 scan 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 ; qy * (qz-1) = 1 ;q0 mutation qgo sne qptr + qz*qc2, qptr + qz*qc2 + qb2 seq qptr, qptr + qz + (qb2-1) jmp q2,