lar2.s 394 B

1234567891011121314151617181920212223242526272829303132
  1. .define .lar2
  2. .sect .text
  3. .sect .rom
  4. .sect .data
  5. .sect .bss
  6. .sect .text
  7. ! special case lar: element size = 2 (statically known)
  8. ! parameters:
  9. ! on stack
  10. ! adapted from .aar2
  11. ! execution time: 144 states
  12. .lar2:
  13. pop ix
  14. pop hl
  15. ld c,(hl)
  16. inc hl
  17. ld b,(hl)
  18. pop hl
  19. xor a
  20. sbc hl,bc
  21. add hl,hl ! size*(index-lwb)
  22. pop de
  23. add hl,de ! + base
  24. ld e,(hl)
  25. inc hl
  26. ld d,(hl)
  27. push de
  28. jp (ix)