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

   1 ;
   2 ; Christian Kruger, 20-May-2018
   3 ;
   4 ; CC65 runtime: Pop registers on stack to ptr1 or ptr2 and ptr1.
   5 ; X is untouched, low byte in A, Y is defined to be 0!
   6
   7         .export         popptr1
   8         .import         incsp2
   9         .importzp       sp, ptr1
  10
  11         .macpack        cpu
  12
  13 .proc   popptr1                 ; 14 bytes (four usages = at least 2 bytes saved)
  14         ldy     #1
  15         lda     (sp),y          ; get hi byte
  16         sta     ptr1+1          ; into ptr hi
  17         dey                     ; no optimization for 65C02 here to have Y=0 at exit!
  18         lda     (sp),y          ; get lo byte
  19         sta     ptr1            ; to ptr lo
  20         jmp     incsp2
  21 .endproc
  22
  23