From schmc003@goofy.zdv.Uni-Mainz.de Sun Feb 16 21:03:29 1997 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 VAA22226 for ; Sun, 16 Feb 1997 21:03:28 +0100 Received: from mail.Uni-Mainz.DE (root@trudi.zdv.Uni-Mainz.DE [134.93.178.159]) by nez-perce.inria.fr (8.7.6/8.7.3) with ESMTP id VAA02128 for ; Sun, 16 Feb 1997 21:03:22 +0100 (MET) Received: from schmc003 (dialin105.zdv.Uni-Mainz.DE [134.93.174.105]) by mail.Uni-Mainz.DE (8.8.5/8.8.4) with SMTP id VAA26863 for ; Sun, 16 Feb 1997 21:03:08 +0100 (MET) Message-ID: <33076821.FF7@goofy.zdv.uni-mainz.de> Date: Sun, 16 Feb 1997 21:03:45 +0100 From: Christian Schmidt X-Mailer: Mozilla 3.0 (Win95; I) MIME-Version: 1.0 To: Damien.Doligez@inria.fr Subject: new warriors Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: 8bit Status: RO Hi Damien, itīs time to send you some of my warriors for your great Mt Olympus and for completing your archieve of warrior ( the best shopping place of the internet :-) 1. the unchanged actual hill version of Scanitator 4 2. the unchanged actual hill version of Terkonit 0.4 3. and one of my first (boring) written programm a self-replicating jmz-scanner itīs a funny thing but works quite bad :-) Mmmh, what do you think. Is it a scanner, a paper or both ? To be continued....... Christian Schmidt ---------------------------------------------------------------------- ;redcode-94 ;name Scanitator 4 ;author Christian Schmidt ;strategy Q^2=>p-switcher=>paper, stone ;strategy v4 new mod 2 stone (carbonite) ;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 bootdist equ 3000 org start ;----------Q^2 Scan---------- qbomb: jmp -200, GAP qinc: dat GAP,-GAP nop 10*QS, 2*QS table: nop 4*QS, 1*QS nop 23*QS, 3*QS 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, <1000 spl 1, <1500 spl 1, <2000 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 b dat.f >2667, >5335 ;----------stone (carbonite:-)-------- dbomb dat >-1, >1 scopy spl #0, <-100 mov dbomb, tar-197*3500 tar add #197, -1 djn.f -2, <-1151 boot mov }sptr, }dptr djn -1, #4 mov >sptr, >dptr spl dptr+bootdist, <-400 mov dbomb, dptr dptr dat bootdist, bootdist+dbomb-scopy sptr dat scopy, dbomb datz: dat 0, 0 ;redcode-94 ;name Terkonit 0.4 ;author Christian Schmidt ;strategy q^2 + paper-launching imp spiral ;kill Terkonit ;assert 1 QB equ (start+400) QS equ 200 QD equ 100 GAP equ 15 REP equ 6 pst1 equ 2200 pst2 equ 3740 pst3 equ 3044 ;mod-3 is simply the best!!!! bst1 equ 1870 bst2 equ 2340 bdist equ 500 ist equ 2667 org start 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 ip,}-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 ip spl 1, <-1000 ;generates 8 parallel processes spl 1, <-2000 spl 1, <-7000 m1 mov {bptr1, s1 s2 spl @s2, }pst2 ;second paper cell mov.i }s2, >s2 mov.i {-bst1,s3 imp mov.i #ist, *0 ;and the imp bptr1 dat imp+1, imp+1+bdist ;here are the bptr2 dat imp+1, imp+1+bdist+ist ;boot pointers bptr3 dat imp+1, imp+1+bdist+2*ist datz: dat 0, 0 ;redcode-94 ;name Repliscan ;author Christian Schmidt ;strategy One of my first olī warrior :-) ;strategy This jmz-scanner replicate itself to ;strategy the locations where he found something. ;strategy funny but very bad :-( org scan step equ 3024 ;mod-16 dp dat 1, 9 ;here is the pointer res sub #3, scan ;reset the scan-value ;of the copy incr add.ab #step, scan ;here are the scan jmz.f -1, 106 ;JMZ-scanner mp mov.i dp, >scan ;copying the pointer without changes cop mov.i }dp, >scan ;copy-routine count djn.b -1, dp ;for the rest of the code su sub.b jm, scan ;reset the original jm spl @scan, 9 ;start the copy ag jmp incr ;and start the original again