;redcode-tiny
;name Bombing Tiny YAP
;author Jens Gutzeit
;strategy paper
;assert CORESIZE == 800

	ORG	boot

;; paper constants

	pStep1	EQU	440
	pStep2	EQU	336

	bStep1	EQU	100	; <- 1st variable
	bStep2	EQU	200	; <- 2nd variable

boot	spl	1
	mov.i	-1,	0
	mov.i	-1,	0

silk1	spl	@ silk1,	< pStep1
	mov.i	} silk1,	> silk1

	mov.i	> bStep1,	{ bStep2

	mov.i	{ silk1,	< silk2
silk2	djn.f	@ silk2,	< pStep2

	END