ack/mach/6500/libem/sdl.s
1987-01-30 18:41:42 +00:00

31 lines
424 B
ArmAsm

.define Sdi, Sdo
.sect .text
.sect .rom
.sect .data
.sect .bss
.sect .text
! The subroutine Sdi takes a fourbyte word and stores it
! at the address in registerpair AX.
! If the address is in zeropage, Sdo is used.
Sdi:
stx ADDR ! address (lowbyte)
sta ADDR+1 ! address (highbyte)
Sdo:
ldy #0
1: jsr Pop
pha
txa
sta (ADDR),y ! store lowbyte
iny
pla
sta (ADDR),y ! store highbyte
iny
cpy #4
bne 1b
rts