+ printf("bakapee1[%s]\n", bakapee1);\r
+ printf("bakapee2[%s]\n", bakapee2);\r
+ #ifdef EXMMVERBOSE__\r
+ printf("coreleft(): %u\n", coreleft());\r
+ printf("farcoreleft(): %ld\n", farcoreleft());\r
+ #endif\r
+ printf("stackavail()=%u\n", stackavail());\r
+ KEYP\r
+\r
+ #ifndef NOVID\r
+ Startup16(&gvar);\r
+ // save the palette\r
+ modexPalSave(&gvar.video.dpal); //modexFadeOff(4, &gvar.video.dpal); //modexPalBlack();\r
+ #else //NOVID\r
+ StartupCAMMPM(&gvar);\r
+ #endif //elsed NOVID\r
+ #ifdef PRINTBBDUMP\r
+ //0000\r
+PRINTBB; KEYP\r
+ #endif\r
+\r
+ IN_Default(0,&gvar.player[0],ctrl_Keyboard1, &gvar);\r
+ IN_SetControlType(&gvar.player[0],ctrl_Keyboard1);\r
+\r
+ {\r
+ byte w; word baka;\r
+ w=0;\r
+ #ifdef FILEREADLOAD\r
+ #ifdef FILEREAD\r
+ for(;w<2;w++)\r
+ {\r
+ // printf("size of big buffer~=%u\n", _bmsize(segu, BBUF));\r
+ if(w>0)\r
+ {\r
+ printf("======================================read=====================================\n");\r
+ if(CA_ReadFile(bakapee2, BBUFPTR, &gvar)) baka=1; else baka=0;\r
+ printf("====================================read end===================================\n");\r
+ }\r
+ #endif //FILEREAD\r
+ if(w==0)\r
+ {\r
+ printf("======================================load=====================================\n");\r
+ if(CA_LoadFile(bakapee1, BBUFPTR, &gvar)) baka=1; else baka=0;\r
+ printf("====================================load end===================================\n");\r
+ }\r
+ #ifdef BUFFDUMP\r
+ {\r
+ size_t file_s;\r
+ FILE *fh;\r
+\r
+ if(!w) fh = fopen(bakapee1, "r");\r
+ else fh = fopen(bakapee2, "r");\r
+ file_s = filesize(fh);\r
+ fclose(fh);\r
+ printf("contents of the buffer\n[\n%.*s\n]\n", file_s, BBUFSTRING);\r
+#if 0\r
+//0000\r
+// mmblocktype far *scan;\r
+// scan = gvar.mm.mmhead;\r
+// while (scan->useptr != &BBUFNAME && scan)\r
+// {\r
+// scan = scan->next;\r
+// }\r
+// printf("\n %Fp %Fp\n", scan->useptr, &BBUFNAME);\r
+ printf("\nstrlen of buffer = %zu\n", strlen(BBUFSTRING));\r
+ printf("length of buffer = %zu\n", file_s);\r
+// printf("length of buffer = %lu\n", scan->length);\r