;redcode-94 verbose ;name Time Lapse v0.1 ;author David Boeren ;assert CORESIZE == 8000 ;strategy Bomber -> SPL/DAT coreclear ;strategy v0.1 Fast bomber, does not use stun bombs step equ 184 stepb equ (step*2) stepc equ (step*3) gate equ loop-7 org boot ptr JMP.B #step, #2 DAT.F #16, #0 SPL.B #16, #1 loop MOV.I ptr, *targ ; Tornado bombing with JMP 0's MOV.I ptr, @targ targ MOV.I step, *stepb ADD.F inc, targ DJN.B loop, #333 inc SPL.B #stepc, #stepc clear MOV.I @ptr, }ptr ; Coreclear modified from Phosphorus DJN.F clear, 100, >101 ; die in a core-coloring way for (MAXLENGTH-CURLINE) / 4 DAT.F loop, clear ; big decoy to confuse scanners DAT.F targ, boot ; No two are alike! DAT.F boot, targ DAT.F clear, loop rof END