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

   1 ;
   2 ; Christian Kruger, 20-May-2018
   3 ;
   4 ; CC65 runtime: Pop 2 bytes from stack to 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 .proc   popptr1                 ; 14 bytes (four usages = at least 2 bytes saved)
  12         ldy     #1
  13         lda     (sp),y          ; get hi byte
  14         sta     ptr1+1          ; into ptr hi
  15         dey                     ; no optimization for 65C02 here to have Y=0 at exit!
  16         lda     (sp),y          ; get lo byte
  17         sta     ptr1            ; to ptr lo
  18         jmp     incsp2
  19 .endproc