1234567891011121314151617181920212223242526272829303132 |
- .define .lar2
- .sect .text
- .sect .rom
- .sect .data
- .sect .bss
- .sect .text
- ! special case lar: element size = 2 (statically known)
- ! parameters:
- ! on stack
- ! adapted from .aar2
- ! execution time: 144 states
- .lar2:
- pop ix
- pop hl
- ld c,(hl)
- inc hl
- ld b,(hl)
- pop hl
- xor a
- sbc hl,bc
- add hl,hl ! size*(index-lwb)
- pop de
- add hl,de ! + base
- ld e,(hl)
- inc hl
- ld d,(hl)
- push de
- jp (ix)
|