From corewar-l@stormking.com Sat Mar 9 23:23:55 1996 Received: by couchey.inria.fr (5.57/Ultrix3.0-C) id AA14628; Sat, 9 Mar 96 23:23:55 +0100 Received: from uu3.psi.com (uu3.psi.com [38.145.250.2]) by nez-perce.inria.fr (8.7.1/8.7.1) with SMTP id XAA28069 for ; Sat, 9 Mar 1996 23:23:55 +0100 (MET) Received: by uu3.psi.com (5.65b/4.0.940727-PSI/PSINet) via UUCP; id AA15971 for ; Sat, 9 Mar 96 17:06:47 -0500 Received: from (server@localhost [127.0.0.1]) by valhalla.stormking.com (8.6.12/8.6.12) with SMTP id QAA13635; Sat, 9 Mar 1996 16:46:02 -0500 Date: Sat, 9 Mar 1996 16:46:02 -0500 Message-Id: <4hsld3$g0m@lastactionhero.rs.itd.umich.edu> Errors-To: tuc@stormking.com Reply-To: jklewis@ren.us.itd.umich.edu Originator: corewar-l@stormking.com Sender: corewar-l@stormking.com Precedence: bulk From: jklewis@ren.us.itd.umich.edu (John K. Lewis) To: Multiple recipients of list Subject: Re: Tourney Results!!! X-Listprocessor-Version: 6.0b -- ListProcessor by Anastasios Kotsikonas X-Comment: Usenet News "rec.games.corewar" Loh Weng Keong Calvin (lohwengk@iscs.nus.sg) wrote: : BTW, you may publish my code if you feel it sufficiently "worthy" :) Certainly... anything that's 9/10th my code is great. John - ;redcode-94 ;name Ape ;author Calvin Loh ;strategy Not a smart program. Has 3 parts. 1 part is a copy of RedOS. ;strategy This is to try for at least a draw. ;strategy Appended a bomber. Launches "mov.i imp, imp+1" bombs. ;strategy Hope to hit enemy. Should not matter if hits RedOS. ;strategy Hopefully, RedOS will be a very fast imp if hit. ;strategy Last part is a gate. If I hit the enemy with an imp, ;strategy I hope it is slower than my gate. If I hit RedOS, then ;strategy I hope it is faster, so that it can escape. version equ 2,0 head dat CORESIZE,CORESIZE-toe ;CORESIZE, CORESIZE-OS dat version input dat 0,0 start ldp #0,#0 ; last state request sne.b start,#-1 ; check for start up jmp cold ; goto cold_boot sne.b start,#0 ; check for error after hard crash jmp error ; goto error stp #1,#1 wait jmz 0,input ; wait for input sne input,#1 ; check for run jmp run ; sne input,#2 ; check for user clear jmp clear sne input,#3 ; user cold boot jmp cold mov clean,input jmp error jmp wait ; future function go here error ldp #1,#0 ; load previous error count add #1,error stp.b -2,#1 ; store error codes slt.b #10,error jmp wait clear mov.b head,2 mov clean,>toe ; clear memory djn -1,#0 mov.ab #1,toe mov fix,head ; bug fix mov clean,input jmp wait ; goto wait cold stp #0,#1 ; clean error count mov clean,input jmp wait run spl *input mov clean,input jmp wait fix dat CORESIZE,CORESIZE-toe+head ;CORESIZE, CORESIZE-OS clean dat 0,0 toe dat 1,1 launch spl start dwarf mov.i imp, gate + 100 add.ab #4, dwarf djn dwarf, #1955 gate spl 0, <-100 jmp gate, <-101 imp mov.i imp, imp+1 end launch