;redcode-94 ;name Under a burning sky ;author G.Labarga ;assert 1 ;strategy Clearing paper test zero equ qbomb qtab3 equ qbomb qbomb dat >qoff , >qc2 dat 0,0 dat 0,0 Plch: spl 2, -1 spl @0,< 664 mov }-1,>-1 mov.i #1,<1 djn.b -2,# 6535 for 4 ;12 dat 0 , 0 rof dat zero-1 , qa1 qtab1 dat zero-1 , qa2 for 17 dat 0 , 0 rof for 14 dat 0 , 0 rof for 14 dat 0 , 0 rof ;------- Q^4.5 ------ 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 ,