cc65/libsrc/tgi/tgi_getcolor.s

;
; Ullrich von Bassewitz, 22.06.2002
;
; unsigned char __fastcall__ tgi_getcolor (void);
; /* Return the current drawing color */


        .include        "tgi-kernel.inc"

.proc   _tgi_getcolor

        lda     _tgi_color      ; Get the current drawing color
        ldx     #0              ; Clear high byte
        rts

.endproc
Working on the TGI library git-svn-id: svn://svn.cc65.org/cc65/trunk@1323 b7a2c559-68d2-44c3-8de9-860c34a00d81 2002-06-22 21:40:24 +00:00			`;`
			`; Ullrich von Bassewitz, 22.06.2002`
			`;`
			`; unsigned char __fastcall__ tgi_getcolor (void);`
			`; /* Return the current drawing color */`


			`.include "tgi-kernel.inc"`

Renamed ..._deinstall -> ..._uninstall. Rename tgi_setup to tgi_install. Make tgi_install and tgi_deinstall user callable. More cosmetic changes. git-svn-id: svn://svn.cc65.org/cc65/trunk@1966 b7a2c559-68d2-44c3-8de9-860c34a00d81 2003-02-11 12:37:46 +00:00			`.proc _tgi_getcolor`

Working on the TGI library git-svn-id: svn://svn.cc65.org/cc65/trunk@1323 b7a2c559-68d2-44c3-8de9-860c34a00d81 2002-06-22 21:40:24 +00:00			`lda _tgi_color ; Get the current drawing color`
			`ldx #0 ; Clear high byte`
			`rts`

Renamed ..._deinstall -> ..._uninstall. Rename tgi_setup to tgi_install. Make tgi_install and tgi_deinstall user callable. More cosmetic changes. git-svn-id: svn://svn.cc65.org/cc65/trunk@1966 b7a2c559-68d2-44c3-8de9-860c34a00d81 2003-02-11 12:37:46 +00:00			`.endproc`