p16 is being worked on a bunch by me wwww [16_ca needs huge amounts of work and I...

diff --git a/src/lib/16_mm.c b/src/lib/16_mm.c
index 36b976a01ed5a9427c4fd46b749ebbb3fd38c39d..75fc0d9a9e5ce1f9c82e9132e98383fb39c26f69 100755 (executable)
--- a/src/lib/16_mm.c
+++ b/src/lib/16_mm.c
@@ -1454,12 +1454,23 @@ void MM_ShowMemory (global_game_variables_t *gvar)
                        //modexprint(page, x, y, t, tlsw, color, bgcolor, vidsw, const byte *str);\r
 #define MMSMPRINTMEMINFO modexprint(&(gvar->video.page[0]), xpos, ypos, 1, 0, ccolor, 8, gvar->video.VL_Started, global_temp_status_text); ypos+=8;\r
                        VL_ShowPage(&gvar->video.page[0], 1, 0);\r
-                       if(!gvar->video.VL_Started) clrscr();\r
+                       if(!gvar->video.VL_Started) clrscr(); else\r
+                       {\r
+                               modexClearRegion(&gvar->video.page[0], 0, 0, gvar->video.page[0].width, gvar->video.page[0].height, 8);\r
+                       }\r
                        sprintf(global_temp_status_text, "block #%04u", qq); MMSMPRINTMEMINFO\r
 //                     sprintf(global_temp_status_text, "%Fp", scaninfo[qq].scan->useptr); MMSMPRINTMEMINFO\r
                        sprintf(global_temp_status_text, "%04x", (unsigned)scaninfo[qq].scan->useptr); MMSMPRINTMEMINFO\r
                        sprintf(global_temp_status_text, "size: %05u", (unsigned)scan->length); MMSMPRINTMEMINFO\r
                        sprintf(global_temp_status_text, "free: %05u", (unsigned)(scaninfo[qq].scan->next->start-scaninfo[qq].scan->start)); MMSMPRINTMEMINFO\r
+                       end = scaninfo[qq].scan->length-1;\r
+                       y = ypos;//scaninfo[qq].scan->start/width;\r
+                       x = xpos;//scaninfo[qq].scan->start%width;\r
+                       VW_Hlin(x,x+end,y,ccolor,gvar);\r
+                       VL_Plot(x,y,5,gvar);\r
+                       if (scaninfo[qq].scan->next && scaninfo[qq].scan->next->start > end+1)\r
+                               VW_Hlin(x+end+1,x+(scaninfo[qq].scan->next->start-scan->start),y,3,gvar);       // black = free//now green\r
+\r
                        //if (scan->next && scan->next->start > end+1) free\r
                        xpos = 16;\r
                        ypos = 16;//(gvar->video.page[0].sh-(32));//8*4\r