1985-03-29 21:44:50 +00:00
|
|
|
.define .sdl
|
1987-02-02 13:30:20 +00:00
|
|
|
.sect .text
|
|
|
|
|
.sect .rom
|
|
|
|
|
.sect .data
|
|
|
|
|
.sect .bss
|
|
|
|
|
.sect .text
|
1985-03-29 21:44:50 +00:00
|
|
|
|
|
|
|
|
! 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
|
|
|
|
|
|
