defn call(addr)
{
	local opc;

	opc = *PC;
	bpset(*PC);
	*SP = *SP - 4;
	**SP = *PC;
	*PC = addr;
	cont();
	bpdel(*PC);
}