git.sur5r.net Git - cc65/blob - libsrc/pce/call.s

   1 ;
   2 ; CC65 runtime: call function via pointer in ax
   3 ;
   4 ; 1998-08-06, Ullrich von Bassewitz
   5 ; 2018-02-28, Greg King
   6 ;
   7
   8         .export         callax
   9         .importzp       ptr1
  10
  11 callax: sta     ptr1
  12         stx     ptr1+1
  13
  14 ; The PC-Engine puts the zero-page at $2000.
  15
  16         jmp     (ptr1 + $2000)  ; go there