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

   1 ;
   2 ; Ullrich von Bassewitz, 25.10.2000
   3 ;
   4 ; CC65 runtime: Pop a from stack
   5 ;
   6
   7         .export         popa
   8         .importzp       sp
   9
  10 .proc   popa
  11
  12         ldy     #0
  13         lda     (sp),y          ; Read byte
  14         inc     sp
  15         bne     @L1
  16         inc     sp+1
  17 @L1:    rts
  18
  19 .endproc
  20
  21