;*DDK*************************************************************************/
;
; COPYRIGHT    Copyright (C) 1995 IBM Corporation
;
;    The following IBM OS/2 WARP source code is provided to you solely for
;    the purpose of assisting you in your development of OS/2 WARP device
;    drivers. You may use this code in accordance with the IBM License
;    Agreement provided in the IBM Device Driver Source Kit for OS/2. This
;    Copyright statement may not be removed.;
;*****************************************************************************/
; SCCSID = %w% %e%
;**************************************************************************
;*
;* SOURCE FILE NAME = DHCALL2A.ASM
;*
;* DESCRIPTIVE NAME = C callable DevHelp interface
;*		      Memory Management Related DevHelp Calls
;*
;*
;* VERSION = V2.0
;*
;* DATE
;*
;* DESCRIPTION :
;*
;* Purpose:
;*
;*
;*
;*
;* FUNCTIONS  :
;*
;*
;*
;*
;*
;*
;*
;* NOTES
;*
;*
;* STRUCTURES
;*
;* EXTERNAL REFERENCES
;*
;*
;*
;* EXTERNAL FUNCTIONS
;*
;* CHANGE ACTIVITY =
;*   DATE      FLAG	   APAR   CHANGE DESCRIPTION
;*   --------  ----------  -----  --------------------------------------
;*   10/22/93  @V74979	   74979  Change return type to USHORT
;*    2/ 5/94		   78794  File created
;*
;****************************************************************************

	.xlist
	include dhmacs.inc
	.list

;*
;*  Memory Management
;*

Code	segment dword public 'CODE'
	assume	CS:Code,DS:_DATA


;*
;*
;* USHORT APIENTRY DevHlp_AllocPhys( ULONG lSize, USHORT MemType,
;*				   PULONG PhysAddr );
;*
;*

	DHDef	AllocPhys
	DHArgs	ULONG,	 lSize
	DHArgs	USHORT,  MemType
	DHArgs	PULONG,  PhysAddr

	mov	ax, Stk.lSize[2]
	mov	bx, Stk.lSize[0]
	mov	dh, Stk.MemType

	DHCall

	les	si, Stk.PhysAddr
	mov	es:[si][0], bx
	mov	es:[si][2], ax

	DHRet1


;*
;*
;* USHORT APIENTRY DevHlp_FreePhys( ULONG PhysAddr );
;*
;*

	DHDef	FreePhys
	DHArgs	ULONG,	 PhysAddr

	mov	ax, Stk.PhysAddr[2]
	mov	bx, Stk.PhysAddr[0]

	DHCall

	DHRet1


Code	Ends
	End
