1234567891011121314151617181920212223 |
- .define Locaddr
- .sect .text
- .sect .rom
- .sect .data
- .sect .bss
- .sect .text
- ! This routine gets the address of a local which offset is to big.
- ! The offset is in registerpair AX.
- Locaddr:
- pha ! save A
- txa
- clc
- adc LB ! localbase + offset (lowbyte)
- sta ADDR ! address (lowbyte)
- pla
- adc LB+1 ! localbase + offset (highbyte)
- sta ADDR+1 ! address (highbyte)
- rts
|