git.sur5r.net Git - cc65/blob - libsrc/tgi/tgi_geterror.s

   1 ;
   2 ; Ullrich von Bassewitz, 21.06.2002
   3 ;
   4 ; unsigned char __fastcall__ tgi_geterror (void);
   5 ; /* Return the error code for the last operation. This will also clear the
   6 ;  * error.
   7 ;  */
   8
   9         .include        "tgi-kernel.inc"
  10
  11
  12 _tgi_geterror:
  13         ldx     #0
  14         lda     _tgi_error
  15         stx     _tgi_error
  16         rts
  17