git.sur5r.net Git - cc65/blob - libsrc/tgi/tgi_setcolor.s

   1 ;
   2 ; Ullrich von Bassewitz, 21.06.2002
   3 ;
   4 ; void __fastcall__ tgi_setcolor (unsigned char color);
   5 ; /* Set the current drawing color */
   6
   7
   8         .include        "tgi-kernel.inc"
   9
  10 .proc   _tgi_setcolor
  11
  12         cmp     _tgi_colorcount ; Compare to available colors
  13         bcs     @L1
  14         sta     _tgi_color      ; Remember the drawing color
  15         jmp     tgi_setcolor    ; Call the driver
  16 @L1:    jmp     tgi_inv_arg     ; Invalid argument
  17
  18 .endproc
  19