From news-rocq!univ-lyon1.fr!oleane.net!oleane!news.maxwell.syr.edu!newspeer1.nac.net!news.ttsg.com!fordbc@hotmail.com Thu Dec 7 14:36:58 2000 Article: 12059 of rec.games.corewar Path: news-rocq!univ-lyon1.fr!oleane.net!oleane!news.maxwell.syr.edu!newspeer1.nac.net!news.ttsg.com!fordbc@hotmail.com From: "Benjamin Ford" Newsgroups: rec.games.corewar Subject: Banpei Date: 6 Dec 2000 09:08:35 -0500 Organization: TTSG Lines: 142 Distribution: world Message-ID: Reply-To: fordbc@hotmail.com NNTP-Posting-Host: odin.ttsg.com X-Trace: odin.ttsg.com 976111715 19267 216.231.111.29 (6 Dec 2000 14:08:35 GMT) X-Complaints-To: abuse@news.ttsg.com NNTP-Posting-Date: 6 Dec 2000 14:08:35 GMT Originator: corewar-l@koth.org Xref: news-rocq rec.games.corewar:12059 You basic stun bomber with an interesting clear. The bomb is spaced out just right for the multipass clear to work without having to use any extra intructions just to hold bombs for the clear while maintaining good spacing for the bombs. Only problem is the clear doesn't form a perfect gate so there is a slight chance for an imp to slip through. ;redcode-lp ;name Banpei ;author Ben Ford ;strategy Q^3 -> 0.5c bomber -> multipass clear ;strategy version 1.0 ;strategy Submitted: @date@ ;strategy ;strategy "The survival of Bushido into cyberspace ;strategy has spiritual significance to many execs." ;assert CORESIZE==8000 && MAXPROCESSES==8 start equ qscan ; **** BOMBER **** bomber equ bhit gate equ (bhit-7) HALF equ 76 FULL equ 136 INIT equ (bhit+FULL) bptr mov FULL, *INIT add.ab { 0, } 0 bhit mov bjmp, @bptr bchk jmn @bhit, *bhit bclr mov }bptr, *bptr jmp bclr, ] 0/1 cycles [(<+- qscan seq qd+qf+qs, qf+qs ; 1 jmp qSki, {qd+qf+qs+qi seq qd+qf+7*qs, qf+7*qs ; B jmp qfast, {qd+qf+7*qs+qi seq qd+qf+15*qs, qf+15*qs ; A jmp qfast, {qfast seq qd+qf+14*qs, qf+14*qs ; A-1 djn.a qfast, {qfast seq qd+qf+6*qs, qf+6*qs ; B-1 jmp qfast, {qtab seq qd+qf+13*qs, qf+13*qs ; C jmp qfast, }qfast seq qd+qf+8*qs, qf+8*qs ; B+1 jmp qfast, }qtab ; -+>)] 2 cycles [(<+- seq qd+qf+9*qs, qf+9*qs ; D-1 djn.b >qfast, {qslow seq qd+qf+18*qs, qf+18*qs ; (B-1)*(E-1) djn.f qslow, qtab seq qd+qf+52*qs, qf+52*qs ; C*E jmp qslow, }qfast seq qd+qf+66*qs, qf+66*qs ; (B-1)*F djn.a qslow, }qslow seq qd+qf+10*qs, qf+10*qs ; D jmp >qfast, {qslow seq qd+qf+32*qs, qf+32*qs ; (B+1)*E jmp qslow, }qtab seq qd+qf+11*qs, qf+11*qs ; F jmp >qfast, }qslow seq qd+qf+21*qs, qf+21*qs ; B*(E-1) jmp qslow, qtab seq qd+qf+24*qs, qf+24*qs ; (B-1)*E jmp qslow, {qtab seq qd+qf+39*qs, qf+39*qs ; C*(E-1) djn.b qslow, }qfast seq qd+qf+56*qs, qf+56*qs ; (A-1)*E djn.a qslow, {qfast seq qd+qf+3*qs, qf+3*qs ; E-1 jmp >qfast, qfast, >qtab seq qd+qf+70*qs, qf+70*qs ; B*D jmp qslow, {qslow seq qd+qf+77*qs, qf+77*qs ; B*F jmp qslow, }qslow seq qd+qf+4*qs, qf+4*qs ; E jmp >qfast, {qd+qf+4*qs+qi sne qd+qf+28*qs, qf+28*qs ; B*E qend jmz bomber, qd+qf+28*qs-10 ; ***** Q-SCAN BOMBER ***** qslow mul.b qtab, qptr ; decode qfast mul.ab qtab, @qslow qSki sne >3456, @qptr add #qd, qptr qloop mov qbmb, @qptr ; .5c negative bomber qptr mov qbmb, *qs sub #qi, qptr djn qloop, #qr jmp *qend, <1234 ; ***** END ***** for MAXLENGTH-CURLINE dat 0, 0 rof end start _____________________________________________________________________________________ Get more from the Web. FREE MSN Explorer download : http://explorer.msn.com