public CDG_PUT_PLANE
cdg_put_plane	proc far

@@plane	= word ptr  6
@@slot 	= word ptr  8
@@top  	= word ptr  0Ah
@@left 	= word ptr  0Ch

	push	bp
	mov	bp, sp
	push	si
	push	di
	mov	si, [bp+@@slot]
	shl	si, 4
	add	si, offset _cdg_slots
	mov	cx, [bp+@@left]
	mov	di, cx
	sar	di, 4
	shl	di, 1
	add	di, [si+cdg_t.offset_at_bottom_left]
	mov	ax, [si+cdg_t.vram_dword_w]
	shl	ax, 1
	mov	byte ptr cs:@@width_words+1, al
	and	cx, 15
	mov	bx, cx
	shl	bx, 1
	mov	bx, WORD_PUT_PATTERN[bx]
	mov	word ptr cs:@@put_pattern_1+1, bx
	mov	word ptr cs:@@put_pattern_2+1, bx
	jmp	short $+2
	shl	ax, 1
	add	ax, (640 / 8)
	mov	dx, ax
	mov	ax, [bp+@@top]
	mov	bx, ax
	shl	ax, 2
	add	ax, bx
	add	ax, 0A800h
	mov	es, ax
	push	ds
	mov	ax, [si+cdg_t.seg_colors]
	mov	si, [si+cdg_t.CDG_plane_size]
	mov	ds, ax
	mov	ax, [bp+@@plane]
	mov	bp, dx
	mul	si
	mov	si, ax
	cld

@@width_words:
	mov	ch, 80h
	lodsw
	ror	ax, cl
	mov	dx, ax

@@put_pattern_1:
	and	ax, 1234h
	xor	dx, ax
	stosw
	dec	ch

@@blit_word:
	lodsw
	ror	ax, cl
	mov	bx, ax

@@put_pattern_2:
	and	ax, 1234h
	xor	bx, ax
	or	ax, dx
	mov	dx, bx
	stosw
	dec	ch
	jnz	short @@blit_word
	or	dx, dx
	jz	short @@next_row
	mov	es:[di], dx
	xor	dx, dx

@@next_row:
	sub	di, bp
	jns	short @@width_words
	pop	ds
	pop	di
	pop	si
	pop	bp
	retf	8
cdg_put_plane	endp