.org $0000
main:
init:
	ld hl, out

	ld a, (amount)
	ld d, a

	ld a, (y)
	ld b, a

	ld a, (x)

loop:
	add a, b

	ld (hl), a
	inc hl

	ld c, a
	ld a, b
	ld b, c

	dec d
	jp nz, loop

verify_init:
	ld hl, out

	ld a, (amount)
	ld d, a

verify:
	ld a, (hl)
	inc hl

	dec d
	jp nz, verify
	
done:
	halt


amount:
	.db 10
x:
	.db 0
y:
	.db 1

out .equ $1000