//SUB EMS.MapXPages (PhysicalStart, LogicalStart, NumPages, Handle)
//Maps up to 4 logical EMS pages to physical pages in the page frame, where:
//SUB EMS.MapXPages (PhysicalStart, LogicalStart, NumPages, Handle)
//Maps up to 4 logical EMS pages to physical pages in the page frame, where:
mov cx,[i] // logical page
mov al,bl // physical page
mov dx,[EMShandle] // handle
mov cx,[i] // logical page
mov al,bl // physical page
mov dx,[EMShandle] // handle
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);
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);
//segu:
//++++todo: linked list of segment!
//printf("segm=%lu\n", segm);
segstart = FP_SEG(start)+(FP_OFF(start)+15)/16;
MML_UseSpace(segstart,seglength, mm);
mmi->nearheap = length;
segstart = FP_SEG(start)+(FP_OFF(start)+15)/16;
MML_UseSpace(segstart,seglength, mm);
mmi->nearheap = length;
- 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;
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;
mmi->EMSmem = 0;
for(i = 1;i < __argc;i++)
{
if(US_CheckParm(__argv[i],ParmStringsexmm) == 0)
goto emsskip; // param NOEMS
}
mmi->EMSmem = 0;
for(i = 1;i < __argc;i++)
{
if(US_CheckParm(__argv[i],ParmStringsexmm) == 0)
goto emsskip; // param NOEMS
}
//TODO: EMS4! AND EMS 3.2 MASSIVE DATA HANDLMENT!
MML_UseSpace(mm->EMSpageframe,(MAPPAGES)*0x4000lu, mm);
//TODO: EMS4! AND EMS 3.2 MASSIVE DATA HANDLMENT!
MML_UseSpace(mm->EMSpageframe,(MAPPAGES)*0x4000lu, mm);
if(US_CheckParm(__argv[i],ParmStringsexmm) == 0)
goto xmsskip; // param NOXMS
}
if(US_CheckParm(__argv[i],ParmStringsexmm) == 0)
goto xmsskip; // param NOXMS
}
- 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
- _ffree(mm->farheap);
- printf("far freed\n");
- free(mm->nearheap);
- printf("near freed\n");
- //hfree(mm->hugeheap);
- //printf("huge freed\n");
- if(MML_CheckForEMS()){ MML_ShutdownEMS(mm); printf("EMS freed\n"); }
- if(MML_CheckForXMS(mm)){ MML_ShutdownXMS(mm); printf("XMS freed\n"); }
+ _ffree(mm->farheap); printf(" far freed\n");
+ free(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"); }
//modexhlin(page, scan->start, (unsigned)end, chy, color);
//for(chx=scan->start;chx+4>=(word)end;chx+=4)
//{
//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);
//}
//++++ 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)
//{
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);
//}
//modexhlin(page, end+1,scan->next->start, chy, 0);
ultoa (scan->start,str,16);
strcat (scratch,str);
strcat (scratch,"\tSize:");
ultoa (scan->start,str,16);
strcat (scratch,str);
strcat (scratch,"\tSize:");
strcat (scratch,str);
strcat (scratch,"\tOwner:0x");
owner = (unsigned)scan->useptr;
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);
strcat (scratch,"\n");
write(debughandle,scratch,strlen(scratch));
//modexprint(page, chx, chy, 1, 0, 24, &scratch);
printf("freeEMSpages=%u\n", mm->freeEMSpages);
printf("EMSpageframe=%x\n", mm->EMSpageframe);
}
printf("freeEMSpages=%u\n", mm->freeEMSpages);
printf("EMSpageframe=%x\n", mm->EMSpageframe);
}
printf("near=%lu\n", mmi->nearheap);
printf("far=%lu\n", mmi->farheap);
printf("EMSmem=%lu\n", mmi->EMSmem);
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));
printf("mainmem=%lu\n", mmi->mainmem);
printf("UnusedMemory=%lu\n", MM_UnusedMemory(mm));
printf("TotalFree=%lu\n", MM_TotalFree(mm));
// printf("\n");
// printf("UnusedMemory=%lu kb\n", MM_UnusedMemory()/10248);
// printf("TotalFree=%lu kb\n", MM_TotalFree()/10248);
// printf("\n");
// printf("UnusedMemory=%lu kb\n", MM_UnusedMemory()/10248);
// printf("TotalFree=%lu kb\n", MM_TotalFree()/10248);
{
//Returns a text string describing the error code in EMS.Error.
switch(err)
{
case 0x0:
strcat(stri, "successful");
{
//Returns a text string describing the error code in EMS.Error.
switch(err)
{
case 0x0:
strcat(stri, "successful");