exg.s 269 B

123456789101112131415161718192021222324252627282930
  1. .define .exg
  2. .sect .text
  3. .sect .rom
  4. .sect .data
  5. .sect .bss
  6. .sect .text
  7. .exg:
  8. pop ix
  9. pop de
  10. ld hl,0
  11. add hl,sp
  12. ld b,h
  13. ld c,l
  14. add hl,de
  15. 1:
  16. ld a,(bc)
  17. ex af,af2
  18. ld a,(hl)
  19. ld (bc),a
  20. ex af,af2
  21. ld (hl),a
  22. inc bc
  23. inc hl
  24. dec de
  25. ld a,d
  26. or e
  27. jr nz,1b
  28. jp (ix)