From Gonffen@aol.com  Thu May  7 01:16:17 1998
Received: from nez-perce.inria.fr (nez-perce.inria.fr [192.93.2.78]) by tobago.inria.fr (8.6.10/8.6.6) with ESMTP id BAA04100 for <doligez@tobago.inria.fr>; Thu, 7 May 1998 01:16:16 +0200
Received: from imo12.mx.aol.com (imo12.mx.aol.com [198.81.17.34])
	by nez-perce.inria.fr (8.8.7/8.8.5) with ESMTP id BAA24623
	for <Damien.Doligez@inria.fr>; Thu, 7 May 1998 01:16:15 +0200 (MET DST)
Received: from Gonffen@aol.com
	by imo12.mx.aol.com (IMOv14.1) id 8LOIa14246
	for <Damien.Doligez@inria.fr>; Wed, 6 May 1998 19:15:17 -0400 (EDT)
From: Gonffen <Gonffen@aol.com>
Message-ID: <9045dc4b.3550ef06@aol.com>
Date: Wed, 6 May 1998 19:15:17 EDT
To: Damien.Doligez@inria.fr
Mime-Version: 1.0
Subject: Warrior Sub
Content-type: text/plain; charset=US-ASCII
Content-transfer-encoding: 7bit
X-Mailer: AOL 3.0 for Windows 95 sub 18
Status: RO

;redcode-94
;name Liquid Paper
;author Sean McDonald 
;strategy scanpaperw/decoy (have fun) 
;(based on code by B. Moore)
;assert 1


paper  spl   1, >-400
       mov.i 1, #0
       spl   1, {-300

       mov <1, {1
       spl 2319, 7

       spl  @0, <4195
       mov }-1, >-1
       mov   3, >-2
       mov {-3, {1
       jmz.a 6234, *0
       dat 1, 1

for 25
 dat 0,0
rof


switch ldp.ba what, what
       mod.a #3, what
       ldp.ab #0, switch
       add.a @switch, what
       stp.ab *what, what
what   jmp @0, scan
       dat 1, scan
       dat 0, scan
       dat 1, scan
       dat 1, scan
       dat 2, paper
       dat 0, scan
       dat 1, scan

for 32
 dat 0,0
rof



dist equ 2942 ;boot distance
step equ 2891 ;scan pattern; -723 might be better
time equ 2000 ;number of SPLs copied

scan   mov <boot, <top
     for 8
       mov <boot, <top
     rof
boot   jmp start+dist, top+9

top    mov.b  2, #dist+9
       mov   sp, >top
       add #step, #-step*time
start  jmz.f -2, @-1
       jmn  top, *top
sp     spl   0, 0
       mov    2, >top-3
       djn.f -1, >top-3
       dat    0,  5-top

decoy
foo:   for    (MAXLENGTH-CURLINE)
       dat    1,1
       rof

end switch