.include "tgi-kernel.inc"
- .include "tgi-error.inc"
- .export _tgi_setcolor
-_tgi_setcolor:
- cmp _tgi_colors ; Compare to available colors
+.proc _tgi_setcolor
+
+ cmp _tgi_colorcount ; Compare to available colors
bcs @L1
+ sta _tgi_color ; Remember the drawing color
jmp tgi_setcolor ; Call the driver
@L1: jmp tgi_inv_arg ; Invalid argument
-
+
+.endproc