From news-rocq!jussieu.fr!opentransit.net!cpk-news-hub1.bbnplanet.com!news.gtei.net!feed2.news.rcn.net!feed1.news.rcn.net!rcn!not-for-mail Tue Apr 10 16:49:35 2001
Article: 12506 of rec.games.corewar
Path: news-rocq!jussieu.fr!opentransit.net!cpk-news-hub1.bbnplanet.com!news.gtei.net!feed2.news.rcn.net!feed1.news.rcn.net!rcn!not-for-mail
From: Hillis <dbhillis@erols.com>
Newsgroups: rec.games.corewar
Subject: Re: Experimental Hill
Date: Fri, 06 Apr 2001 14:22:24 -0400
Lines: 125
Message-ID: <3ACE0960.AAADB4D5@erols.com>
References: <Pine.GUL.4.31.0104041902001.4396-100000@dingo.if.pw.edu.pl>
Reply-To: dbhillis@erols.com
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
X-Trace: UmFuZG9tSVbX9tVlKd94bVzxHIBWKzXW881XtglkAW0OeOeuK4j0NoNdLMkbt2Fj
X-Complaints-To: abuse@rcn.com
NNTP-Posting-Date: 6 Apr 2001 18:22:23 GMT
X-Mailer:  Mozilla 4.7 [en]C-CCK-MCD {STARPOWER}  (Win95; I)
X-Accept-Language:  en
Xref: news-rocq rec.games.corewar:12506


;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
;

;=====================================

;redcode-94x
;name  Dying to Know %0
;dist %240 rnd 0
;author Dave Hillis
;strategy - Experimenting with P^3 tables
;assert CORESIZE==55440

;The number of ties against the sleeper 
;(minus the round number)
;is the answer = starting position%240

;
PIN 5339

_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

_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
        
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
;