Changeset 501

Timestamp:

09/08/08 07:21:06 (5 years ago)

Author:

cail

Message:

*HV30*

• Improvements in dump-xrefs,
• scan-func_tables improvements,

+ search-language-resources.idc - searches and builds OSD Language Resources and references
+ scan-unicode-pascal.idc - euristic search for Unicode strings and renaming

Location:

branches/cail-digicdv/hv30_analysis/scripts

Files:

• _init_sections.idc (modified) (3 diffs)
• _todo.idc (modified) (1 diff)
• dump-xrefs.idc (modified) (15 diffs)
• scan-fuctions.idc (modified) (3 diffs)
• scan-func_tables.idc (modified) (2 diffs)
• scan-lib.idc (modified) (2 diffs)
• scan-unicode-pascal.idc (added)
• search-language-resources.idc (added)
• search-range.idc (added)

branches/cail-digicdv/hv30_analysis/scripts/_init_sections.idc

@@ -8 +8 @@
 static main()
 {
+    memcpy(0x40294, 0x4073FB8, 0x1248);
+/*
     createSegments();
 
@@ -15 +17 @@
 
     makeNames1();
+//*/
 }
 
@@ -59 +62 @@
 // small RAM segment
     memcpy(0x419C8, 0x002DB0E4, 0xE4);
+
+// init_copy_4073FB8_40294_size1248
+    memcpy(0x40294, 0x4073FB8, 0x1248);
+
 }
 

branches/cail-digicdv/hv30_analysis/scripts/_todo.idc

@@ -2 +2 @@
 
 taskCreate_sys xrefs ?
+
+search copy loops ???
+
+
+init_main_data_copy_ntsc refs??
+
+
+17
+81
+
+
+
+Order:
+
+
+_init_sections.idc
+_initial_names.idc
+
+shell_register.idc
+
+scan-func_tables.idc
+// scan-refs.idc
+// scan-strings.idc
+search-language-resources.idc
+
+// call it multiple times
+scan-fuctions.idc

branches/cail-digicdv/hv30_analysis/scripts/dump-xrefs.idc

@@ -3 +3 @@
 
 #define TRACE 0
+
+// directory prefix
 #define FPREFIX "graphs/"
 
-#define SHOW_UNK_DATA 0
+// enable unk_ references
+#define SHOW_UNK_DATA 1
+
+// enable showing disassembly line
+#define SHOW_DATA_DISASM 0
+
+// Number of nodes limitation
+#define NODES_LIMIT 0
+
+static is_direction_down()
+{
+   auto dir;
+
+   if (GetArrayId("downIdArray") == -1) return 0;
+   else return 1;
+}
+
+#define ZERO_DEPTH 1000
+
 
 // Touchgraph todo:
@@ -17 +37 @@
  */
 
-static searchTask(start, arr, calleeHash, edgeHash, depth)
+static searchTask(start, arr, calleeHash, edgeHash, depth, recurse)
 {
   auto x,y, fname, fend;
@@ -23 +43 @@
   auto type;
   auto name;
-  
+
   x = GetFunctionAttr(start, FUNCATTR_START);
   if (x == -1) x = start;
 
   fend = GetFunctionAttr(start, FUNCATTR_END);
+  if (fend == -1) fend = start+4;
 
   fname = Name(x); //TODO - no-function code refs will be ignored!
@@ -39 +60 @@
   }
 
-  if (TRACE) Message("*** " + atoa(start) + "  " + atoa(fend) + " - "+ fname + "\n");
+  if (TRACE) Message(atoa(start) + "  " + atoa(fend) + " - "+ fname + "\n");
   
   SetHashLong(arr, fname, x);
-  if (depth == 1000) SetHashLong(calleeHash, fname, depth);
+  if (depth == ZERO_DEPTH) SetHashLong(calleeHash, fname, depth);
+
+  if (recurse == 0) return;
 
   refCount = 1;
-
-  if (depth >= 1000) {
-      for(; x < fend; x = x+2)
+  
+  for(; x < fend; x = x+2)
+  {
+
+      if (is_direction_down() == 1)
       {
-
           for( y=Rfirst0(x); y != BADADDR; y=Rnext0(x,y) )
           {
@@ -69 +93 @@
               SetHashLong(edgeHash, fname+"---"+name, 1);
 
-              searchTask(y, arr, calleeHash, edgeHash, depth+1);
+              searchTask(y, arr, calleeHash, edgeHash, depth+1, TRUE);
               refCount = refCount + 1;
           }
+      }
+
+//      if (is_direction_down() == 1)
+      {
           for(y = Dfirst(x); y != BADADDR; y=Dnext(x,y) )
           {
@@ -87 +115 @@
               SetHashLong(edgeHash, fname+"---"+name, 1);
 
-              searchTask(y, arr, calleeHash, edgeHash, depth+1);
+              searchTask(y, arr, calleeHash, edgeHash, depth+1, (is_direction_down() == 1) );
+
               refCount = refCount + 1;
           }
       }
   }
-/*
-  if (depth <= 1000)
+
+  if (is_direction_down() == 0)
   {
       x = GetFunctionAttr(start, FUNCATTR_START);
+      if (x == -1) x = start;
 
       if (TRACE) Message("* UP " + atoa(start) + "  " + atoa(fend) + " - "+ fname + "\n");
@@ -114 +144 @@
           SetHashLong(calleeHash, name, depth-1);
           SetHashLong(edgeHash, name+"---"+fname, 1);
-          searchTask(y, arr, calleeHash, edgeHash, depth-1);
+          searchTask(y, arr, calleeHash, edgeHash, depth-1, TRUE);
           refCount = refCount + 1;
       }
@@ -121 +151 @@
           type = XrefType();
           name = GetFunctionName(y);
-          name = Name(y);
-          if (name == 0){
+          if (name == 0) name = Name(y);
+          if (name == 0) {
             continue;
             name = atoa(y) + " " + GetDisasm(y);
@@ -128 +158 @@
           SetHashLong(calleeHash, name, depth-1);
           SetHashLong(edgeHash, name+"---"+fname, 1);
-          searchTask(y, arr, calleeHash, edgeHash, depth-1);
+          searchTask(y, arr, calleeHash, edgeHash, depth-1, TRUE);
           refCount = refCount + 1;
       }
   }
-*/
+
 }
 
@@ -142 +172 @@
   auto length, color, fsize, shape, x, y, label, hint, visible;
   auto flags, type, depth;
-
-  fname = GetFunctionName(a);
-
-  ea = GetFunctionAttr(a, FUNCATTR_START);
-  
-  DeleteArray( GetArrayId("visitedHash") );
-  DeleteArray( GetArrayId("calleeHash") );
-  DeleteArray( GetArrayId("edgeHash") );
-
-  visitedHash = CreateArray("visitedHash");
-  calleeHash = CreateArray("calleeHash");
-  edgeHash = CreateArray("edgeHash");
-  
-  searchTask(ea, visitedHash, calleeHash, edgeHash, 1000);
-
-    f = fopen(FPREFIX + "xrefs-"+fname+".vna", "w");
+  auto node_addr;
+  auto nodes_num;
+
+    ea = GetFunctionAttr(a, FUNCATTR_START);
+    if (ea == -1) ea = a;
+
+    if (is_direction_down() == 1)
+      fname = "xrefs-" + Name(ea);
+    else
+      fname = "uprefs-" + Name(ea);
+    
+    DeleteArray( GetArrayId("visitedHash") );
+    DeleteArray( GetArrayId("calleeHash") );
+    DeleteArray( GetArrayId("edgeHash") );
+
+    visitedHash = CreateArray("visitedHash");
+    calleeHash = CreateArray("calleeHash");
+    edgeHash = CreateArray("edgeHash");
+    
+    searchTask(ea, visitedHash, calleeHash, edgeHash, ZERO_DEPTH, TRUE);
+
+
+    f = fopen(FPREFIX + fname+".vna", "w");
     
     fprintf(f, "*Node data\n");
@@ -223 +260 @@
 
 
-    f = fopen(FPREFIX + "xrefs-"+fname+".xml", "w");
+    f = fopen(FPREFIX + fname+".xml", "w");
     
     fprintf(f, "<?xml version=\"1.0\" encoding=\"ISO-8859-1\"?>");
     fprintf(f, "<TOUCHGRAPH_LB version='1.20'><NODESET>\n");
   
+    nodes_num = 0;
     for (t = GetFirstHashKey(calleeHash); t != 0; t = GetNextHashKey(calleeHash, t))
     {
@@ -233 +271 @@
         shape = 2;
         label = t;
-        hint = form("0x%x %s", GetHashLong(visitedHash, t), "");
+        node_addr = GetHashLong(visitedHash, t);
+        hint = form("<b>0x%x</b> %s", node_addr, "");
         visible = "true";
-        depth = GetHashLong(calleeHash, t)-1000;
-
-        //if (depth == 0) visible = "true";
-
-        if (isCode(GetFlags(GetHashLong(visitedHash, t))))
-        {
-          fsize = 20 - depth*2;
-          if (fsize < 10) fsize = 10;
+        depth = GetHashLong(calleeHash, t) - ZERO_DEPTH;
+        
+        nodes_num = nodes_num+1;
+        //if (NODES_LIMIT != 0 && nodes_num > NODES_LIMIT) break;
+
+        if (isCode(GetFlags(node_addr)))
+        {
+          if (is_direction_down())
+            fsize = 20 - depth*2;
+          else
+            fsize = 20 + depth*2;
+
+          if (fsize < 9) fsize = 9;
           if (fsize > 22) fsize = 22;
-          if (!hasUserName(GetFlags(GetHashLong(visitedHash, t)))){
+          if (!hasUserName(GetFlags(node_addr)))
+          {
             color = 0xEE2020;
           }
         }else
-        if (isASCII(GetFlags(GetHashLong(visitedHash, t))))
+        if (isASCII(GetFlags(node_addr)))
         {
           color = 0x6060C0;
           fsize = 10;
           shape = 1;
-          label = getString(GetHashLong(visitedHash, t));
-          label = replace(label, "&", "@");
-          label = replace(label, "'", "&apos;");
-          label = replace(label, "<", "&lt;");
-          label = replace(label, ">", "&gt;");
+          label = GetString(node_addr, -1, GetStringType(node_addr));
           label = replace(label, "\n", "");
           label = replace(label, "\r", "");
-          depth = -1;
+          depth = -ZERO_DEPTH;
         }else
         //if (isData(GetFlags(GetHashLong(visitedHash, t))))
@@ -267 +308 @@
           fsize = 10;
           shape = 1;
-          if (!hasUserName(GetFlags(GetHashLong(visitedHash, t)))){
+          //if (!hasUserName(GetFlags(node_addr))) {
+          if (-1 != strstr(t, "unk_")) {
             color = 0x70A070;
-          }
-          label = label + ": " + GetDisasm(GetHashLong(visitedHash, t));
-          depth = -1;
-          if (SHOW_UNK_DATA == 0) continue;
-        }
-        x = 10;
+            if (SHOW_UNK_DATA == 0) continue;
+          }
+          if (SHOW_DATA_DISASM) {
+            label = label + ": " + GetDisasm(node_addr);
+          }
+          depth = -ZERO_DEPTH;
+        }
+        hint = label + ": " + GetDisasm(node_addr) + "<br><br>" + hint;
+
+        x = 0;
         y = 10;
+        if (depth == 0)
+        {
+          x = 100;
+          y = 100;
+        }
 
         fprintf(f, "<NODE nodeID='AutoID %s'>\n", t);
         fprintf(f, " <NODE_LOCATION x='%d' y='%d' visible='%s'/>\n", x, y, visible);
-        fprintf(f, " <NODE_LABEL label='%s' shape='%d' backColor='%x' textColor='FFFFFF' fontSize='%d'/>\n", label, shape, color, fsize);
-                if (depth != -1){
+        fprintf(f, " <NODE_LABEL label='%s' shape='%d' backColor='%x' textColor='FFFFFF' fontSize='%d'/>\n", xml_escape(label), shape, color, fsize);
+                if (depth != -ZERO_DEPTH){
             fprintf(f, " <NODE_BEHAVIOUR logic='com.touchgraph.graphlayout.mods.ApproachYbyWeight' weight='%d'/>\n", depth);
         }
-        fprintf(f, " <NODE_HINT hint='%s' width='200' height='-1' isHTML='true'/>\n", hint);
+        fprintf(f, " <NODE_HINT hint='%s' width='200' height='-1' isHTML='true'/>\n", xml_escape(hint));
         fprintf(f, "</NODE>\n");
     }
@@ -312 +363 @@
           length = 30;
           color = 0xC0E0C0;
-          if (SHOW_UNK_DATA == 0) continue;
         }
         //length = length * 10;
@@ -325 +375 @@
     fclose(f);
 
+    return fname;
+
+}
+
+static xml_escape(label)
+{
+    label = replace(label, "&", "@");
+    label = replace(label, "'", "&apos;");
+    label = replace(label, "<", "&lt;");
+    label = replace(label, ">", "&gt;");
+
+    return label;
 }
 
 static main()
 {
-    
-    ResolveTask(ScreenEA());
-
-    Message("Done\n");
+    auto fname;
+
+    auto answer;
+    
+    DeleteArray( GetArrayId("downIdArray") );
+    answer = AskYN(-1, "YES - xrefs down from\nNO - xrefs up to\n");
+    if (answer == -1)
+      return;
+    if (answer == 1)
+      CreateArray("downIdArray");
+    
+    fname = ResolveTask(ScreenEA());
+
+    Message("Done: %s\n", fname);
 }

branches/cail-digicdv/hv30_analysis/scripts/scan-fuctions.idc

@@ -13 +13 @@
 static main()
 {
-  auto sb, se, a, c, w, d;
+  auto sb, se, a, c, w, d, y;
   auto lr, push;
 
@@ -31 +31 @@
       lr = 1;
 
+    if ( d == 0x9F8C )
+      lr = 1;
+
     if (d == 0x1781) 
+      lr = 1;
+    if (d == 0x1708) 
       lr = 1;
 
@@ -39 +44 @@
 */
 
-//    Message("code:%x, %x\n", (d&0xFF00) == 0x4f00, (d&0x00FF > 0x80));
-//    Message("lr:%x, push:%x\n",lr, push);
-    
     if (!lr && !push) continue;
 
-    if (lr && isUnknown(GetFlags(a)))
-      MakeCode(a);
+    if (!isUnknown(GetFlags(a))) continue;
 
-      //MakeFunction(a, BADADDR);
+    if (RfirstB0(a) == BADADDR && DfirstB(a) == BADADDR)  continue;
+
+    for(y = DfirstB(a); y != BADADDR; y=DnextB(a,y) )
+    {
+        Message("%08x: %s\n", y, GetDisasm(y));
+    }
+
+//    Message("lr:%x, push:%x\n",lr, push);
+
+    MakeFunction(a, BADADDR);
+
+      //
 /*    else if (isUnknown(GetFlags(a)))
     {

branches/cail-digicdv/hv30_analysis/scripts/scan-func_tables.idc

@@ -18 +18 @@
 static isIn(addr)
 {
-  return addr > CODE_START && addr < CODE_END;
+  return (addr > CODE_START && addr < CODE_END) || addr == 0;
 }
+
+
 
 static main()
 {
-  auto sb, se, a, c, w, d;
-  sb = CODE_START;
-  se = CODE_END;
+
+  search_table(CODE_START, CODE_END);
+
+//  search_table(0x40294, 0x40294 + 0x1248);
+
+}
+
+
+static search_table(sb, se)
+{
+  auto a, c, w, d;
 
   c = 0;
@@ -32 +42 @@
     if (   isIn(Dword(a+0))
         && isIn(Dword(a+4))
-        && isIn(Dword(a+8))
+//        && isIn(Dword(a+8))
+        && isUnknown(GetFlags(a+0))
         )
     {
-       Message("Table: %x\n", a);
+       Message("%x : item\n", a);
        //MakeUnknown(a, 4, DOUNK_EXPAND);
-       c = c+3;
+       c = c+1;
 
        MakeDword(a+0);
        MakeDword(a+4);
        MakeDword(a+8);
-       a = a + 8;
+       //a = a + 4;
     }
 

branches/cail-digicdv/hv30_analysis/scripts/scan-lib.idc

@@ -4 +4 @@
 #define ROM_END     (0xBFA00000+0x800000)
 
+#define TRUE   1
+#define FALSE  0
 
 static getString(addr)
@@ -26 +28 @@
 
 
+static GetStringPascal(addr)
+{
+  auto origa, stringRead, length;
+
+  stringRead = "";
+  length = Word(addr);
+  addr = addr+2;
+
+  if (length < 2) return 0;
+  if (length > 50) return 0;
+
+  for(; length > 0; length = length-1)
+  {
+      auto c;
+      c = Word(addr);
+      if (c < 0x2D || c > 0x7F) c = '_';
+
+      stringRead = form("%s%c", stringRead, c);
+      addr = addr + 2;
+  }
+
+  return stringRead;
+}