stl.s 302 B

12345678910111213141516171819202122
  1. .define Stl
  2. .sect .text
  3. .sect .rom
  4. .sect .data
  5. .sect .bss
  6. .sect .text
  7. ! This subroutine performs the storage of a local which offset
  8. ! is to big.
  9. Stl:
  10. jsr Locaddr ! get the local address
  11. jsr Pop ! get the word
  12. ldy #1
  13. sta (ADDR),y ! store highbyte
  14. dey
  15. txa
  16. sta (ADDR),y ! store lowbyte
  17. rts