]> 4ch.mooo.com Git - 16.git/blobdiff - src/lib/16_mm.c
damn!
[16.git] / src / lib / 16_mm.c
index b88d3a3af0e04aace62e264ddb845c1c86abafff..e61b2deb9610ba80b761ae99425b8fa2cf4d6a5f 100644 (file)
@@ -306,7 +306,6 @@ byte MM_MapEMS(mminfo_t *mm, mminfotype *mmi)
 
 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:
@@ -343,7 +342,7 @@ byte MM_MapXEMS(mminfo_t *mm, mminfotype *mmi)
        {
                __asm
                {
-                       mov     ax,EMS_MAPXPAGE
+                       mov     ah,EMS_MAPXPAGE
                        mov     cx,[i]                  // logical page
                        mov     al,bl                   // physical page
                        mov     dx,[EMShandle]  // handle
@@ -548,14 +547,14 @@ void MML_UseSpace(/*d*/word segstart, dword seglength, mminfo_t *mm)
 //
        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);
@@ -642,7 +641,7 @@ void MM_Startup(mminfo_t *mm, mminfotype *mmi)
 //
 // 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++)
@@ -654,7 +653,7 @@ void MM_Startup(mminfo_t *mm, mminfotype *mmi)
 //
 // 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;
@@ -663,23 +662,36 @@ void MM_Startup(mminfo_t *mm, mminfotype *mmi)
        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
@@ -687,7 +699,7 @@ void MM_Startup(mminfo_t *mm, mminfotype *mmi)
 //---- 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);
@@ -697,33 +709,49 @@ void MM_Startup(mminfo_t *mm, mminfotype *mmi)
        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("\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\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
        }
 
 //
@@ -736,11 +764,12 @@ emsskip:
                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
        }
 
 //
@@ -770,13 +799,13 @@ void MM_Shutdown(mminfo_t *mm)
                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"); }
 }
 
 //==========================================================================
@@ -1237,7 +1266,7 @@ void MM_DumpData(mminfo_t *mm)
        FILE    *dumpfile;
 
 
-       free (mm->nearheap);
+       //++++free(mm->nearheap);
        dumpfile = fopen ("mmdump.txt","w");
        if (!dumpfile){
                printf("MM_DumpData: Couldn't open MMDUMP.TXT!\n");
@@ -1280,7 +1309,7 @@ void MM_DumpData(mminfo_t *mm)
 
        } while (lowest != 0xffff);
 
-       fclose (dumpfile);
+       fclose(dumpfile);
        printf("MMDUMP.TXT created.\n");
 }
 
@@ -1390,91 +1419,127 @@ void MM_Report(page_t *page, mminfo_t *mm, mminfotype *mmi)
 =====================
 */
 
-static void MM_EMSerr(byte *stri, byte err)
+void MM_EMSerr(byte *stri, byte err)
 {
        //Returns a text string describing the error code in EMS.Error.
        switch(err)
        {
                case 0x0:
                        strcat(stri, "successful");
+               break;
                case 0x80:
                        strcat(stri, "internal error");
+               break;
                case 0x81:
                        strcat(stri, "hardware malfunction");
+               break;
                case 0x82:
                        strcat(stri, "busy .. retry later");
+               break;
                case 0x83:
                        strcat(stri, "invalid handle");
+               break;
                case 0x84:
                        strcat(stri, "undefined function requested by application");
+               break;
                case 0x85:
                        strcat(stri, "no more handles available");
+               break;
                case 0x86:
                        strcat(stri, "error in save or restore of mapping context");
+               break;
                case 0x87:
                        strcat(stri, "insufficient memory pages in system");
+               break;
                case 0x88:
                        strcat(stri, "insufficient memory pages available");
+               break;
                case 0x89:
                        strcat(stri, "zero pages requested");
+               break;
                case 0x8A:
                        strcat(stri, "invalid logical page number encountered");
+               break;
                case 0x8B:
                        strcat(stri, "invalid physical page number encountered");
+               break;
                case 0x8C:
                        strcat(stri, "page-mapping hardware state save area is full");
+               break;
                case 0x8D:
                        strcat(stri, "save of mapping context failed");
+               break;
                case 0x8E:
                        strcat(stri, "restore of mapping context failed");
+               break;
                case 0x8F:
                        strcat(stri, "undefined subfunction");
+               break;
                case 0x90:
                        strcat(stri, "undefined attribute type");
+               break;
                case 0x91:
                        strcat(stri, "feature not supported");
+               break;
                case 0x92:
                        strcat(stri, "successful, but a portion of the source region has been overwritten");
+               break;
                case 0x93:
                        strcat(stri, "length of source or destination region exceeds length of region allocated to either source or destination handle");
+               break;
                case 0x94:
                        strcat(stri, "conventional and expanded memory regions overlap");
+               break;
                case 0x95:
                        strcat(stri, "offset within logical page exceeds size of logical page");
+               break;
                case 0x96:
                        strcat(stri, "region length exceeds 1 MB");
+               break;
                case 0x97:
                        strcat(stri, "source and destination EMS regions have same handle and overlap");
+               break;
                case 0x98:
                        strcat(stri, "memory source or destination type undefined");
+               break;
                case 0x9A:
                        strcat(stri, "specified alternate map register or DMA register set not supported");
+               break;
                case 0x9B:
                        strcat(stri, "all alternate map register or DMA register sets currently allocated");
+               break;
                case 0x9C:
                        strcat(stri, "alternate map register or DMA register sets not supported");
+               break;
                case 0x9D:
                        strcat(stri, "undefined or unallocated alternate map register or DMA register set");
+               break;
                case 0x9E:
                        strcat(stri, "dedicated DMA channels not supported");
+               break;
                case 0x9F:
                        strcat(stri, "specified dedicated DMA channel not supported");
+               break;
                case 0xA0:
                        strcat(stri, "no such handle name");
+               break;
                case 0xA1:
                        strcat(stri, "a handle found had no name, or duplicate handle name");
+               break;
                case 0xA2:
                        strcat(stri, "attempted to wrap around 1M conventional address space");
+               break;
                case 0xA3:
                        strcat(stri, "source array corrupted");
+               break;
                case 0xA4:
                        strcat(stri, "operating system denied access");
+               break;
                default:
                        strcat(stri, "undefined error");
        }
 }
 
-
 //==========================================================================
 
 /*