.define .sdl
.sect .text
.sect .rom
.sect .data
.sect .bss
.sect .text

! store double local at any offset
! parameters:
!    hl: offset
!    stack: operand (4 bytes)



.sdl:
	pop ix		! return address
	push iy		! bc := LB
	pop bc
	add hl,bc	! pointer to lowest byte
			! of local
	pop bc		! low 2 bytes of source
	ld (hl),c
	inc hl
	ld (hl),b
	inc hl
	pop bc		! high 2 bytes of source
	ld (hl),c
	inc hl
	ld (hl),b
	jp (ix)		! return