25 lines
501 B
ArmAsm
25 lines
501 B
ArmAsm
|
.define Sti, Sext, Stii
|
||
|
|
|
||
|
|
! 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
|
||
|
|
|
||
|
|
|