27 lines
378 B
ArmAsm
27 lines
378 B
ArmAsm
|
.define .sdl
|
||
|
|
|
||
|
|
! 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
|
||
|
|
|