2 ; Ullrich von Bassewitz, 21.06.2002
4 ; unsigned char __fastcall__ tgi_geterror (void);
5 ; /* Return the error code for the last operation. This will also clear the
9 .include "tgi-kernel.inc"
13 lda _tgi_drv ; Check if we have a driver
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