;redcode-94nop ;name Maelstrom ;author Roy van Rijn ;strategy qScan into impPaper & coreclearingPaper ;assert 1 bDist1 equ 996 bDist2 equ 5354 zero equ qbomb qtab3 equ qbomb qbomb dat >qoff , >qc2 dat 0 , 0 pGo spl 1 , -1 pStone spl #0 mov bomb , >ptr add.x imp , ptr ptr jmp imp-iStep*8 , >sStep-6 bomb dat >1 , }1 imp mov.i #sStep-1 , iStep for 3 dat 0 , 0 rof nstep1 equ 2413 cstep1 equ 4704 tstep1 equ 3278 pap spl @8 , }tstep1 mov.i }-1 , >-1 nothA spl cstep1 , 0 mov.i >-1 , }-1 nothB spl @0 , }nstep1 mov.i }-1 , >-1 mov.i #1138 , <1 djn.b -2 , #1618 for 22 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 ;qy*(qz-1)=1 ;q0 mutation qgo sne qptr+qz*qc2 , qptr+qz*qc2+qb2 seq qptr , qptr+qz+(qb2-1) jmp q2 ,