metatile drawer

ScrollUpdateTop::
	ld b, 6
.loop:
	push bc

	; Get first block
	ld a, [de]
	inc e
	add a
	add a
	ld b, a

	; Get second block
	ld a, [de]
	inc e
	add a
	add a
	ld c, a

	; Write
	push de
	ld d, HIGH(BlockAppearance)

	ld e, b
	wait_vram
	ld a, [de]   ; 2
	ld [hl+], a  ; 2
	inc e        ; 1
	ld a, [de]   ; 2
	ld [hl+], a  ; 2

	ld e, c
	wait_vram
	ld a, [de]   ; 2
	ld [hl+], a  ; 2
	inc e        ; 1
	ld a, [de]   ; 2
	ld [hl+], a  ; 2

	pop de
	pop bc

	dec b
	jr nz, .loop
	ret