Article 1827 of rec.games.corewar:
Path: hellgate.utah.edu!caen!malgudi.oar.net!zaphod.mps.ohio-state.edu!darwin.sura.net!newsserver.jvnc.net!gmd.de!dearn!barilvm!vms.huji.ac.il!wisipc.weizmann.ac.il!fedimit
Newsgroups: rec.games.corewar
Subject: sic transit gloria mundi
Message-ID: <1993May18.221548.4717@wisipc.weizmann.ac.il>
From: fedimit@wisipc.weizmann.ac.il (Dan Nabutovsky)
Date: Tue, 18 May 1993 22:15:48 GMT
Organization: Weizmann Institute of Science, Computation Center
Lines: 113

;redcode
;name +0 Stormbringer
;strategy optimized Imprimis 3
;author Dan Nabutovsky, P. Kline
d        equ 2667
r	 equ 1333
datzero  equ inc-5
inc      dat #0-2365,#2365
stone    spl 0
stone    mov <cnt-2365-2,<cnt+2365-1
         add inc,stone
cnt      djn stone,<5061

datz1   dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
rf34    dat #5635,#2365
        spl 0
        mov <5635,<2366
        add 7997,7999
        djn 7998,<5061
datz2   dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
rf49    dat #5635,#2365
        spl 0
        mov <5635,<2366
        add 7997,7999
        djn 7998,<5061
datz3   dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0

start: spl 32
spl 1
spl 16
spl 8
spl 4
spl 2
jmp i+d*0
jmp i+d*1
spl 2
jmp i+d*2
jmp i+d*3
spl 4
spl 2
jmp i+d*4
jmp i+d*5
spl 2
jmp i+d*6
jmp i+d*7
spl 8
spl 4
spl 2
jmp i+d*8
jmp stone
spl 2
jmp stone+3
jmp stone+2
spl 4
spl 2
jmp stone+1
jmp stone
spl 2
jmp <0, stone+4
jmp <0, stone+2

	DAT #0
	DAT #0
	DAT #0
	DAT #0
	DAT #0
	DAT #0

i       mov 0,2667

end start


Article 1837 of rec.games.corewar:
Path: hellgate.utah.edu!dog.ee.lbl.gov!overload.lbl.gov!agate!howland.reston.ans.net!paladin.american.edu!news.univie.ac.at!blekul11!frmop11.cnusc.fr!barilvm!vms.huji.ac.il!wisipc.weizmann.ac.il!fedimit
Newsgroups: rec.games.corewar
Subject: whoops
Message-ID: <1993May23.132328.15010@wisipc.weizmann.ac.il>
From: fedimit@wisipc.weizmann.ac.il (Dan Nabutovsky)
Date: Sun, 23 May 1993 13:23:28 GMT
Organization: Weizmann Institute of Science, Computation Center
Lines: 115

Sorry, I sent a wrong code for Stormy. Here is the correct code:

;redcode
;name +0 Stormbringer
;strategy optimized Imprimis 3
;author Dan Nabutovsky, P. Kline
d        equ 2667
r	 equ 1333
datzero  equ inc-5
inc      dat #0-2365,#2365
dwarf    spl 0
loop	 mov <cnt-2365-2,<cnt+2365-1
         add inc,loop
cnt      djn loop,<5061

datz1   dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
rf34    dat #5635,#2365
        spl 0
        mov <5635,<2366
        add 7997,7999
        djn 7998,<5061
datz2   dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0
rf49    dat #5635,#2365
        spl 0
        mov <5635,<2366
        add 7997,7999
        djn 7998,<5061
datz3   dat #0
        dat #0
        dat #0
        dat #0
        dat #0
        dat #0

start: spl 32
spl 1
spl 16
spl 8
spl 4
spl 2
jmp i+d*0
jmp i+d*1
spl 2
jmp i+d*2
jmp i+d*3
spl 4
spl 2
jmp i+d*4
jmp i+d*5
spl 2
jmp i+d*6
jmp i+d*7
spl 8
spl 4
spl 2
jmp i+d*8
jmp dwarf
spl 2
jmp dwarf+3
jmp dwarf+2
spl 4
spl 2
jmp dwarf+1
jmp dwarf
spl 2
jmp <0, dwarf+4
jmp <0, dwarf+2

	DAT #0
	DAT #0
	DAT #0
	DAT #0
	DAT #0
	DAT #0

i       mov 0,2667

end start