;redcode 
;name FlyPaper 3.0
;author J.Layland
;strategy QuickScanner->Paper, ideas from GammaPaper/Plasma/Paratroops
;strategy 2.0-- now uses Agony-based cmp-scanner, added bootstrap routine.
;strategy Imp killing replicator copied from Gamma Paper
;strategy 3.0-- New (better???) scanner, changed constants/spacing
;strategy sidestep decoys??

skip 	equ 70
dist2   equ -20
init    EQU incr-dist-1 ; last+skip-1 ;incr-dist-100 ;last+skip-1
dist    EQU 10

boot	mov <src, <dst
	mov <src, <dst
	mov <src, <dst
	mov <src, <dst
	mov <src, <dst
	mov <src, <dst
	mov <src, <dst
	mov <src, <dst
	mov <src, <dst
dst	jmp @0, src-skip


incr    ADD step, scan
scan    CMP init, init+dist
        SLT #last+skip-1+dist, scan
        JMP incr
	mov scan, scan+10
        MOV step, <scan+10
        DJN -1, #dist+20 
	jmp rep+skip
step    DAT #dist2, #dist2
src	dat #0

;;;break
rep	spl	p2 
	spl	1
	spl	1
	spl	1	;start 8 processes going
	spl	p002
	spl	p003
	spl	p004


l001	mov	#8,	8		;set source
p001	mov	<l001,	<t001		;make copy
t001	spl	@0,	5301+200*001	;split to copy
	mov	3, <t001
	mov 	3, <t001
 	jmz	l001,	l001		;loop
	mov 	@-2667, 2667
	dat	<2667, #1
  

l002	mov	#8,	8		;set source
p002	mov	<l002,	<t002		;make copy
t002	spl	@0,	5301+200*002	;split to copy
	mov	3, <t002
	mov 	3, <t002
 	jmz	l002,	l002		;loop
	mov 	@-2667, 2667
	dat	<2667, #1
  

l003	mov	#8,	8		;set source
p003	mov	<l003,	<t003		;make copy
t003	spl	@0,	5301+200*003	;split to copy
	mov	3, <t003
	mov 	3, <t003
 	jmz	l003,	l003		;loop
	mov 	@-2667, 2667
	dat	<2667, #1
  

l004	mov	#8,	8		;set source
p004	mov	<l004,	<t004		;make copy
t004	spl	@0,	5301+200*004	;split to copy
	mov	3, <t004
	mov 	3, <t004
 	jmz	l004,	l004		;loop
	mov 	@-2667, 2667
	dat	<2667, #1
  

p2	spl	1
	spl	1
	spl	1
 
	spl	p1002
	spl	p1003
	spl	p1004


l1001	mov	#8,	8		;set source
p1001	mov	<l1001,	<t1001		;make copy
t1001	spl	@0,	6101+200*001	;split to copy
	mov	3, <t1001
	mov 	3, <t1001
 	jmz	l1001,	l1001		;loop
	mov 	@-2667, 2667
	dat	<2667, #1
 

l1002	mov	#8,	8		;set source
p1002	mov	<l1002,	<t1002		;make copy
t1002	spl	@0,	6101+200*002	;split to copy
	mov	3, <t1002
	mov 	3, <t1002
 	jmz	l1002,	l1002		;loop
	mov 	@-2667, 2667
	dat	<2667, #1
 

l1003	mov	#8,	8		;set source
p1003	mov	<l1003,	<t1003		;make copy
t1003	spl	@0,	6101+200*003	;split to copy
	mov	3, <t1003
	mov 	3, <t1003
 	jmz	l1003,	l1003		;loop
	mov 	@-2667, 2667
	dat	<2667, #1
 

l1004	mov	#8,	8		;set source
p1004	mov	<l1004,	<t1004		;make copy
t1004	spl	@0,	6101+200*004	;split to copy
	mov	3, <t1004
	mov 	3, <t1004
 	jmz	l1004,	l1004		;loop
	mov 	@-2667, 2667
	dat	<2667, #1
 
 	dat	<2667, #1 
 	dat	<2667, #1 
bomb 	dat	<2667, #1 
 
last	end	boot