;redcode-88 quiet
;name Zygote (hill version)
;author Roy van Rijn
;strategy Improved after tournament, tweaked and added qscan
;assert 1

boot   spl stone, <1234
       spl stone, <2345
       spl stone, <3456
       spl stone, <4567
       spl stone, <5678
       spl stone, <7890
       spl stone, <8510

pboot spl 1, <163
     spl 1, <2663
     mov -1,0

paper add #7,bptr
     mov <-1,<1
     spl @0,7349
     mov bomb,<-1
     mov bomb,<bptr
     jmz paper,paper
bomb  dat <2667,<5334

bptr  dat #0,#7742

dat #0,#0
dat #0,#0
dat #0,#0
dat #0,#0

stone   spl 0             , <2761
       mov sbomb         , <-3023
       mov sbomb         , @-1
       add #-107         , -2
       djn -3            , <2350

dat #0,#0
dat #0,#0

sbomb   dat <1            , #17

  for 34
      dat   #0,       #0
  rof

qs    equ 322
qd    equ 161

qscan cmp 2*qs+qd       , 2*qs
qt1   jmp qa0           , <3*qs
     cmp qscan+5*qs+qd , qscan+5*qs
qt2   jmp qa1           , <4*qs
     cmp qscan+4*qs+qd , qscan+4*qs
qs1   djn qa1           , #qt1
     cmp qscan+10*qs-2 , qscan+10*qs+qd-2
qs2   djn qa2           , #qt2
     cmp qscan+9*qs+qd , qscan+9*qs
qt3   jmp qa2           , <6*qs
     cmp qscan+6*qs+qd , qscan+6*qs
     jmp qa2           , <qa1
     cmp qscan+8*qs+qd , qscan+8*qs
     jmp qa2           , <qs1
     cmp qscan+11*qs   , qscan+11*qs+qd
     jmp qa3           , <qa2
     cmp qscan+18*qs-8 , qscan+18*qs+qd-8
qs3   djn qa3           , #qt3
     cmp qscan+16*qs-2 , qscan+16*qs+qd-2
     jmp qa3           , <qs2
     cmp qscan+12*qs   , qscan+12*qs+qd
     jmp qa3           , <qa1
     cmp qscan+14*qs   , qscan+14*qs+qd
     jmp qa3           , <qs1
     jmz boot          , qscan+15*qs

qa3   add @qs3          , qp
qa2   add @qs2          , @qa3
qa1   add @qs1          , @qa3
qa0   cmp @qp           , <1234
     cmp @0            , 0
     add #qd           , qp
ql    mov qb            , @qp
qp    mov <2345         , <qscan+2*qs
     sub #9            , @ql
     djn ql            , #6
qb    jmp boot          , <43

end qscan