Skybuck's FasterSpawnGeneratorV1 (162 cycles for 100 threa..

;redcode
;name FasterSpawnGeneratorV1
;author Skybuck Flying
;version 1
;history version 1 created on 7 december 2007

;
; Tested with 101 threads (nice figure to test with)
;
; Tested with 100 threads to compare against others: 162 cycles needed.
; Code Size: 31 not to bad !
; Beats John's implementation in cycles.
;
; and this is not even the optimized version lol
;
; Let's implement John's spawning algorithm but let's also try to write it
more efficient,
; meaning no stack and the generated spawn program will be placed before the
program start.

ProgramStart


mov #100, ThreadsToSpawn
sub #1, ThreadsToSpawn

mov.b ThreadsToSpawn, DivThreadsToSpawn
mov.b ThreadsToSpawn, ModThreadsToSpawn

; algoritm is simple:
; just divide threads to spawn by 2
; just mod threads to spawn by 2
; use mod result as binary indicator
; place mov spawn, 0 at binary zero's in front of program start at spawn
program pointer
; place spl 1 for binary one's in front of program start at spawn program
pointer
; repeat until div result is zero.
;
; so we need two copies of threads to spawn, maybe later we can place it in
a dual data variable.
; but for now I don't want to complicate things... so for now we use two
copies or even three lol.

; initialize spawn program pointer
mov #(ProgramStart-DoubleThreadsSpawnProgramPointer),
DoubleThreadsSpawnProgramPointer
mov #(ProgramStart-DoubleThreadsMinusOneSpawnProgramPointer),
DoubleThreadsMinusOneSpawnProgramPointer

; algorithm implementation:
LoopBegin

div #2, DivThreadsToSpawn
mod #2, ModThreadsToSpawn

OutputBegin
jmz OutputDoubleThreadsMinusOne, ModThreadsToSpawn

OutputDoubleThreads
mov DoubleThreadsInstruction, <DoubleThreadsSpawnProgramPointer
nop $0, <DoubleThreadsMinusOneSpawnProgramPointer
jmp OutputEnd

OutputDoubleThreadsMinusOne
mov DoubleThreadsMinusOneInstruction,
<DoubleThreadsMinusOneSpawnProgramPointer
nop $0, <DoubleThreadsSpawnProgramPointer
OutputEnd

mov.b DivThreadsToSpawn, ModThreadsToSpawn

jmn LoopBegin, DivThreadsToSpawn
LoopEnd

; execute spawn program
jmp @DoubleThreadsSpawnProgramPointer

ProgramData
ThreadsToSpawn dat $0, #0
DivThreadsToSpawn dat $0, #0
ModThreadsToSpawn dat $0, #0

DoubleThreadsSpawnProgramPointer dat $0, $0
DoubleThreadsMinusOneSpawnProgramPointer dat $0, $0

DoubleThreadsInstruction spl 1, 0
DoubleThreadsMinusOneInstruction mov DoubleThreadsInstruction, 0

ProgramEnd