.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