;redcode-94t
;name swept away
;author Simon Wainwright
;strategy clear/imp
;assert CORESIZE==8192

; simple and (hopefully) effective. written for
; Fizmo's Corewar Single Elimination Tournament
; round 2, against German Labarga

impstep equ 3277
impboot equ cleargate+300

cleargate dat           100,                400

          dat             0,                  0

wiper     spl            #0,                  0
clearloop mov         clear,         >cleargate
          djn.f   clearloop,         >cleargate
clear     dat         <2731,  clear+2-cleargate


          for            57
          dat             0,                  0
          rof

          dat             0, impboot+impstep*18
          dat             0, impboot+impstep*17
          dat             0, impboot+impstep*16
          dat             0, impboot+impstep*15
          dat             0, impboot+impstep*14
          dat             0, impboot+impstep*13
          dat             0, impboot+impstep*12
          dat             0, impboot+impstep*11
          dat             0, impboot+impstep*10
          dat             0,  impboot+impstep*9
          dat             0,  impboot+impstep*8
          dat             0,  impboot+impstep*7
          dat             0,  impboot+impstep*6
          dat             0,  impboot+impstep*5
          dat             0,  impboot+impstep*4
          dat             0,  impboot+impstep*3
          dat             0,  impboot+impstep*2
          dat             0,  impboot+impstep*1
itable    dat             0,  impboot+impstep*0
          dat             0,            ilaunch
          dat             0,            wiper+1
          dat             0,            wiper+2
          dat             0,            wiper+1
          dat             0,            wiper+2
          dat             0,            wiper+1
          dat             0,            wiper+2
          dat             0,            wiper+1
vlaunch   spl             1,            wiper+2
          spl             1,            wiper+1
          spl             1,            wiper+2
          spl             1,            wiper+1
vtable    spl             1,            wiper+2
          jmp       @vtable,                 {0

ilaunch   mov           imp,            @itable
          djn       ilaunch,                 #5
          jmp         wiper,              <4096

imp       mov.i       #4096,            impstep
          end       vlaunch