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