lxa1.s 315 B

1234567891011121314151617181920
  1. .define Lxa1
  2. .sect .text
  3. .sect .rom
  4. .sect .data
  5. .sect .bss
  6. .sect .text
  7. ! This subroutine loads the address of AB zero static levels back.
  8. Lxa1:
  9. ldy LB+1 ! load address of localbase (highbyte)
  10. ldx LB ! load address of localbase (lowbyte)
  11. inx
  12. inx ! argumentbase = localbase + 2
  13. bne 1f
  14. iny
  15. 1: tya
  16. rts