1;redcode-94nop
2;name CrazyShot 2
3;author Christian Schmidt
4;strategy mini Q^4 -> .66c Bishot-style Scanner
5;strategy new qscan, slightly tweaked scanner
6;assert 1
7
8sOff    equ     (20*sStep-1)
9sStep   equ     10
10sDelet  equ     205
11sSt     equ     3
12
13sOne    add.f   sAdd,        sPtr
14        sne.i   *sPtr,       @sPtr
15        jmp     sOne,        0
16        jmp     sBomb,       0
17for sSt
18        dat     0,           0
19rof
20        dat     0,           0
21sAdd    dat.f   sStep,       sStep
22sPtr    spl     {sOff,       >4000+sOff-sDelet
23        dat     0,           0
24        dat     0,           0
25        dat     {10,         >4010-sDelet
26sBomb   spl     #20,         <-100
27sLoop   mov     sBomb,       >sPtr
28        mov     sBomb,       }sPtr
29sBack   djn.a   sLoop,       <sBomb
30
31for 44-sSt
32dat 0, 0
33rof
34
35org qGo
36
37qf 	equ 	qKil
38qs 	equ 	200
39qd 	equ 	4000
40qi 	equ 	7
41qr 	equ 	8
42
43qBmb	dat   	{qi*qr-10, {1
44qGo  	seq   	qd+qf+qs, qf+qs
45     	jmp   	qSki, {qd+qf+qs+qi+2
46     	sne   	qd+qf+5*qs, qf+5*qs
47     	seq   	qf+4*qs, {qTab
48	jmp   	qFas, }qTab
49     	sne   	qd+qf+8*qs, qf+8*qs
50     	seq   	qf+7*qs, {qTab-1
51     	jmp   	qFas, {qFas
52	sne   	qd+qf+10*qs, qf+10*qs
53     	seq   	qf+9*qs, {qTab+1
54	jmp   	qFas, }qFas
55	seq   	qd+qf+2*qs, qf+2*qs
56	jmp   	qFas, {qTab
57	seq   	qd+qf+6*qs, qf+6*qs
58	djn.a 	qFas, {qFas
59	seq   	qd+qf+3*qs, qf+3*qs
60      jmp   	qFas, {qd+qf+3*qs+qi+2
61	sne   	qd+qf+14*qs, qf+14*qs
62	seq   	qf+13*qs, <qTab
63	jmp   	qSlo, >qTab
64	sne   	qd+qf+17*qs, qf+17*qs
65	seq   	qf+16*qs, <qTab-1
66	jmp   	qSlo, {qSlo
67	seq   	qd+qf+11*qs, qf+11*qs
68	jmp   	qSlo, <qTab
69	seq   	qd+qf+15*qs, qf+15*qs
70	djn.b 	qSlo, {qSlo
71	sne   	qd+qf+12*qs, qf+12*qs
72	jmz   	sOne, qd+qf+12*qs-qi
73qSlo  mov.ba 	qTab, qTab
74qFas  mul.ab 	qTab, qKil
75qSki  sne   	qBmb-1, @qKil
76      add   	#qd, qKil
77qLoo  mov.i  	qBmb, @qKil
78qKil  mov.i  	qBmb, *qs
79      sub.ab 	#qi, qKil
80      djn    	qLoo, #qr
81      jmp    	sOne, <-4000
82     	dat   	5408, 7217
83qTab  dat   	4804, 6613
84dSrc  dat   	5810, qBmb-5
85
86end
87
88