;redcode-94esoteric ;name Mod Thingy ;author Steven Morrell ;strategy Find "mod" value of step and die. ;strategy Technically, the "mod" value of 0 should be CORESIZE, but that ;strategy won't fit in the B-field, so we use 0 instead. step equ 3056 org data data sne.x #-step,#step ;these first two lines make it work when step is jmp done ;zero or CORESIZE/2 loop mod.x data,data jmn.f loop,data jmn.b done,data ;these two lines get the answer in the B-field mov.x data,data ;when step is less than CORESIZE/2 done mod.x #0,#0 end