;redcode-94nop ;name Bloodworm ;author Christian Schmidt ;strategy paper ;assert CORESIZE == 8000 ;------------ Qscan Constant --------------- zero equ qbomb qtab3 equ qbomb qz equ 2108 qy equ 243 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) qoff equ -88 qstep equ -7 qtime equ 20 ;------------------------------------------- sOff equ 4728 sStep equ 10 sDelet equ 205 ;------------------------------------------- dat 0, 0 qbomb dat >qoff, >qc2 ;------ 45 instructions -------------------- pStep1 equ 3244 pStep2 equ 1336 pStep3 equ 7095 pStep4 equ 618 pStep5 equ 5635 pBoo1 equ 7165 pBoo2 equ 5519 pGo spl 2 spl 1 spl 1 mov.i pBo2 pBo2 jmp.f zero+pBoo2, zero+pBoo2 pAp1 spl @0, >pStep1 mov }-1, >-1 mov {-2, <1 spl @0, >pStep2 mov.i #pStep3, {1 mov.i >pStep4, }pStep5 pEnd dat 0, 0 for 31 dat 0, 0 rof ;------------------------------------------- dat 0, qptr, qptr+qz+(qb2-1) jmp q2,