;redcode-94x
;name Variation G-1
;author Jay Han
;strategy Stone/Spiral with tons of decoy and a wimp
;macro

		org	start

p1		equ	27739
s1		equ	34
p2		equ	27705
s2		equ	-34

gate		equ	inc+s2

loop		add.f	inc,		cast
stone		spl.b	loop,		<gate
cast		mov.i	<p1,		p2
buckle		djn.f	stone,		<gate
patch		djn.b	inc-stone,	<gate-stone
stop		dat.f	<gate-buckle,	#1
inc		spl.b	#s1,		<s2
clear		mov.i	plug,		<patch+1
plug		dat.f	<gate,		<gate+1

for 15
		dat.f	0,		0
rof

fool		equ	55440/153
m for 76
		dat.f	fool*m,		-fool*m
rof

for 15
		dat.f	0,		0
rof
split		spl.b	#0,		<-19
wimp		djn.f	#0,		<-20
start		spl.b	stone,		<trash
newimp		mov.i	wimp,		cast+27722
		mov.i	split,		<newimp
		spl.b	@newimp,	<trash*2

step		equ	29179
launch
		spl	lbl3,		<3*trash
		spl	lbl5,		<4*trash
		spl	lbl9,		<5*trash
		spl	lbl17,		<6*trash
		spl	lbl33,		<7*trash
		spl	lbl65,		<8*trash
		jmp	imp+0*step+0,	<9*trash
lbl65		jmp	imp+1*step+0,	<10*trash
lbl33		spl	lbl67,		<11*trash
		jmp	imp+2*step+0,	<12*trash
lbl67		jmp	imp+3*step+0,	<13*trash
lbl17		spl	lbl35,		<14*trash
		spl	lbl69,		<15*trash
		jmp	imp+4*step+0,	<16*trash
lbl69		jmp	imp+5*step+0,	<17*trash
lbl35		spl	lbl71,		<18*trash
		jmp	imp+6*step+0,	<19*trash
lbl71		jmp	imp+7*step+0,	<20*trash
lbl9		spl	lbl19,		<21*trash
		spl	lbl37,		<22*trash
		spl	lbl73,		<23*trash
		jmp	imp+8*step+0,	<24*trash
lbl73		jmp	imp+9*step+0,	<25*trash
lbl37		spl	lbl75,		<26*trash
		jmp	imp+10*step+0,	<27*trash
lbl75		jmp	imp+11*step+0,	<28*trash
lbl19		spl	lbl39,		<29*trash
		spl	lbl77,		<30*trash
		jmp	imp+12*step+0,	<31*trash
lbl77		jmp	imp+13*step+0,	<32*trash
lbl39		spl	lbl79,		<33*trash
		jmp	imp+14*step+0,	<34*trash
lbl79		jmp	imp+15*step+0,	<35*trash
lbl5		spl	lbl11,		<36*trash
		spl	lbl21,		<37*trash
		spl	lbl41,		<38*trash
		spl	lbl81,		<39*trash
		jmp	imp+16*step+0,	<40*trash
lbl81		jmp	imp+17*step+0,	<41*trash
lbl41		spl	lbl83,		<42*trash
		jmp	imp+18*step+0,	<43*trash
lbl83		jmp	imp+0*step+1,	<44*trash
lbl21		spl	lbl43,		<45*trash
		spl	lbl85,		<46*trash
		jmp	imp+1*step+1,	<47*trash
lbl85		jmp	imp+2*step+1,	<48*trash
lbl43		spl	lbl87,		<49*trash
		jmp	imp+3*step+1,	<50*trash
lbl87		jmp	imp+4*step+1,	<51*trash
lbl11		spl	lbl23,		<52*trash
		spl	lbl45,		<53*trash
		spl	lbl89,		<54*trash
		jmp	imp+5*step+1,	<55*trash
lbl89		jmp	imp+6*step+1,	<56*trash
lbl45		spl	lbl91,		<57*trash
		jmp	imp+7*step+1,	<58*trash
lbl91		jmp	imp+8*step+1,	<59*trash
lbl23		spl	lbl47,		<60*trash
		spl	lbl93,		<61*trash
		jmp	imp+9*step+1,	<62*trash
lbl93		jmp	imp+10*step+1,	<63*trash
lbl47		spl	lbl95,		<64*trash
		jmp	imp+11*step+1,	<65*trash
lbl95		jmp	imp+12*step+1,	<66*trash
lbl3		mov.i	bomb,		67*trash
		mov.i	bomb,		68*trash
		spl	lbl25,		<69*trash
		spl	lbl49,		<70*trash
		spl	lbl97,		<71*trash
		jmp	imp+13*step+1,	<72*trash
lbl97		jmp	imp+14*step+1,	<73*trash
lbl49		spl	lbl99,		<74*trash
		jmp	imp+15*step+1,	<75*trash
lbl99		jmp	imp+16*step+1,	<76*trash
lbl25		mov.i	bomb,		77*trash
		spl	lbl101,		<78*trash
		jmp	imp+17*step+1,	<79*trash
lbl101		jmp	imp+18*step+1,	<80*trash
imp		mov.i	#0,		step
trash		equ	684
bomb		equ	stop

		end	start