.386p
locals

code32 segment para public use32
	assume cs:code32,  ds:code32

;------------------------------------------------------------
;	in:	eax - size of block in bytes
;	out:	eax - handle (0 if error occured) 
;		ebx - base address
;------------------------------------------------------------

alloc_mem proc
	mov	cx, ax
	shr	eax, 16
	mov	bx, ax
	mov	ax, 0501h
	int	31h
	jnc	@@ok

	xor	eax, eax
	ret
@@ok:
	shl	ebx, 16
	mov	bx, cx
	sub	ebx, code32_base
	mov	ax, si
	shl	eax, 16
	mov	ax, di
	ret
endp

;------------------------------------------------------------
;	in:	eax - handle
;	out:	none
;------------------------------------------------------------

free_mem proc
	mov	di, ax
	shr	eax, 16
	mov	si, ax
	mov	ax, 0502h
	int	31h
	ret
endp

code32 ends