;redcode-csec2005

;name Hug'n'clear

;author LAchi

;strategy Coreclear

;strategy Well... after rewriting French Kiss for coresize 3800

;strategy I just discovered that the clear alone scored better... :/

;assert CORESIZE == 3800



STEP equ 16*211

FIRST equ (STEP+3)

WIDTH equ 8

COUNT equ 241



boot equ go+11+16*119



ptr

	spl    #0,     #FIRST

;distance new scan location

restart

	sub.f   inc,   @clear

;bomb old location

stone

	mov.i   bomb,  >ptr

;assume that b-fields are 0 and compare

dest

	seq.i  <FIRST+STEP+WIDTH, <FIRST+STEP

;synchronize if anything changed

	mov.b   dest,   ptr

;go back

	djn.b   restart, #COUNT

	jmp    <restart, #8

kill

	dat    <2667,   inc-dest+1

bomb

	spl    #-99,    inc-ptr+1

clear

	mov    @b,     >dest

	mov.i  @b,     >dest

b

	djn.f   clear, {bomb

inc

	dat     -STEP, <-STEP



	end bomb