Added SER_ prefix. Whitespace cleanup

[cc65] / libsrc / tgi / tgi_geterror.s

diff --git a/libsrc/tgi/tgi_geterror.s b/libsrc/tgi/tgi_geterror.s
index 0aa12e17c187cc794687ee01a3d8c8481dd17ec9..8d0e4db12f25ca68ef13d2fd69ea670a05cb7d16 100644 (file)
--- a/libsrc/tgi/tgi_geterror.s
+++ b/libsrc/tgi/tgi_geterror.s
@@ -1,21 +1,24 @@
 ;
 ; Ullrich von Bassewitz, 21.06.2002
 ;
-; unsigned char __fastcall__ tgi_geterror (void);
+; unsigned char tgi_geterror (void);
 ; /* Return the error code for the last operation. This will also clear the
-;  * error.
-;  */
+; ** error.
+; */
 
         .include        "tgi-kernel.inc"
 
-        .export         _tgi_geterror
+.proc   _tgi_geterror
 
-_tgi_geterror:
+        lda     _tgi_drv                ; Check if we have a driver
+        ora     _tgi_drv+1
+        beq     @L1
         jsr     tgi_geterror            ; First call driver
-        ldx     #$00                    ; Clear high byte
+@L1:    ldx     #$00                    ; Clear high byte
         ldy     _tgi_error              ; Test high level error code
-        beq     @L1                     ; Branch if no high level error code
+        beq     @L2                     ; Branch if no high level error code
         tya                             ; Use high level code if we have one
         stx     _tgi_error              ; Clear high level error code
-@L1:    rts
+@L2:    rts
 
+.endproc