ld a, 18
	add l
	ld l, a
	
	ld bc, 31

doublecolcopy: MACRO
	coord sp, 18, coord_const
	pop de
	ld a, e
	ld [hli], a
	ld [hl], d
	add hl, bc
coord_const = coord_const + 1
ENDM
	
	rept 14
	doublecolcopy
	endr
	
	coord sp, 18, 17
	pop de
	ld a, e
	ld [hli], a
	ld [hl], d
	
	ld a, [H_SPTEMP]
	ld l, a
	ld a, [H_SPTEMP + 1]
	ld h, a
	ld sp, hl
	ret