;redcode-94 ;name Stimpy v2.0 ;author Brant D. Thomsen ;strategy SPL/JMP A/B field scanner w/ SPL/DAT core-clear. ;strategy Submitted: @date@ ;macro step equ 2365 init equ 1 + step dat.A #1, #1 dat.A #1, <1 dat.A #1, @1 dat.A #1, <1 dat.A #1, >1 dat.A #1, *1 dat.A #1, {1 dat.A #1, }1 dat.A 1, #1 dat.A 1, 1 dat.A 1, @1 dat.A 1, <1 dat.A 1, >1 dat.A 1, *1 dat.A 1, {1 dat.A 1, }1 dat.A @1, #1 dat.A @1, 1 dat.A @1, @1 dat.A @1, <1 dat.A @1, >1 dat.A @1, *1 dat.A @1, {1 dat.A @1, }1 dat.A <1, #1 dat.A <1, 1 dat.A <1, @1 dat.A <1, <1 dat.A <1, >1 dat.A <1, *1 dat.A <1, {1 dat.A <1, }1 dat.A >1, #1 dat.A >1, 1 dat.A >1, @1 dat.A >1, <1 dat.A >1, >1 dat.A >1, *1 dat.A >1, {1 dat.A >1, }1 dat.A *1, #1 dat.A *1, 1 dat.A *1, @1 dat.A *1, <1 dat.A *1, >1 dat.A *1, *1 dat.A *1, {1 dat.A *1, }1 dat.A {1, #1 dat.A {1, 1 dat.A {1, @1 dat.A {1, <1 dat.A {1, >1 dat.A {1, *1 dat.A {1, {1 dat.A {1, }1 dat.A }1, #1 dat.A }1, 1 dat.A }1, @1 dat.A }1, <1 dat.A }1, >1 dat.B <1, #1 dat.B <1, 1 dat.B <1, @1 dat.B <1, <1 dat.B <1, >1 dat.B <1, *1 dat.B <1, {1 dat.B <1, }1 dat.B >1, #1 dat.I @1, 1 dat.I @1, >1 dat.I 1, 1 start mov.I db, db - point - step - 1 ; The bootstrapping distance is chosen ; such that this instruction is overwritten ; by the first bomb. ; (In case of tracing.) add #ptr - db, start mov.I ptr, @start sub #ptr - jump - 1, start for 8 mov.I point point jmz.F -2, init ; Hit here to end jmn.A top, -1 split spl #0, <-ptr mov.I @begin,