]> 4ch.mooo.com Git - 16.git/blob - src/lib/16_mm.c
--0000-- UNTESTED --0000--
[16.git] / src / lib / 16_mm.c
1 /* Project 16 Source Code~\r
2  * Copyright (C) 2012-2017 sparky4 & pngwen & andrius4669 & joncampbell123 & yakui-lover\r
3  *\r
4  * This file is part of Project 16.\r
5  *\r
6  * Project 16 is free software; you can redistribute it and/or modify\r
7  * it under the terms of the GNU General Public License as published by\r
8  * the Free Software Foundation; either version 3 of the License, or\r
9  * (at your option) any later version.\r
10  *\r
11  * Project 16 is distributed in the hope that it will be useful,\r
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the\r
14  * GNU General Public License for more details.\r
15  *\r
16  * You should have received a copy of the GNU General Public License\r
17  * along with this program.  If not, see <http://www.gnu.org/licenses/>, or\r
18  * write to the Free Software Foundation, Inc., 51 Franklin Street,\r
19  * Fifth Floor, Boston, MA 02110-1301 USA.\r
20  *\r
21  */\r
22 \r
23 // NEWMM.C\r
24 \r
25 /*\r
26 =============================================================================\r
27 \r
28                         ID software memory manager\r
29                         --------------------------\r
30 \r
31 Primary coder: John Carmack\r
32 \r
33 RELIES ON\r
34 ---------\r
35 Quit (global_game_variables_t *gvar, char *error) function\r
36 \r
37 \r
38 WORK TO DO\r
39 ----------\r
40 MM_SizePtr to change the size of a given pointer\r
41 \r
42 Multiple purge levels utilized\r
43 \r
44 EMS / XMS unmanaged routines\r
45 \r
46 =============================================================================\r
47 */\r
48 /*\r
49 \r
50 Open Watcom port by sparky4\r
51 \r
52 */\r
53 #include "src/lib/16_mm.h"\r
54 #include "src/lib/16_ca.h"\r
55 #include <malloc.h>\r
56 #pragma hdrstop\r
57 \r
58 #pragma warn -pro\r
59 #pragma warn -use\r
60 \r
61 /*\r
62 =============================================================================\r
63 \r
64                                                         LOCAL INFO\r
65 \r
66 =============================================================================\r
67 */\r
68 \r
69 #define LOCKBIT         0x80    // if set in attributes, block cannot be moved\r
70 #define PURGEBITS       3               // 0-3 level, 0= unpurgable, 3= purge first\r
71 #define PURGEMASK       0xfffc\r
72 #define BASEATTRIBUTES  0       // unlocked, non purgable\r
73 \r
74 //#define MAXUMBS               10\r
75 \r
76 /*typedef struct mmblockstruct\r
77 {\r
78         unsigned        start,length;\r
79         unsigned        attributes;\r
80         memptr          *useptr;        // pointer to the segment start\r
81         struct mmblockstruct far *next;\r
82 } mmblocktype;*/\r
83 \r
84 \r
85 //#define GETNEWBLOCK {if(!(mmnew=mmfree))Quit("MM_GETNEWBLOCK: No free blocks!") ;mmfree=mmfree->next;}\r
86 //\r
87 \r
88 #define GETNEWBLOCK {if(!gvar->mm.mmfree)MML_ClearBlock(gvar);gvar->mm.mmnew=gvar->mm.mmfree;gvar->mm.mmfree=gvar->mm.mmfree->next;}\r
89 \r
90 #define FREEBLOCK(x) {*x->useptr=NULL;x->next=gvar->mm.mmfree;gvar->mm.mmfree=x;}\r
91 \r
92 /*\r
93 =============================================================================\r
94 \r
95                                                  GLOBAL VARIABLES\r
96 \r
97 =============================================================================\r
98 */\r
99 \r
100 /*mminfotype    mminfo;\r
101 memptr          bufferseg;\r
102 boolean         mmerror;*/\r
103 \r
104 void            (* beforesort) (void);\r
105 void            (* aftersort) (void);\r
106 \r
107 /*\r
108 =============================================================================\r
109 \r
110                                                  LOCAL VARIABLES\r
111 \r
112 =============================================================================\r
113 */\r
114 \r
115 /*boolean               mmstarted;\r
116 \r
117 void far        *farheap;\r
118 void            *nearheap;\r
119 \r
120 mmblocktype     far mmblocks[MAXBLOCKS]\r
121                         ,far *mmhead,far *mmfree,far *mmrover,far *mmnew;\r
122 \r
123 boolean         bombonerror;*/\r
124 \r
125 //unsigned      totalEMSpages,freeEMSpages,EMSpageframe,EMSpagesmapped,EMShandle;\r
126 \r
127 void            (* XMSaddr) (void);             // far pointer to XMS driver\r
128 \r
129 /*unsigned      numUMBs,UMBbase[MAXUMBS];*/\r
130 \r
131 //==========================================================================\r
132 \r
133 //\r
134 // local prototypes\r
135 //\r
136 \r
137 boolean         MML_CheckForEMS (void);\r
138 void            MML_ShutdownEMS (void);\r
139 void            MM_MapEMS (void);\r
140 boolean         MML_CheckForXMS (void);\r
141 void            MML_ShutdownXMS (void);\r
142 //void          MML_UseSpace (unsigned segstart, unsigned seglength);\r
143 //void          MML_ClearBlock (void);\r
144 \r
145 //==========================================================================\r
146 #ifndef __16_PM__\r
147 #if 0\r
148 static  char *ParmStringsexmm[] = {"noems","noxms",""};\r
149 #endif\r
150 #endif\r
151 /*\r
152 ======================\r
153 =\r
154 = MML_CheckForEMS\r
155 =\r
156 = Routine from p36 of Extending DOS\r
157 =\r
158 =======================\r
159 */\r
160 \r
161 boolean MML_CheckForEMS(void)\r
162 {\r
163         boolean emmcfems = false;\r
164         word            EMSPageFrame = 0;\r
165         byte    err=0, str[64];\r
166         static char     emmname[] = "EMMXXXX0"; //fix by andrius4669\r
167         __asm {\r
168                 mov     dx,OFFSET emmname       //fix by andrius4669\r
169                 mov     ax,0x3d00\r
170                 int     EMM_INT         // try to open EMMXXXX0 device\r
171                 jc      error\r
172 \r
173                 mov     bx,ax\r
174                 mov     ax,0x4400\r
175 \r
176                 int     EMM_INT         // get device info\r
177                 jc      error\r
178 \r
179                 and     dx,0x80\r
180                 jz      error\r
181 \r
182                 mov     ax,0x4407\r
183 \r
184                 int     EMM_INT         // get status\r
185                 jc      error\r
186                 or      al,al\r
187                 jz      error\r
188 \r
189                 mov     ah,0x3e\r
190                 int     EMM_INT         // close handle\r
191                 jc      error\r
192 \r
193                 //\r
194                 // pageframe check\r
195                 //\r
196                 mov     ah,EMS_GETFRAME\r
197                 int     EMS_INT                 // find the page frame address\r
198                 or      ah,ah\r
199                 jnz     error\r
200                 mov     [EMSPageFrame],bx\r
201 \r
202                 //\r
203                 // EMS is good\r
204                 //\r
205                 mov     emmcfems,1\r
206                 jmp     End\r
207 #ifdef __BORLANDC__\r
208         }\r
209 #endif\r
210                 error:\r
211 #ifdef __BORLANDC__\r
212         __asm {\r
213 #endif\r
214                 //\r
215                 // EMS is bad\r
216                 //\r
217                 mov     err,ah\r
218                 mov     emmcfems,0\r
219 #ifdef __BORLANDC__\r
220         }\r
221 #endif\r
222                 End:\r
223 #ifdef __WATCOMC__\r
224         }\r
225 #endif\r
226 \r
227         //\r
228         // Pageframe switch to determine if there is one!\r
229         //\r
230         if(!EMSPageFrame)\r
231         {\r
232                 emmcfems = false;\r
233 #if defined(__DEBUG_PM__) || defined(__DEBUG_MM__)\r
234                 printf("MML_CheckForEMS: EMS error No Pageframe!\nAddress detected to be %04x\n", EMSPageFrame);\r
235 #endif\r
236         }else   if(!emmcfems)// if there is an error and page frame is not 0000\r
237         {\r
238                 strcpy(str,"MML_CheckForEMS: EMS error ");\r
239                 MM_EMSerr(str, err);\r
240                 printf("%s\n",str);\r
241         }\r
242 \r
243         return(emmcfems);\r
244 }\r
245 \r
246 #ifndef __16_PM__\r
247 #if 0\r
248 /*\r
249 ======================\r
250 =\r
251 = MML_SetupEMS\r
252 =\r
253 =======================\r
254 */\r
255 \r
256 byte MML_SetupEMS(global_game_variables_t *gvar)\r
257 {\r
258         byte    str[160];\r
259         byte    err;\r
260         boolean errorflag=false;\r
261 \r
262         unsigned int EMSVer = 0;\r
263         //byte  EMS_status;\r
264         unsigned        totalEMSpages,freeEMSpages,EMSPageFrame,EMSpagesmapped,EMSHandle;\r
265         totalEMSpages = freeEMSpages = EMSPageFrame = EMSpagesmapped = 0;\r
266 \r
267         __asm {\r
268                 mov     ah,EMS_STATUS\r
269                 int     EMS_INT                                         // make sure EMS hardware is present\r
270                 or      ah,ah\r
271                 //mov   [EMS_status],ah\r
272                 jnz     error\r
273 \r
274                 mov     ah,EMS_VERSION\r
275                 int     EMS_INT\r
276                 or      ah,ah\r
277                 jnz     error\r
278                 mov     [EMSVer],ax                             //      set EMSVer\r
279                 cmp     al,0x32                                         // only work on ems 3.2 or greater\r
280                 jb      error\r
281 \r
282                 mov     ah,EMS_GETFRAME\r
283                 int     EMS_INT                                         // find the page frame address\r
284                 or      ah,ah\r
285                 jnz     error\r
286                 mov     [EMSPageFrame],bx\r
287 \r
288                 mov     ah,EMS_GETPAGES\r
289                 int     EMS_INT                                         // find out how much EMS is there\r
290                 or      ah,ah\r
291                 jnz     error\r
292                 mov     [totalEMSpages],dx\r
293                 mov     [freeEMSpages],bx\r
294                 or      bx,bx\r
295                 jz      noEMS                                           // no EMS at all to allocate\r
296                                                                                         //EXPAND DONG!!!!\r
297                 cmp     [EMSVer],0x40\r
298                 jb      low\r
299                 cmp     bx,[freeEMSpages]\r
300                 jle     getpages\r
301                 mov     bx,[freeEMSpages]\r
302                 jmp     getpages\r
303 #ifdef __BORLANDC__\r
304         }\r
305 #endif\r
306         low:\r
307 #ifdef __BORLANDC__\r
308         __asm {\r
309 #endif\r
310                 cmp     bx,4\r
311                 jle     getpages                                        // there is only 1,2,3,or 4 pages\r
312                 mov     bx,4                                            // we can't use more than 4 pages\r
313 #ifdef __BORLANDC__\r
314         }\r
315 #endif\r
316         getpages:\r
317 #ifdef __BORLANDC__\r
318         __asm {\r
319 #endif\r
320                 mov     [EMSpagesmapped],bx\r
321                 mov     ah,EMS_ALLOCPAGES                       // allocate up to 64k of EMS\r
322                 int     EMS_INT\r
323                 or      ah,ah\r
324                 jnz     error\r
325                 mov     [EMSHandle],dx\r
326                 jmp End\r
327 #ifdef __BORLANDC__\r
328         }\r
329 #endif\r
330         error:\r
331 #ifdef __BORLANDC__\r
332         __asm {\r
333 #endif\r
334                 mov     err,ah\r
335                 mov     errorflag,1\r
336                 jmp End\r
337 #ifdef __BORLANDC__\r
338         }\r
339 #endif\r
340 noEMS:\r
341 End:\r
342 #ifdef __WATCOMC__\r
343         }\r
344 #endif\r
345         if(errorflag==true)\r
346         {\r
347                 strcpy(str,"MM_SetupEMS: EMS error ");\r
348                 MM_EMSerr(str, err);\r
349                 printf("%s\n",str);\r
350                 return err;\r
351         }\r
352         gvar->mm.totalEMSpages=totalEMSpages;\r
353         gvar->mm.freeEMSpages=freeEMSpages;\r
354         gvar->mm.EMSPageFrame=EMSPageFrame;\r
355         gvar->mm.EMSpagesmapped=EMSpagesmapped;\r
356         gvar->mm.EMSHandle=EMSHandle;\r
357         gvar->mm.EMSVer=EMSVer;\r
358         return 0;\r
359 }\r
360 \r
361 \r
362 /*\r
363 ======================\r
364 =\r
365 = MML_ShutdownEMS\r
366 =\r
367 =======================\r
368 */\r
369 \r
370 void MML_ShutdownEMS(global_game_variables_t *gvar)\r
371 {\r
372         boolean errorflag=false;\r
373         unsigned EMSHandle=gvar->mm.EMSHandle;\r
374 \r
375         if(!EMSHandle)\r
376                 return;\r
377         __asm {\r
378                 mov     ah,EMS_FREEPAGES\r
379                 mov     dx,[EMSHandle]\r
380                 int     EMS_INT\r
381                 or      ah,ah\r
382                 jz      ok\r
383                 mov     errorflag,1\r
384 #ifdef __BORLANDC__\r
385         }\r
386 #endif\r
387                 ok:\r
388 #ifdef __WATCOMC__\r
389         }\r
390 #endif\r
391         if(errorflag==true)\r
392                 Quit (gvar, "MML_ShutdownEMS: Error freeing EMS!\n");   //++++ add something\r
393 }\r
394 \r
395 /*\r
396 ====================\r
397 =\r
398 = MM_MapEMS\r
399 =\r
400 = Maps the 64k of EMS used by memory manager into the page frame\r
401 = for general use.  This only needs to be called if you are keeping\r
402 = other things in EMS.\r
403 =\r
404 ====================\r
405 */\r
406 \r
407 byte MM_MapEMS(global_game_variables_t *gvar)\r
408 {\r
409         byte    str[160];\r
410         unsigned        EMSHandle;\r
411         byte err;\r
412         boolean errorflag=false;\r
413         int     i;\r
414         EMSHandle=gvar->mm.EMSHandle;\r
415 \r
416         for (i=0;i<4/*MAPPAGES*/;i++)\r
417         {\r
418                 __asm {\r
419                         mov     ah,EMS_MAPPAGE\r
420                         mov     bx,[i]                  // logical page\r
421                         mov     al,bl                   // physical page\r
422                         mov     dx,[EMSHandle]  // handle\r
423                         int     EMS_INT\r
424                         or      ah,ah\r
425                         jnz     error\r
426                         jmp End\r
427 #ifdef __BORLANDC__\r
428                 }\r
429 #endif\r
430                         error:\r
431 #ifdef __BORLANDC__\r
432                 __asm {\r
433 #endif\r
434                         mov     err,ah\r
435                         mov     errorflag,1\r
436 #ifdef __BORLANDC__\r
437                 }\r
438 #endif\r
439                         End:\r
440 #ifdef __WATCOMC__\r
441                 }\r
442 #endif\r
443                 if(errorflag==true)\r
444                 {\r
445                         strcpy(str,"MM_MapEMS: EMS error ");\r
446                         MM_EMSerr(str, err);\r
447                         printf("%s\n",str);\r
448                         return err;\r
449                 }\r
450         }\r
451         gvar->mmi.EMSmem = (i)*0x4000lu;\r
452         return 0;\r
453 }\r
454 \r
455 byte MM_MapXEMS(global_game_variables_t *gvar)\r
456 {\r
457 //SUB EMS.MapXPages (PhysicalStart, LogicalStart, NumPages, Handle)\r
458 \r
459         //Maps up to 4 logical EMS pages to physical pages in the page frame, where:\r
460         //PhysicalStart = Physical page first logical page is mapped to\r
461         //LogicalStart  = First logical page to map\r
462         //NumPages      = Number of pages to map (1 to 4)\r
463         //Handle        = EMS handle logical pages are allocated to\r
464 \r
465   /*//Create a buffer containing the page information\r
466 //  FOR x = 0 TO NumPages - 1\r
467 //    MapInfo$ = MapInfo$ + MKI$(LogicalStart + x) + MKI$(PhysicalStart + x)\r
468 //  NEXT*/\r
469 \r
470 //  Regs.ax = 0x5000                           //Map the pages in the buffer\r
471 //  Regs.cx = NumPages                         //to the pageframe\r
472 //  Regs.dx = Handle\r
473 //  Regs.ds = VARSEG(MapInfo$)\r
474 //  Regs.si = SADD(MapInfo$)\r
475 //  InterruptX 0x67, Regs, Regs\r
476 //      EMS.Error = (Regs.ax AND 0xFF00&) \ 0x100  //Store the status code\r
477 \r
478 //END SUB\r
479         byte    str[160];\r
480         byte err;\r
481         word    EMSHandle;\r
482         boolean errorflag=false;\r
483         int     i;\r
484         EMSHandle=gvar->mm.EMSHandle;\r
485 \r
486         if(gvar->mm.EMSVer<0x40)\r
487                 return 5;\r
488 \r
489         for (i=0;i<MAPPAGES;i++)\r
490         {\r
491                 __asm {\r
492                         mov     ah,EMS_MAPXPAGE\r
493                         mov     cx,[i]                  // logical page\r
494                         mov     al,bl                   // physical page\r
495                         mov     dx,[EMSHandle]  // handle\r
496                         int     EMS_INT\r
497                         or      ah,ah\r
498                         jnz     error\r
499                         jmp End\r
500 #ifdef __BORLANDC__\r
501                 }\r
502 #endif\r
503                         error:\r
504 #ifdef __BORLANDC__\r
505                 __asm {\r
506 #endif\r
507                         mov     err,ah\r
508                         mov     errorflag,1\r
509 #ifdef __BORLANDC__\r
510                 }\r
511 #endif\r
512                         End:\r
513 #ifdef __WATCOMC__\r
514                 }\r
515 #endif\r
516                 if(errorflag==true)\r
517                 {\r
518                         //strcpy(str,"MM_MapXEMS: EMS error 0x");\r
519                         strcpy(str,"MM_MapXEMS: EMS error ");\r
520                         //itoa(err,str2,16);\r
521                         MM_EMSerr(str, err);\r
522                         printf("%s\n",str);\r
523                         //printf("%s%x\n",str, err);\r
524                         //printf("FACK! %x\n", err);\r
525                         return err;\r
526                 }\r
527         }\r
528         gvar->mmi.EMSmem = (i)*0x4000lu;\r
529         return 0;\r
530 }\r
531 #endif\r
532 #endif\r
533 //==========================================================================\r
534 \r
535 /*\r
536 ======================\r
537 =\r
538 = MML_CheckForXMS\r
539 =\r
540 = Check for XMM driver\r
541 =\r
542 =======================\r
543 */\r
544 \r
545 boolean MML_CheckForXMS(void)\r
546 {\r
547         //numUMBs = 0;\r
548         boolean errorflag=false;\r
549 \r
550         __asm {\r
551                 mov     ax,0x4300\r
552                 int     0x2f                            // query status of installed diver\r
553                 cmp     al,0x80\r
554                 je      good\r
555                 mov     errorflag,1\r
556 #ifdef __BORLANDC__\r
557         }\r
558 #endif\r
559                 good:\r
560 #ifdef __WATCOMC__\r
561         }\r
562 #endif\r
563         if(errorflag==true) return false;\r
564         else return true;\r
565 }\r
566 \r
567 #ifndef __16_PM__\r
568 #if 0\r
569 /*\r
570 ======================\r
571 =\r
572 = MML_SetupXMS\r
573 =\r
574 = Try to allocate all upper memory block\r
575 =\r
576 =======================\r
577 */\r
578 \r
579 void MML_SetupXMS(global_game_variables_t *gvar)\r
580 {\r
581         word    base,size;\r
582 \r
583 \r
584         __asm {\r
585                 mov     ax,0x4310\r
586                 int     0x2f\r
587                 mov     [WORD PTR XMSaddr],bx\r
588                 mov     [WORD PTR XMSaddr+2],es         // function pointer to XMS driver\r
589         }\r
590 getmemory:\r
591         __asm {\r
592                 mov     ah,XMS_ALLOCUMB\r
593                 mov     dx,0xffff                                       // try for largest block possible\r
594                 //mov     ax,dx                                         // Set available Kbytes.\r
595                 call    [DWORD PTR XMSaddr]\r
596                 or      ax,ax\r
597                 jnz     gotone\r
598 \r
599                 cmp     bl,0xb0                                         // error: smaller UMB is available\r
600                 jne     done;\r
601 \r
602                 mov     ah,XMS_ALLOCUMB\r
603                 call    [DWORD PTR XMSaddr]             // DX holds largest available UMB\r
604                 or      ax,ax\r
605                 jz      done                                            // another error...\r
606 #ifdef __BORLANDC__\r
607         }\r
608 #endif\r
609                 gotone:\r
610 #ifdef __BORLANDC__\r
611         __asm {\r
612 #endif\r
613                 mov     [base],bx\r
614                 mov     [size],dx\r
615 #ifdef __BORLANDC__\r
616         }\r
617 #endif\r
618                 done:\r
619 #ifdef __WATCOMC__\r
620         }\r
621 #endif\r
622 //      printf("base=%u ", base); printf("size=%u\n", size);\r
623         MML_UseSpace(base,size, gvar);\r
624         gvar->mmi.XMSmem += size*16;\r
625         gvar->mm.UMBbase[gvar->mm.numUMBs] = base;\r
626         gvar->mm.numUMBs++;\r
627         if(gvar->mm.numUMBs < MAXUMBS)\r
628                 goto getmemory;\r
629 }\r
630 \r
631 \r
632 /*\r
633 ======================\r
634 =\r
635 = MML_ShutdownXMS\r
636 =\r
637 ======================\r
638 */\r
639 \r
640 void MML_ShutdownXMS(global_game_variables_t *gvar)\r
641 {\r
642         int     i;\r
643         unsigned        base;\r
644 \r
645         for (i=0;i<gvar->mm.numUMBs;i++)\r
646         {\r
647                 base = gvar->mm.UMBbase[i];\r
648                 __asm {\r
649                         mov     ah,XMS_FREEUMB\r
650                         mov     dx,[base]\r
651                         call    [DWORD PTR XMSaddr]\r
652                 }\r
653         }\r
654 }\r
655 #endif\r
656 #endif\r
657 //==========================================================================\r
658 \r
659 /*\r
660 ======================\r
661 =\r
662 = MML_UseSpace\r
663 =\r
664 = Marks a range of paragraphs as usable by the memory manager\r
665 = This is used to mark space for the near heap, far heap, ems page frame,\r
666 = and upper memory blocks\r
667 =\r
668 ======================\r
669 */\r
670 \r
671 /*\r
672         extra = oldend - (segstart+seglength);\r
673 \r
674         segmlen=extra;\r
675 \r
676         //++++emsver stuff!\r
677         if(segm>1)/// || extra>=0x10000lu)\r
678         //if(extra>0xfffflu)\r
679         {\r
680                 scan->blob=segm;\r
681 \r
682                 //MML_UseSpace(segstart, seglength, gvar);\r
683 \r
684                 printf("MML_UseSpace: Segment spans two blocks!\n");\r
685         //}\r
686         printf("segm=%u         ", segm);\r
687         printf("ex=%lu  ", extra);\r
688         printf("old=%u  ", oldend);\r
689         printf("start+seglen=%lu\n", segstart+seglength);\r
690         printf("segsta=%x       ", segstart);\r
691         printf("len=%lu ", scan->length);\r
692         printf("seglen=%lu      ", seglength);\r
693         printf("segmlen=%lu\n", segmlen);\r
694         }\r
695 //++++todo: linked list of segment!\r
696 */\r
697 void MML_UseSpace (unsigned segstart, unsigned seglength, global_game_variables_t *gvar)\r
698 {\r
699         mmblocktype far *scan,far *last;\r
700         unsigned        oldend;\r
701         sdword          extra;\r
702         //word segm=1;\r
703 \r
704         scan = last = gvar->mm.mmhead;\r
705         gvar->mm.mmrover = gvar->mm.mmhead;             // reset rover to start of memory\r
706 \r
707 //\r
708 // search for the block that contains the range of segments\r
709 //\r
710         while (scan->start+scan->length < segstart)\r
711         {\r
712                 last = scan;\r
713                 scan = scan->next;\r
714         }\r
715 \r
716 //\r
717 // find out how many blocks it spans!\r
718 //\r
719         /*for(;seglength>=0x10000;seglength-=0xFFFF)\r
720         {\r
721                 //printf("      seglen=%lu\n", segmlen);\r
722                 segm++;\r
723         }*/\r
724 \r
725 //\r
726 // take the given range out of the block\r
727 //\r
728         oldend = scan->start + scan->length;\r
729         extra = oldend - (segstart+seglength);\r
730         if (extra < 0)\r
731 #ifdef __DEBUG_MM__\r
732         {\r
733                 printf("========================================\n");\r
734                 printf("start=%x        ", scan->start);\r
735                 printf("old=%u  ", oldend);\r
736                 printf("start+seglen=%lu\n", segstart+seglength);\r
737                 printf("segsta=%x       ", segstart);\r
738                 printf("len=%lu ", scan->length);\r
739                 printf("seglen=%lu      ", seglength);\r
740                 printf("\n");\r
741                 printf("MML_UseSpace: Segment spans two blocks! %d\n", extra);\r
742                 printf("========================================\n");\r
743                 //return;\r
744         }\r
745 #else\r
746                 Quit (gvar, "MML_UseSpace: Segment spans two blocks!");\r
747 #endif\r
748 \r
749         if (segstart == scan->start)\r
750         {\r
751                 last->next = scan->next;                        // unlink block\r
752                 FREEBLOCK(scan);\r
753                 scan = last;\r
754         }\r
755         else\r
756                 scan->length = segstart-scan->start;    // shorten block\r
757 \r
758         if (extra > 0)\r
759         {\r
760                 GETNEWBLOCK;\r
761                 gvar->mm.mmnew->useptr = NULL;\r
762 \r
763                 gvar->mm.mmnew->next = scan->next;\r
764                 scan->next = gvar->mm.mmnew;\r
765                 gvar->mm.mmnew->start = segstart+seglength;\r
766                 gvar->mm.mmnew->length = extra;\r
767                 gvar->mm.mmnew->attributes = LOCKBIT;\r
768         }//else if(segm>0) goto segu;\r
769 \r
770 }\r
771 \r
772 //==========================================================================\r
773 \r
774 /*\r
775 ====================\r
776 =\r
777 = MML_ClearBlock\r
778 =\r
779 = We are out of blocks, so free a purgable block\r
780 =\r
781 ====================\r
782 */\r
783 \r
784 void MML_ClearBlock (global_game_variables_t *gvar)\r
785 {\r
786         mmblocktype far *scan;//,far *last;\r
787 \r
788         scan = gvar->mm.mmhead->next;\r
789 \r
790         while(scan)\r
791         {\r
792                 if(!(scan->attributes&LOCKBIT) && (scan->attributes&PURGEBITS) )\r
793                 {\r
794                         MM_FreePtr (scan->useptr, gvar);\r
795                         return;\r
796                 }\r
797                 scan = scan->next;\r
798         }\r
799 \r
800         Quit (gvar, "MM_ClearBlock: No purgable blocks!\n");\r
801 }\r
802 \r
803 \r
804 //==========================================================================\r
805 \r
806 /*\r
807 ===================\r
808 =\r
809 = MM_Reset\r
810 =\r
811 ===================\r
812 */\r
813 \r
814 void MM_Reset (global_game_variables_t *gvar)\r
815 {\r
816 //      //has to be 16\r
817 //      if(sizeof(mmblocktype)!=16)\r
818 //              return;\r
819 \r
820 #ifdef __BORLANDC__\r
821         strcpy(gvar->handle.datadumpfilename, "mmdump.16b");\r
822 #endif\r
823 #ifdef __WATCOMC__\r
824         strcpy(gvar->handle.datadumpfilename, "mmdump.16w");\r
825 #endif\r
826 }\r
827 \r
828 \r
829 //==========================================================================\r
830 \r
831 /*\r
832 ===================\r
833 =\r
834 = MM_Startup\r
835 =\r
836 = Grabs all space from turbo with malloc/farmalloc\r
837 = Allocates bufferseg misc buffer\r
838 =\r
839 ===================\r
840 */\r
841 \r
842 void MM_Startup (global_game_variables_t *gvar)\r
843 {\r
844         int i;\r
845         dword length;\r
846         void far        *start;\r
847         unsigned        segstart,seglength;//,endfree;\r
848 \r
849         if(gvar->mm.mmstarted)\r
850                 MM_Shutdown (gvar);\r
851 \r
852         MM_Reset (gvar);\r
853 \r
854         gvar->mm.mmstarted = true;\r
855         gvar->mm.bombonerror = true;\r
856 //\r
857 // set up the linked list (everything in the free list;\r
858 //\r
859         gvar->mm.mmhead = NULL;\r
860         gvar->mm.mmfree = &(gvar->mm.mmblocks[0]);\r
861         for (i=0;i<MAXBLOCKS-1;i++)\r
862                 gvar->mm.mmblocks[i].next = &(gvar->mm.mmblocks[i+1]);\r
863         gvar->mm.mmblocks[i].next = NULL;\r
864 \r
865 //\r
866 // locked block of all memory until we punch out free space\r
867 //\r
868         GETNEWBLOCK;\r
869         gvar->mm.mmhead = gvar->mm.mmnew;                               // this will allways be the first node\r
870         gvar->mm.mmnew->start = 0;\r
871         gvar->mm.mmnew->length = 0xffff;\r
872         gvar->mm.mmnew->attributes = LOCKBIT;\r
873         gvar->mm.mmnew->next = NULL;\r
874         gvar->mm.mmrover = gvar->mm.mmhead;\r
875 \r
876 \r
877 //\r
878 // get all available near conventional memory segments\r
879 //\r
880 #ifdef __WATCOMC__\r
881         _nheapgrow();\r
882 #endif\r
883         length=(word)_memavl();//(word)coreleft();\r
884         //start = gvar->mm.nearheap = _fmalloc(length);\r
885 #ifdef __WATCOMC__\r
886         start = (void __far *)(gvar->mm.nearheap = _nmalloc(length));\r
887 #endif\r
888 #ifdef __BORLANDC__\r
889         start = (void far *)(gvar->mm.nearheap = malloc(length));\r
890 #endif\r
891 \r
892         length -= 16-(FP_OFF(start)&15);\r
893         length -= SAVENEARHEAP;\r
894         seglength = length / 16;                        // now in paragraphs\r
895         segstart = FP_SEG(start)+(FP_OFF(start)+15)/16;\r
896         MML_UseSpace (segstart,seglength, gvar);\r
897         gvar->mmi.nearheap = length;\r
898         //0000printf("near:     start=%Fp       segstart=%x     seglen=%lu      len=%lu\n", start, segstart, (dword)seglength, length);\r
899 \r
900 //\r
901 // get all available far conventional memory segments\r
902 //\r
903 #ifdef __WATCOMC__\r
904         _fheapgrow();\r
905 #endif\r
906 #ifdef __BORLANDC__\r
907 //      printf("farcoreleft()                           %lu\n", farcoreleft());\r
908 //      printf("(farcoreleft()+32)-_FCORELEFT   %d\n", (sword)((farcoreleft()+32)-_FCORELEFT));\r
909 #endif\r
910         length=_FCORELEFT;\r
911         start = gvar->mm.farheap = _fmalloc(length);//start = gvar->mm.farheap = halloc(length, 1);\r
912 \r
913         length -= 16-(FP_OFF(start)&15);\r
914         length -= SAVEFARHEAP;\r
915         seglength = length / 16;                        // now in paragraphs\r
916         segstart = FP_SEG(start)+(FP_OFF(start)+15)/16;\r
917         MML_UseSpace (segstart,seglength, gvar);\r
918         gvar->mmi.farheap = length;\r
919         //0000printf("far:      start=%Fp       segstart=%x     seglen=%lu      len=%lu\n", start, segstart, (dword)seglength, length);\r
920 \r
921         gvar->mmi.mainmem = gvar->mmi.nearheap + gvar->mmi.farheap;\r
922 \r
923 #if !defined(__16_PM__)// && defined(__WATCOMC__)\r
924 #if 0\r
925         if(!dbg_debugpm) {\r
926 //\r
927 // detect EMS and allocate up to 64K at page frame\r
928 //\r
929         gvar->mmi.EMSmem = 0;\r
930 //goto emsskip; //0000\r
931         for(i = 1;i < _argc;i++)\r
932         {\r
933                 if(US_CheckParm(_argv[i],ParmStringsexmm) == 0)\r
934                         goto emsskip;                           // param NOEMS\r
935         }\r
936         if(MML_CheckForEMS())\r
937         {\r
938                 MML_SetupEMS(gvar);                                     // allocate space\r
939                 //16_PM: EMS4! AND EMS 3.2 MASSIVE DATA HANDLMENT!\r
940                 MML_UseSpace(gvar->mm.EMSPageFrame,(MAPPAGES)*0x4000lu, gvar);\r
941                 //if(gvar->pm.emm.EMSVer<0x40)\r
942                         MM_MapEMS(gvar);                                        // map in used pages\r
943                 //else\r
944                         //MM_MapXEMS(gvar);                                     // map in used pages\r
945         }\r
946 \r
947 //\r
948 // detect XMS and get upper memory blocks\r
949 //\r
950 emsskip:\r
951         gvar->mmi.XMSmem = 0;\r
952 goto xmsskip;//0000\r
953         for(i = 1;i < _argc;i++)\r
954         {\r
955                 if(US_CheckParm( _argv[i],ParmStringsexmm) == 0)\r
956                         goto xmsskip;                           // param NOXMS\r
957         }\r
958         if(MML_CheckForXMS())\r
959         {\r
960                 MML_SetupXMS(gvar);                                     // allocate as many UMBs as possible\r
961         }\r
962 \r
963         }\r
964 xmsskip:\r
965 #endif\r
966 #endif\r
967 //\r
968 // allocate the misc buffer\r
969 //\r
970         gvar->mm.mmrover = gvar->mm.mmhead;             // start looking for space after low block\r
971 \r
972         MM_GetPtr (&(gvar->mm.bufferseg),BUFFERSIZE, gvar);\r
973 }\r
974 \r
975 //==========================================================================\r
976 \r
977 /*\r
978 ====================\r
979 =\r
980 = MM_Shutdown\r
981 =\r
982 = Frees all conventional, EMS, and XMS allocated\r
983 =\r
984 ====================\r
985 */\r
986 \r
987 void MM_Shutdown (global_game_variables_t *gvar)\r
988 {\r
989         if(!(gvar->mm.mmstarted))\r
990                 return;\r
991 \r
992         _ffree(gvar->mm.farheap);//     printf("                far freed\n");\r
993 #ifdef __WATCOMC__\r
994         _nfree(gvar->mm.nearheap);//    printf("                near freed\n");\r
995 #endif\r
996 #ifdef __BORLANDC__\r
997         free(gvar->mm.nearheap);//      printf("                near freed\n");\r
998 #endif\r
999 #ifndef __16_PM__\r
1000 #if 0\r
1001 #ifdef __DEBUG__\r
1002         if(!dbg_debugpm) {\r
1003 #endif\r
1004         if(MML_CheckForEMS()){ MML_ShutdownEMS(gvar); }//printf("               EMS freed\n"); }\r
1005         if(MML_CheckForXMS()){ MML_ShutdownXMS(gvar); }//printf("               XMS freed\n"); }\r
1006 #ifdef __DEBUG__\r
1007         }\r
1008 #endif\r
1009 #endif\r
1010 #endif\r
1011 }\r
1012 \r
1013 //==========================================================================\r
1014 \r
1015 /*\r
1016 ====================\r
1017 =\r
1018 = MM_GetPtr\r
1019 =\r
1020 = Allocates an unlocked, unpurgable block\r
1021 =\r
1022 ====================\r
1023 */\r
1024 \r
1025 void MM_GetPtr (memptr *baseptr,dword size, global_game_variables_t *gvar)\r
1026 {\r
1027         mmblocktype far *scan,far *lastscan,far *endscan\r
1028                                 ,far *purge,far *next;\r
1029         int                     search;\r
1030         unsigned        needed,startseg;\r
1031 \r
1032         needed = (size+15)/16;          // convert size from bytes to paragraphs\r
1033 \r
1034         GETNEWBLOCK;                            // fill in start and next after a spot is found\r
1035         gvar->mm.mmnew->length = needed;\r
1036         gvar->mm.mmnew->useptr = baseptr;\r
1037         gvar->mm.mmnew->attributes = BASEATTRIBUTES;\r
1038         //if(gvar->mm.mmnew->useptr==NULL){\r
1039 #ifdef __DEBUG_MM__\r
1040         if(dbg_debugmm>0){\r
1041         printf("===============================================================================\n");\r
1042         printf("                MM_GetPtr\n");\r
1043         printf("===============================================================================\n");\r
1044                 //%04x\r
1045 //              printf("        baseptr=%Fp     ", baseptr); printf("useptr=%Fp\n", gvar->mm.mmnew->useptr);\r
1046 //              //printf("      *baseptr=%Fp    ", *baseptr); printf("*useptr=%Fp\n", *(gvar->mm.mmnew->useptr));\r
1047 //              printf("        &baseptr=%Fp    ", &baseptr); printf("&useptr=%Fp\n", &(gvar->mm.mmnew->useptr));\r
1048 \r
1049                 printf("        baseptr=%04x    ", baseptr); printf("useptr=%04x\n", gvar->mm.mmnew->useptr);\r
1050                 //printf("      *baseptr=%04x   ", *baseptr); printf("*useptr=%04x\n", *(gvar->mm.mmnew->useptr));\r
1051                 printf("        &baseptr=%04u   ", &baseptr); printf("&useptr=%04u\n", &(gvar->mm.mmnew->useptr));\r
1052 \r
1053                 printf("        size is %lu\n", size);\r
1054         }\r
1055 #endif\r
1056         //Quit (gvar, "gvar->mm.mmnew->useptr==NULL"); }\r
1057 \r
1058 //tryagain:\r
1059         for (search = 0; search<3; search++)\r
1060         {\r
1061         //\r
1062         // first search:        try to allocate right after the rover, then on up\r
1063         // second search:       search from the head pointer up to the rover\r
1064         // third search:        compress memory, then scan from start\r
1065                 if (search == 1 && gvar->mm.mmrover == gvar->mm.mmhead)\r
1066                         search++;\r
1067 \r
1068                 switch (search)\r
1069                 {\r
1070                 case 0:\r
1071                         lastscan = gvar->mm.mmrover;\r
1072                         scan = gvar->mm.mmrover->next;\r
1073                         endscan = NULL;\r
1074                         break;\r
1075                 case 1:\r
1076                         lastscan = gvar->mm.mmhead;\r
1077                         scan = gvar->mm.mmhead->next;\r
1078                         endscan = gvar->mm.mmrover;\r
1079                         break;\r
1080                 case 2:\r
1081                         MM_SortMem (gvar);\r
1082                         lastscan = gvar->mm.mmhead;\r
1083                         scan = gvar->mm.mmhead->next;\r
1084                         endscan = NULL;\r
1085                         break;\r
1086                 }\r
1087 \r
1088                 startseg = lastscan->start + lastscan->length;\r
1089 \r
1090                 while (scan != endscan)\r
1091                 {\r
1092                         if (scan->start - startseg >= needed)\r
1093                         {\r
1094                         //\r
1095                         // got enough space between the end of lastscan and\r
1096                         // the start of scan, so throw out anything in the middle\r
1097                         // and allocate the new block\r
1098                         //\r
1099                                 purge = lastscan->next;\r
1100                                 lastscan->next = gvar->mm.mmnew;\r
1101                                 gvar->mm.mmnew->start = *(unsigned *)baseptr = startseg;\r
1102                                 gvar->mm.mmnew->next = scan;\r
1103                                 while ( purge != scan)\r
1104                                 {       // free the purgable block\r
1105                                         next = purge->next;\r
1106                                         FREEBLOCK(purge);\r
1107                                         purge = next;           // purge another if not at scan\r
1108                                 }\r
1109                                 gvar->mm.mmrover = gvar->mm.mmnew;\r
1110                                 return; // good allocation!\r
1111                         }\r
1112 \r
1113                         //\r
1114                         // if this block is purge level zero or locked, skip past it\r
1115                         //\r
1116                         if ( (scan->attributes & LOCKBIT)\r
1117                                 || !(scan->attributes & PURGEBITS) )\r
1118                         {\r
1119                                 lastscan = scan;\r
1120                                 startseg = lastscan->start + lastscan->length;\r
1121                         }\r
1122 \r
1123 \r
1124                         scan=scan->next;                // look at next line\r
1125                 }\r
1126         }\r
1127 \r
1128         if (gvar->mm.bombonerror)\r
1129         {\r
1130 #ifdef __WATCOMC__\r
1131                 //heapdump();\r
1132 #endif\r
1133                 printf(OUT_OF_MEM_MSG,(size-gvar->mmi.nearheap));\r
1134                 Quit (gvar, "for stability reasons the program will shut down! wwww\n");\r
1135         }\r
1136         else\r
1137                 gvar->mm.mmerror = true;\r
1138 }\r
1139 \r
1140 //==========================================================================\r
1141 \r
1142 /*\r
1143 ====================\r
1144 =\r
1145 = MM_FreePtr\r
1146 =\r
1147 = Deallocates an unlocked, purgable block\r
1148 =\r
1149 ====================\r
1150 */\r
1151 \r
1152 void MM_FreePtr (memptr *baseptr, global_game_variables_t *gvar)\r
1153 {\r
1154         mmblocktype far *scan,far *last;\r
1155 \r
1156         last = gvar->mm.mmhead;\r
1157         scan = last->next;\r
1158 \r
1159         if (baseptr == gvar->mm.mmrover->useptr)        // removed the last allocated block\r
1160                 gvar->mm.mmrover = gvar->mm.mmhead;\r
1161 \r
1162         while (scan->useptr != baseptr && scan)\r
1163         {\r
1164                 last = scan;\r
1165                 scan = scan->next;\r
1166         }\r
1167 \r
1168         if (!scan)\r
1169                 Quit (gvar, "MM_FreePtr: Block not found!");\r
1170 \r
1171         last->next = scan->next;\r
1172 \r
1173         FREEBLOCK(scan);\r
1174 }\r
1175 //==========================================================================\r
1176 \r
1177 /*\r
1178 =====================\r
1179 =\r
1180 = MM_SetPurge\r
1181 =\r
1182 = Sets the purge level for a block (locked blocks cannot be made purgable)\r
1183 =\r
1184 =====================\r
1185 */\r
1186 \r
1187 void MM_SetPurge (memptr *baseptr, int purge, global_game_variables_t *gvar)\r
1188 {\r
1189         mmblocktype far *start;\r
1190 \r
1191         start = gvar->mm.mmrover;\r
1192 \r
1193         do\r
1194         {\r
1195                 if (gvar->mm.mmrover->useptr == baseptr)\r
1196                         break;\r
1197 \r
1198                 gvar->mm.mmrover = gvar->mm.mmrover->next;\r
1199 \r
1200                 if (!gvar->mm.mmrover)\r
1201                         gvar->mm.mmrover = gvar->mm.mmhead;\r
1202                 else if (gvar->mm.mmrover == start)\r
1203                         Quit (gvar, "MM_SetPurge: Block not found!");\r
1204 \r
1205         } while (1);\r
1206 \r
1207         gvar->mm.mmrover->attributes &= ~PURGEBITS;\r
1208         gvar->mm.mmrover->attributes |= purge;\r
1209 }\r
1210 \r
1211 //==========================================================================\r
1212 \r
1213 /*\r
1214 =====================\r
1215 =\r
1216 = MM_SetLock\r
1217 =\r
1218 = Locks / unlocks the block\r
1219 =\r
1220 =====================\r
1221 */\r
1222 \r
1223 void MM_SetLock (memptr *baseptr, boolean locked, global_game_variables_t *gvar)\r
1224 {\r
1225         mmblocktype far *start;\r
1226 \r
1227         start = gvar->mm.mmrover;\r
1228 \r
1229         do\r
1230         {\r
1231                 if (gvar->mm.mmrover->useptr == baseptr)\r
1232                         break;\r
1233 \r
1234                 gvar->mm.mmrover = gvar->mm.mmrover->next;\r
1235 \r
1236                 if (!gvar->mm.mmrover)\r
1237                         gvar->mm.mmrover = gvar->mm.mmhead;\r
1238                 else if (gvar->mm.mmrover == start)\r
1239                         Quit (gvar, "MM_SetLock: Block not found!");\r
1240 \r
1241         } while(1);\r
1242 \r
1243         gvar->mm.mmrover->attributes &= ~LOCKBIT;\r
1244         gvar->mm.mmrover->attributes |= locked*LOCKBIT;\r
1245 }\r
1246 \r
1247 //==========================================================================\r
1248 \r
1249 /*\r
1250 =====================\r
1251 =\r
1252 = MM_SortMem\r
1253 =\r
1254 = Throws out all purgable stuff and compresses movable blocks\r
1255 =\r
1256 =====================\r
1257 */\r
1258 \r
1259 void MM_SortMem (global_game_variables_t *gvar)\r
1260 {\r
1261         mmblocktype far *scan,far *last,far *next;\r
1262         unsigned        start,length,source,dest,oldborder;\r
1263         //++++int                       playing;\r
1264 \r
1265         //\r
1266         // lock down a currently playing sound\r
1267         //\r
1268 /*++++  playing = SD_SoundPlaying ();\r
1269         if(playing)\r
1270         {\r
1271                 switch (SoundMode)\r
1272                 {\r
1273                 case sdm_PC:\r
1274                         playing += STARTPCSOUNDS;\r
1275                         break;\r
1276                 case sdm_AdLib:\r
1277                         playing += STARTADLIBSOUNDS;\r
1278                         break;\r
1279                 }\r
1280                 MM_SetLock(MEMPTRCONV audiosegs[playing],true);\r
1281         }\r
1282 \r
1283 \r
1284         SD_StopSound();*/\r
1285 #ifdef __WATCOMC__\r
1286         oldborder = gvar->video.bordercolor;\r
1287         gvar->video.bordercolor = VL_modexPalOverscan(gvar->video.palette, 4);\r
1288 #endif\r
1289 \r
1290         if (beforesort)\r
1291                 beforesort();\r
1292 \r
1293         scan = gvar->mm.mmhead;\r
1294 \r
1295         last = NULL;            // shut up compiler warning\r
1296 \r
1297         while (scan)\r
1298         {\r
1299                 if (scan->attributes & LOCKBIT)\r
1300                 {\r
1301                 //\r
1302                 // block is locked, so try to pile later blocks right after it\r
1303                 //\r
1304                         start = scan->start + scan->length;\r
1305                 }\r
1306                 else\r
1307                 {\r
1308                         if (scan->attributes & PURGEBITS)\r
1309                         {\r
1310                         //\r
1311                         // throw out the purgable block\r
1312                         //\r
1313                                 next = scan->next;\r
1314                                 FREEBLOCK(scan); //MM_FreeBlock(scan, gvar);\r
1315                                 last->next = next;\r
1316                                 scan = next;\r
1317                                 continue;\r
1318                         }\r
1319                         else\r
1320                         {\r
1321                         //\r
1322                         // push the non purgable block on top of the last moved block\r
1323                         //\r
1324                                 if (scan->start != start)\r
1325                                 {\r
1326                                         length = scan->length;\r
1327                                         source = scan->start;\r
1328                                         dest = start;\r
1329                                         while (length > 0xf00)\r
1330                                         {\r
1331                                                 movedata(source,0,dest,0,0xf00*16);\r
1332                                                 length -= 0xf00;\r
1333                                                 source += 0xf00;\r
1334                                                 dest += 0xf00;\r
1335                                         }\r
1336                                         movedata(source,0,dest,0,length*16);\r
1337 \r
1338                                         scan->start = start;\r
1339                                         *(unsigned *)scan->useptr = start;\r
1340                                 }\r
1341                                 start = scan->start + scan->length;\r
1342                         }\r
1343                 }\r
1344 \r
1345                 last = scan;\r
1346                 scan = scan->next;              // go to next block\r
1347         }\r
1348 \r
1349         gvar->mm.mmrover = gvar->mm.mmhead;\r
1350 \r
1351         if (aftersort)\r
1352                 aftersort();\r
1353 \r
1354         VL_ColorBorder (oldborder, &gvar->video);\r
1355 \r
1356 /*++++  if(playing)\r
1357                 MM_SetLock((memptr *)&audiosegs[playing],false);*/\r
1358 }\r
1359 \r
1360 //==========================================================================\r
1361 \r
1362 /*\r
1363 =====================\r
1364 =\r
1365 = MM_ShowMemory\r
1366 =\r
1367 =====================\r
1368 */\r
1369 \r
1370 #ifdef __WATCOMC__\r
1371 //#define MMSMPANVID\r
1372 #define MMSMSCANINFO\r
1373 #endif\r
1374 \r
1375 void MM_ShowMemory (global_game_variables_t *gvar)\r
1376 {\r
1377         mmblocktype far *scan;\r
1378         unsigned color,temp,x,y         ,w,q,width;\r
1379         sdword  end,owner;\r
1380         byte            scratch[160],scratch0[4096],str[16];\r
1381         mmshowmemoryinfo_t scaninfo[MAXBLOCKS];\r
1382 \r
1383         if(!gvar->video.page[0].width) gvar->video.page[0].sw = gvar->video.page[0].width = 320;        //to prevent division by 0\r
1384 //--    VL_SetLineWidth(40, gvar);\r
1385         //temp = gvar->video.ofs.bufferofs;\r
1386         //gvar->video.ofs.bufferofs = gvar->video.ofs.displayofs;\r
1387         temp = BDOFSCONV gvar->video.BOFS;\r
1388         gvar->video.BOFS = gvar->video.DOFS;\r
1389         scan = gvar->mm.mmhead;\r
1390 \r
1391         end = -1; w = 0;\r
1392 \r
1393         width = gvar->video.page[0].width; q = 0;\r
1394 \r
1395         CA_OpenDebug (gvar);\r
1396         while (scan)\r
1397         {\r
1398                 scaninfo[q].scan = scan;\r
1399                 strcpy(scratch, AARESET);\r
1400                 if(scan->attributes & PURGEBITS)\r
1401                 {\r
1402                         color = 6;              // dark purple = purgable\r
1403                         strcpy(scratch0, AAMAGENTA);            // dark purple = purgable\r
1404                 }else{\r
1405                         color = 2;              // medium blue = non purgable\r
1406                         strcpy(scratch0, AABLUE);               // medium blue = non purgable\r
1407                 }\r
1408                 if(scan->attributes & LOCKBIT)\r
1409                 {\r
1410                         color = 1;              // red = locked\r
1411                         strcpy(scratch0, AARED);                // red = locked\r
1412                 }\r
1413                 if (scan->start<=end)\r
1414                 {\r
1415                         printf("\nend==%d\n\n", end);\r
1416                         strcat(scratch, "MM_ShowMemory: Memory block order currupted!\n");\r
1417                         strcat(scratch, "End's Size: ");\r
1418                         ultoa (end,str,10);\r
1419                         strcat (scratch,str);\r
1420                         strcat(scratch, "\nscan->start's Size: ");\r
1421                         ultoa (scan->start,str,10);\r
1422                         strcat (scratch,str);\r
1423                         write(gvar->handle.debughandle,scratch,strlen(scratch));\r
1424                         Quit (gvar, "MM_ShowMemory: Memory block order currupted!");\r
1425                 }\r
1426                 end = scan->length-1;\r
1427                 y = scan->start/width;\r
1428                 x = scan->start%width;\r
1429                 scaninfo[q].x = x;\r
1430                 scaninfo[q].y = y;\r
1431                 VW_Hlin(x,x+end,y,color,gvar);\r
1432                 VL_Plot(x,y,5,gvar);\r
1433 //++==++==optional                      strcat(scratch0, AARESET); strcat(scratch0, AAGREY); strcat(scratch0,"_");\r
1434                 for(w=(scan->start)/80;w<=end/80;w++)\r
1435                 {\r
1436 //printf("+     %u      %lu\n", w, scan->length);\r
1437                         strcat(scratch0, "+");\r
1438                 }\r
1439 \r
1440                 if (scan->next && scan->next->start > end+1)\r
1441                 {\r
1442                         VW_Hlin(x+end+1,x+(scan->next->start-scan->start),y,3,gvar);    // black = free//now green\r
1443                         strcat(scratch0, AARESET);\r
1444 //++==++==optional                      strcat(scratch0, "\n");\r
1445                         strcat(scratch0,AAGREEN);\r
1446                         for(w=(end+1)/80;w<=((scan->next->start-scan->start)/80);w++)\r
1447                         {\r
1448 //printf("0     %x      %u      %lu\n", scan->next->start, w, scan->length);\r
1449                                 strcat(scratch0,"0");\r
1450                         }\r
1451                         //printf("==================\n");\r
1452                         //printf("w=%u  start=%04x      next=%04x       end=%lu\n", w/80, scan->start, (scan->next->start), end+1);\r
1453                         //printf("==================\n");\r
1454                         strcat(scratch0, "\n");\r
1455                 }\r
1456 #if 0\r
1457                 else {//if(scan->next->start <= scan->start){\r
1458                         scan->next->start=scan->start+0x1000;\r
1459                         strcat(scratch0, AARESET);\r
1460                         strcat(scratch0, "\n");\r
1461                         strcat(scratch0,AAGREEN);\r
1462                         for(w=(end+1);w<=(0x1000/80);w++)\r
1463                         {\r
1464                                 //printf("0     %x      %x      %u\n", scan->start, w);\r
1465                                 strcat(scratch0,"0");\r
1466                         }\r
1467                         printf("================\n");\r
1468                         printf("w=%x    start=%x        next=%x end=%u\n", w, scan->start, (scan->next->start), end+1);\r
1469                         printf("================\n");\r
1470                         getch();\r
1471                 }\r
1472 #endif\r
1473                 strcat(scratch0, AARESET);\r
1474                 //strcat(scratch0,"\n");\r
1475                 strcat(scratch,"Seg:");\r
1476                 ultoa (scan->start,str,16);\r
1477                 strcat (scratch,str);\r
1478 //              strcat(scratch, AABLACK); strcat(scratch,"\t"); strcat(scratch, AARESET);\r
1479                 strcat (scratch,"\tSize:");\r
1480                 ultoa ((unsigned)scan->length,str,10);\r
1481                 strcat (scratch,str);\r
1482 //              strcat(scratch, AABLACK); strcat(scratch,"\t"); strcat(scratch, AARESET);\r
1483                 strcat (scratch,"\tOwner:0x");\r
1484                 owner = (unsigned)scan->useptr;\r
1485                 ultoa (owner,str,16);\r
1486                 strcat (scratch,str);\r
1487                 strcat (scratch,"\n");\r
1488                 write(gvar->handle.debughandle,scratch,strlen(scratch));\r
1489                 write(gvar->handle.debughandle,scratch0,strlen(scratch0));\r
1490 //fprintf(stdout, "%s", scratch);\r
1491 \r
1492                 scan = scan->next;\r
1493                 q++;\r
1494 //if(color!=6) IN_Ack(gvar);\r
1495         }\r
1496 \r
1497         CA_CloseDebug (gvar);\r
1498 \r
1499 #ifdef MMSMPANVID\r
1500         {\r
1501                 int dx,dy,odx,ody;\r
1502                 odx = gvar->video.page[0].dx;\r
1503                 ody = gvar->video.page[0].dy;\r
1504                 dx = dy = 0;\r
1505                 while(!gvar->in.inst->Keyboard[sc_Escape])\r
1506                 {\r
1507                         if(gvar->in.inst->Keyboard[sc_UpArrow])\r
1508                         {\r
1509                                 if(dy>0)\r
1510                                         dy--;\r
1511                         }\r
1512                         else if(gvar->in.inst->Keyboard[sc_DownArrow])\r
1513                         {\r
1514                                 if(dy<gvar->video.page[0].height-gvar->video.page[0].sh)\r
1515                                         dy++;\r
1516                         }\r
1517                         if(gvar->in.inst->Keyboard[sc_LeftArrow])\r
1518                         {\r
1519                                 if(dx>0)\r
1520                                         dx--;\r
1521                         }\r
1522                         else if(gvar->in.inst->Keyboard[sc_RightArrow])\r
1523                         {\r
1524                                 if(dx<gvar->video.page[0].width-gvar->video.page[0].sw)\r
1525                                         dx++;\r
1526                         }\r
1527 \r
1528                         modexPanPage(&gvar->video.page[0], dx, dy);\r
1529                         VL_ShowPage(&gvar->video.page[0], 1, 1);\r
1530                 }\r
1531 \r
1532                 gvar->video.page[0].dx = odx;\r
1533                 gvar->video.page[0].dy = ody;\r
1534         }\r
1535 #endif\r
1536 #ifdef MMSMSCANINFO\r
1537         MM_ShowMemoryDetail (x, y, w, q, end, &scaninfo, gvar);\r
1538 #endif\r
1539 \r
1540 \r
1541         if(gvar->video.VL_Started) IN_Ack(gvar);\r
1542 \r
1543         gvar->video.BOFS = (byte __far *)temp;\r
1544 }\r
1545 \r
1546 #ifdef MMSMSCANINFO\r
1547 void MM_ShowMemoryDetail (unsigned x, unsigned y, unsigned w, unsigned q, sdword end, mmshowmemoryinfo_t *scaninfo, global_game_variables_t *gvar)\r
1548         {\r
1549                 byte scratch1[4];\r
1550                 unsigned                maxq = q;\r
1551                 boolean                 done;\r
1552                 ScanCode                scancode;\r
1553                 int xpos,ypos;\r
1554                 word qq, ccolor = 3;\r
1555                 IN_Ack(gvar);\r
1556 //              VL_ClearVideo (8);\r
1557                 for (qq = 0,done = false;!done;)\r
1558                 {\r
1559                         if(scaninfo[qq].scan->attributes & PURGEBITS)\r
1560                         {\r
1561                                 ccolor = 6;             // dark purple = purgable\r
1562                                 strcpy(scratch1, AAMAGENTA);            // dark purple = purgable\r
1563                                 //printf("%s", AAMAGENTA);\r
1564                         }else{\r
1565                                 ccolor = 2;             // medium blue = non purgable\r
1566                                 strcpy(scratch1, AABLUE);               // medium blue = non purgable\r
1567                                 //printf("%s", AABLUE);\r
1568                         }\r
1569                         if(scaninfo[qq].scan->attributes & LOCKBIT)\r
1570                         {\r
1571                                 ccolor = 1;             // red = locked\r
1572                                 strcpy(scratch1, AARED);                // red = locked\r
1573                                 //printf("%s", AARED);\r
1574                         }\r
1575                         end = scaninfo[qq].scan->length-1;\r
1576 /*typedef struct mmblockstruct{\r
1577         word    start,length;\r
1578         unsigned        attributes;\r
1579         memptr          *useptr;        // pointer to the segment start\r
1580         struct mmblockstruct far *next;\r
1581 } mmblocktype;*/\r
1582                         //modexprint(page, x, y, t, tlsw, color, bgcolor, vidsw, const byte *str);\r
1583 #define MMSMPRINTMEMINFO modexprint(&(gvar->video.page[0]), xpos, ypos, 1, 1, ccolor, 8, gvar->video.VL_Started, global_temp_status_text); ypos+=8;\r
1584                         if(gvar->video.VL_Started)\r
1585                         {\r
1586                                 VL_ShowPage(&gvar->video.page[0], 1, 0);\r
1587                                 modexClearRegion(&gvar->video.page[0], 0, 0, gvar->video.page[0].width, gvar->video.page[0].height, 8);\r
1588                         }else clrscr();\r
1589                         sprintf(global_temp_status_text, "block #%04u", qq); MMSMPRINTMEMINFO\r
1590 //                      sprintf(global_temp_status_text, "%Fp", scaninfo[qq].scan->useptr); MMSMPRINTMEMINFO\r
1591                         sprintf(global_temp_status_text, "start:  %04x", (unsigned)scaninfo[qq].scan->start); MMSMPRINTMEMINFO\r
1592                         sprintf(global_temp_status_text, "useptr: %04x", (unsigned)scaninfo[qq].scan->useptr); MMSMPRINTMEMINFO\r
1593                         sprintf(global_temp_status_text, "size: %05u", (unsigned)scaninfo[qq].scan->length); MMSMPRINTMEMINFO\r
1594                         if (scaninfo[qq].scan->next && scaninfo[qq].scan->next->start > end+1)\r
1595                         {\r
1596                                 sprintf(global_temp_status_text, "free: %05u", (unsigned)(scaninfo[qq].scan->next->start-scaninfo[qq].scan->start)); MMSMPRINTMEMINFO\r
1597                         }\r
1598                         if(gvar->video.VL_Started)\r
1599                         {\r
1600                                 y = ypos;//scaninfo[qq].scan->start/width;\r
1601                                 x = xpos;//scaninfo[qq].scan->start%width;\r
1602                                 VW_Hlin(x,x+end,y,ccolor,gvar);\r
1603                                 VL_Plot(x,y,5,gvar);\r
1604                         }\r
1605                         else\r
1606                         {\r
1607                                 printf("%s", scratch1);\r
1608                                 printf("%s", AAGREY); printf("_");\r
1609                                 for(w=(scaninfo[qq].scan->start)/80;w<=end/80;w++)\r
1610                                 {\r
1611                                         //strcat(scratch1, "+");\r
1612                                         printf("+");\r
1613                                 }\r
1614                         }\r
1615 \r
1616 \r
1617                                 if (scaninfo[qq].scan->next && scaninfo[qq].scan->next->start > end+1) if(!gvar->video.VL_Started)\r
1618                                 {\r
1619                                         //strcat(scratch1, AARESET);\r
1620                                         printf("%s", AARESET);\r
1621                                         //strcat(scratch1,AAGREEN);\r
1622                                         printf("%s", AAGREEN);\r
1623                                         for(w=(end+1)/80;w<=((scaninfo[qq].scan->next->start-scaninfo[qq].scan->start)/80);w++)\r
1624                                         {\r
1625                                                 //strcat(scratch1,"0");\r
1626                                                 printf("0");\r
1627                                         }\r
1628                                 }else VW_Hlin(x+end+1,x+(scaninfo[qq].scan->next->start-scaninfo[qq].scan->start),y,3,gvar);    // black = free//now green\r
1629 \r
1630 \r
1631                         if(gvar->video.VL_Started)\r
1632                         {\r
1633                                 //if (scan->next && scan->next->start > end+1) free\r
1634                                 xpos = gvar->video.page[0].dx;\r
1635                                 ypos = gvar->video.page[0].dy;//(gvar->video.page[0].sh-(32));//8*4\r
1636                         }\r
1637                         else\r
1638                         {\r
1639                                 //printf("%s\n", scratch1);\r
1640                                 printf("%s", AARESET);\r
1641                                 printf("\n");\r
1642                         }\r
1643                         while (!(scancode = gvar->in.inst->LastScan)){}\r
1644 \r
1645                         IN_ClearKey(scancode);\r
1646                         switch (scancode)\r
1647                         {\r
1648                                 case sc_LeftArrow:\r
1649                                         if(qq>0) qq--;\r
1650                                         else    qq = maxq;\r
1651                                 break;\r
1652                                 case sc_RightArrow:\r
1653                                         if(qq<maxq) qq++;\r
1654                                         else qq = 0;\r
1655                                 break;\r
1656 /*                              case sc_UpArrow:\r
1657                                         if(qq>0) qq-=100;\r
1658                                         else    qq = maxq;\r
1659                                 break;\r
1660                                 case sc_DownArrow:\r
1661                                         if(qq<maxq) qq+=100;\r
1662                                         else qq = 0;\r
1663                                 break;*/\r
1664                                 case sc_Escape:\r
1665                                         done = true;\r
1666                                 break;\r
1667                         }\r
1668                 }\r
1669         }\r
1670 #endif\r
1671 \r
1672 //==========================================================================\r
1673 \r
1674 /*\r
1675 =====================\r
1676 =\r
1677 = MM_DumpData\r
1678 =\r
1679 =====================\r
1680 */\r
1681 \r
1682 void MM_DumpData (global_game_variables_t *gvar)\r
1683 {\r
1684         mmblocktype far *scan,far *best;\r
1685         long    lowest,oldlowest;\r
1686         unsigned        owner;\r
1687         char    lock,purge;\r
1688         FILE    *dumpfile;\r
1689 \r
1690 #ifdef __WATCOMC__\r
1691         _nfree(gvar->mm.nearheap);\r
1692 #endif\r
1693 #ifdef __BORLANDC__\r
1694         free(gvar->mm.nearheap);\r
1695 #endif\r
1696         dumpfile = fopen (gvar->handle.datadumpfilename, "w");\r
1697         if (!dumpfile)\r
1698                 Quit (gvar, "MM_DumpData: Couldn't open MMDUMP.16!\n");\r
1699 \r
1700         lowest = -1;\r
1701         do\r
1702         {\r
1703                 oldlowest = lowest;\r
1704                 lowest = 0xffff;\r
1705 \r
1706                 scan = gvar->mm.mmhead;\r
1707                 while (scan)\r
1708                 {\r
1709                         owner = (unsigned)scan->useptr;\r
1710 \r
1711                         if (owner && owner<lowest && owner > oldlowest)\r
1712                         {\r
1713                                 best = scan;\r
1714                                 lowest = owner;\r
1715                         }\r
1716 \r
1717                         scan = scan->next;\r
1718                 }\r
1719 \r
1720                 if (lowest != 0xffff)\r
1721                 {\r
1722                         if (best->attributes & PURGEBITS)\r
1723                                 purge = 'P';\r
1724                         else\r
1725                                 purge = '-';\r
1726                         if (best->attributes & LOCKBIT)\r
1727                                 lock = 'L';\r
1728                         else\r
1729                                 lock = '-';\r
1730                         fprintf (dumpfile,"0x%p (%c%c) = %u\n"\r
1731                         ,(unsigned)lowest,lock,purge,best->length);\r
1732                 }\r
1733 \r
1734         } while (lowest != 0xffff);\r
1735 \r
1736         fclose (dumpfile);\r
1737 //00    printf ("MMDUMP.16 created.\n");\r
1738 }\r
1739 \r
1740 //==========================================================================\r
1741 \r
1742 \r
1743 /*\r
1744 ======================\r
1745 =\r
1746 = MM_UnusedMemory\r
1747 =\r
1748 = Returns the total free space without purging\r
1749 =\r
1750 ======================\r
1751 */\r
1752 \r
1753 dword MM_UnusedMemory (global_game_variables_t *gvar)\r
1754 {\r
1755         unsigned free;\r
1756         mmblocktype far *scan;\r
1757 \r
1758         free = 0;\r
1759         scan = gvar->mm.mmhead;\r
1760 \r
1761         while(scan->next)\r
1762         {\r
1763                 free += scan->next->start - (scan->start + scan->length);\r
1764                 scan = scan->next;\r
1765         }\r
1766 \r
1767         return free*16lu;\r
1768 }\r
1769 \r
1770 //==========================================================================\r
1771 \r
1772 \r
1773 /*\r
1774 ======================\r
1775 =\r
1776 = MM_TotalFree\r
1777 =\r
1778 = Returns the total free space with purging\r
1779 =\r
1780 ======================\r
1781 */\r
1782 \r
1783 dword MM_TotalFree (global_game_variables_t *gvar)\r
1784 {\r
1785         unsigned free;\r
1786         mmblocktype far *scan;\r
1787 \r
1788         free = 0;\r
1789         scan = gvar->mm.mmhead;\r
1790 \r
1791         while(scan->next)\r
1792         {\r
1793                 if((scan->attributes&PURGEBITS) && !(scan->attributes&LOCKBIT))\r
1794                         free += scan->length;\r
1795                 free += scan->next->start - (scan->start + scan->length);\r
1796                 scan = scan->next;\r
1797         }\r
1798 \r
1799         return free*16lu;\r
1800 }\r
1801 \r
1802 //==========================================================================\r
1803 \r
1804 /*\r
1805 =====================\r
1806 =\r
1807 = MM_Report\r
1808 =\r
1809 =====================\r
1810 */\r
1811 \r
1812 void MM_Report_ (global_game_variables_t *gvar)\r
1813 {\r
1814         printf("========================================\n");\r
1815         printf("                MM_Report_\n");\r
1816         printf("========================================\n");\r
1817         if(MML_CheckForEMS())\r
1818         {\r
1819                 printf("        %cLIMEMS        %u\n", 0xC9, gvar->pm.emm.EMSPresent);\r
1820                 printf("        %c%cEMM v%x.%x available\n", 0xC7, 0xC4, gvar->pm.emm.EMSVer>>4,gvar->pm.emm.EMSVer&0x0F);\r
1821                 printf("        %c%ctotalEMSpages:      %u      ", 0xC7, 0xC4, gvar->pm.emm.totalEMSpages); printf("freeEMSpages:       %u\n", gvar->pm.emm.freeEMSpages);\r
1822                 printf("        %c%cEMSPageFrame:       %04x\n", 0xC7, 0xC4, gvar->pm.emm.EMSPageFrame);\r
1823                 printf("        %c%cEMSmem:     %lu\n", 0xD3, 0xC4, gvar->mmi.EMSmem);\r
1824         }\r
1825         if(MML_CheckForXMS())\r
1826         {\r
1827                 printf("        %cXMS   %u\n", 0xC9, gvar->pm.xmm.XMSPresent);\r
1828                 printf("        %c%cXMS v%x.%x available\n", 0xC7, 0xC4, XMSVer>>8,XMSVer&0x0F);\r
1829                 printf("        %c%cXMSDriver:  %Fp\n", 0xC7, 0xC4, XMSDriver);\r
1830                 printf("        %c%cXMSHandle:  %04x\n", 0xC7, 0xC4, gvar->pm.xmm.XMSHandle);\r
1831                 printf("        %c%cXMSmem:     %lu\n", 0xD3, 0xC4, gvar->mmi.XMSmem);\r
1832         }\r
1833         printf("        %cConv. %u\n", 0xC9, gvar->pm.mm.MainPresent); DebugMemory_(gvar, 0);\r
1834         //printf("mainmem:      %lu\n", gvar->mmi.mainmem);\r
1835         //printf("Total convmem:        %lu     ", gvar->mmi.mainmem); printf("TotalFree:       %lu     ", MM_TotalFree(gvar)+gvar->mmi.EMSmem+gvar->mmi.XMSmem+gvar->mmi.XMSmem); printf("TotalUsed:   %lu\n", gvar->mmi.mainmem);\r
1836         //printf("                      UnusedMemory:   %lu\n", MM_UnusedMemory(gvar));\r
1837         printf("nearheap:       %lu             ", gvar->mmi.nearheap); printf("farheap:        %lu\n", gvar->mmi.farheap);\r
1838 }\r
1839 \r
1840 //==========================================================================\r
1841 \r
1842 /*\r
1843 =====================\r
1844 =\r
1845 = MM_EMSerr\r
1846 =\r
1847 =====================\r
1848 */\r
1849 \r
1850 void MM_EMSerr(byte *stri, byte err)\r
1851 {\r
1852         //Returns a text string describing the error code in EMS.Error.\r
1853         switch(err)\r
1854         {\r
1855                 case 0x0:\r
1856                         strcat(stri, "successful");\r
1857                 break;\r
1858                 case 0x80:\r
1859                         strcat(stri, "internal error");\r
1860                 break;\r
1861                 case 0x81:\r
1862                         strcat(stri, "hardware malfunction");\r
1863                 break;\r
1864                 case 0x82:\r
1865                         strcat(stri, "busy .. retry later");\r
1866                 break;\r
1867                 case 0x83:\r
1868                         strcat(stri, "invalid handle");\r
1869                 break;\r
1870                 case 0x84:\r
1871                         strcat(stri, "undefined function requested by application");\r
1872                 break;\r
1873                 case 0x85:\r
1874                         strcat(stri, "no more handles available");\r
1875                 break;\r
1876                 case 0x86:\r
1877                         strcat(stri, "error in save or restore of mapping context");\r
1878                 break;\r
1879                 case 0x87:\r
1880                         strcat(stri, "insufficient memory pages in system");\r
1881                 break;\r
1882                 case 0x88:\r
1883                         strcat(stri, "insufficient memory pages available");\r
1884                 break;\r
1885                 case 0x89:\r
1886                         strcat(stri, "zero pages requested");\r
1887                 break;\r
1888                 case 0x8A:\r
1889                         strcat(stri, "invalid logical page number encountered");\r
1890                 break;\r
1891                 case 0x8B:\r
1892                         strcat(stri, "invalid physical page number encountered");\r
1893                 break;\r
1894                 case 0x8C:\r
1895                         strcat(stri, "page-mapping hardware state save area is full");\r
1896                 break;\r
1897                 case 0x8D:\r
1898                         strcat(stri, "save of mapping context failed");\r
1899                 break;\r
1900                 case 0x8E:\r
1901                         strcat(stri, "restore of mapping context failed");\r
1902                 break;\r
1903                 case 0x8F:\r
1904                         strcat(stri, "undefined subfunction");\r
1905                 break;\r
1906                 case 0x90:\r
1907                         strcat(stri, "undefined attribute type");\r
1908                 break;\r
1909                 case 0x91:\r
1910                         strcat(stri, "feature not supported");\r
1911                 break;\r
1912                 case 0x92:\r
1913                         strcat(stri, "successful, but a portion of the source region has been overwritten");\r
1914                 break;\r
1915                 case 0x93:\r
1916                         strcat(stri, "length of source or destination region exceeds length of region allocated to either source or destination handle");\r
1917                 break;\r
1918                 case 0x94:\r
1919                         strcat(stri, "conventional and expanded memory regions overlap");\r
1920                 break;\r
1921                 case 0x95:\r
1922                         strcat(stri, "offset within logical page exceeds size of logical page");\r
1923                 break;\r
1924                 case 0x96:\r
1925                         strcat(stri, "region length exceeds 1 MB");\r
1926                 break;\r
1927                 case 0x97:\r
1928                         strcat(stri, "source and destination EMS regions have same handle and overlap");\r
1929                 break;\r
1930                 case 0x98:\r
1931                         strcat(stri, "memory source or destination type undefined");\r
1932                 break;\r
1933                 case 0x9A:\r
1934                         strcat(stri, "specified alternate map register or DMA register set not supported");\r
1935                 break;\r
1936                 case 0x9B:\r
1937                         strcat(stri, "all alternate map register or DMA register sets currently allocated");\r
1938                 break;\r
1939                 case 0x9C:\r
1940                         strcat(stri, "alternate map register or DMA register sets not supported");\r
1941                 break;\r
1942                 case 0x9D:\r
1943                         strcat(stri, "undefined or unallocated alternate map register or DMA register set");\r
1944                 break;\r
1945                 case 0x9E:\r
1946                         strcat(stri, "dedicated DMA channels not supported");\r
1947                 break;\r
1948                 case 0x9F:\r
1949                         strcat(stri, "specified dedicated DMA channel not supported");\r
1950                 break;\r
1951                 case 0xA0:\r
1952                         strcat(stri, "no such handle name");\r
1953                 break;\r
1954                 case 0xA1:\r
1955                         strcat(stri, "a handle found had no name, or duplicate handle name");\r
1956                 break;\r
1957                 case 0xA2:\r
1958                         strcat(stri, "attempted to wrap around 1M conventional address space");\r
1959                 break;\r
1960                 case 0xA3:\r
1961                         strcat(stri, "source array corrupted");\r
1962                 break;\r
1963                 case 0xA4:\r
1964                         strcat(stri, "operating system denied access");\r
1965                 break;\r
1966                 default:\r
1967                         strcat(stri, "undefined error");\r
1968         }\r
1969 }\r
1970 \r
1971 //==========================================================================\r
1972 \r
1973 /*\r
1974 =====================\r
1975 =\r
1976 = MM_BombOnError\r
1977 =\r
1978 =====================\r
1979 */\r
1980 \r
1981 void MM_BombOnError (boolean bomb, global_game_variables_t *gvar)\r
1982 {\r
1983         gvar->mm.bombonerror = bomb;\r
1984 }\r
1985 \r
1986 #if 0\r
1987 void MM_GetNewBlock(global_game_variables_t *gvar)\r
1988 {\r
1989         if(!gvar->mm.mmfree)\r
1990                 MML_ClearBlock(gvar);\r
1991         gvar->mm.mmnew=gvar->mm.mmfree;\r
1992         gvar->mm.mmfree=gvar->mm.mmfree->next;\r
1993         if(!(gvar->mm.mmnew=gvar->mm.mmfree))\r
1994         {\r
1995                 printf("MM_GETNEWBLOCK: No free blocks!\n");\r
1996                 return;\r
1997         }\r
1998         gvar->mm.mmfree=gvar->mm.mmfree->next;\r
1999 }\r
2000 \r
2001 void MM_FreeBlock(mmblocktype *x, global_game_variables_t *gvar)\r
2002 {\r
2003         x->useptr=NULL;\r
2004         x->next=gvar->mm.mmfree;\r
2005         gvar->mm.mmfree=x;\r
2006 }\r
2007 #endif\r
2008 \r
2009 void xms_call(byte v, global_game_variables_t *gvar)\r
2010 {\r
2011         dword XMSDriver = gvar->pm.xmm.XMSDriver;\r
2012         __asm {\r
2013                 mov     ah,[v]\r
2014                 call [DWORD PTR XMSDriver]\r
2015         }\r
2016 }\r
2017 \r
2018 /*void MM_seguin(void)\r
2019 {\r
2020         __asm {\r
2021                 push    ds\r
2022                 mov     ax,ds\r
2023                 inc             ax\r
2024                 mov     ds,ax\r
2025         }\r
2026 }\r
2027 \r
2028 void MM_segude(void)\r
2029 {\r
2030         __asm {\r
2031                 pop ds\r
2032         }\r
2033 }*/\r
2034 \r
2035 /*\r
2036 pull data from far and put it into ds var\r
2037 mov ax,es:si\r
2038 mov x,ax\r
2039 */\r
2040 /*\r
2041 ss stack segment\r
2042 sp top of stack\r
2043 bp bottem of stack\r
2044 */\r