;redcode-94nop ;author inversed ;name Synthesis of Bvowkium Impoxide 7 ;strategy Datagram 2006 spring tournament round 3 entry ;strategy vs. Neo (Again!) ;strategy ImpCalc -> Anti-imp paper/Imp paper ;First, calculate 7pt impstep (thanx Planar!) ;If impstep exists, launch Anti-imp paper ;(Taken from Bvowkium Fizmoxid, worked best) ;and Imp paper (Vortex launcher attached to silk). ;This should beat most scanners (HSAish included). ;(Guess: Neo will send scanner or PSpacer with scanner) ;But if no impstep exists then i'm out :( ;Probability of such issue is 1/7 (coresize = 8001 + 7*i) ;(~ 14%). I hope this will not happen. PIN 10 bd1 equ 503 bd2 equ 2184 x0 equ boot org start boot spl 1, 0 spl 1, 0 spl 1, 0 mov {isilk, {bp2 mov {silk1, {bp1 bp1 spl x0+bd1, 0 bp2 jmp x0+bd2, 0 for 15 dat 0, 0 rof iofs1 equ 6441 aofs equ 37 isilk spl @8, -1 spl #0, 0 add.x imp, ptr ptr djn.f imp-1, {aofs dat 0, 0 dat 0, 0 imp mov.i #aofs, 1 for 19 dat 0, 0 rof ofs1 equ 2219 ofs2 equ 261 bofs equ 243 silk1 spl @8, -1 silk2 spl @0, -1 spl #0, 0 mov.i #1, <1 djn -1, #bofs for 20 dat 0, 0 rof n equ 7 yx dat 0, n ; y = CORESIZE = 0 ab dat 1, 0 start sub.b yx, q ; (CORESIZE-n) div.b yx, q ; ((CORESIZE-n)/n) add.ab #1, q ; q = (CORESIZE-n)/n+1 = CORESIZE/n loop mul.ab ab, q ; (a*q) mov.x ab, ab ; (b); b' = a sub.ba q, ab ; a' = b - a*q mov.x yx, yx ; (y); y' = x sub.ab yx, yx ; (y - x) mod.ab yx, yx ; x' = (y-x) % x = y % x jmz.b done, yx ; We're done if x = 0 mov.ab yx, q ; (y) div.b yx, q ; q' = y' / x' jmp loop, 0 q dat 0, 0 done seq.a #1, yx jmp noimps, 0 mov.b ab, imp sub.ba ab, ptr jmp boot, 0 noimps mov kill, bp2 jmp boot, 0 kill dat 4000, 0