]> 4ch.mooo.com Git - 16.git/blob - src/exmmtest.c
i feel horrendous! i should stop! i fixed up showmemorydetail function ^^. and initia...
[16.git] / src / exmmtest.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         exmm test\r
24 */\r
25 #include "src/lib/16_head.h"\r
26 #include "src/lib/16_tail.h"\r
27 #include "src/lib/16_pm.h"\r
28 #include "src/lib/16_ca.h"\r
29 #include "src/lib/16_mm.h"\r
30 #include "src/lib/16_hc.h"\r
31 #include "src/lib/16_dbg.h"\r
32 \r
33 #pragma hdrstop\r
34 \r
35 #pragma warn -pro\r
36 #pragma warn -use\r
37 \r
38 //file load or read definition\r
39 #define FILEREADLOAD\r
40 #define FILEREAD\r
41 //#define EXMMVERBOSE\r
42 //#define BUFFDUMPPAUSE\r
43 #define EXMMVERBOSE__\r
44 //#define EXMMHEAPPTR\r
45 //      #define PRINTBBDUMP\r
46 #define BUFFDUMP\r
47 \r
48 #ifdef __BORLANDC__\r
49 #define NOVID\r
50 #endif\r
51 #ifdef __WATCOMC__\r
52 #define NOVID\r
53 //#define                       SCROLLLOAD\r
54 #endif\r
55 \r
56 \r
57 #define KEYP IN_Shutdown(&gvar); printf("\n\npress any key to continue!\n"); getch(); IN_Startup(&gvar);\r
58 \r
59 #define BBUFNAME gvar.mm.bufferseg//bigbuffer\r
60 //#define INITBBUF static memptr BBUFNAME;\r
61 #define BBUFPTR MEMPTRCONV BBUFNAME\r
62 \r
63 #ifdef __BORLANDC__\r
64 #define BBUF            (memptr *)BBUFPTR\r
65 #define BBUFSTRING      (memptr *)BBUFNAME\r
66 #endif\r
67 #ifdef __WATCOMC__\r
68 #define BBUF            BBUFNAME\r
69 #define BBUFSTRING      BBUF\r
70 #endif\r
71 \r
72 ////////////////////////////////////////////////////////////////////////////\r
73 #ifdef __BORLANDC__\r
74 void VL_Startup (global_game_variables_t *gvar){ gvar=gvar; }\r
75 void VL_Shutdown (global_game_variables_t *gvar){ gvar=gvar; }\r
76 void VGAmodeX(sword vq, boolean cmem, global_game_variables_t *gv)\r
77 {\r
78         printf("VGAmodeX dummy:\n       %Fp     %Fp     %Fp\n", &vq, &cmem, gv);\r
79 }\r
80 \r
81 word modexPalOverscan(word col)\r
82 {\r
83         //modexWaitBorder();\r
84         outp(PAL_WRITE_REG, 0);  /* start at the beginning of palette */\r
85         outp(PAL_DATA_REG, col);\r
86         return col;\r
87 }\r
88 void    TL_VidInit(global_game_variables_t *gvar)\r
89 {\r
90         gvar->video.old_mode = 3;\r
91 }\r
92 #endif\r
93 \r
94 //printf("*     %Fp\t", *BBUF);\r
95 //printf("*          %04x\t", *BBUF);\r
96 #define PRINTBB {\\r
97         printf("-------------------------------------------------------------------------------\n");\\r
98         printf("&main()=        %Fp\n", argv[0]);\\r
99         printf("buffer:\n");\\r
100         printf("        %Fp\t", BBUF);\\r
101         printf("&%Fp\n", BBUFPTR);\\r
102         printf("             %04x\t", BBUF);\\r
103         printf("&     %04x\n", BBUFPTR);\\r
104         printf("-------------------------------------------------------------------------------\n");\\r
105 }\r
106         //printf("&main()=      %Fp\n", *argv[0]);\r
107         //printf("bigbuffer=    %Fp\n", bigbuffer);\r
108         //printf("&bigbuffer=   %Fp\n", &bigbuffer);\r
109         //printf("bigbuffer=    %04x\n", bigbuffer);\r
110         //printf("&bigbuffer=   %04x\n", &bigbuffer);\r
111 #ifdef __WATCOMC__\r
112 void segatesuto()\r
113 {\r
114         __segment screen;\r
115         char __based( void ) * scrptr;\r
116 \r
117         screen = 0xB800;\r
118         scrptr = 0;\r
119         printf( "Top left character is '%c'.\n", *(screen:>scrptr) );\r
120 //      printf("Next string is: [");\r
121 //      while(*scrptr<16)\r
122 //      {\r
123 //              printf("%c", *(screen:>scrptr));\r
124 //              //printf("\b");\r
125 //              scrptr++;\r
126 //\r
127 //      }\r
128 //      printf("]\n");\r
129 //      KEYP\r
130 }\r
131 #endif\r
132 \r
133 #ifdef SCROLLLOAD\r
134 #define FILENAME_1      "data/spri/chikyuu.vrs"\r
135 #define FILENAME_2      "data/test.map"\r
136 #else\r
137 #define FILENAME_1      "data/koishi~.pcx"\r
138 #define FILENAME_2      "data/test.map"\r
139 #endif\r
140 \r
141 //===========================================================================//\r
142 \r
143 //=======================================//\r
144 \r
145 //      main\r
146 \r
147 //=======================================//\r
148 void\r
149 main(int argc, char *argv[])\r
150 {\r
151         static global_game_variables_t gvar;\r
152                                                                 #ifdef INITBBUF\r
153         INITBBUF\r
154                                                                 #endif\r
155 \r
156         char bakapee1[64] = FILENAME_1;\r
157         char bakapee2[64] = FILENAME_2;\r
158 \r
159                 #ifdef __BORLANDC__\r
160                         argc=argc;\r
161                 #endif\r
162 \r
163                                                                 #ifdef PRINTBBDUMP\r
164                                                                 //0000PRINTBB; KEYP\r
165                                                                 #endif\r
166 #ifdef __16_PM__\r
167 #ifdef __DEBUG_PM__\r
168         dbg_debugpm=1;  //debug pm\r
169 #endif\r
170 #endif\r
171 #ifdef __DEBUG_CA__\r
172         dbg_debugca=1;\r
173 #endif\r
174 #ifdef __DEBUG_MM__\r
175         dbg_debugmm=1;\r
176 #endif\r
177 \r
178         if(argv[1]){ strcpy(bakapee1, argv[1]);//bakapee1[] = *argv[1];\r
179         if(argv[2]) strcpy(bakapee2, argv[2]); }//bakapee2[] = argv[2]; }\r
180 \r
181         printf("bakapee1[%s]\n", bakapee1);\r
182         printf("bakapee2[%s]\n", bakapee2);\r
183 \r
184                                                                 #ifdef EXMMVERBOSE__\r
185         printf("coreleft():             %u\n", coreleft());\r
186         printf("farcoreleft():          %ld\n", farcoreleft());\r
187                                                                 #endif\r
188         KEYP\r
189 \r
190                                                                 #ifndef NOVID\r
191         Startup16(&gvar);\r
192         // save the palette\r
193         modexPalSave(&gvar.video.dpal); //modexFadeOff(4, &gvar.video.dpal); //modexPalBlack();\r
194                                                                 #else //NOVID\r
195         StartupCAMMPM(&gvar);\r
196                                                                 #endif //elsed NOVID\r
197                                                                 #ifdef PRINTBBDUMP\r
198                                                                 //0000\r
199 PRINTBB; KEYP\r
200                                                                 #endif\r
201 \r
202         IN_Default(0,&gvar.player[0],ctrl_Keyboard1, &gvar);\r
203         IN_SetControlType(&gvar.player[0],ctrl_Keyboard1);\r
204 \r
205         {\r
206         byte w; word baka;\r
207         w=0;\r
208                                                                 #ifdef FILEREADLOAD\r
209                                                                 #ifdef FILEREAD\r
210         for(;w<2;w++)\r
211         {\r
212         //      printf("size of big buffer~=%u\n", _bmsize(segu, BBUF));\r
213                 if(w>0)\r
214                 {\r
215                         printf("======================================read=====================================\n");\r
216                         if(CA_ReadFile(bakapee2, BBUFPTR, &gvar)) baka=1; else baka=0;\r
217                         printf("====================================read end===================================\n");\r
218                 }\r
219                                                                 #endif //FILEREAD\r
220                 if(w==0)\r
221                 {\r
222                         printf("======================================load=====================================\n");\r
223                         if(CA_LoadFile(bakapee1, BBUFPTR, &gvar)) baka=1; else baka=0;\r
224                         printf("====================================load end===================================\n");\r
225                 }\r
226                                                                 #ifdef BUFFDUMP\r
227                 printf("contents of the buffer\n[\n%s\n]\n", BBUFSTRING);\r
228                                                                 #endif\r
229                                                                 #ifdef PRINTBBDUMP\r
230                 PRINTBB;\r
231                                                                 #endif\r
232 \r
233                 //printf("dark purple = purgable\n");\r
234                 //printf("medium blue = non purgable\n");\r
235                 //printf("red = locked\n");\r
236         //      KEYP\r
237         //      DebugMemory_(&gvar, 1);\r
238                 if(baka) printf("\nyay!\n");\r
239                 else printf("\npoo!\n");\r
240                                                                 #ifdef BUFFDUMPPAUSE\r
241                 KEYP\r
242                                                                 #endif\r
243                                                                 #ifdef FILEREAD\r
244         }\r
245                                                                 #endif\r
246                                                                 #endif  //filereadload\r
247         }\r
248 \r
249                                                         #ifdef SCROLLLOAD\r
250 //                                                      #else           //scrollload\r
251 //      CA_loadmap(bakapee2, &gvar.map, &gvar); //BREAKS!\r
252 //      newloadmap(bakapee2, &gvar.map);\r
253         VRS_LoadVRS(bakapee1, &gvar.player[0].enti, &gvar);\r
254 //      HC_heapdump(&gvar);\r
255         KEYP\r
256                                                         #endif  //scrollload\r
257 \r
258 #ifndef NOVID\r
259         VL_Startup(&gvar);//    VGAmodeX(8, 0, &gvar);\r
260         modexHiganbanaPageSetup(&gvar);\r
261 //      VL_modexPalScramble(&gvar.video.palette);\r
262         VL_LoadPalFileCore(&gvar.video.palette, &gvar);\r
263 //      ShapeTest_(&gvar);\r
264 #endif\r
265         MM_ShowMemory(&gvar);\r
266 #if 0\r
267         {\r
268         boolean                 done;\r
269         ScanCode                scan;\r
270         for (done = false;!done;)\r
271         {\r
272                 while (!(scan = gvar.in.inst->LastScan))\r
273                 {}\r
274         //                      SD_Poll();\r
275 \r
276                 IN_ClearKey(scan);\r
277                 switch (scan)\r
278                 {\r
279 //                      case sc_Space:\r
280 //                              MM_ShowMemory(&gvar);\r
281 //                      break;\r
282 //#ifdef __WATCOMC__\r
283                         case sc_O:\r
284                                 VL_modexPalScramble(&gvar.video.palette); modexpdump(&gvar.video.page);\r
285                         break;\r
286                         case sc_P:\r
287                                 modexpdump(&gvar.video.page[0]);\r
288                         break;\r
289                         case sc_V:\r
290                                 VL_PatternDraw(&gvar.video, 0, 1, 1);\r
291                         break;\r
292 //#endif\r
293                         default:\r
294                         case sc_Escape:\r
295                                 done = true;\r
296                         break;\r
297                 }\r
298         }\r
299 }\r
300 #endif\r
301 #ifndef NOVID\r
302         if(gvar.video.VL_Started)\r
303                 VL_Shutdown (&gvar);//VGAmodeX(0, 0, gvar);\r
304         modexFadeOn(4, gvar.video.dpal);\r
305 #endif\r
306         DebugMemory_(&gvar, 1);\r
307         MM_DumpData(&gvar);\r
308         MM_Report_(&gvar);\r
309         HC_heapdump(&gvar);\r
310         //printf("bakapee1=%s\n", bakapee1);\r
311         //printf("bakapee2=%s\n", bakapee2);\r
312 \r
313         printf("========================================\n");\r
314                                                                 #ifdef EXMMHEAPPTR\r
315         printf("near=   %Fp ",  gvar.mm.nearheap);\r
316         printf("far=    %Fp",                   gvar.mm.farheap);\r
317         printf("\n");\r
318         printf("&near=  %Fp ",  &(gvar.mm.nearheap));\r
319         printf("&far=   %Fp",           &(gvar.mm.farheap));\r
320         printf("\n");\r
321                                                                 #endif\r
322                                                                 #ifdef EXMMVERBOSE\r
323         printf("bigb=   %Fp ",  BBUF);\r
324         //printf("bigbr=        %04x",  BBUF);\r
325         //printf("\n");\r
326         printf("&bigb=%Fp ",            BBUFPTR);\r
327         //printf("&bigb=%04x",          BBUFPTR);\r
328         printf("\n");\r
329                                                                 #endif\r
330                                                                 #ifdef EXMMVERBOSE__\r
331         printf("coreleft():             %u\n", coreleft());\r
332         printf("farcoreleft():          %ld\n", farcoreleft());\r
333                                                                 #endif\r
334         printf("========================================\n");\r
335 \r
336         MM_FreePtr(BBUFPTR, &gvar);\r
337                                                                 #ifndef NOVID\r
338         Shutdown16(&gvar);\r
339                                                                 #else //novid\r
340         ShutdownCAMMPM(&gvar);\r
341                                                                 #endif //NOVID\r
342         IN_Shutdown(&gvar);\r
343 \r
344 #ifdef __WATCOMC__\r
345 //this is far   printf("Total free:                     %lu\n", (dword)(HC_GetFreeSize()));\r
346 //super buggy   printf("HC_coreleft():                  %u\n", HC_coreleft());\r
347 //      printf("HC_farcoreleft():                       %lu\n", (dword)HC_farcoreleft());\r
348         //printf("HC_GetNearFreeSize():         %u\n", HC_GetNearFreeSize());\r
349         //printf("HC_GetFarFreeSize():                  %lu\n", (dword)HC_GetFarFreeSize());\r
350 //      segatesuto();\r
351 #endif\r
352 #ifdef __BORLANDC__\r
353 //      printf("HC_coreleft:                    %lu\n", (dword)HC_coreleft());\r
354 //      printf("HC_farcoreleft:                 %lu\n", (dword)HC_farcoreleft());\r
355 //      printf("HC_Newfarcoreleft():            %lu\n", (dword)HC_Newfarcoreleft());\r
356 #endif\r
357         printf("Project 16 ");\r
358 #ifdef __WATCOMC__\r
359         printf("exmmtest");\r
360 #endif\r
361 #ifdef __BORLANDC__\r
362         printf("bcexmm");\r
363 #endif\r
364         printf(".exe. This is just a test file!\n");\r
365         printf("version %s\n", VERSION);\r
366 \r
367 //end of program\r
368 \r
369 \r
370 #if defined(__DEBUG__) && ( defined(__DEBUG_PM__) || defined(__DEBUG_MM__) )\r
371 #ifdef __DEBUG_MM__\r
372         printf("debugmm: %u\t", dbg_debugmm);\r
373 #endif\r
374 #ifdef __DEBUG_PM__\r
375         printf("debugpm: %u", dbg_debugpm);\r
376 #endif\r
377         printf("\n");\r
378 #endif\r
379 //      printf("curr_mode=%u\n", gvar.video.curr_mode);\r
380 //      VL_PrintmodexmemInfo(&gvar.video);\r
381         //printf("old_mode=%u   VL_Started=%u", gvar.video.old_mode, gvar.video.VL_Started);\r
382         //printf("based core left:                      %lu\n", (dword)_basedcoreleft());\r
383         //printf("huge core left:                       %lu\n", (dword)_hugecoreleft());\r
384 }\r