123456789101112131415161718192021 |
- .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
|