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

   1 ;
   2 ; Ullrich von Bassewitz, 31.08.1998
   3 ;
   4 ; CC65 runtime: Load a from stack slot and push as word
   5 ;
   6
   7         .export         pushbsp, pushbysp
   8         .import         pusha0
   9         .importzp       sp
  10
  11 pushbsp:
  12         ldy     #0
  13 pushbysp:
  14         lda     (sp),y          ; get lo byte
  15         jmp     pusha0          ; promote to unsigned and push
  16
  17