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         lda     _tgi_drv                ; Check if we have a driver
  15         ora     _tgi_drv+1
  16         beq     @L1
  17         jsr     tgi_geterror            ; First call driver
  18 @L1:    ldx     #$00                    ; Clear high byte
  19         ldy     _tgi_error              ; Test high level error code
  20         beq     @L2                     ; Branch if no high level error code
  21         tya                             ; Use high level code if we have one
  22         stx     _tgi_error              ; Clear high level error code
  23 @L2:    rts
  24