+ color = 1; // red = locked\r
+ strcpy(scratch1, AARED); // red = locked\r
+ //printf("%s", AARED);\r
+ }\r
+ end = scaninfo[q].scan->length-1;\r
+\r
+ gvar->video.print.t=1;\r
+ gvar->video.print.tlsw=1;\r
+ gvar->video.print.color=color;\r
+ gvar->video.print.bgcolor=8;\r
+#define MMSMPRINTMEMINFO VL_print(global_temp_status_text, 0, gvar); gvar->video.print.y+=8;\r
+//modexprint(&(gvar->video.page[0]), xpos, ypos, 1, 1, color, 8, gvar->video.VL_Started, global_temp_status_text);\r
+#ifdef __WATCOMC__\r
+ if(gvar->video.VL_Started)\r
+ {\r
+ VL_ShowPage(&gvar->video.page[0], 1, 0);\r
+ modexClearRegion(&gvar->video.page[0], gvar->video.page[0].dx, gvar->video.page[0].dy, gvar->video.page[0].sw, gvar->video.page[0].sh, 8);\r
+ }else\r
+#endif\r
+ {\r
+ clrscr();\r
+ }\r
+ sprintf(global_temp_status_text, "block #%04u", q); MMSMPRINTMEMINFO\r
+// sprintf(global_temp_status_text, "%Fp", scaninfo[q].scan->useptr); MMSMPRINTMEMINFO\r
+ sprintf(global_temp_status_text, "start: %04x", (unsigned)scaninfo[q].scan->start); MMSMPRINTMEMINFO\r
+ sprintf(global_temp_status_text, "useptr: %04x", (unsigned)scaninfo[q].scan->useptr); MMSMPRINTMEMINFO\r
+ sprintf(global_temp_status_text, "size: %05u", (unsigned)scaninfo[q].scan->length); MMSMPRINTMEMINFO\r
+ if (scaninfo[q].scan->next && scaninfo[q].scan->next->start > end+1)\r
+ {\r
+ sprintf(global_temp_status_text, "free: %05u", (unsigned)(scaninfo[q].scan->next->start-scaninfo[q].scan->start)); MMSMPRINTMEMINFO\r
+ }else /*ypos*/gvar->video.print.y+=8;\r
+ if(gvar->video.VL_Started)\r
+ {\r
+ y = scaninfo[q].scan->start/sw;\r
+ x = scaninfo[q].scan->start%sw;\r
+ if(!mmsmscaninfoxyposinew)\r