;redcode-94nop ;name pro.Verka ;author inversed ;strategy Scanner based on Provascan by Beppe Bezzi ;strategy Resurrecting ancient warrior ;strategy resulted in FSH0.3 score of 142.5 ;assert CORESIZE==8000 ;-------Scan-------------------------------- step equ (2*104+1)*8 ;mod-8 hop equ 12 wlen equ 20 zo equ -1 dest equ ptr-4 ;-------qScan------------------------------- f equ (-367) y equ (-2703) dq equ (y+1)%CORESIZE qa1 equ (1+f*(qt1-1-found))%CORESIZE qa2 equ (1+f*(qt1 -found))%CORESIZE qb1 equ (1+f*(qt2-1-found))%CORESIZE qb2 equ (1+f*(qt2 -found))%CORESIZE qb3 equ (1+f*(qt2+1-found))%CORESIZE qc2 equ (1+f*(qt3 -found))%CORESIZE qt3 equ qbomb ;-------Misc-------------------------------- bd equ 1673 org qgo ;------------------------------------------- x0 dat qb1, 0 qt2 dat qb2, 0 dat qb3, 0 inc spl #step, step loop add inc, ptr ;scanned last ptr sne.b zo+hop, zo jmp loop, dest x1 mov.b ptr, dest cnt mov #wlen, #0 ;0 clear mov bomb, >dest djn clear, cnt jmn loop, @x1 ;also some self-checking bomb spl 0, 0 ;0 mov kill, >ptr djn.f -1, >ptr kill dat <2667, 12 wgo mov found, found+dq+(qb2-1) jmp qsel, dq add #qstep, found djn qloop, #qtime jmp wgo, 0 qbomb dat {qc2, {qoff