;*; Updated on 04-May-93 at 9:27 AM by James A. Jarboe I V; edit time: 0:10:45
;*; Created on 04-May-93 at 9:20 AM by James A. Jarboe I V; edit time: 0:01:34

;***************************************************************************
;                                                                          *
;                            S Y M B O L I C S                             *
;                                                                          *
;***************************************************************************
;
	SEARCH	SYS
	SEARCH	SYSSYM
	SEARCH	TOOLBX



TBXMPL:	PHDR	-1,0,PH$REE!PH$REU

	CHKTBX	ABTMSG			; Always check for proper toolbx.
	
	TOOLBX	TBX$MPLFRE		; Get free central memory pool.
	MOV	D6, D0			; Save available free pool.
	MOV	D7, D2			; Save largest packet size.
	TYPE	<Available Memory pool      >
	MOV	D0, D1			; Set for output.
	DCVT	0,OT$TRM		; Tell em.
	TYPE	< bytes     (>
	DIV	D1,#1024.		; Set up for K size.
	AND	#177777, D1		; Strip remainder.
	DCVT	4,OT$TRM!OT$ZER
	TYPECR	K)
	TYPE	<Largest Memory pool Packet >
	MOV	D2, D1			; Set up largest packet.
	DCVT	0,OT$TRM		; Output it.
	TYPE	< bytes     (>
	DIV	D1, #1024.		; Set up for K size.
	AND	#177777, D1		; Strip remainder.
	DCVT	4,OT$TRM!OT$ZER		; Do it.
	TYPECR	K)
	EXIT

	END

.