;redcode-94 ;name He Scans Again (Revised) ;author Robert Macrae after P.Kline ;assert 1 ; CORESIZE == 8001 ;strategy Trivial mod to HSA, using SPL #0, {0 bomb and sne.f ;strategy to avoid rebombing trails. ; OACT 1998/8 tPtr dat 100 ,4100-4 ; widely-spaced pointers dat 0,0 dat 0,0 dat 0,0 dat 0,0 dat 0,0 tWipe mov tSpl ,tPtr ,>tPtr jmn.f tWipe ,>tPtr tScan sub.x #-12 ,tPtr ; increment and look sne.f *tPtr ,@tPtr sub.x *pScan ,@tScan ; increment and look jmn.f tSelf ,@tPtr jmz.f tScan ,*tPtr pScan mov.x @tScan ,@tScan ; swap pointers for attack tSelf slt.b @tScan ,#tEnd+4-tPtr ; self-check djn tWipe ,@tScan ; go to attack djn *pScan ,#13 ; after 13 self-scans jmp *pScan ,}tWipe ; switch to dat-wiping dat 0,0 tSpl spl #0,{0 dat 0,0 dat 0,0 tEnd dat 0,0 for 61 dat 0,0 rof tDecoy equ (tWipe+1-1196) tStart mov