/*
 *	szofram - return the maximum number of bytes that
 *		  alloc() could allow.
 */

szofram() {
#asm
	LHLD	$LM##
	CALL	c.neg##
	DAD	SP
	LXI	D,-500
	DAD	D
#endasm
}