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

   1 ;
   2 ; Ullrich von Bassewitz, 11.04.1999
   3 ;
   4 ; CC65 runtime: Load an unsigned char indirect from pointer somewhere in stack
   5 ;
   6
   7         .export         ldaui0sp, ldauiysp
   8         .importzp       sp, ptr1
   9
  10 ldaui0sp:
  11         ldy     #1
  12 ldauiysp:
  13         lda     (sp),y
  14         sta     ptr1+1
  15         dey
  16         lda     (sp),y
  17         sta     ptr1
  18         txa
  19         tay
  20         ldx     #0
  21         lda     (ptr1),y
  22         rts
  23
  24