;redcode-b test ;name Jolt v0.3 ;author J.A-Worth ;strat boot->scan->clear ;strat v 0.1-original, scan->clear ;strat v 0.2-added boot ;strat v 0.3-parallelized clear ;strat 126->107->62?! special equ 48 org boot bdest equ 4123 ;// not real one, though this probably won't help anybody. clearp dat #bomb, #100 target dat #100, #112 next add step, target check sne *target, @target add step, target seq *target, @target slt.ab #special, target djn next, #1000 attack mov bomb,}target ;// yeah, its huge, and it bombs both spots mov bomb,>target mov bomb+1,}target mov bomb+1,>target mov bomb+2,}target mov bomb+2,>target add.f bomb+1, target jmn.b next, attack-1 clear spl #4, #0 mov *clearp, >clearp step dat #42, #42 dat #18,#40 bomb spl #18,#93 spl #-3,>-3 jmp -2, <-3 a for 44 ;// big decoy, but my scanner will bomb it too dat a,45-a rof bptr dat bomb+3,bdest boot mov {bptr,