{/************************************************************************/}
{/* Get Feature bits from the external register				*/}
{/************************************************************************/}

procedure read_feature;
var
feature : word;
begin
	feature := read_register($3C2); 	{/* Get external register*/}
	feature := feature and $60;		{/* Mask feature bits off*/}
	writeln('Feature bits are ',feature,' (decimal)'); {Print value}
end;