12345678910111213141516171819202122232425262728293031 |
- .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
|