1;redcode-94nop
2;name Revenge of the Papers
3;author Fizmo+Roy
4;strategy Papers...and a scan...thats all!
5;assert 1
6
7org qGo
8
9;constants for the coreclear paper
10nstep1 equ 1319
11cstep1 equ 1871
12tstep1 equ 1471
13
14pAw1   equ 6000
15pAw2   equ 2000
16
17pGo   spl    1,    <pGo+1169
18      spl    1,    <pGo+1217
19      spl    1,    <pGo+1482
20
21      mov    {cp,    {pBo1
22pBo1  spl    pEnd+pAw1,{2093
23
24      mov    {pEnd,    {pBo2
25pBo2  jmp    pEnd+pAw2,{2093
26
27cp    spl    @pEnd,  <tstep1
28      mov.i  }cp,    >cp
29nothA spl    @nothA, <cstep1
30      mov.i  }nothA, >nothA
31nothB spl    @nothB, <nstep1
32      mov.i  }nothB, >nothB
33bomb  mov.i  #1,     <1
34cc    djn    -2,     <2335
35
36pEnd  dat    0,      0
37
38for   42
39      dat    0,      0
40rof
41
42;constants for the quickscanner
43qf 	equ 	qKil
44qs      equ     200
45qd 	equ 	4000
46qi      equ     14
47qr      equ     8
48qBmb	dat    {qi*qr-10, {1
49qGo  	seq    qd+qf+qs, qf+qs
50     	jmp    qSki, {qd+qf+qs+qi+2
51     	sne    qd+qf+5*qs, qf+5*qs
52     	seq    qf+4*qs, {qTab
53	jmp    qFas, }qTab
54     	sne    qd+qf+8*qs, qf+8*qs
55     	seq    qf+7*qs, {qTab-1
56     	jmp    qFas, {qFas
57	sne    qd+qf+10*qs, qf+10*qs
58     	seq    qf+9*qs, {qTab+1
59	jmp    qFas, }qFas
60	seq    qd+qf+2*qs, qf+2*qs
61	jmp    qFas, {qTab
62	seq    qd+qf+6*qs, qf+6*qs
63	djn.a  qFas, {qFas
64	seq    qd+qf+3*qs, qf+3*qs
65      jmp    qFas, {qd+qf+3*qs+qi+2
66	sne    qd+qf+14*qs, qf+14*qs
67	seq    qf+13*qs, <qTab
68	jmp    qSlo, >qTab
69	sne    qd+qf+17*qs, qf+17*qs
70	seq    qf+16*qs, <qTab-1
71	jmp    qSlo, {qSlo
72	seq    qd+qf+11*qs, qf+11*qs
73	jmp    qSlo, <qTab
74	seq    qd+qf+15*qs, qf+15*qs
75	djn.b  qSlo, {qSlo
76	sne    qd+qf+12*qs, qf+12*qs
77	jmz    pGo, qd+qf+12*qs-qi
78
79qSlo  mov.ba qTab,   qTab
80qFas  mul.ab qTab,   qKil
81qSki  sne    qBmb-1, @qKil
82      add    #qd,    qKil
83qLoo  mov.i  qBmb,   @qKil
84qKil  mov.i  qBmb,   *qs
85      sub.ab #qi,    qKil
86      djn    qLoo,   #qr
87      jmp    pGo,    <-4000
88      dat    5408,   7217
89qTab  dat    4804,   6613
90dSrc  dat    5810,   qBmb-5
91
92end
93
94