;redcode-94x ;name Dying to Know /0 ;dist /240 rnd 0 ;author Dave Hillis ;strategy - Experimenting with P-space ;assert CORESIZE==55440 ;Tells the starting postion for a given ;round in the fixed sequence. ;The number of ties against the sleeper ;(minus the round number) ;is the answer = starting position/240 ; PIN 5339 ; I think these constants are superfluous _RESULT equ #0 _ROUNDS equ #2236 _BOOT equ #2237 _FRIEND equ #2240 _ENEMY equ #2242 _LOSE equ #2256 _WIN equ _LOSE+1 _SANE equ #2245 _TEST equ #2260 notmad equ #3276 ;these are the constants that matter _SLEEP equ #555 S_CODE equ #200 _COUNTER equ # 193 _DIST equ #12; holds the distance from first rnd WRAP equ 110 THE_RND equ #0 ; report the starting position for round 0 first stp S_CODE, _SLEEP ; activate the sleeper thecnt ldp _COUNTER, #0 ;increment a round counter add.ab #1, -1 stp.b -2, _COUNTER ; seq.ab #1, thecnt seq.ab THE_RND +1, thecnt jmp report ;scan till I find the other warrior jmz #0, }first add.a #-1, first ;falls through when it finds something div.a #240, first ; mod.a #240, first stp.ab first, _DIST report ldp _DIST, #0 ; slt.ab # WRAP, \$ thecnt slt.b \$ -1, \$ thecnt doze jmp #0, #0 kill spl #0, #0 mov 1, }1 dat 100, 100 ; ;=====================================