*/
#include "src/lib/16_ca.h"
#include "src/lib/16_mm.h"
-#include "src/lib/modex16.h"
+//#include "src/lib/modex16.h"
#define FILERL
//#define FILEINIT
{
static mminfo_t mm; mminfotype mmi;
static memptr bigbuffer;
- __segment segu;
+ static __segment segu;
static char *bakapee;
- static word baka;
- page_t screen;
+ word baka;
+ //static page_t screen;
printf("&main()=%Fp\n", *argv[0]);
printf("&argc=%Fp\n", FP_SEG(&argc));
/* setup camera and screen~ */
//bug!!!\r
- /*screen = modexDefaultPage();\r
- screen.width += (16*2);\r
+ //screen = modexDefaultPage();\r
+ /*screen.width += (16*2);\r
screen.height += (16*2);*/
printf("&main()=%Fp start MM\n", *argv[0]);
MM_Startup(&mm, &mmi);
+ //segu=mmi.segu;
printf(" done!\n");
/*if(FP_SEG(*argv[0])==0)
{
printf("medium blue = non purgable\n");
printf("red = locked\n");
getch();
- modexEnter();
- modexShowPage(&screen);
- MM_ShowMemory(&screen, &mm);
- getch();
+ //modexEnter();
+ //modexShowPage(&screen);
+ MM_ShowMemory(/*&screen, */&mm);
+ //getch();
MM_DumpData(&mm);
- modexLeave();
- MM_Report(&screen, &mm, &mmi);
+ //modexLeave();
+ MM_Report(&mm, &mmi);
printf(" stop!\n");
MM_FreePtr(&bigbuffer, &mm);
MM_Shutdown(&mm);
//
// 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->length = 0xffff;
+ mm->mmnew->length = 0x1;
mm->mmnew->attributes = LOCKBIT;
mm->mmnew->next = NULL;
mm->mmrover = mm->mmhead;
//---- length=coreleft();
//_nheapgrow();
length=_memmax();
- //printf(" %u\n", length);
+ //printf(" %Fp\n", mmi->segu);
start = (void huge *)(mm->nearheap = _nmalloc(length));
length -= 16-(FP_OFF(start)&15);
length -= SAVENEARHEAP;
printf( "ERROR - bad node in nearheap\n" );
break;
}*/
-// printf(" near heap ok!\n");
+ printf(" near heap ok!\n");
//
// get all available far conventional memory segments
printf(" farheap making!\n");
_fheapgrow();
length=0xffffUL*4UL;//_memavl();
+ //printf(" %Fp\n", mmi->segu);
start = mm->farheap = halloc(length, sizeof(byte));
//start = mm->farheap = _fmalloc(length);
length -= 16-(FP_OFF(start)&15);
printf( "ERROR - bad node in farheap\n" );
break;
}*/
- //printf(" far heap ok!\n");
+ printf(" far heap ok!\n");
//
// detect EMS and allocate up to 64K at page frame
{
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
+ //++++
+ MML_SetupXMS(mm, mmi); // allocate as many UMBs as possible
}
//
// allocate the misc buffer
//
xmsskip:
+/*mmi->nearheap = 0;
+mmi->farheap = 0;
+mmi->EMSmem = 0;
+mmi->XMSmem = 0;*/
mm->mmrover = mm->mmhead; // start looking for space after low block
MM_GetPtr(&(mm->bufferseg),BUFFERSIZE, mm, mmi);
=====================
*/
-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);
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
=====================
*/
-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())
{
#endif
-#define SAVENEARHEAP 0//x400 // space to leave in data segment
+#define SAVENEARHEAP 0x400 // space to leave in data segment
#define SAVEFARHEAP 0//x4000 // space to leave in far heap
#define BUFFERSIZE 0x1000 // miscelanious, allways available buffer
-#define MAXBLOCKS 720
+#define MAXBLOCKS 600//720
//==========================================================================
//I hope this is correct!
//__segment seg;
-typedef void __based(__self) * memptr; //__based(seg) * memptr;
+typedef void __based(__self) *memptr; //__based(seg) * memptr;
typedef struct
{
dword nearheap,farheap,EMSmem,XMSmem,mainmem;
+ //word __based(__segname("_CODE")) segu;
+//
} mminfotype;
//==========================================================================
void MM_SetPurge(memptr *baseptr, int purge, mminfo_t *mm);
void MM_SetLock(memptr *baseptr, boolean locked, mminfo_t *mm);
void MM_SortMem(mminfo_t *mm);
-void MM_ShowMemory(page_t *page, mminfo_t *mm);
+void MM_ShowMemory(/*page_t *page, */mminfo_t *mm);
void MM_DumpData(mminfo_t *mm);
dword MM_UnusedMemory(mminfo_t *mm);
dword MM_TotalFree(mminfo_t *mm);
-void MM_Report(page_t *page, mminfo_t *mm, mminfotype *mmi);
+void MM_Report(/*page_t *page, */mminfo_t *mm, mminfotype *mmi);
static void MM_EMSerr(byte *stri, byte err);
void MM_BombOnError(boolean bomb, mminfo_t *mm);
void MM_GetNewBlock(mminfo_t *mm);