a ver si consigo ke rule el robots...

ediv/bin/ROBOTS.PRG

@@ -56,8 +56,7 @@ BEGIN
     loop
 //    fade_on();
 //    prota=protag(rand(0,39)*8,rand(0,24)*8);
-    protag(rand(0,39)*8,rand(0,24)*8);
-    debug_procesos();
+    protag(rand(0,39)*8,rand(0,24)*8);    
     for(i=1;i<=num_robots;i++)
         loop
             x=rand(0,39);
@@ -88,6 +87,7 @@ BEGIN
             end
         end
     end
+    debug_procesos();
     graph=0;
     protax=prota.x;
     protay=prota.y;
@@ -190,11 +190,11 @@ BEGIN
             mueve_robots();
         end
     end
-    debug_procesos();
+//    debug_procesos();
     signal(prota,s_kill);
-    debug_procesos();
+//    debug_procesos();
     signal(type robot,s_kill);
-    debug_procesos();
+//    debug_procesos();
     muertos=0;
     cogido=0;
     ya=0;
@@ -210,6 +210,7 @@ PRIVATE
     coge_robot;
 
 BEGIN
+//    debug_procesos();
     prota=id;
     graph=imagenes[imagen];
     timer[1]=0;
@@ -281,6 +282,7 @@ PRIVATE
     esp_frame;
 
 BEGIN
+    debug_procesos();
     robots[num]=id;
     graph=imagenes[imagen];
     loop

ediv/src/stub/inte.c

@@ -158,7 +158,7 @@ int interprete()
 			//printf("Proceso %d - Estado: %d\n",procs_s[proc_orden[proceso_actual]].id,mem[procs_s[proc_orden[proceso_actual]].id+_status]);
 			if(mem[procs_s[proc_orden[proceso_actual]].id+_status]==1) {
 				mem[procs_s[proc_orden[proceso_actual]].id+_status]=0;
-				//assert(0);
+				assert(0);
 				lista_quita(proceso_actual);
 				proceso_actual--;
 			}
@@ -347,8 +347,9 @@ int proceso( int num, int padre )
 				sp-=cpas;
 			break;
 		case ltyp://32
-			if ( procs_s[num_proc].tipo != 0 )
+			if ( procs_s[num_proc].tipo != 0 ) {
 				critical_error(3); // redefinición del tipo de proceso
+			}
 			procs_s[num_proc].id = (mem[2] + ( num_proc * iloc_len ))|1;
 			if(procs_s[num_proc].id>imem_max-iloc_len) critical_error(8);	// demasiados procesos en ejecución
 			memcpy(&mem[procs_s[num_proc].id],&mem[iloc],iloc_pub_len<<2);

ediv/src/visual c/stub/stub.vcproj

@@ -29,6 +29,7 @@
 				BasicRuntimeChecks="3"
 				RuntimeLibrary="2"
 				UsePrecompiledHeader="0"
+				BrowseInformation="1"
 				WarningLevel="3"
 				Detect64BitPortabilityProblems="FALSE"
 				DebugInformationFormat="4"/>
@@ -41,6 +42,9 @@
 				LinkIncremental="2"
 				GenerateDebugInformation="TRUE"
 				ProgramDatabaseFile="$(OutDir)/stub.pdb"
+				GenerateMapFile="TRUE"
+				MapExports="TRUE"
+				MapLines="TRUE"
 				SubSystem="2"
 				TargetMachine="1"/>
 			<Tool