{/************************************************************************/}
{/* Write 1 into register 0A hex, CURSOR START, in the CRT controller	 */}
{/************************************************************************/}

procedure write_curs_start;
begin
	write_register($3D4,$0A);	{/* Select register 07 in CRTC	*/}
	write_register($3D5,$01);	{/* Load selected reg with 1	*/}
	write_register($3B4,$0A);	{/* Select register 07 in CRTC	*/}
	write_register($3B5,$01);	{/* Load selected reg with 1	*/}
end;