*/
#include "src/lib/16_mm.h"
+#pragma hdrstop
+
+#pragma warn -pro
+#pragma warn -use
/*
=============================================================================
byte MM_MapXEMS(mminfo_t *mm, mminfotype *mmi)
{
-
//SUB EMS.MapXPages (PhysicalStart, LogicalStart, NumPages, Handle)
//Maps up to 4 logical EMS pages to physical pages in the page frame, where:
{
__asm
{
- mov ax,EMS_MAPXPAGE
+ mov ah,EMS_MAPXPAGE
mov cx,[i] // logical page
mov al,bl // physical page
mov dx,[EMShandle] // handle
//
oldend = scan->start + scan->length;
extra = oldend - (segstart+seglength);
-
+/*
printf("segm=%u ", segm);
printf("ex=%lu ", extra);
printf("start+seglen=%lu ", segstart+seglength);
printf("len=%u ", scan->length);
printf("segsta=%x ", segstart);
printf("seglen=%lu\n", seglength);
-
+*/
//segu:
//++++todo: linked list of segment!
//printf("segm=%lu\n", segm);
void MM_Startup(mminfo_t *mm, mminfotype *mmi)
{
int i;
- dword length;
+ dword length,seglength;
+ //dword length; word seglength;
void huge *start;
- unsigned segstart,seglength,endfree;
+ word segstart;//,endfree;
if(mm->mmstarted)
MM_Shutdown(mm);
mm->mmstarted = true;
mm->bombonerror = true;
+
//
// set up the linked list (everything in the free list;
//
- printf(" linked list making!\n");
+ //printf(" linked list making!\n");
mm->mmhead = NULL;
mm->mmfree = &(mm->mmblocks[0]);
for(i=0;i<MAXBLOCKS-1;i++)
//
// locked block of all memory until we punch out free space
//
- printf(" newblock making!\n");
+ //printf(" newblock making!\n");
MM_GetNewBlock(mm);
mm->mmhead = mm->mmnew; // this will allways be the first node
mm->mmnew->start = 0;
mm->mmnew->next = NULL;
mm->mmrover = mm->mmhead;
-// farlen=_bios_memsize()*1024;
-
//
// get all available near conventional memory segments
//
- printf(" nearheap making!\n");
//---- length=coreleft();
+ printf(" nearheap making!\n");
_nheapgrow();
- length=_memavl();
- start = (void huge *)(mm->nearheap = malloc(length));
+ length=(dword)_memavl();//(dword)GetFreeSize();
+ start = (void huge *)(mm->nearheap = _nmalloc(length));
length -= 16-(FP_OFF(start)&15);
length -= SAVENEARHEAP;
seglength = length / 16; // now in paragraphs
segstart = FP_SEG(start)+(FP_OFF(start)+15)/16;
MML_UseSpace(segstart,seglength, mm);
mmi->nearheap = length;
- printf(" near heap ok!\n");
+ printf("start=%FP segstart=%X seglen=%lu len=%lu\n", start, segstart, seglength, length);
+ //heapdump();
+ //getch();
//
// get all available far conventional memory segments
//---- length=farcoreleft();
printf(" farheap making!\n");
_fheapgrow();
- length=_memavl();
- start = mm->farheap = halloc(length, sizeof(byte));
- //start = mm->farheap = _fmalloc(length);
+ length=(dword)GetFarFreeSize();//0xffffUL*4UL;
+ //start = mm->farheap = halloc(length, 1);
+ start = mm->farheap = _fmalloc(length);
length -= 16-(FP_OFF(start)&15);
length -= SAVEFARHEAP;
seglength = length / 16; // now in paragraphs
segstart = FP_SEG(start)+(FP_OFF(start)+15)/16;
MML_UseSpace(segstart,seglength, mm);
mmi->farheap = length;
+ printf("start=%FP segstart=%X seglen=%lu len=%lu\n", start, segstart, seglength, length);
+ //heapdump();
+
mmi->mainmem = mmi->nearheap + mmi->farheap;
- printf(" far heap ok!\n");
+ getch();
+
+//goto xmsskip;
//
// detect EMS and allocate up to 64K at page frame
//
- printf(" EMS1\n\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"); //bug!
+printf(" EMS1\n");
+printf("\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"); //bug!
mmi->EMSmem = 0;
for(i = 1;i < __argc;i++)
{
if(US_CheckParm(__argv[i],ParmStringsexmm) == 0)
goto emsskip; // param NOEMS
}
- printf("\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"); //bug!
+printf("\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"); //bug!
if(MML_CheckForEMS())
{
printf(" EMS2\n");
+printf("\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"); //bug!
MML_SetupEMS(mm); // allocate space
printf(" EMS3\n");
- printf("\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"); //bug!
+printf("\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"); //bug!
//TODO: EMS4! AND EMS 3.2 MASSIVE DATA HANDLMENT!
MML_UseSpace(mm->EMSpageframe,(MAPPAGES)*0x4000lu, mm);
+printf("\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"); //bug!
printf(" EMS4\n");
- if(mm->EMSVer<0x40)
+ //if(mm->EMSVer<0x40)
MM_MapEMS(mm, mmi); // map in used pages
- else
- MM_MapXEMS(mm, mmi); // map in used pages
+ //else
+ //MM_MapXEMS(mm, mmi); // map in used pages
}
+goto xmsskip;
+
//
// detect XMS and get upper memory blocks
//
if(US_CheckParm(__argv[i],ParmStringsexmm) == 0)
goto xmsskip; // param NOXMS
}
- printf("\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"); //bug!
+printf("\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"); //bug!
if(MML_CheckForXMS(mm))
{
- printf(" XMS!\n");
- //MML_SetupXMS(mm, mmi); // allocate as many UMBs as possible
+printf("\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"); //bug!
+printf(" XMS!\n");
+ MML_SetupXMS(mm, mmi); // allocate as many UMBs as possible
}
//
if(!(mm->mmstarted))
return;
- _ffree(mm->farheap);
- printf(" far freed\n");
- free(mm->nearheap);
- printf(" near freed\n");
- //hfree(mm->hugeheap);
- //printf("huge freed\n");
+ _ffree(mm->farheap); printf(" far freed\n");
+ _nfree(mm->nearheap); printf(" near freed\n");
if(MML_CheckForEMS()){ MML_ShutdownEMS(mm); printf(" EMS freed\n"); }
if(MML_CheckForXMS(mm)){ MML_ShutdownXMS(mm); printf(" XMS freed\n"); }
}
}
if (mm->bombonerror)
+ {
+ heapdump();
printf(OUT_OF_MEM_MSG,(size-mmi->nearheap));
+ printf("for stability reasons the program will shut down! wwww\n");
+ MM_Shutdown(mm);
+ exit(-1);
+ }
else
mm->mmerror = true;
}
=====================
*/
-void MM_ShowMemory(page_t *page, mminfo_t *mm)
+void MM_ShowMemory(/*page_t *page, */mminfo_t *mm)
{
mmblocktype huge *scan;
word color,temp;
//modexhlin(page, scan->start, (unsigned)end, chy, color);
//for(chx=scan->start;chx+4>=(word)end;chx+=4)
//{
- modexClearRegion(page, chx, chy, 4, 4, color);
+//++++ modexClearRegion(page, chx, chy, 4, 4, color);
//}
//++++ VW_Hlin(scan->start,(unsigned)end,0,color);
//++++ VW_Plot(scan->start,0,15);
- modexClearRegion(page, chx, chy, 4, 4, 15);
+//++++ modexClearRegion(page, chx, chy, 4, 4, 15);
if(scan->next->start > end+1)
//++++ VW_Hlin(end+1,scan->next->start,0,0); // black = free
//for(chx=scan->next->start;chx+4>=(word)end+1;chx+=4)
//{
- chx+=scan->next->start;
- modexClearRegion(page, chx, chy, 4, 4, 2);
+//++++ chx+=scan->next->start;
+//++++ modexClearRegion(page, chx, chy, 4, 4, 2);
//}
//modexhlin(page, end+1,scan->next->start, chy, 0);
ultoa (scan->start,str,16);
strcat (scratch,str);
strcat (scratch,"\tSize:");
-ltoa ((dword)scan->length*16,str,10);
+ultoa ((dword)scan->length,str,10);
strcat (scratch,str);
strcat (scratch,"\tOwner:0x");
owner = (unsigned)scan->useptr;
strcat (scratch,"\n");
write(debughandle,scratch,strlen(scratch));
//modexprint(page, chx, chy, 1, 0, 24, &scratch);
-chy+=4;
+//++++chy+=4;
//fprintf(stdout, "%s", scratch);
//****#endif
FILE *dumpfile;
- free (mm->nearheap);
- dumpfile = fopen ("mmdump.txt","w");
+ //++++free(mm->nearheap);
+ dumpfile = fopen ("mmdump.16","w");
if (!dumpfile){
- printf("MM_DumpData: Couldn't open MMDUMP.TXT!\n");
+ printf("MM_DumpData: Couldn't open MMDUMP.16!\n");
return;
}
} while (lowest != 0xffff);
- fclose (dumpfile);
- printf("MMDUMP.TXT created.\n");
+ fclose(dumpfile);
+ printf("MMDUMP.16 created.\n");
}
//==========================================================================
scan = scan->next;
}
- return free*16l;
-// return free;
+// return free*16l;
+ return free;
}
//==========================================================================
scan = scan->next;
}
- return free*16l;
-// return free;
+// return free*16l;
+ return free;
}
//==========================================================================
=====================
*/
-void MM_Report(page_t *page, mminfo_t *mm, mminfotype *mmi)
+void MM_Report(/*page_t *page, */mminfo_t *mm, mminfotype *mmi)
{
if(MML_CheckForEMS())
{
printf("freeEMSpages=%u\n", mm->freeEMSpages);
printf("EMSpageframe=%x\n", mm->EMSpageframe);
}
- if(MML_CheckForXMS(mm)) printf("XMSaddr=%Fp\n", *XMSaddr);
+ if(MML_CheckForXMS(mm)) printf("XMSaddr=%X\n", *XMSaddr);
printf("near=%lu\n", mmi->nearheap);
printf("far=%lu\n", mmi->farheap);
printf("EMSmem=%lu\n", mmi->EMSmem);
printf("mainmem=%lu\n", mmi->mainmem);
printf("UnusedMemory=%lu\n", MM_UnusedMemory(mm));
printf("TotalFree=%lu\n", MM_TotalFree(mm));
+ //mmi->nearheap+mmi->farheap+
+ printf("TotalUsed=%lu\n", mmi->mainmem+mmi->EMSmem+mmi->XMSmem);//+);
// printf("\n");
// printf("UnusedMemory=%lu kb\n", MM_UnusedMemory()/10248);
// printf("TotalFree=%lu kb\n", MM_TotalFree()/10248);
void MM_EMSerr(byte *stri, byte err)
{
//Returns a text string describing the error code in EMS.Error.
- fprintf(stderr, "\n%x\n\n", err);
switch(err)
{
- case '0h':
+ case 0x0:
strcat(stri, "successful");
- case '80h':
+ break;
+ case 0x80:
strcat(stri, "internal error");
- case '81h':
+ break;
+ case 0x81:
strcat(stri, "hardware malfunction");
- case '82h':
+ break;
+ case 0x82:
strcat(stri, "busy .. retry later");
- case '83h':
+ break;
+ case 0x83:
strcat(stri, "invalid handle");
- case '84h':
+ break;
+ case 0x84:
strcat(stri, "undefined function requested by application");
- case '85h':
+ break;
+ case 0x85:
strcat(stri, "no more handles available");
- case '86h':
+ break;
+ case 0x86:
strcat(stri, "error in save or restore of mapping context");
- case '87h':
+ break;
+ case 0x87:
strcat(stri, "insufficient memory pages in system");
- case '88h':
+ break;
+ case 0x88:
strcat(stri, "insufficient memory pages available");
- case '89h':
+ break;
+ case 0x89:
strcat(stri, "zero pages requested");
- case '8Ah':
+ break;
+ case 0x8A:
strcat(stri, "invalid logical page number encountered");
- case '8Bh':
+ break;
+ case 0x8B:
strcat(stri, "invalid physical page number encountered");
- case '8Ch':
+ break;
+ case 0x8C:
strcat(stri, "page-mapping hardware state save area is full");
- case '8Dh':
+ break;
+ case 0x8D:
strcat(stri, "save of mapping context failed");
- case '8Eh':
+ break;
+ case 0x8E:
strcat(stri, "restore of mapping context failed");
- case '8Fh':
+ break;
+ case 0x8F:
strcat(stri, "undefined subfunction");
- case '90h':
+ break;
+ case 0x90:
strcat(stri, "undefined attribute type");
- case '91h':
+ break;
+ case 0x91:
strcat(stri, "feature not supported");
- case '92h':
+ break;
+ case 0x92:
strcat(stri, "successful, but a portion of the source region has been overwritten");
- case '93h':
+ break;
+ case 0x93:
strcat(stri, "length of source or destination region exceeds length of region allocated to either source or destination handle");
- case '94h':
+ break;
+ case 0x94:
strcat(stri, "conventional and expanded memory regions overlap");
- case '95h':
+ break;
+ case 0x95:
strcat(stri, "offset within logical page exceeds size of logical page");
- case '96h':
+ break;
+ case 0x96:
strcat(stri, "region length exceeds 1 MB");
- case '97h':
+ break;
+ case 0x97:
strcat(stri, "source and destination EMS regions have same handle and overlap");
- case '98h':
+ break;
+ case 0x98:
strcat(stri, "memory source or destination type undefined");
- case '9Ah':
+ break;
+ case 0x9A:
strcat(stri, "specified alternate map register or DMA register set not supported");
- case '9Bh':
+ break;
+ case 0x9B:
strcat(stri, "all alternate map register or DMA register sets currently allocated");
- case '9Ch':
+ break;
+ case 0x9C:
strcat(stri, "alternate map register or DMA register sets not supported");
- case '9Dh':
+ break;
+ case 0x9D:
strcat(stri, "undefined or unallocated alternate map register or DMA register set");
- case '9Eh':
+ break;
+ case 0x9E:
strcat(stri, "dedicated DMA channels not supported");
- case '9Fh':
+ break;
+ case 0x9F:
strcat(stri, "specified dedicated DMA channel not supported");
- case 'A0h':
+ break;
+ case 0xA0:
strcat(stri, "no such handle name");
- case 'A1h':
+ break;
+ case 0xA1:
strcat(stri, "a handle found had no name, or duplicate handle name");
- case 'A2h':
+ break;
+ case 0xA2:
strcat(stri, "attempted to wrap around 1M conventional address space");
- case 'A3h':
+ break;
+ case 0xA3:
strcat(stri, "source array corrupted");
- case 'A4h':
+ break;
+ case 0xA4:
strcat(stri, "operating system denied access");
+ break;
default:
strcat(stri, "undefined error");
}
}
-
//==========================================================================
/*
void MM_seguin(void)
{
- __asm
- {
+ __asm {
push ds
mov ax,ds
inc ax
void MM_segude(void)
{
- __asm
- {
+ __asm {
pop ds
}
}