loi1.s 312 B

1234567891011121314151617181920
  1. .define Loi1
  2. .sect .text
  3. .sect .rom
  4. .sect .data
  5. .sect .bss
  6. .sect .text
  7. ! This routine loads a one byte object in registerpair AX.
  8. Loi1:
  9. stx ADDR ! address of byte (lowbyte)
  10. sta ADDR+1 ! address of byte (highbyte)
  11. ldy #0
  12. lda (ADDR),y ! load byte
  13. tax ! store byte in X
  14. tya ! clear highbyte of AX
  15. rts