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