From Pierre-Etienne.Moreau@loria.fr  Tue Apr  9 14:11:05 1996
Received: by couchey.inria.fr (5.57/Ultrix3.0-C)
	id AA16041; Tue, 9 Apr 96 14:11:05 +0200
Received: from lorraine.loria.fr (lorraine.loria.fr [152.81.1.17]) by nez-perce.inria.fr (8.7.1/8.7.1) with ESMTP id OAA14074 for <Damien.Doligez@inria.fr>; Tue, 9 Apr 1996 14:10:19 +0200 (MET DST)
Received: from myrtille.loria.fr (myrtille.loria.fr [152.81.6.12]) by lorraine.loria.fr (8.7.5/8.7.3) with ESMTP id OAA26728 for <Damien.Doligez@inria.fr>; Tue, 9 Apr 1996 14:11:01 +0200 (MET DST)
From: Pierre-Etienne Moreau <Pierre-Etienne.Moreau@loria.fr>
Received: (from moreau@localhost) by myrtille.loria.fr (8.7.4/8.7.3) id OAA24486; Tue, 9 Apr 1996 14:10:58 +0200 (MET DST)
Date: Tue, 9 Apr 1996 14:10:58 +0200 (MET DST)
Message-Id: <199604091210.OAA24486@myrtille.loria.fr>
To: Damien.Doligez@inria.fr
Subject: CoreWar
Reply-To: Pierre-Etienne.Moreau@loria.fr
Status: RO

Bonjour,

je viens completer un peu ta collection. Je n'ai jamais vraiment
publie mes sources, mais c'est l'occasioon de le faire
(ces 2 programmes sont sur la colline)

J'espere me mettre a la norme 94... Et peut etre a bientot...


					Pierre-Etienne


-----------
Yop La Boum
-----------
;redcode quiet
;name Yop La Boum v2.1
;author P.E.M & E.C.
;strategy Cmp, paper, anti imp

cmpinit	equ	-3*68+pas-1
cmpdist	equ	32

pas		dat	#68,#68
addi		sub pas, scan
scan    	cmp cmpinit, cmpinit+cmpdist
		slt #fin-addi+cmpdist+1, scan
        	jmp	addi

tapis		add #10,scan
        	mov pas, <scan
	       	djn -1, #68+20

paper		spl	paper2
			
paper1		spl 1
		spl 1
		spl 1
			
long		mov	#8, 0
copy		mov	<long, <split
split		spl	@0, 2144 + 24 -2
		mov	data+1, <split
		mov	data, <split
ref		jmz	long,long
data		dat	<-2667,<-1143
		jmp	<-1,<-1143

		dat	#data
		dat	#data
		dat	#data
		dat	#data
		dat	#data
		dat	#data
		dat	#data
		dat	#data
		dat	#data
		dat	#data
		dat	#data
		dat	#data
		dat	#data
		dat	#data
		dat	#data
		dat	#data

paper2		spl	1
		spl	1
		spl	1
long2		mov	#8, 0
copy2		mov	<long2, <split2
split2		spl	@0, 2144+24-2
		mov	data2+1, <split2
		mov 	data2, <split2
		jmz	long2, long2
data2		dat	<-1143,<-2667
		jmp	<-1,<-2667

		dat	#data
		dat	#data
		dat	#data
		dat	#data
		dat	#data
		dat	#data
		dat	#data
		dat	#data
		dat	#data
		dat	#data
		dat	#data
		dat	#data
		dat	#data
		dat	#data
		dat	#data
		dat	#data
		dat	#data
		dat	#data
		dat	#data
		dat	#data
		dat	#data
		dat	#data
		dat	#data
		dat	#data
		dat	#data
		dat	#data
		dat	#data
		dat	#data
		dat	#data
		dat	#data
		dat	#data
		dat	#data
		dat	#data
		dat	#data
		dat	#data
		dat	#data
		dat	#data
		dat	#data
		dat	#data
		dat	#data
		dat	#data

fin		end	addi

------------
Double Clown
------------
;redcode
;name Double Clown v1.1
;author P.E.M
;strategy double Cmp

pas	equ	2376+1
debut	equ	-1
offset	equ	-1000
data	equ	15
dec	equ	0
ddestb	equ	4000-1
nbbomb	equ	499


mov1	mov	jump, debut+pas
	mov	bomb, <mov1
loop	add 	#pas, mov1
	djn	mov1,#nbbomb
bomb	spl	0, <-8+dec
	mov	data, <-10+dec
jump	jmp	-1,<-10+5334+dec

src	dat	#0
desta	dat	#offset
destb	dat	#offset+ddestb


inc	dat	<-9-2668+dec,<-9+dec

start	
	mov	<src,<desta
	mov	<src,<desta
	mov	<src,<desta
	mov	<src,<desta
	mov	<src,<desta
	mov	<src,<desta
	mov	<src,<desta

	mov	#0,src
	mov	<src,<destb
	mov	<src,<destb
	mov	<src,<destb
	mov	<src,<destb
	mov	<src,<destb
	mov	<src,<destb
	mov	<src,<destb
	spl	@desta
	spl	@destb
	add	#5+data,desta
	add	#5+data,destb
	mov	inc,@desta
	mov	inc,@destb

	mov	inc, desta	; contre les vamps
	mov	inc, destb	; contre les vamps
	dat	#0
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
fin	dat	<-2667,<2668
	end	start