;redcode-ln ;name Rottinger ;author G.Labarga ;assert 1 ;strategy paper+stone test pdist equ 4215 ;3369 pinit equ 5172 ;1997 bstep1 equ 1171 ;\ probar optimizar después bstep2 equ 826 ;/ decrem equ 2903 zero equ qbomb qtab3 equ qbomb src: mov.ab #9,#9 v1: add.a #pdist,dst loop: mov.i decrem dst: jmz.b pinit,*0 dat }1,>1 for 85 dat 0, 0 rof qbomb dat >qoff, {qc2 dat 0, 0 dat 0, qptr, qptr + qz + (qb2-1) jmp q2,