Article 1780 of rec.games.corewar:
Path: hellgate.utah.edu!caen!sdd.hp.com!elroy.jpl.nasa.gov!kilroy!jlayland
From: jlayland@kilroy.Jpl.Nasa.Gov (James Layland)
Newsgroups: rec.games.corewar
Subject: Macroized Paper
Date: 29 Apr 1993 17:10:27 GMT
Organization: Jet Propulsion Laboratory, Pasadena, CA
Lines: 65
Message-ID: <1rp263INNpp6@elroy.jpl.nasa.gov>
References: <1rl4n3$g6t@calvin.NYU.EDU>
NNTP-Posting-Host: kilroy.jpl.nasa.gov

Just thought I'd show that Nandor's redcode macro processor is 
good for more than abbreviating decoys.  Hmmm... now if we just
had a few more enhancements we could all quit this programming 
stuff and write programs like:

stone
binary launch 7-point imp
forward core-clear
end

Well... maybe not.

Anyway, here is a macrored-ized version of Flash Paper.  More or less.
I still had to write out two copies of the replicator.  Maybe 
multi-line macro subroutines??  This is solely for demonstration purposes;
I make no claims that the constants chosen here are anything resembling
"optimal".

;redcode 
;name Macro Paper
;author J.Layland
;strategy macroized version of Flash Paper 
;strategy some constants randomly changed for no good reason.
 
start	spl	p2	;hedge bets against lucky stone
	spl	1
	spl	1	;start 4 processes going for copy
	spl	p002
	spl	p003
	spl	p004

for 7

lfor	mov	#8,	8		;set source
pfor	mov	<lfor,	<tfor		;make copy
	mov	<lfor,	<tfor		 
tfor	spl	@0,	5001+200*for	;split to copy
	mov	<-1,	<-2000+200*for
 	jmz	lfor,	lfor		;loop
	dat	<2667, #1
	dat	<2667, #1 
 
rof

p2	spl	1
	spl	1
 
	spl	p005
	spl	p006
	spl	p007

l8	mov	#8,	8		;set source
p8	mov	<l8,	<t8		;make copy
	mov	<l8,	<t8		 
t8	spl	@0,	5001+200*8	;split to copy
 	mov	<-1,   <-2000+200*8	
 	jmz	l8,	l8		;loop
 	dat	<2667, #1 
 	dat	<2667, #1 
 
	end	start


James Layland
jlayland@grissom.jpl.nasa.gov