include	clib.inc

PPROC	emmalloc, pages:WORD
	mov	BX,pages
	mov	AH,43h
	int	67h
	test	AH,AH
	jnz	emmalloc_err
	mov	AX,DX
    emmalloc_end:
	ret
    emmalloc_err:
	mov	AX,-1
	jmp	emmalloc_end
PEND	emmalloc

	END
