git.sur5r.net Git - cc65/blob - libsrc/runtime/ldeaxi.s

   1 ;
   2 ; Ullrich von Bassewitz, 31.08.1998
   3 ;
   4 ; CC65 runtime: Load eax indirect from address in ax
   5 ;
   6
   7         .export         ldeaxidx, ldeaxi
   8         .importzp       sreg, ptr1
   9
  10 ldeaxi: ldy     #3
  11 ldeaxidx:
  12         sta     ptr1
  13         stx     ptr1+1
  14         lda     (ptr1),y
  15         dey
  16         sta     sreg+1
  17         lda     (ptr1),y
  18         dey
  19         sta     sreg
  20         lda     (ptr1),y
  21         dey
  22         tax
  23         lda     (ptr1),y
  24         rts
  25