public c.lret
public c.zret

c.zret:
	/
	af => sp;
	bc =^ (hl = 6 + sp);
	hl + 1 + 1;

	*(hl + 1) = c;
	*(hl + 1) = b;

	bc <= sp;
	hl - 1 - 1 - 1;

	*hl = c;

	sp => bc => hl => af => af;
	ret;
	/
c.lret:
	/
	bc =^ (hl = 4 + sp);

	*(hl + 1) = c;
	*(hl + 1) = b;

	sp => bc => hl => af;

	ret;
	/