public _grcg_setcolor_rmw
_grcg_setcolor_rmw	proc far

@@color	= word ptr  6

	push	bp
	mov	bp, sp
	mov	bx, [bp+@@color]
	GRCG_SETMODE_CLOBBERING dx, GC_RMW
	test	bl, 1
	jz	short @@bit0_0
	mov	al, 0FFh
	jmp	short @@bit0_set
; ---------------------------------------------------------------------------

@@bit0_0:
	mov	al, 0

@@bit0_set:
	mov	dx, 7Eh
	out	dx, al
	test	bl, 2
	jz	short @@bit1_0
	mov	al, 0FFh
	jmp	short @@bit1_set
; ---------------------------------------------------------------------------

@@bit1_0:
	mov	al, 0

@@bit1_set:
	mov	dx, 7Eh
	out	dx, al
	test	bl, 4
	jz	short @@bit2_0
	mov	al, 0FFh
	jmp	short @@bit2_set
; ---------------------------------------------------------------------------

@@bit2_0:
	mov	al, 0

@@bit2_set:
	mov	dx, 7Eh
	out	dx, al
	test	bl, 8
	jz	short @@bit3_0
	mov	al, 0FFh
	jmp	short @@bit3_set
; ---------------------------------------------------------------------------

@@bit3_0:
	mov	al, 0

@@bit3_set:
	mov	dx, 7Eh
	out	dx, al
	pop	bp
	retf
_grcg_setcolor_rmw	endp


public _grcg_setcolor_tdw
_grcg_setcolor_tdw	proc far

@@color	= word ptr  6

	push	bp
	mov	bp, sp
	mov	bx, [bp+@@color]
	GRCG_SETMODE_CLOBBERING dx, GC_TDW
	test	bl, 1
	jz	short @@bit0_0
	mov	al, 0FFh
	jmp	short @@bit0_set
; ---------------------------------------------------------------------------

@@bit0_0:
	mov	al, 0

@@bit0_set:
	mov	dx, 7Eh
	out	dx, al
	test	bl, 2
	jz	short @@bit1_0
	mov	al, 0FFh
	jmp	short @@bit1_set
; ---------------------------------------------------------------------------

@@bit1_0:
	mov	al, 0

@@bit1_set:
	mov	dx, 7Eh
	out	dx, al
	test	bl, 4
	jz	short @@bit2_0
	mov	al, 0FFh
	jmp	short @@bit2_set
; ---------------------------------------------------------------------------

@@bit2_0:
	mov	al, 0

@@bit2_set:
	mov	dx, 7Eh
	out	dx, al
	test	bl, 8
	jz	short @@bit3_0
	mov	al, 0FFh
	jmp	short @@bit3_set
; ---------------------------------------------------------------------------

@@bit3_0:
	mov	al, 0

@@bit3_set:
	mov	dx, 7Eh
	out	dx, al
	pop	bp
	retf
_grcg_setcolor_tdw	endp


public _grcg_off_func
_grcg_off_func	proc far
	push	bp
	mov	bp, sp
	GRCG_OFF_CLOBBERING dx
	pop	bp
	retf
_grcg_off_func	endp