/
	.mcall exst$s
	program nocore		;alloc failure default routine
function nocore
	printf "Out of heap space"
	exst$s #4
	.end