byte MML_SetupEMS(mminfo_t *mm)
{
- char str[80];//,str2[10];
+ byte str[160];
byte err;
boolean errorflag=false;
if(errorflag==true)
{
//err = CPURegs.h.ah;
- strcpy(str,"MM_SetupEMS: EMS error");
+ strcpy(str,"MM_SetupEMS: EMS error ");
//itoa(err,str2,16);
- strcat(str,MM_EMSerr(err));
+ MM_EMSerr(&str, err);
printf("%s\n",str);
return err;
}
byte MM_MapEMS(mminfo_t *mm, mminfotype *mmi)
{
- char str[80];
+ byte str[160];
unsigned EMShandle;
byte err;
boolean errorflag=false;
if(errorflag==true)
{
//err = CPURegs.h.ah;
- strcpy(str,"MM_MapEMS: EMS error");
+ strcpy(str,"MM_MapEMS: EMS error ");
//itoa(err,str2,16);
- strcat(str,MM_EMSerr(err));
+ MM_EMSerr(str, err);
printf("%s\n",str);
//printf("FACK! %x\n", err);
return err;
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:
// EMS.Error = (Regs.ax AND 0xFF00&) \ 0x100 //Store the status code
//END SUB
- char str[80];
+ byte str[160];
byte err;
word EMShandle;
boolean errorflag=false;
{
__asm
{
- mov ax,EMS_MAPXPAGE
+ mov ah,EMS_MAPXPAGE
mov cx,[i] // logical page
mov al,bl // physical page
mov dx,[EMShandle] // handle
{
//err = CPURegs.h.ah;
//strcpy(str,"MM_MapXEMS: EMS error 0x");
- strcpy(str,"MM_MapXEMS: EMS error");
+ strcpy(str,"MM_MapXEMS: EMS error ");
//itoa(err,str2,16);
- strcat(str,MM_EMSerr(err));
+ MM_EMSerr(&str, err);
printf("%s\n",str);
//printf("%s%x\n",str, err);
//printf("FACK! %x\n", err);
//
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);
//
// set up the linked list (everything in the free list;
//
+// 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");
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();
- _nheapgrow();
- length=_memavl();
- start = (void huge *)(mm->nearheap = malloc(length));
+ //_nheapgrow();
+ length=_memmax();
+ //printf(" %u\n", length);
+ 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");
+ /*switch( _nheapchk() ) {
+ case _HEAPOK:
+ printf( "OK - nearheap is good\n" );
+ break;
+ case _HEAPEMPTY:
+ printf( "OK - nearheap is empty\n" );
+ break;
+ case _HEAPBADBEGIN:
+ printf( "ERROR - nearheap is damaged\n" );
+ break;
+ case _HEAPBADNODE:
+ printf( "ERROR - bad node in nearheap\n" );
+ break;
+ }*/
+// printf(" near heap ok!\n");
//
// get all available far conventional memory segments
//
//---- length=farcoreleft();
+ printf(" farheap making!\n");
_fheapgrow();
- length=_memavl();
+ length=0xffffUL*4UL;//_memavl();
start = mm->farheap = halloc(length, sizeof(byte));
//start = mm->farheap = _fmalloc(length);
length -= 16-(FP_OFF(start)&15);
MML_UseSpace(segstart,seglength, mm);
mmi->farheap = length;
mmi->mainmem = mmi->nearheap + mmi->farheap;
- //printf("far heap ok!\n");
-
+ /*switch( _fheapchk() ) {
+ case _HEAPOK:
+ printf( "OK - farheap is good\n" );
+ break;
+ case _HEAPEMPTY:
+ printf( "OK - farheap is empty\n" );
+ break;
+ case _HEAPBADBEGIN:
+ printf( "ERROR - farheap is damaged\n" );
+ break;
+ case _HEAPBADNODE:
+ printf( "ERROR - bad node in farheap\n" );
+ break;
+ }*/
+ //printf(" far heap ok!\n");
//
// 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(" 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(" 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!
//TODO: EMS4! AND EMS 3.2 MASSIVE DATA HANDLMENT!
MML_UseSpace(mm->EMSpageframe,(MAPPAGES)*0x4000lu, mm);
-printf("EMS4\n");
- if(mm->EMSVer<0x40)
+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)
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
}
//
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
}
//
return;
_ffree(mm->farheap);
- printf("far freed\n");
+ printf(" far freed\n");
free(mm->nearheap);
- printf("near freed\n");
+ 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"); }
+ if(MML_CheckForEMS()){ MML_ShutdownEMS(mm); printf(" EMS freed\n"); }
+ if(MML_CheckForXMS(mm)){ MML_ShutdownXMS(mm); printf(" XMS freed\n"); }
}
//==========================================================================
FILE *dumpfile;
- free (mm->nearheap);
+ //++++free(mm->nearheap);
dumpfile = fopen ("mmdump.txt","w");
if (!dumpfile){
printf("MM_DumpData: Couldn't open MMDUMP.TXT!\n");
} while (lowest != 0xffff);
- fclose (dumpfile);
+ fclose(dumpfile);
printf("MMDUMP.TXT created.\n");
}
=====================
*/
-byte *MM_EMSerr(byte err)
+void MM_EMSerr(byte *stri, byte err)
{
//Returns a text string describing the error code in EMS.Error.
switch(err)
{
case 0x0:
- return "successful";
+ strcat(stri, "successful");
+ break;
case 0x80:
- return "internal error";
+ strcat(stri, "internal error");
+ break;
case 0x81:
- return "hardware malfunction";
+ strcat(stri, "hardware malfunction");
+ break;
case 0x82:
- return "busy .. retry later";
+ strcat(stri, "busy .. retry later");
+ break;
case 0x83:
- return "invalid handle";
+ strcat(stri, "invalid handle");
+ break;
case 0x84:
- return "undefined function requested by application";
+ strcat(stri, "undefined function requested by application");
+ break;
case 0x85:
- return "no more handles available";
+ strcat(stri, "no more handles available");
+ break;
case 0x86:
- return "error in save or restore of mapping context";
+ strcat(stri, "error in save or restore of mapping context");
+ break;
case 0x87:
- return "insufficient memory pages in system";
+ strcat(stri, "insufficient memory pages in system");
+ break;
case 0x88:
- return "insufficient memory pages available";
+ strcat(stri, "insufficient memory pages available");
+ break;
case 0x89:
- return "zero pages requested";
+ strcat(stri, "zero pages requested");
+ break;
case 0x8A:
- return "invalid logical page number encountered";
+ strcat(stri, "invalid logical page number encountered");
+ break;
case 0x8B:
- return "invalid physical page number encountered";
+ strcat(stri, "invalid physical page number encountered");
+ break;
case 0x8C:
- return "page-mapping hardware state save area is full";
+ strcat(stri, "page-mapping hardware state save area is full");
+ break;
case 0x8D:
- return "save of mapping context failed";
+ strcat(stri, "save of mapping context failed");
+ break;
case 0x8E:
- return "restore of mapping context failed";
+ strcat(stri, "restore of mapping context failed");
+ break;
case 0x8F:
- return "undefined subfunction";
+ strcat(stri, "undefined subfunction");
+ break;
case 0x90:
- return "undefined attribute type";
+ strcat(stri, "undefined attribute type");
+ break;
case 0x91:
- return "feature not supported";
+ strcat(stri, "feature not supported");
+ break;
case 0x92:
- return "successful, but a portion of the source region has been overwritten";
+ strcat(stri, "successful, but a portion of the source region has been overwritten");
+ break;
case 0x93:
- return "length of source or destination region exceeds length of region allocated to either source or destination handle";
+ strcat(stri, "length of source or destination region exceeds length of region allocated to either source or destination handle");
+ break;
case 0x94:
- return "conventional and expanded memory regions overlap";
+ strcat(stri, "conventional and expanded memory regions overlap");
+ break;
case 0x95:
- return "offset within logical page exceeds size of logical page";
+ strcat(stri, "offset within logical page exceeds size of logical page");
+ break;
case 0x96:
- return "region length exceeds 1 MB";
+ strcat(stri, "region length exceeds 1 MB");
+ break;
case 0x97:
- return "source and destination EMS regions have same handle and overlap";
+ strcat(stri, "source and destination EMS regions have same handle and overlap");
+ break;
case 0x98:
- return "memory source or destination type undefined";
+ strcat(stri, "memory source or destination type undefined");
+ break;
case 0x9A:
- return "specified alternate map register or DMA register set not supported";
+ strcat(stri, "specified alternate map register or DMA register set not supported");
+ break;
case 0x9B:
- return "all alternate map register or DMA register sets currently allocated";
+ strcat(stri, "all alternate map register or DMA register sets currently allocated");
+ break;
case 0x9C:
- return "alternate map register or DMA register sets not supported";
+ strcat(stri, "alternate map register or DMA register sets not supported");
+ break;
case 0x9D:
- return "undefined or unallocated alternate map register or DMA register set";
+ strcat(stri, "undefined or unallocated alternate map register or DMA register set");
+ break;
case 0x9E:
- return "dedicated DMA channels not supported";
+ strcat(stri, "dedicated DMA channels not supported");
+ break;
case 0x9F:
- return "specified dedicated DMA channel not supported";
+ strcat(stri, "specified dedicated DMA channel not supported");
+ break;
case 0xA0:
- return "no such handle name";
+ strcat(stri, "no such handle name");
+ break;
case 0xA1:
- return "a handle found had no name, or duplicate handle name";
+ strcat(stri, "a handle found had no name, or duplicate handle name");
+ break;
case 0xA2:
- return "attempted to wrap around 1M conventional address space";
+ strcat(stri, "attempted to wrap around 1M conventional address space");
+ break;
case 0xA3:
- return "source array corrupted";
+ strcat(stri, "source array corrupted");
+ break;
case 0xA4:
- return "operating system denied access";
+ strcat(stri, "operating system denied access");
+ break;
default:
- return "undefined error";
+ strcat(stri, "undefined error");
}
}
projects / 16.git / blobdiff