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 .ifpc02
  13         lda     (sp)
  14 .else
  15         ldy     #0              ; (2)
  16         lda     (sp),y          ; (7) Read byte
  17 .endif
  18         inc     sp              ; (12)
  19         beq     @L1             ; (14)
  20         rts                     ; (20)
  21
  22 @L1:    inc     sp+1
  23         rts
  24
  25 .endproc
  26
  27