sdf.s 287 B

12345678910111213141516171819202122232425
  1. .define .sdf
  2. .sect .text
  3. .sect .rom
  4. .sect .data
  5. .sect .bss
  6. .sect .text
  7. ! store double offsetted
  8. .sdf:
  9. pop bc
  10. push bc !test
  11. pop ix ! return address
  12. pop hl ! address
  13. add hl,de
  14. pop bc
  15. ld (hl),c
  16. inc hl
  17. ld (hl),b
  18. inc hl
  19. pop bc
  20. ld (hl),c
  21. inc hl
  22. ld (hl),b
  23. jp (ix) ! return