From news-rocq.inria.fr!jussieu.fr!univ-lyon1.fr!in2p3.fr!oleane!plug.news.pipex.net!pipex!tank.news.pipex.net!pipex!newsfeed.internetmci.com!uwm.edu!msunews!mooredav Thu Apr 11 11:01:42 1996
Article: 4736 of rec.games.corewar
Path: news-rocq.inria.fr!jussieu.fr!univ-lyon1.fr!in2p3.fr!oleane!plug.news.pipex.net!pipex!tank.news.pipex.net!pipex!newsfeed.internetmci.com!uwm.edu!msunews!mooredav
From: mooredav@cps.msu.edu (David Matthew Moore)
Newsgroups: rec.games.corewar
Subject: Re: spirals
Date: 10 Apr 1996 19:25:27 GMT
Organization: Michigan State University
Lines: 28
Distribution: world
Message-ID: <4kh1v7$cnk@msunews.cl.msu.edu>
References: <01I3BXU28KLE002EC5@ACAD.DRAKE.EDU>
NNTP-Posting-Host: arctic.cps.msu.edu
X-Newsreader: TIN [version 1.2 PL2]

PK6811S@ACAD.DRAKE.EDU wrote:
: ;redcode-94m
: ;name Spiral 4000
: ;kill Spiral 4000
: ;author P.Kline

Wow, here is what I _expected_ when I first read "Spiral 4000..."

;redcode
;name 2 pt spiral generator
;author David Moore
;assert CORESIZE==8000
;can you think of any use for this?

step equ 4001

start
     mov   imp, <ptr
     mov imp-1, <ptr
     mov imp-2, <ptr
     mov imp-3, <ptr
ptr  spl    @0, imp+step
     spl     2,    0
     jmp    -1,    0
     spl imp+step, 0
imp  mov     0, step

end start