gto.s 285 B

123456789101112131415161718192021222324252627
  1. .define .gto
  2. .sect .text
  3. .sect .rom
  4. .sect .data
  5. .sect .bss
  6. .sect .text
  7. .gto:
  8. ld e,(hl)
  9. inc hl
  10. ld d,(hl)
  11. push de
  12. pop ix ! new pc
  13. inc hl
  14. ld e,(hl)
  15. inc hl
  16. ld d,(hl) ! new sp
  17. inc hl
  18. ld c,(hl)
  19. inc hl
  20. ld b,(hl) ! new lb
  21. push bc
  22. pop iy
  23. push de
  24. pop hl
  25. ld sp,hl
  26. jp (ix)