X-Git-Url: http://4ch.mooo.com/gitweb/?a=blobdiff_plain;f=src%2Flib%2F16_mm.c;h=63eafca6a7701932d1fb7993d073a268ec45d8df;hb=da5bca7860a3455f4c0724e3b44dca98ff53f932;hp=1f7593ec9696c43c2971903c059515a14d4b2540;hpb=c3ce6abee3c0bcd794b948b897980843b6378173;p=16.git diff --git a/src/lib/16_mm.c b/src/lib/16_mm.c index 1f7593ec..63eafca6 100644 --- a/src/lib/16_mm.c +++ b/src/lib/16_mm.c @@ -47,6 +47,10 @@ Open Watcom port by sparky4 */ #include "src/lib/16_mm.h" +#pragma hdrstop + +#pragma warn -pro +#pragma warn -use /* ============================================================================= @@ -83,10 +87,10 @@ static char *ParmStringsexmm[] = {"noems","noxms",""}; boolean MML_CheckForEMS(void) { boolean emmcfems; - char emmname[] = "EMMXXXX0"; + static char emmname[] = "EMMXXXX0"; //fix by andrius4669 // mov dx,OFFSET emmname __asm { - LEA DX, emmname //fix by andrius4669 + mov dx,OFFSET emmname //fix by andrius4669 mov ax,0x3d00 int 0x21 // try to open EMMXXXX0 device jc error @@ -115,13 +119,24 @@ boolean MML_CheckForEMS(void) // mov emmcfems,1 jmp End +#ifdef __BORLANDC__ + } +#endif error: +#ifdef __BORLANDC__ + __asm { +#endif // // EMS is bad // mov emmcfems,0 +#ifdef __BORLANDC__ + } +#endif End: +#ifdef __WATCOMC__ } +#endif return(emmcfems); } @@ -134,22 +149,22 @@ boolean MML_CheckForEMS(void) ======================= */ -unsigned MML_SetupEMS(mminfo_t *mm) +byte MML_SetupEMS(mminfo_t *mm) { - char str[80],str2[10]; - unsigned err; + byte str[160]; + byte err; boolean errorflag=false; - union REGS CPURegs; unsigned int EMSVer = 0; + //byte EMS_status; unsigned totalEMSpages,freeEMSpages,EMSpageframe,EMSpagesmapped,EMShandle; totalEMSpages = freeEMSpages = EMSpageframe = EMSpagesmapped = 0; - __asm - { + __asm { mov ah,EMS_STATUS int EMS_INT // make sure EMS hardware is present or ah,ah + //mov [EMS_status],ah jnz error mov ah,EMS_VERSION @@ -181,13 +196,23 @@ unsigned MML_SetupEMS(mminfo_t *mm) jle getpages mov bx,[freeEMSpages] jmp getpages - -low: +#ifdef __BORLANDC__ + } +#endif + low: +#ifdef __BORLANDC__ + __asm { +#endif cmp bx,4 jle getpages // there is only 1,2,3,or 4 pages mov bx,4 // we can't use more than 4 pages - -getpages: +#ifdef __BORLANDC__ + } +#endif + getpages: +#ifdef __BORLANDC__ + __asm { +#endif mov [EMSpagesmapped],bx mov ah,EMS_ALLOCPAGES // allocate up to 64k of EMS int EMS_INT @@ -195,18 +220,28 @@ getpages: jnz error mov [EMShandle],dx jmp End -error: +#ifdef __BORLANDC__ + } +#endif + error: +#ifdef __BORLANDC__ + __asm { +#endif + mov err,ah mov errorflag,1 jmp End +#ifdef __BORLANDC__ + } +#endif noEMS: End: +#ifdef __WATCOMC__ } +#endif if(errorflag==true) { - err = CPURegs.h.ah; - strcpy(str,"MML_SetupEMS: EMS error 0x"); - itoa(err,str2,16); - strcpy(str,str2); + strcpy(str,"MM_SetupEMS: EMS error "); + MM_EMSerr(str, err); printf("%s\n",str); return err; } @@ -235,17 +270,21 @@ void MML_ShutdownEMS(mminfo_t *mm) if(!EMShandle) return; - __asm - { + __asm { mov ah,EMS_FREEPAGES mov dx,[EMShandle] int EMS_INT or ah,ah jz ok mov errorflag,1 +#ifdef __BORLANDC__ + } +#endif ok: +#ifdef __WATCOMC__ } - if(errorflag==true) printf("MML_ShutdownEMS: Error freeing EMS!"); //++++ add something +#endif + if(errorflag==true) printf("MML_ShutdownEMS: Error freeing EMS!\n"); //++++ add something } /* @@ -260,19 +299,18 @@ void MML_ShutdownEMS(mminfo_t *mm) ==================== */ -unsigned MM_MapEMS(mminfo_t *mm) +byte MM_MapEMS(mminfo_t *mm, mminfotype *mmi) { - char str[80],str2[10]; - unsigned err, EMShandle; + byte str[160]; + unsigned EMShandle; + byte err; boolean errorflag=false; int i; - union REGS CPURegs; EMShandle=mm->EMShandle; - for (i=0;iEMSpagesmapped;i++) + for (i=0;i<4/*MAPPAGES*/;i++) { - __asm - { + __asm { mov ah,EMS_MAPPAGE mov bx,[i] // logical page mov al,bl // physical page @@ -281,20 +319,109 @@ unsigned MM_MapEMS(mminfo_t *mm) or ah,ah jnz error jmp End +#ifdef __BORLANDC__ + } +#endif error: +#ifdef __BORLANDC__ + __asm { +#endif + mov err,ah mov errorflag,1 +#ifdef __BORLANDC__ + } +#endif End: +#ifdef __WATCOMC__ } +#endif if(errorflag==true) { - err = CPURegs.h.ah; - strcpy(str,"MM_MapEMS: EMS error 0x"); - itoa(err,str2,16); - strcpy(str,str2); + strcpy(str,"MM_MapEMS: EMS error "); + MM_EMSerr(str, err); printf("%s\n",str); return err; } } + mmi->EMSmem = (i)*0x4000lu; + //printf(" mmi->EMSmem=%lu\n", mmi->EMSmem); + return 0; +} + +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: + //PhysicalStart = Physical page first logical page is mapped to + //LogicalStart = First logical page to map + //NumPages = Number of pages to map (1 to 4) + //Handle = EMS handle logical pages are allocated to + + /*//Create a buffer containing the page information +// FOR x = 0 TO NumPages - 1 +// MapInfo$ = MapInfo$ + MKI$(LogicalStart + x) + MKI$(PhysicalStart + x) +// NEXT*/ + +// Regs.ax = 0x5000 //Map the pages in the buffer +// Regs.cx = NumPages //to the pageframe +// Regs.dx = Handle +// Regs.ds = VARSEG(MapInfo$) +// Regs.si = SADD(MapInfo$) +// InterruptX 0x67, Regs, Regs +// EMS.Error = (Regs.ax AND 0xFF00&) \ 0x100 //Store the status code + +//END SUB + byte str[160]; + byte err; + word EMShandle; + boolean errorflag=false; + int i; + EMShandle=mm->EMShandle; + + if(mm->EMSVer<0x40) + return 5; + + for (i=0;iEMSmem = (i)*0x4000lu; return 0; } @@ -315,15 +442,19 @@ boolean MML_CheckForXMS(mminfo_t *mm) boolean errorflag=false; mm->numUMBs = 0; - __asm - { + __asm { mov ax,0x4300 int 0x2f // query status of installed diver cmp al,0x80 je good mov errorflag,1 +#ifdef __BORLANDC__ + } +#endif good: +#ifdef __WATCOMC__ } +#endif if(errorflag==true) return false; else return true; } @@ -341,11 +472,10 @@ boolean MML_CheckForXMS(mminfo_t *mm) void MML_SetupXMS(mminfo_t *mm, mminfotype *mmi) { - unsigned base,size; + word base,size; getmemory: - __asm - { + __asm { mov ax,0x4310 int 0x2f mov [WORD PTR XMSaddr],bx @@ -365,13 +495,23 @@ getmemory: call [DWORD PTR XMSaddr] // DX holds largest available UMB or ax,ax jz done // another error... - -gotone: +#ifdef __BORLANDC__ + } +#endif + gotone: +#ifdef __BORLANDC__ + __asm { +#endif mov [base],bx mov [size],dx -done: +#ifdef __BORLANDC__ } - printf("base=%u ", base); printf("size=%u\n", size); +#endif + done: +#ifdef __WATCOMC__ + } +#endif +// printf("base=%u ", base); printf("size=%u\n", size); MML_UseSpace(base,size, mm); mmi->XMSmem += size*16; mm->UMBbase[mm->numUMBs] = base; @@ -397,8 +537,7 @@ void MML_ShutdownXMS(mminfo_t *mm) for (i=0;inumUMBs;i++) { base = mm->UMBbase[i]; - __asm - { + __asm { mov ah,XMS_FREEUMB mov dx,[base] call [DWORD PTR XMSaddr] @@ -420,10 +559,12 @@ void MML_ShutdownXMS(mminfo_t *mm) ====================== */ -void MML_UseSpace(/*d*/word segstart, dword seglength, mminfo_t *mm) +void MML_UseSpace(word segstart, dword seglength, mminfo_t *mm) { mmblocktype huge *scan,huge *last; - dword oldend; + word segm=1; + word oldend; + dword segmlen=seglength; dword extra; scan = last = mm->mmhead; @@ -436,23 +577,28 @@ void MML_UseSpace(/*d*/word segstart, dword seglength, mminfo_t *mm) { last = scan; scan = scan->next; + //printf(" start=%x",scan->start); + //printf(" seglen=%lu\n", scan->length); } - //find out how many blocks it span! - if(seglength>0xfffflu) + //find out how many blocks it spans! + // + for(;segmlen>0x10000;segmlen-=0x10000) { - scan->segm=seglength/0xffffu; + //printf(" seglen=%lu\n", segmlen); + segm++; } - else scan->segm=1; // // take the given range out of the block // oldend = scan->start + scan->length; - extra = oldend - (segstart+seglength); + extra = oldend - (segstart+(word)seglength); //++++emsver stuff! - if(extra>0xfffflu) + if(segm>1 || extra>=0x10000lu) + //if(extra>0xfffflu) { + scan->blob=segm; /*__asm { push ds @@ -460,38 +606,40 @@ void MML_UseSpace(/*d*/word segstart, dword seglength, mminfo_t *mm) inc ax mov ds,ax }*/ -printf("segm=%u ", scan->segm); -printf("ex=%lu ", extra); -printf("len=%u ", scan->length); -printf("segsta=%x ", segstart); -printf("seglen=%lu\n", seglength); -//MML_UseSpace(?segstart?, ?length?, mm); + + //MML_UseSpace(segstart, seglength, mm); /*__asm { pop ds }*/ - //printf("MML_UseSpace: Segment spans two blocks!\n"); + printf("MML_UseSpace: Segment spans two blocks!\n"); + //} + printf("========================================\n"); + printf("segm=%u ", segm); + printf("ex=%lu ", extra); + printf("old=%u ", oldend); + printf("start+seglen=%lu\n", segstart+seglength); + printf("segsta=%x ", segstart); + printf("len=%lu ", scan->length); + printf("seglen=%lu ", seglength); + printf("segmlen=%lu\n", segmlen); + printf("========================================\n"); } - -//segu: //++++todo: linked list of segment! -//printf("segm=%lu\n", segm); if(segstart == scan->start) { last->next = scan->next; // unlink block - MM_FreeBlock(scan, mm); + FREEBLOCK(scan); scan = last; } else scan->length = segstart-scan->start; // shorten block -// segm--; - if(extra > 0) { - MM_GetNewBlock(mm); + GETNEWBLOCK; mm->mmnew->next = scan->next; scan->next = mm->mmnew; mm->mmnew->start = segstart+seglength; @@ -549,15 +697,18 @@ void MML_ClearBlock(mminfo_t *mm) void MM_Startup(mminfo_t *mm, mminfotype *mmi) { int i; - dword length;//,farlen; + dword length,seglength; + //dword length; word seglength; void huge *start; - unsigned segstart,seglength,endfree; + word segstart;//,endfree; - if(mm->mmstarted) - MM_Shutdown(mm); +// if(mm->mmstarted) +// MM_Shutdown(mm); mm->mmstarted = true; mm->bombonerror = true; + mm->endid=0; + // // set up the linked list (everything in the free list; // @@ -572,71 +723,90 @@ void MM_Startup(mminfo_t *mm, mminfotype *mmi) // // locked block of all memory until we punch out free space // - MM_GetNewBlock(mm); + GETNEWBLOCK; mm->mmhead = mm->mmnew; // this will allways be the first node mm->mmnew->start = 0; - mm->mmnew->length = 0xffff; //todo: mm make it fucking massive as fuck!~ + mm->mmnew->length = 0xffff; mm->mmnew->attributes = LOCKBIT; mm->mmnew->next = NULL; mm->mmrover = mm->mmhead; -// farlen=_bios_memsize()*1024; - // // get all available near conventional memory segments // -//---- length=coreleft(); +#ifdef __WATCOMC__ _nheapgrow(); - length=_memavl(); + length=(dword)_memavl();//(dword)GetFreeSize(); + start = (void huge *)(mm->nearheap = _nmalloc(length)); +#endif +#ifdef __BORLANDC__ + length=coreleft(); start = (void huge *)(mm->nearheap = malloc(length)); - +#endif 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("start=%Fp segstart=%x seglen=%lu len=%lu\n", start, segstart, seglength, length); // // get all available far conventional memory segments // -//---- length=farcoreleft(); + //printf("_FARCORELEFT %lu\n", _FCORELEFT); +#ifdef __WATCOMC__ _fheapgrow(); - length=_memavl(); - //length-=farlen; - start = mm->farheap = halloc(length, sizeof(dword)); - //start = mm->farheap = _fmalloc(length); +#endif +#ifdef __BORLANDC__ + printf("farcoreleft() %lu\n", farcoreleft()); + printf("(farcoreleft()+32)-_FCORELEFT %d\n", (sword)((farcoreleft()+32)-_FCORELEFT)); +#endif + length=_FCORELEFT;//_fcoreleft();//(dword)GetFarFreeSize();//0xffffUL*4UL; + start = mm->farheap = _fmalloc(length); + //start = mm->farheap = halloc(length, 1); 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->mainmem = mmi->nearheap + mmi->farheap; + //printf("start=%Fp segstart=%x seglen=%lu len=%lu\n", start, segstart, seglength, length); + mmi->mainmem = mmi->nearheap + mmi->farheap; // // detect EMS and allocate up to 64K at page frame // - printf("EMS!\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! mmi->EMSmem = 0; - for(i = 1;i < __argc;i++) + for(i = 1;i < +#ifdef __WATCOMC__ + __argc +#endif +#ifdef __BORLANDC__ + _argc +#endif + ;i++) { - if(US_CheckParm(__argv[i],ParmStringsexmm) == 0) + if(US_CheckParm( +#ifdef __WATCOMC__ + __argv[i] +#endif +#ifdef __BORLANDC__ + _argv[i] +#endif + ,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! if(MML_CheckForEMS()) { -//printf("EMS1\n"); MML_SetupEMS(mm); // allocate space - 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,(mm->EMSpagesmapped)*0x4000lu, mm); -//printf("EMS3\n"); - MM_MapEMS(mm); // map in used pages -//printf("EMS4\n"); - mmi->EMSmem = (mm->EMSpagesmapped)*0x4000lu; + MML_UseSpace(mm->EMSpageframe,(MAPPAGES)*0x4000lu, mm); + //if(mm->EMSVer<0x40) + MM_MapEMS(mm, mmi); // map in used pages + //else + //MM_MapXEMS(mm, mmi); // map in used pages } // @@ -644,15 +814,28 @@ void MM_Startup(mminfo_t *mm, mminfotype *mmi) // emsskip: mmi->XMSmem = 0; - for(i = 1;i < __argc;i++) +goto xmsskip;//0000 + for(i = 1;i < +#ifdef __WATCOMC__ + __argc +#endif +#ifdef __BORLANDC__ + _argc +#endif + ;i++) { - if(US_CheckParm(__argv[i],ParmStringsexmm) == 0) + if(US_CheckParm( +#ifdef __WATCOMC__ + __argv[i] +#endif +#ifdef __BORLANDC__ + _argv[i] +#endif + ,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! if(MML_CheckForXMS(mm)) { - printf("XMS!\n"); MML_SetupXMS(mm, mmi); // allocate as many UMBs as possible } @@ -682,14 +865,15 @@ void MM_Shutdown(mminfo_t *mm) 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"); - 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"); +#ifdef __WATCOMC__ + _nfree(mm->nearheap);// printf(" near freed\n"); +#endif +#ifdef __BORLANDC__ + free(mm->nearheap);// printf(" near freed\n"); +#endif + if(MML_CheckForEMS()){ MML_ShutdownEMS(mm); }//printf(" EMS freed\n"); } + if(MML_CheckForXMS(mm)){ MML_ShutdownXMS(mm); }//printf(" XMS freed\n"); } } //========================================================================== @@ -708,17 +892,19 @@ void MM_GetPtr(memptr *baseptr,dword size, mminfo_t *mm, mminfotype *mmi) { mmblocktype huge *scan,huge *lastscan,huge *endscan,huge *purge,huge *next; int search; - unsigned needed,startseg; + dword needed; + word startseg; needed = (size+15)/16; // convert size from bytes to paragraphs - - MM_GetNewBlock(mm); // fill in start and next after a spot is found +printf("."); //0000 + GETNEWBLOCK; // fill in start and next after a spot is found mm->mmnew->length = needed; mm->mmnew->useptr = baseptr; mm->mmnew->attributes = BASEATTRIBUTES; - - for(search = 0; search<3; search++) +printf("."); //0000 + for(search = 0; searchendid; search++) { +printf(" [case]"); //0000 // // first search: try to allocate right after the rover, then on up // second search: search from the head pointer up to the rover @@ -729,16 +915,19 @@ void MM_GetPtr(memptr *baseptr,dword size, mminfo_t *mm, mminfotype *mmi) switch(search) { case 0: +printf("0 "); //0000 lastscan = mm->mmrover; scan = mm->mmrover->next; endscan = NULL; break; case 1: +printf("1 "); //0000 lastscan = mm->mmhead; scan = mm->mmhead->next; endscan = mm->mmrover; break; case 2: +printf("2 "); //0000 MM_SortMem(mm); lastscan = mm->mmhead; scan = mm->mmhead->next; @@ -746,12 +935,14 @@ void MM_GetPtr(memptr *baseptr,dword size, mminfo_t *mm, mminfotype *mmi) break; } - startseg = lastscan->start + lastscan->length; + startseg = lastscan->start + (word)lastscan->length; while(scan != endscan) { +//printf(","); //0000 if(scan->start - startseg >= needed) { +printf("."); //0000 // // got enough space between the end of lastscan and // the start of scan, so throw out anything in the middle @@ -759,12 +950,14 @@ void MM_GetPtr(memptr *baseptr,dword size, mminfo_t *mm, mminfotype *mmi) // purge = lastscan->next; lastscan->next = mm->mmnew; - mm->mmnew->start = *(unsigned *)baseptr = startseg; + mm->mmnew->start = *(word *)baseptr = startseg; mm->mmnew->next = scan; while(purge != scan) { // free the purgable block +printf(" freeing block~\n"); //0000 next = purge->next; - MM_FreeBlock(purge, mm); + FREEBLOCK(purge); + //MM_FreeBlock(purge, mm); purge = next; // purge another if not at scan } mm->mmrover = mm->mmnew; @@ -777,17 +970,28 @@ void MM_GetPtr(memptr *baseptr,dword size, mminfo_t *mm, mminfotype *mmi) if((scan->attributes & LOCKBIT) || !(scan->attributes & PURGEBITS) ) { +printf(" [lock] "); //0000 +printf("len=%lu ", scan->length); lastscan = scan; - startseg = lastscan->start + lastscan->length; + startseg = lastscan->start + (word)lastscan->length; } - +printf("\n"); scan=scan->next; // look at next line } } if (mm->bombonerror) + { +#ifdef __WATCOMC__ + //heapdump(); +#endif printf(OUT_OF_MEM_MSG,(size-mmi->nearheap)); + printf("for stability reasons the program will shut down! wwww\n"); + printf(" endid=%u\n",(mm->endid)); + MM_Shutdown(mm); + exit(-1); + } else mm->mmerror = true; } @@ -822,13 +1026,13 @@ void MM_FreePtr(memptr *baseptr, mminfo_t *mm) if(!scan) { - printf("MM_FreePtr: Block not found!"); + printf("MM_FreePtr: Block not found!\n"); return; } last->next = scan->next; - MM_FreeBlock(scan, mm); + FREEBLOCK(scan); } //========================================================================== @@ -973,7 +1177,8 @@ void MM_SortMem(mminfo_t *mm) // throw out the purgable block // next = scan->next; - MM_FreeBlock(scan, mm); + FREEBLOCK(scan); + //MM_FreeBlock(scan, mm); last->next = next; scan = next; continue; @@ -1019,10 +1224,8 @@ void MM_SortMem(mminfo_t *mm) MM_SetLock(&(memptr)audiosegs[playing],false);*/ } - //========================================================================== -//****#if 0 /* ===================== = @@ -1031,71 +1234,203 @@ void MM_SortMem(mminfo_t *mm) ===================== */ -void MM_ShowMemory(mminfo_t *mm) +void MM_ShowMemory(global_game_variables_t *gvar,/*page_t *page, */mminfo_t *mm) { mmblocktype huge *scan; - unsigned color,temp;//, i; - long end,owner; - char scratch[160],str[16]; - + word temp; + sdword end,owner; + //word chx,chy; + word w; + dword wwww; + byte scratch[160],scratch0[4096],str[16]; + //byte d = '#'; //**** VW_SetDefaultColors(); //**** VW_SetLineWidth(40); //++++mh temp = bufferofs; //++++mh bufferofs = 0; //**** VW_SetScreen (0,0); - scan = mm->mmhead; - end = -1; -//CA_OpenDebug (); - + CA_OpenDebug (gvar); + w=0; while(scan) { + strcpy(scratch, AARESET); if(scan->attributes & PURGEBITS) - color = 5; // dark purple = purgable + strcpy(scratch0, AAMAGENTA); // dark purple = purgable else - color = 9; // medium blue = non purgable + strcpy(scratch0, AABLUE); // medium blue = non purgable if(scan->attributes & LOCKBIT) - color = 12; // red = locked + strcpy(scratch0, AARED); // red = locked if(scan->start<=end) { - printf("\nMM_ShowMemory: Memory block order currupted!\n"); - return; + printf("\nend==%d\n\n", end); + strcat(scratch, "MM_ShowMemory: Memory block order currupted!\n"); + strcat(scratch, "End's Size: "); + ultoa (end,str,10); + strcat (scratch,str); + strcat(scratch, "\nscan->start's Size: "); + ultoa (scan->start,str,10); + strcat (scratch,str); + write(gvar->handle.debughandle,scratch,strlen(scratch)); + //modexprint(&page, chx, chy, 1, 0, 24, "\nMM_ShowMemory: Memory block order currupted!\n"); + break; } - end = scan->start+scan->length-1; + end = scan->start+(scan->length)-1; +//++++ chy = scan->start/320; +//++++ chx = scan->start%320; + //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); + //} //++++ VW_Hlin(scan->start,(unsigned)end,0,color); + for(w=(scan->start)/80;w<=end/80;w++) + { + //printf("+ %u %lu\n", w, scan->length); + strcat(scratch0, "+"); + } + strcat(scratch0, AARESET); strcat(scratch0, AAGREY); strcat(scratch0,"_"); //++++ VW_Plot(scan->start,0,15); - if(scan->next->start > end+1) +//++++ modexClearRegion(page, chx, chy, 4, 4, 15); //++++ VW_Hlin(end+1,scan->next->start,0,0); // black = free -//****#if 0 -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! -strcpy(scratch,"Location:"); -ultoa (scan->start,str,16); -strcat (scratch,str); -strcat (scratch,"\tSize:"); -ltoa ((dword)scan->length*16,str,10); -strcat (scratch,str); -strcat (scratch,"\tOwner:0x"); -owner = (unsigned)scan->useptr; -ultoa (owner,str,16); -strcat (scratch,str); -strcat (scratch,"\n"); -//++++write (debughandle,scratch,strlen(scratch)); -fprintf(stdout, "%s", scratch); -//****#endif + wwww=(dword)(scan->next->start)-(dword)scan->start; + //wwww=(dword)scan->start+(dword)(scan->next->start); + if (scan->next && scan->next->start >= end+1) + { + strcat(scratch0, AARESET); + strcat(scratch0, "\n"); + strcat(scratch0,AAGREEN); + for(w=(end+1)/80;w<=(wwww/80);w++) + { + //printf("0 %x %u %lu\n", scan->next->start, w, scan->length); + strcat(scratch0,"0"); + } + //printf("==================\n"); + //printf("w=%x start=%x next=%x end=%u %lu\n", w, scan->start, (scan->next->start), end+1, wwww); + //printf("==================\n"); + }/*else {//if(scan->next->start <= scan->start){ + scan->next->start=scan->start+0x1000; + wwww=(dword)(scan->next->start)-(dword)scan->start; + strcat(scratch0, AARESET); + strcat(scratch0, "\n"); + strcat(scratch0,AAGREEN); + for(w=(end+1);w<=(0x1000/80);w++) + { + //printf("0 %x %x %u\n", scan->start, w); + strcat(scratch0,"0"); + } + printf("================\n"); + printf("w=%x start=%x next=%x end=%u %lu\n", w, scan->start, (scan->next->start), end+1, wwww); + printf("================\n"); +// getch(); + }*/ + strcat(scratch0, AARESET); + strcat(scratch0,"\n"); + //for(chx=scan->next->start;chx+4>=(word)end+1;chx+=4) + //{ +// chx+=scan->next->start; +// modexClearRegion(page, chx, chy, 4, 4, 2); + //} + //modexhlin(page, end+1,scan->next->start, chy, 0); +/* y = scan->start/320; + x = scan->start%320; + VW_Hlin(x,x+end,y,color); + VW_Plot(x,y,15);*/ +//++++ VW_Hlin(x+end+1,x+(scan->next->start-scan->start),y,0); // black = free + strcat(scratch,"Seg:"); + ultoa (scan->start,str,16); + strcat (scratch,str); + strcat (scratch,"\tSize:"); + ultoa ((word)scan->length,str,10); + strcat (scratch,str); + strcat (scratch,"\tOwner:0x"); + owner = (unsigned)scan->useptr; + ultoa (owner,str,16); + strcat (scratch,str); + strcat (scratch,"\n"); + write(gvar->handle.debughandle,scratch,strlen(scratch)); + write(gvar->handle.debughandle,scratch0,strlen(scratch0)); +//modexprint(page, chx, chy, 1, 0, 24, &scratch); +//++++chy+=4; +//fprintf(stdout, "%s", scratch); scan = scan->next; } -//CA_CloseDebug (); + CA_CloseDebug (gvar); //++++mh IN_Ack(); //**** VW_SetLineWidth(64); //++++mh bufferofs = temp; } -//****#endif + +//========================================================================== + +/* +===================== += += MM_DumpData += +===================== +*/ + +void MM_DumpData(mminfo_t *mm) +{ + mmblocktype huge *scan,huge *best; + long lowest,oldlowest; + word owner; + byte lock,purge; + FILE *dumpfile; + + free(mm->nearheap); + dumpfile = fopen ("mmdump.16","w"); + if (!dumpfile){ + printf("MM_DumpData: Couldn't open MMDUMP.16!\n"); + return; + } + + lowest = -1; + do + { + oldlowest = lowest; + lowest = 0xffff; + + scan = mm->mmhead; + while (scan) + { + owner = (word)scan->useptr; + + if (owner && owner oldlowest) + { + best = scan; + lowest = owner; + } + + scan = scan->next; + } + + if (lowest != 0xffff) + { + if (best->attributes & PURGEBITS) + purge = 'P'; + else + purge = '-'; + if (best->attributes & LOCKBIT) + lock = 'L'; + else + lock = '-'; + fprintf (dumpfile,"0x%p (%c%c) = %u\n" + ,(word)lowest,lock,purge,best->length); + } + + } while (lowest != 0xffff); + + fclose(dumpfile); + printf("MMDUMP.16 created.\n"); +} //========================================================================== @@ -1124,7 +1459,7 @@ dword MM_UnusedMemory(mminfo_t *mm) scan = scan->next; } - return free*16l; + return free*16lu; // return free; } @@ -1157,7 +1492,7 @@ dword MM_TotalFree(mminfo_t *mm) scan = scan->next; } - return free*16l; + return free*16lu; // return free; } @@ -1171,16 +1506,16 @@ dword MM_TotalFree(mminfo_t *mm) ===================== */ -void MM_Report(mminfo_t *mm, mminfotype *mmi) +void MM_Report(/*page_t *page, */mminfo_t *mm, mminfotype *mmi) { if(MML_CheckForEMS()) { - printf("EMM %x available\n", mm->EMSVer); + printf("EMM v%x.%x available\n", mm->EMSVer>>4,mm->EMSVer&0x0F); printf("totalEMSpages=%u\n", mm->totalEMSpages); 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); @@ -1188,9 +1523,7 @@ void MM_Report(mminfo_t *mm, mminfotype *mmi) 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("TotalUsed=%lu\n", mmi->mainmem+mmi->EMSmem+mmi->XMSmem+mmi->XMSmem); } //========================================================================== @@ -1198,22 +1531,131 @@ void MM_Report(mminfo_t *mm, mminfotype *mmi) /* ===================== = -= MM_EMSVer += MM_EMSerr = ===================== +*/ - -int MM_EMSVer(void) +void MM_EMSerr(byte *stri, byte err) { - int EMSver; - __asm + //Returns a text string describing the error code in EMS.Error. + switch(err) { - mov ah,EMS_VERSION - int EMS_INT - mov EMSver,ax + 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"); } - return(EMSver); -}*/ +} //========================================================================== @@ -1230,18 +1672,19 @@ void MM_BombOnError(boolean bomb, mminfo_t *mm) mm->bombonerror = bomb; } -void MM_GetNewBlock(mminfo_t *mm) +/*void MM_GetNewBlock(mminfo_t *mm) { if(!mm->mmfree) MML_ClearBlock(mm); mm->mmnew=mm->mmfree; mm->mmfree=mm->mmfree->next; - /*if(!(mm->mmnew=mm->mmfree)) + if(!(mm->mmnew=mm->mmfree)) { - printf("MM_GETNEWBLOCK: No free blocks!"); + printf("MM_GETNEWBLOCK: No free blocks!\n"); return; } - mm->mmfree=mm->mmfree->next;*/ + mm->mmfree=mm->mmfree->next; + mm->endid++; //end of list } void MM_FreeBlock(mmblocktype *x, mminfo_t *mm) @@ -1249,12 +1692,12 @@ void MM_FreeBlock(mmblocktype *x, mminfo_t *mm) x->useptr=NULL; x->next=mm->mmfree; mm->mmfree=x; -} + mm->endid--; //end of list +}*/ -void MM_seguin(void) +/*void MM_seguin(void) { - __asm - { + __asm { push ds mov ax,ds inc ax @@ -1264,11 +1707,10 @@ void MM_seguin(void) void MM_segude(void) { - __asm - { + __asm { pop ds } -} +}*/ /* pull data from far and put it into ds var