/*
** Test program for memory manager.
** Some Assembly Required - BYTE Magazine
** Rick Grehan
*/

#include <stdio.h>
#include <dos.h>

/*
** Defines
*/
#define NUMPTRS	1000		/* Number of pointer nodes */

/*
** Global storage.
*/
unsigned int numparas;		/* Number of paragraphs in heap */
unsigned int memhandle[5];	/* Array of handles */
unsigned int hseg;		/* Segment */

/*
** Externals
*/
extern unsigned int initmem();
extern unsigned int gethandle();
extern unsigned int freehandle();
extern unsigned int lockhandle();
extern unsigned int unlockhandle();
extern unsigned int handtoseg();

main()
{
	long i;
	unsigned int amtoget;
	char huge *chptr1;
	char huge *chptr2;

	/*
	** Initialize the memory manager.
	*/
	numparas=initmem(NUMPTRS);

	printf("Heap initialized with %u paragraphs\n",numparas);
	amtoget=numparas/5;
	printf("Grabbing in chunks of %u\n",amtoget);

	/*
	** Allocate some memory.
	*/
	for(i=0;i<5;i++)
	{
		memhandle[i]=gethandle(amtoget);
		printf("Got memory handle %u\n",memhandle[i]);
	}

	/*
	** Load up blocks 1 and 4.
	*/
	chptr1=(char huge *)MK_FP(handtoseg(memhandle[1]),0);
	chptr2=(char huge *)MK_FP(handtoseg(memhandle[4]),0);

	for(i=0;i<amtoget-1;i++)
	{
		chptr1[i]='A';
		chptr2[i]='B';
	}

	/*
	** Now delete a handle.
	*/
	printf("Freeing handle %u\n",memhandle[0]);
	freehandle(memhandle[0]);
	printf("Freeing handle %u\n",memhandle[3]);
	freehandle(memhandle[3]);

	/*
	** See how things are.
	*/
	printf("\nHandle 1:\n");
	chptr1=(char huge *)MK_FP(handtoseg(memhandle[1]),0);
	for(i=0;i<amtoget-1;i++)
		printf("%c",chptr1[i]);

	printf("\nHandle 4:\n");
	chptr2=(char huge *)MK_FP(handtoseg(memhandle[4]),0);
	for(i=0;i<amtoget-1;i++)
		printf("%c",chptr2[i]);

	/*
	** Lock a handle.
	*/
	printf("Locking handle %u\n",memhandle[2]);
	lockhandle(memhandle[2]);

	/*
	** And get it again.
	*/
	memhandle[0]=gethandle(amtoget+amtoget);
	printf("Got memory handle %u\n",memhandle[0]);

	/*
	** See how things are.
	*/
	printf("\nHandle 1:\n");
	chptr1=(char huge *)MK_FP(handtoseg(memhandle[1]),0);
	for(i=0;i<amtoget-1;i++)
		printf("%c",chptr1[i]);

	printf("\nHandle 4:\n");
	chptr2=(char huge *)MK_FP(handtoseg(memhandle[4]),0);
	for(i=0;i<amtoget-1;i++)
		printf("%c",chptr2[i]);

	/*
	** Unlock the handle
	*/
	printf("unlocking handle %u\n",memhandle[2]);
	unlockhandle(memhandle[2]);

	/*
	** Try request again.
	*/
	memhandle[0]=gethandle(amtoget+amtoget);
	printf("Got memory handle %u\n",memhandle[0]);

	/*
	** See how things are.
	*/
	printf("\nHandle 1:\n");
	chptr1=(char huge *)MK_FP(handtoseg(memhandle[1]),0);
	for(i=0;i<amtoget-1;i++)
		printf("%c",chptr1[i]);

	printf("\nHandle 4:\n");
	chptr2=(char huge *)MK_FP(handtoseg(memhandle[4]),0);
	for(i=0;i<amtoget-1;i++)
		printf("%c",chptr2[i]);

	/*
	** Get far pointer to that memory.
	*/
	chptr1=(char huge *)MK_FP(handtoseg(memhandle[0]),0);

	for(i=0;i<100;i++)
		*chptr1++='A';

	/*
	** Go home.
	*/
	exit(0);
}