;redcode-94nop ;name Giheguoerg ;author G.Labarga ;strategy Qscan->stone/paper ;assert CORESIZE==8000 ;strategy stone/paper ;optimizar paloc?, stloc y distribución. ;comprobar boot y Qscan ; ver1: no paper boot, 2-spl stone ;papot1 ;boot constants: stloc equ (boot+2695) ;paloc zero equ qbomb qtab3 equ qbomb qbomb dat >qoff , >qc2 boot: mov bmb,stloc+11 mov pstep1 mov }-1,>-1 mov {-2,{1 spl *pstep2,-2*step hit: mov bmb+4,@ref sub.f start,@hit ref: mov >adist,>dist jmp hit,>hit+3692 for 7 dat 0,0 rof bmb: dat >2667,>step ;------- 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 ,