Skybuck's Warrior: MultiplyAndConquerV3

;redcode
;name MultiplyAndConquerV3
;author Skybuck Flying
;strategy Multiply and Conquer
;strategy Concuer the whole core
;version 3
;date 26-1-2008
;notes Music for the warrior:
;notes I will survive - Gloria Gaynor
;notes http://www.youtube.com/watch?v=Xv6lHwWwO3w
;tested and working in CoreWin 2.3
;assert 1

WarriorBegin
WarriorLength equ (WarriorEnd - WarriorBegin)

Initialization

Copy
mov }Source, >Dest
Loop
djn Copy, #WarriorLength
Spawn
nop $0, $0 ; filling for nicer pattern
sub #(WarriorLength-(SpawnHere-WarriorBegin)), $Dest
spl @Dest
add #(WarriorLength-(SpawnHere-WarriorBegin)), $Dest
nop $0, $0 ; filling for nicer pattern

SpawnHere

ResetLoopCounter
mov.ab #WarriorLength, $Loop

ResetSource
mov.a #(WarriorBegin-Source), $Source

ResetDest
mov.ab #(WarriorEnd - Dest), $Dest

; Dest := Dest + ( ( L * 2 ) - L );
MultipleIncrementation
mul.ab #2, $Incrementation

AddIncrementation
add.b $Incrementation, $Dest
sub.ab #WarriorLength, $Dest

Reloop
; further extensions could be made here after core concuer
; djn Copy, #9
jmp Copy

Source
Dest
dat #WarriorBegin, #WarriorEnd

Incrementation
dat $0, #WarriorLength

WarriorEnd
dat $0, $0

Idea for future:

Use some kind of health check to see if certain copies are alive or dead.

For example:

P-Space Number * WarriorLength could function as a location where the
warriors will be located.

Then the flag in the p-space indicates if it's alive or dead, by
"challenging" the flag.

As described in survivor v8

Bye,
Skybuck.