12345678910111213141516171819202122232425262728293031323334353637 |
- .define Lxa2
- .sect .text
- .sect .rom
- .sect .data
- .sect .bss
- .sect .text
- ! This subroutine load the address of AB n (255 >= n > 0) static levels
- ! back.
- Lxa2:
- lda LB
- sta ADDR ! address of localbase (lowbyte)
- lda LB+1
- sta ADDR+1 ! address of localbase (highbyte)
- 1: ldy #2
- lda (ADDR),y ! static level LB (lowbyte)
- pha
- iny
- lda (ADDR),y ! static level LB (highbyte)
- sta ADDR+1 ! static level LB (highbyte)
- pla
- sta ADDR ! static level LB (lowbyte)
- dex
- bne 1b
- tax
- ldy ADDR+1
- inx
- inx ! argumentbase = localbase + 2
- bne 1f
- iny
- 1: tya
- rts
|