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

	ORG	boot

;; paper constants

	pStep1	EQU	309	; <- CHANGE VALUE TO YOUR NEEDS
	pStep2	EQU	391     ; <- CHANGE VALUE TO YOUR NEEDS

boot	spl	1
	spl	1

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

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

	END