[HaBo]

;redcode

;name		CoreSentry
;version	0.1
;author		+++ATH0
;date		2005-Nov-09
		
;strategy	kill_the_opponent

JMP +2
DAT #1000
MOV -1, @-1
SUB +5, -2
JMN -2, -3
SUB #1, -4
SUB #3, +2
JMP -5
DAT #10

;redcode

;name		CloneBeholder
;version	0.2
;author		+++ATH0
;date		2005-Nov-10
;strategy	Clone And Overwhelm

ORG Start


	JMP    -2                  
Data	DAT    #1000                
	ADD    #-1, 	+1  
     Start               
	MOV    #1337,    -5        
	MOV    -2,       @-3       
	ADD    #1,       Data        
	MOV    -3,       @-5       
	ADD    #1,       Data        
	MOV    -8,       @-7       
	SPL    @Data
	ADD    #100,     Data      
	JMP    -7

;redcode-b
;name Crazy Engine
;author Orniflyer

inc	DAT	<-2936,<-2936
loop1	MOV	splb,*2
	MOV	jmpb,@1
	MOV	-2938,*-2936
	ADD.F	inc,-1
	DJN	loop1,#999
splb	SPL	0,<-3
	MOV	inc,<1
jmpb	JMP	-1,<-3

        END     loop1

;redcode-94
;name Chillie
;author Yoshi
;strategy replicator

start   spl     1,      <300    
        spl     1,      <150    
        mov     -1,     0       
silk    spl     3620,   #0      
        mov.i   >-1,    }-1     

        mov.i   bomb,   >2005  
        mov.i   bomb,   }2042  

        add.a   #50,     silk   
        jmp     silk,   <silk  
bomb    dat.f   >2667,  >5334

;redcode
;name Stonefinger
;author Orniflyer+Yoshi
;strategy fast stone imp

m0       mov    mm   ,{mm
         djn.a  -1   ,mm
         spl    #0   ,<-5
mm       mov    -7   ,1

;redcode
;redcode

;name		<NEW_WARRIOR>
;version	1
;author		cdw
;date		2005-Nov-11
		
;strategy	kill_the_opponent

add #6,5
sub #7,5
mov 3,@3
mov 3,@3
jmp -4
one dat #0,#1600
two dat #0,#-2600

;redcode

;name		<NEW_WARRIOR>
;version	1
;author		anonymous
;date		2005-Nov-11
		
;strategy	kill_the_opponent

add #3,5
sub #3,5
mov 3,@3
mov 3,@3
jmp -4
one dat #0,#1600
two dat #0,#-2600

;redcode-94
;author lumax
;name testbot01
;strategy replicator

org start

count  dat    #0,     #200
start  djn    2,      #13
       jmp    3,      <-3
       mov    }count, >count
       jmp    -3,     <-5
       sub.ab #11,    count
       add.ab #2,     @count
       mov.a  #0,     count
       spl    @count, <-9
       add.ab #99,    count
       mov.ab #13,    start
       jmp    start,  <-12

;redcode-nano
;name SuperSentryV
;author J.J. 'Imrahil' Wingert
; Thanks to S.Fernandes who gave me good advice during the creation
;strategy Scans for any value not 0,0 and bombs it
;assert (CORESIZE==80) && (MAXPROCESSES==80)
;assert (MAXCYCLES==800) && (MAXLENGTH==5)
;assert (MINDISTANCE==5)

           org      scanner                  ; setzt den startpunkt auf scanner
somewhere  equ      43                       ; definiert somewhere als 43
scanstep   equ      -5                       ; definiert scanstep als -5
scanstart  equ      -11                      ; definiert scanstart als -11
scanstep   add.ab   #scanstep,1              ; Schritt 2: erhöht den b-value um scanstep (# beachten das ist der Identifier der scanstep als Zahl behandelt) zurück zu schritt 1
scanner    jmz.f    scanstep, scanstart      ; Schritt 1: Jump if scanstart = $0,$0 zur Position scanstep
           mov      bomb,>scanner            ; Schritt 3: Wenn an scanstart etwas anderes als $0,$0 (standardwert, auf jeden Fall ein uninteressanter Fleck!) ist kopiere den string bei bomb an die Position des Werts des B-Felds von scanner und erhöhe dieses Feld gleichzeitig um 1
           jmp      scanner, <somewhere      ; springt nach erfolreichem Bomben zurück zu scanner und platziert an der Stelle somewhere (hier 43) einen decrease
bomb       dat      0,0                      ; die Bombe
           end                               ; Der Endpunkt

somewhere  equ    40
scanstep   equ    -5
scanstart  equ    -11