1234567891011121314151617181920212223242526272829 |
- .define Sti, Sext, Stii
- .sect .text
- .sect .rom
- .sect .data
- .sect .bss
- .sect .text
- ! The subroutine Sti stores an twobyte word at the address which
- ! is in registerpair AX.
- ! The subroutine Sext is used when the address is already in
- ! zeropage.
- ! The subroutine Stii is used when the address is in zeropage
- ! and the registerpair AX contains the word.
- Sti:
- stx ADDR ! address of word (lowbyte)
- sta ADDR+1 ! address of word (highbyte)
- Sext:
- jsr Pop ! get word
- Stii:
- ldy #1
- sta (ADDR),y ! store highbyte
- dey
- txa
- sta (ADDR),y ! store lowbyte
- rts
|