;redcode
;name DualScanV3
;author Skybuck Flying
;strategy Dual Scan
;strategy Bomber
;version 3
;date 20 february 2008
;Inspired by talk about q scans on corewar newsgroup
;Faster version uses multiple scan instructions
;Faster version uses multiple bomb instructions
Initialization
mov Location1, Bomb
jmp Compare
WarriorBegin
WarriorLength equ WarriorEnd - WarriorBegin
Location1
Location2
dat $WarriorEnd, $(WarriorEnd + CORESIZE /2) - WarriorLength
Spacing
dat $0, $0
dat $0, $0
dat $0, $0
dat $0, $0
dat $0, $0
dat $0, $0
dat $0, $0
dat $0, $0
dat $0, $0
dat $0, $0
Compare
seq }Location1, >Location2
jmp Bomber
seq }Location1, >Location2
jmp Bomber
seq }Location1, >Location2
jmp Bomber
seq }Location1, >Location2
jmp Bomber
seq }Location1, >Location2
jmp Bomber
seq }Location1, >Location2
jmp Bomber
seq }Location1, >Location2
jmp Bomber
seq }Location1, >Location2
jmp Bomber
seq }Location1, >Location2
jmp Bomber
sne }Location1, >Location2
jmp Compare
Bomber
nop {Location1, <Location2
mov Bomb, }Location1
mov Bomb, >Location2
mov Bomb, }Location1
mov Bomb, >Location2
mov Bomb, }Location1
mov Bomb, >Location2
mov Bomb, }Location1
mov Bomb, >Location2
mov Bomb, }Location1
mov Bomb, >Location2
mov Bomb, }Location1
mov Bomb, >Location2
mov Bomb, }Location1
mov Bomb, >Location2
mov Bomb, }Location1
mov Bomb, >Location2
mov Bomb, }Location1
mov Bomb, >Location2
mov Bomb, }Location1
mov Bomb, >Location2
jmp Compare
Bomb dat $0, $0
WarriorEnd
|
