Sections
Home
Hills
Infinite Hills
Tournaments
Software
Evolving
Optimizer
Community
Newsletter
Discussion
History
Sections
 
For Beginners
First Steps
FAQ
Guides
Lexicon
Benchmarks
For Beginners
> Home > The Corewar Newsletters > Core Warrior > Issue #1

Issue 63                                                   13 October, 1997
______________________________________________________________________________
Core Warrior is a newsletter promoting the game of corewar. Emphasis is placed 
on the most active hills--currently the '94 draft hill and the beginner hill. 
Coverage will follow where ever the action is.  If you have no clue what I'm 
talking about then check out these five-star internet locals for more 
information:

FAQs are available by anonymous FTP from rtfm.mit.edu as
pub/usenet/news.answers/games/corewar-faq.Z
FTP site is: ftp.csua.berkeley.edu /pub/corewar
             ftp.inria.fr/INRIA/Projects/para/doligez/cw/mirror.
Web pages are at: (Please note new Stormking's address)
http://www.koth.org/                            ;Stormking
http://www.ecst.csuchico.edu/~pizza/koth        ;Pizza
http://pauillac.inria.fr/~doligez/corewar/      ;Planar

Newbies should check the stormking page for the FAQ, language specification,
guides, and tutorials.  Post questions to rec.games.corewar.  All new players
are infinitely welcome!

If ftp.csua.berkeley.edu is unreachable, you can download pMARS at:
Terry's web page--http://www.ncs.infi.net/~wtnewton/corewar/
Planar ftp site--ftp://ftp.inria.fr/INRIA/Projects/para/doligez/cw/mirror
Fechter ftp site--ftp://members.aol.com/ofechner/corewar

A collection of Bezzi's hints in the first issues is available at:
ftp://ftp.volftp.vol.it/pub/pc/msdos/games/solutions/bbhints.zip

Beppe Bezzi web page - http://www.aspide.it/freeweb/Bezzi
______________________________________________________________________________
Greetings.

After a short phase with lots of entries the traffic decrease over the last two 
weeks. Only Paul Kline, Ian Oversby and Beppe Bezzi are continuously testing 
warriors. And the rest of the pack?

--Christian Schmidt

_____________________________________________________________________________
Current Status of the Internet Pizza Server ICWS '94 Draft Hill:

Hill Specs:
         coresize: 8000
   max. processes: 8000
         duration: after 80,000 cycles, a tie is declared.
max. entry length: 100
 minimum distance: 100
    rounds fought: 200
  instruction set: ICWS '94 Draft

#   %W /  %L /  %T                       Name               Author Score  Age
 1  41.0/ 31.9/ 27.0                   Nomolos          Ian Oversby 150.1    7
 2  41.8/ 39.6/ 18.6                 Red Baron    Christian Schmidt 143.9   38
 3  33.3/ 24.6/ 42.1                 Pulp v0.5          Ian Oversby 142.0   30
 4  34.9/ 28.8/ 36.3 obvious to those who know        Robert Macrae 141.1   31
 5  43.2/ 45.3/ 11.5                  Memories          Beppe Bezzi 141.0    1
 6  33.9/ 27.9/ 38.2                 test t4.4          Beppe Bezzi 139.9    0
 7  38.6/ 38.4/ 23.0               Digitalis 2    Christian Schmidt 138.8   16
 8  39.4/ 40.6/ 19.9             Electric Head        Anton Marsden 138.3   82
 9  29.2/ 21.0/ 49.8      Return Of The Jedimp             John K W 137.5  327
10  41.1/ 45.1/ 13.8               Fusion v0.1          Ian Oversby 137.1   12
11  37.4/ 39.0/ 23.6                   Dim Wit          Ian Oversby 135.7   30
12  31.0/ 26.7/ 42.3             Ultraviolet-B         Ken Espiritu 135.4    5
13  41.7/ 48.0/ 10.3            He Scans Again              P.Kline 135.4   70
14  31.3/ 27.2/ 41.5                      Newt          Ian Oversby 135.4   73
15  41.9/ 48.7/  9.4                    Scorch              P.Kline 135.1   18
16  33.8/ 32.9/ 33.3            Nine Seven Six           M R Bremer 134.6  191
17  36.0/ 37.9/ 26.1 PaperBoy Throws Some Rock          Robert Hale 134.0   22
18  37.1/ 40.4/ 22.5       Damage Incorporated        Anton Marsden 133.8  368
19  32.6/ 31.7/ 35.7                 Vengeance          Robert Hale 133.5   30
20  32.0/ 31.2/ 36.7                Baseline-A         Ken Espiritu 132.9   30
21  32.1/ 31.4/ 36.5              Head or Tail    Christian Schmidt 132.8  115
22  29.3/ 26.2/ 44.5               Merciless-A         Ken Espiritu 132.3   40
23  39.3/ 46.9/ 13.7                       C^3    Christian Schmidt 131.8   41
24  39.6/ 47.5/ 12.9       Conan the Barbarian    Christian Schmidt 131.6    1
25  22.2/ 27.0/ 50.8                     paper                   CS 117.4    0


Age since last issue: 31 ( 27 last issue, 2 the issue before )
New warriors: 14  Turnover/age rate 56%
Average age: 63 ( 63 last issue, 74 the issue before )
Average score: 136 ( 136 last issue, 142 the issue before )
The top 25 warriors are represented by 10 independent authors: Schmidt with 6;
Oversby with 5; Espiritu with 3; Hale, Marsden, Kline and Bezzi with 2.
All others with one warrior each.

Ian Oversby's Nomolos dominates the hill with a large gap to Christian Schmidt's
Red Baron.
______________________________________________________________________________
94 - What's New (and survived until now)

 #   %W /  %L /  %T                       Name               Author Score  Age
 3  33.3/ 24.6/ 42.1                 Pulp v0.5          Ian Oversby 142.0   30
11  37.4/ 39.0/ 23.6                   Dim Wit          Ian Oversby 135.7   30
19  32.6/ 31.7/ 35.7                 Vengeance          Robert Hale 133.5   30
20  32.0/ 31.2/ 36.7                Baseline-A         Ken Espiritu 132.9   30
17  36.0/ 37.9/ 26.1 PaperBoy Throws Some Rock          Robert Hale 134.0   22
15  41.9/ 48.7/  9.4                    Scorch              P.Kline 135.1   18
 7  38.6/ 38.4/ 23.0               Digitalis 2    Christian Schmidt 138.8   16
10  41.1/ 45.1/ 13.8               Fusion v0.1          Ian Oversby 137.1   12
 1  41.0/ 31.9/ 27.0                   Nomolos          Ian Oversby 150.1    7
12  31.0/ 26.7/ 42.3             Ultraviolet-B         Ken Espiritu 135.4    5
24  39.6/ 47.5/ 12.9       Conan the Barbarian    Christian Schmidt 131.6    1
 5  43.2/ 45.3/ 11.5                  Memories          Beppe Bezzi 141.0    1
 6  33.9/ 27.9/ 38.2                 test t4.4          Beppe Bezzi 139.9    0
25  22.2/ 27.0/ 50.8                     paper                   CS 117.4    0

There are a lot of good entries since the last issue.
______________________________________________________________________________
94 - What's No More

11  34.8/ 33.7/ 31.4                  Baseline         Ken Espiritu 136.0    6
14  38.2/ 42.1/ 19.6                   No Good          Ian Oversby 134.3   14
15  35.5/ 37.1/ 27.3                 test p209                Beppe 133.9   12
16  40..0/ 46.8/ 13.2                 Overdrive    Christian Schmidt 133.2   27
18  38.0/ 43.7/ 18.4                   Test OS          Ian Oversby 132.3    4
19  35.1/ 38.3/ 26.5              PAN-TAU-RA 2    Christian Schmidt 132.0   12
20  31.6/ 31.3/ 37.2                 RetroQ II              P.Kline 131.8    3
21  38.9/ 46.0/ 15.2                     Blain                Nimon 131.8   62
22  35.7/ 40.2/ 24.1            Bigger Brother       Philip Kendall 131.2    5
23  25.4/ 19.8/ 54.8               Impish v0.2          Ian Oversby 131.1  335
24  36.5/ 42.9/ 20.5                  Used Car          Ian Oversby 130.2    7
25  34.7/ 39.6/ 25.6              First Strike                Nimon 129.9   57

Sorry, I havn't data for this section but I think Impish is the only 
significant loss.

______________________________________________________________________________
94 - What's Old

 #   %W /  %L /  %T                       Name               Author Score  Age
18  37.1/ 40.4/ 22.5       Damage Incorporated        Anton Marsden 133.8  368
 9  29.2/ 21.0/ 49.8      Return Of The Jedimp             John K W 137.5  327
16  33.8/ 32.9/ 33.3            Nine Seven Six           M R Bremer 134.6  191
21  32.1/ 31.4/ 36.5              Head or Tail    Christian Schmidt 132.8  115

Nine Seven Six and Head or Tail enter this section, while Impish is kicked off 
the hill.
______________________________________________________________________________
OLD HALL OF FAME
* means the warrior is still active.

Pos    Name                  Author          Age     Strategy
 1  Thermite II            Robert Macrae     2262    Qscan -> bomber
 2  Impfinity v4g1         Planar            1993    Stone/ imp
 3  Jack in the box        Beppe Bezzi       1620    P-warrior
 4  Tornado 3.0            Beppe Bezzi       1567    Bomber
 5  Torch t18              P.Kline           1539    Bomber
 6  Chameleon              Myer R Bremer     1437    P-warrior
 7  Frontwards v2          Steven Morrell    1420    One shot scanner
 8  Evol Cap 6.6           John Wilkinson    1299    Imp / stone
 9  quiz                   Schitzo           1262    Scanner/ bomber
10  T.N.T.                 Maurizio Vittuari 1204    Bomber
11  Grilled Octopus v0.5   David Boeren      1154    P-warrior
12  Hazy Shade II          John Wilkinson    1102    P-warrior
13  Stepping Stone         Kurt Franke       1049    Qscan -> Vampire
14  Rosebud                Beppe Bezzi        993    Stone/ imp
15  Iron Gate 1.5          Wayne Sheppard     926    CMP scanner
16  T.N.T. pro             Maurizio Vittuari  925    Bomber
17  Agony II               Stefan Strack      912    CMP scanner
18  Barrage                Anton Marsden      876    Qscan -> replicator
19  Blue Funk              Steven Morrell     869    Stone/ imp
20  Flurry                 Anton Marsden      835    Qscan -> pwarrior
21  Thermite 1.0           Robert Macrae      802    Qscan -> bomber
22  Blue Funk 3            Steven Morrell     766    Stone/ imp
23  Night Train            Karl Lewin         755    Replicator
24  Mirage 1.5             Anton Marsden      736    Scanner/ bomber
25  Blizzard               Anton Marsden      713    Qscan -> replicator
______________________________________________________________________________
NEW HALL OF FAME
* means the warrior is still active.

Pos    Name                  Author          Age     Strategy
 1  Probe                  Anton Marsden      403    Q^2 -> Bomber
 2  Blur 2                 Anton Marsden      396    Scanner
 3  Damage Incorporated    Anton Marsden      337 *  Q^2 -> Bomber
 4  unrequited love        kafka              346    Q^2 -> Paper
 5  Impish v0.2            Ian Oversby        345    Stone/imp
 6  Gigolo                 Core Warrior staff 332    Q^2 -> Stone/imp
 7  Return Of The Jedimp   John K W           327 *  Q^2 -> Stone/imp
 8  Falcon v0.3            Ian Oversby        275    P-warrior
 9  Rosebud                Beppe              218    Stone/imp
10  Q^2 Miro               Anders Ivner       214    Q^2 -> Scanner/bomber
11  Instant Wolf 3.4       Edgar              205    P-warrior
12  Goldfinch              P.Kline            201    P-warrior
13  Simple v0.4b           Ian Oversby        197    QScan -> Stone/imp
14  Trident^2              John K W           195    Q^2 -> Stone/imp
15  Nine Seven Six         M R Bremer         191 *  Q^2 -> Stone/imp
16  ompega                 Steven Morrell     189    Stone/imp
17  Frogz                  Franz              172    Q^2 -> Paper
18  The Machine            Anton Marsden      164    Scanner
19  Memories               Beppe              152    Scanner
20  Tiberius 3.1           Franz              130    Q^2 -> Paper
21  Solomon v0.8           Ian Oversby        116    Stone and scanner
22  Head or Tail           Christian Schmidt  115 *  Q^2 -> Paper
23  CC Paper 3.3           Franz              107    Q^2 -> Paper
24  mrb-test               m r bremer         106    ?
25  T.N.T. pro             Maurizio Vittuari  105    Bomber

Damage Incorporated has reached the 3rd place. Anton now holds the first three
ranks. Congratulations. Nine Seven Six climb to the 15th rank and Head or Tail
enters the new hall of fame at the 22th place. Jack in the box II has been 
kicked off.
______________________________________________________________________________
Current Status of the Internet Pizza Server Beginner's Hill:

Hill Specs:
         coresize: 8000
   max. processes: 8000
         duration: after 80,000 cycles, a tie is declared.
max. entry length: 100
 minimum distance: 100
      maximum age: At age 100, warriors are retired.
    rounds fought: 200
  instruction set: ICWS '94 Draft

#   %W /  %L /  %T                       Name               Author Score  Age
 1  50.9/ 41.1/  8.0         BeachBlanketBingo             J E Long 160.7    1
 2  38.8/ 19.6/ 41.6                  Dust 7.0           Justin Kao 157.9   86
 3  42.4/ 27.2/ 30.3                  Sections           Zul Nadzri 157.7   66
 4  47.2/ 37..7/ 15.1                 guru v0.1          Robert Hale 156.8   22
 5  48.2/ 40.4/ 11.4              Guessed v0.1                  Ian 156.0   46
 6  46.2/ 37.1/ 16.7            qbomber v .469         Ryan Coleman 155.2   57
 7  38.2/ 23.9/ 37.9           A Blaise Affair     Robert J. Street 152.5   26
 8  45.6/ 39.3/ 15.1               Hell's Fury          Robert Hale 151.8    3
 9  46.3/ 41.8/ 11.8             qDeath v .169         Ryan Coleman 150.8   53
10  36.5/ 24.3/ 39.2 Six-Finger Discount From          Ryan Coleman 148.6   60
11  45.4/ 42.9/ 11.7                  Nautilus              Mole IX 148.0   25
12  42.1/ 37.9/ 20.0       Pain and Panic v0.1          Robert Hale 146.3   15
13  44.6/ 44.6/ 10.8             Short Sword 4            JS Pulido 144.6   88
14  43.4/ 42.2/ 14.4                 guru v0.3          Robert Hale 144.6   16
15  38.3/ 33.2/ 28.5    If I only had a brain?         Ryan Coleman 143.4   58
16  41.0/ 38.8/ 20.2       Pain and Panic v0.2          Robert Hale 143.3    7
17  41.5/ 40.1/ 18.4       Pain and Panic v0.3          Robert Hale 142.9    6
18  30.2/ 21.6/ 48.2 4-Finger Discount From th         Ryan Coleman 138.9   61
19  33.9/ 30.4/ 35.7                    Zorm-B            Anonymous 137.3   91
20  39.3/ 45.0/ 15.7                 Wolverine          Robert Hale 133.6    2
21  29.1/ 26.0/ 44.9 It's a Harmless Addition           Robert Hale 132.2   44
22  31.5/ 31.3/ 37.2          Kohonenian Dream     Robert J. Street 131.8   80
23  38.8/ 48.8/ 12.4             Dwa Michaly b    Waldemar Bartolik 128.7   94
24  29.7/ 31.1/ 39.2 It's a Harmless Addiction          Robert Hale 128.3   47
25  14.2/ 56.6/ 29.2             FireAnt 0.0.1       Robert Hetland  71.8   12

Top 25 Averages:
    39.3/ 36.1/ 24.5                                                142.6   42
______________________________________________________________________________

The Hint

About Q^2-Scanner and (not really) new strategies

After a very strong phase of p-warriors (especial the P^2-warriors) the Q^2-
scanners dominate the hill again. More than 15 of the 25 warriors on the hill 
are still using this, most of them in combination with stone/imps or papers.

The two following Q^2-warriors, now discuss , use coreclears as their basic 
strategy.
This is not very sensational or original, but very effective :-)

C^3 uses simply van Dam's The Core Clear.
The basic idea of van Dam was to survive mod 4 and mod 5 dat bomber by using a 
Spl/Spl/Dat/... core clear with a Spl/Dat/... core clear as backup. But it works
well not only against bomber but also good against all other strategies.
I added a fast bootstrap and put them behind a Q^2 scanner. And surprisingly 
they score damn good on the hill.

;redcode-94
;name C^3
;author Christian Schmidt
;strategy Q^2 -> boot, clear
;assert 1

        org     start

;----------Q^2 Scan from Probe----------

QB      equ     (start-350)
QS      equ     (0-200)
QD      equ     100
GAP     equ     8
REP     equ     15
datz:   equ     (start+200)
bptr1   equ     2000
bptr2   equ     (bptr1+39)

qinc    dat     >(-1)*GAP*2, >GAP

        dat     10*QS,       2*QS 
table:  dat     4*QS,        1*QS 
        dat     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

        add.ba  fnd,         fnd
qbo     mov.i   qinc,        @fnd
        mov.i   qinc,        *fnd
fnd     mov.i   (-1)*(GAP/2),@QB
        sub.x   qinc,        fnd
        djn.b   qbo,         #REP
        jmp     boot,        }-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,<tab
                seq.i  QB+QS*11,QB+QS*11+QD
                jmp    slow,<tab
                seq.i  QB+QS*12,QB+QS*12+QD
                djn.f  slow,tab

                seq.i  QB+QS*23,QB+QS*23+QD
                jmp    >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    <fast,}QB+QS*8+QD/2
                seq.i  QB+QS*9,QB+QS*9+QD
                jmp    tab,}QB+QS*9+QD/2

                seq.i  QB+QS*15,QB+QS*15+QD
                jmp    tab,<tab
                seq.i  QB+QS*16,QB+QS*16+QD
                jmp    tab,{tab
                seq.i  QB+QS*20,QB+QS*20+QD
                djn.f  <fast,tab
                seq.i  QB+QS*21,QB+QS*21+QD
                jmp    tab,{fast
                seq.i  QB+QS*22,QB+QS*22+QD
                djn.f  tab,tab
                seq.i  QB+QS*27,QB+QS*27+QD
                jmp    <fast,>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

boot    mov     g1,          bptr1
        mov     g2,          bptr1
        mov     b,           bptr2
        mov     b1,          bptr2
boot2   mov     {bptr3,      <bptr3
        mov     {bptr3,      <bptr3
        mov     {bptr3,      <bptr3
        mov     {bptr3,      <bptr3
        jmp     @bptr3,      {0

g1      dat     st+17,       500     
g2      dat     -4040,       4045
st      spl     #b-g1+35,    45   
        mov     *g1-17,      >g1-17  
        mov     *b+18,       >g2-17  
cc      djn.f   -1,          {g2-17  
b       dat     #1,          45      
b1      spl     #-40,        45     

bptr3   dat     cc+1,        boot2+bptr1+19



Digitalis uses also a Q^2-scanner combined with a d-clear and a 7-pt imp. I saw 
this great idea the first time in Justin Kao's Dust 0.7.
After the Q^2-scan, Digitalis boots the d-clear, launches the 7-pt imps via a
JMP/ADD-launcher, and then starts the booted d-clear. As the d-clear is self-
splitting, this speeds up (relative to the imps) as time goes on.

The great advantage of Digitalis is that he beats P^2-warriors and some 
scanners (like HSA and Scorch). He only loses significantly against 
Q^2-scanners with paper or stone/imps.


;redcode-94
;name Digitalis 2
;author Christian Schmidt
;strategy q^2 -> clear/imp
;assert 1

        org     start

QB      equ     (start-350)
QS      equ     (0-200)
QD      equ     100
GAP     equ     8
REP     equ     15
datz:   equ     (start+200)
ist     equ     1143
bptr1   equ     2000

qinc    dat     >(-1)*GAP*2, >GAP

        dat     10*QS,       2*QS 
table:  dat     4*QS,        1*QS 
        dat     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

        add.ba  fnd,         fnd
qbo     mov.i   qinc,        @fnd
        mov.i   qinc,        *fnd
fnd     mov.i   (-1)*(GAP/2),@QB
        sub.x   qinc,        fnd
        djn.b   qbo,         #REP
        jmp     boot,        }-300

start:
                seq.i  QB+QS*0,QB+QS*0+QD
                jmp    which,}QS*13

                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,<tab
                seq.i  QB+QS*11,QB+QS*11+QD
                jmp    slow,<tab
                seq.i  QB+QS*12,QB+QS*12+QD
                djn.f  slow,tab

                seq.i  QB+QS*23,QB+QS*23+QD
                jmp    >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    <fast,}QB+QS*8+QD/2
                seq.i  QB+QS*9,QB+QS*9+QD
                jmp    tab,}QB+QS*9+QD/2

                seq.i  QB+QS*15,QB+QS*15+QD
                jmp    tab,<tab
                seq.i  QB+QS*16,QB+QS*16+QD
                jmp    tab,{tab
                seq.i  QB+QS*20,QB+QS*20+QD
                djn.f  <fast,tab
                seq.i  QB+QS*21,QB+QS*21+QD
                jmp    tab,{fast
                seq.i  QB+QS*22,QB+QS*22+QD
                djn.f  tab,tab
                seq.i  QB+QS*27,QB+QS*27+QD
                jmp    <fast,>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

boot     mov    ptr,         bptr1
         mov    clrb,        bptr1
boot2    mov    {bptr3,      <bptr3
         mov    {bptr3,      <bptr3
         mov    {bptr3,      <bptr3

istart   spl    1
         spl    1
         spl    1
         spl    1
         spl    1
         spl    2
         djn.f  imp,         <-250
         add    bst,         -1
         djn.f  @bptr3,      <-400

bst      dat    ist,         -100

imp      mov.i  #ist,        *0

ptr      dat    0,           2150
clrb     dat    >2667,       25
clear    spl    #0,          >ptr-16
loop     mov    clrb-16,     >ptr-16
cc       djn.f  loop,        >ptr-16

bptr3    dat    cc+1,        boot2+bptr1+19


______________________________________________________________________________
Questions?  Concerns?  Comments?  Complaints?  Mail them to people who care.
authors: Beppe Bezzi <bezzi@nemo.it> or Philip Kendall <pak21@ cam.ac.uk> or
Anton Marsden <amarsden@mcs.vuw.ac.nz> or Christian Schmidt <schmc003@goofy.zdv.
uni-mainz.de>
2002-2005 corewar.info. Logo C. Schmidt