;
; Ullrich von Bassewitz, 21.06.2002
;
; void __fastcall__ tgi_setcolor (unsigned char color);
; /* Set the current drawing color */


        .include        "tgi-kernel.inc"
        .include        "tgi-error.inc"
        .export         _tgi_setcolor

_tgi_setcolor:
        cmp     _tgi_colors     ; Compare to available colors
        bcs     @L1
        jmp     tgi_setcolor    ; Call the driver
@L1:    jmp     tgi_inv_arg     ; Invalid argument