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

22 lines
324 B
ArmAsm

.define Sti1
.sect .text
.sect .rom
.sect .data
.sect .bss
.sect .text
! This subroutine stores an onebyte wordfractional at the address
! which is in registerpair AX.
Sti1:
stx ADDR ! address of byte (lowbyte)
sta ADDR+1 ! address of byte (highbyte)
jsr Pop ! get byte
ldy #0
txa
sta (ADDR),y ! store byte
rts