--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/gpf/BIN/cg_386.awk	Mon Jun 01 03:24:05 2015 +0000
@@ -0,0 +1,37 @@
+#----------------------------------------------------------------------------- 
+#  Project :  
+#  Modul   :  
+#----------------------------------------------------------------------------- 
+#  Copyright 2002 Texas Instruments Berlin, AG 
+#                 All rights reserved. 
+# 
+#                 This file is confidential and a trade secret of Texas 
+#                 Instruments Berlin, AG 
+#                 The receipt of or possession of this file does not convey 
+#                 any rights to reproduce or disclose its contents or to 
+#                 manufacture, use, or sell anything it may describe, in 
+#                 whole, or in part, without the specific written consent of 
+#                 Texas Instruments Berlin, AG. 
+#----------------------------------------------------------------------------- 
+#|  Purpose :  extract stacksize information from 386 asm files
+#----------------------------------------------------------------------------- 
+/PROC NEAR/{
+  s = 0
+  print "proc " gensub( /_/, "", 1, $1)
+  infunc = 1;
+}
+
+/[[:blank:]]call[[:blank:]]/{
+  if (infunc)
+    print " call " gensub( /_/, "", 1, $2)
+}
+
+/ENDP/{
+  printf ("end %s %d\n\n", gensub( /_/, "", 1, $1), s + 8 );
+  infunc = 0;
+}
+
+/sub[[:blank:]]esp,/{
+  s = $3
+}
+