sti1.s 324 B

123456789101112131415161718192021
  1. .define Sti1
  2. .sect .text
  3. .sect .rom
  4. .sect .data
  5. .sect .bss
  6. .sect .text
  7. ! This subroutine stores an onebyte wordfractional at the address
  8. ! which is in registerpair AX.
  9. Sti1:
  10. stx ADDR ! address of byte (lowbyte)
  11. sta ADDR+1 ! address of byte (highbyte)
  12. jsr Pop ! get byte
  13. ldy #0
  14. txa
  15. sta (ADDR),y ! store byte
  16. rts