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"
14 lda _tgi_drv ; Check if we have a driver
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