;redcode-94 test ;name Tom Tack Scan ;author P.Kline ;assert CORESIZE == 8000 ;strategy 66% spl-carpeting scanner tGate equ (tSpl-19) tStep equ 9 tPtr dat 100 ,4102 dat 0,0 dat 0,0 dat 0,0 dat 0,0 dat 0,0 tAttack mov tSpl ,>tPtr ; spl-carpet jmn.f -1 ,@tPtr tScan sub.x #-tStep ,tPtr ; increment jmn.f tSelf ,@tPtr ; scan first pointer jmz.f tScan ,*tPtr ; scan second pointer mov.x tPtr ,tPtr ; swap pointers tSelf slt.b tPtr ,#tEnd-tPtr ; check for self jmp tAttack ,tGate ; dat-wipe core djn.f -1 ,>tGate tDat dat >5335 ,tEnd-tGate dat 0,0 tEnd dat 0,0 end tScan