From news-rocq.inria.fr!jussieu.fr!rain.fr!news-paris.gsl.net!news.gsl.net!news-peer.gsl.net!news.gsl.net!ix.netcom.com!netcom.net.uk!btnet!btnet-feed2!unlisys!cs.tu-berlin.de!news.uni-hamburg.de!news.uni-mainz.de!omalley.zdv.Uni-Mainz.DE!schmc003 Wed Dec 18 13:24:35 1996 Article: 6832 of rec.games.corewar Path: news-rocq.inria.fr!jussieu.fr!rain.fr!news-paris.gsl.net!news.gsl.net!news-peer.gsl.net!news.gsl.net!ix.netcom.com!netcom.net.uk!btnet!btnet-feed2!unlisys!cs.tu-berlin.de!news.uni-hamburg.de!news.uni-mainz.de!omalley.zdv.Uni-Mainz.DE!schmc003 From: Christian Schmidt Newsgroups: rec.games.corewar Subject: Scanitator 3.0 Date: Wed, 18 Dec 1996 10:13:16 +0100 Organization: Johannes Gutenberg-Universitaet Mainz, Germany Lines: 165 Message-ID: NNTP-Posting-Host: omalley.zdv.uni-mainz.de Mime-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII OK, after I am pushing off this warrior with my new version of Terkonit it is time to post them. First of all, nothing on Scanitator is really new. I used the q^2-scan from Probe, the p-logic described in CW, a standard paper ( the best one I think) and after booting away a small mod-2 stone without coreclear. I tried a lot of different stones but this one gives the best results ( at my own testhill ). Any comments or suggestions about this (stupid) work ;redcode-94 ;name Scanitator 3.0 ;author Christian Schmidt ;strategy Q^2=>plogic=>paper, stone ;strategy v2.5 change stone and boot, ;strategy v3.0 my final version (new stone step) ;kill Scanitator ;assert 1 QB equ (start+400) QS equ 200 QD equ 100 GAP equ 15 REP equ 6 _RES equ #0 _STR equ #111 STEP1 equ 1800 STEP2 equ 3740 STEP3 equ STEP1-STEP2+2*8-OFF OFF equ -50 org start ;-----------------q^2-scan--------------------- dat 10*QS, 2*QS table: dat 4*QS, 1*QS dat 23*QS, 3*QS qbomb: jmp -200, GAP qinc: dat GAP,-GAP tab: add.a table,table slow: add.ab @tab,fnd fast: add.b *tab,@slow which: sne.i datz,@fnd add.ab #QD,fnd mov.i qbomb,@fnd fnd: mov.i -GAP/2,@QB add.ba fnd,fnd mov.i qbomb,*fnd add.f qinc,fnd mov.i qbomb,@fnd djn.b -3,#REP jmp think,}-300 start: seq.i QB+QS*0,QB+QS*0+QD jmp which,}QS*13 ; qinc+GAP seq.i QB+QS*1,QB+QS*1+QD jmp fast,}QB+QS*1+QD/2 seq.i QB+QS*2,QB+QS*2+QD jmp fast,{tab seq.i QB+QS*3,QB+QS*3+QD jmp fast,}tab seq.i QB+QS*13,QB+QS*13+QD jmp fast,{fast seq.i QB+QS*4,QB+QS*4+QD jmp >fast,}QB+QS*4+QD/2 seq.i QB+QS*5,QB+QS*5+QD jmp slow,}QB+QS*5+QD/2 seq.i QB+QS*6,QB+QS*6+QD jmp slow,{tab seq.i QB+QS*7,QB+QS*7+QD jmp slow,}tab seq.i QB+QS*10,QB+QS*10+QD jmp >fast,fast,>tab seq.i QB+QS*24,QB+QS*24+QD jmp slow,>tab seq.i QB+QS*17,QB+QS*17+QD jmp slow,{fast seq.i QB+QS*8,QB+QS*8+QD jmp tab seq.i QB+QS*28,QB+QS*28+QD jmp tab,>tab seq.i QB+QS*30,QB+QS*30+QD jmp tab,}tab ;-----------------p-logic------------------- think res ldp.ab _RES, #0 str ldp.a _STR, str1 sne.ab #0, res lost add.a #1, str1 mod.a #2, str1 win stp.ab str1, _STR str1 jmp @0, boot dat 0, paper ;---------------------paper-------------- paper spl 1, <300 spl 1, <400 spl 1, <500 p2 spl @0, }STEP1 mov.i }-1, >-1 spl @0, }STEP2 mov.i }-1, >-1 mov.i 3, >OFF-5334 mov.i {-3, <1 jmp @0, >STEP3 dat.f >2667, >5334 ;----------------stone------------------------- st sub 2, 1 mov 2, 3094 jmp -2, -3094 ;---------------stone bootstrap-------------------- boot spl @0, boot-4000 mov st, >boot mov st+1, >boot mov st+2, >boot datz: dat 0,0