;redcode-94x ;name 1984 ;author David Houston ;assert CORESIZE == 8000 ;strategy Track down little brother. ;strategy "Convince" him to be a spl/spl/dat wiper. ;strategy Use a Recon style scanner to point little ;strategy brother at the bully. ffirst equ -1000 fstep equ -108 sstep equ 6557 ; Scan for the decrement stream dsl add #fstep, fptr ds sne wptr mov *wptr, >wptr jmp -2 ; Recon-style scanner. Uses the SSD clear as its ; wiper. sinc dat sstep, sstep sloop add.f sinc, scan sgo sne *scan, @scan add.f sinc, scan seq *scan, @scan slt.a #30, scan jmp sloop mov.b scan, wptr djn sloop, #400 ; seems optimal jmp clear ; This looks like the decrement stream mdec dat -1, 0 ; This looks like the last op in our little brother. msib jmp -2, }-2 ; Data ;fptr dat clear, ffirst end ds