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