M	EQU	Byte Ptr 0[BX]
	TITLE	'Color Support, Printer GIOS'
DGROUP	GROUP	DATA
; ****************************************************************************
; *                                                                          *
; *  ZSETCOR : Set Color Parameters for Output Primitives                    *
; *                                                                          *
; ****************************************************************************
;  Digital Research, Inc.                                                    *
;  Revision : Jan. 12, 1984   File "ZSETCOR.A86"    GSX-86 V1.3  1-0         *
;                                                                            *
;***** MODE NOTES :  *********************************************************
;                                                                            *
;  Input    :                                                                *
;                                                                            *
;    Current primitive Color Index  in BL                                    *
;                                                                            *
;  Output   :  COLORBIT : Current color index to use                         *
;                                                                            *
;*****************************************************************************
	dseg
	EXTRN	CBITS:byte, COLORBIT:byte
	cseg
	PUBLIC	ZSETCOR

;----------------------------------------------------------------------------+
; Set Color Parameters                                                       +
;----------------------------------------------------------------------------+
; Color Index in <BL>

ZSETCOR:
	MOV	Bh, 0	; <BX>  --> Output Primitive color index
	Mov	Al, Byte Ptr CBITS[Bx]
	Mov	Byte Ptr COLORBIT, Al
	RET

	END