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         .export         _tgi_geterror
  12
  13 _tgi_geterror:
  14         ldx     #0
  15         lda     _tgi_error
  16         stx     _tgi_error
  17         rts
  18