#include "process.h"
+
//#define DEBUG_DATA
/**********************************************************************/
+
int get_blocktype (datablock * block){
return block->data[0].blocktype.type;
}
memcpy (akt, ((char *) data) + 4 + c * 6, 6);
akt[6]=0;
-
int dd=5;
while (akt[dd]==' ') akt[dd--]=0; // hinten kürzen;
dd=0;
char akt[7] = "SYMBOL";
memcpy (akt, dat + 3, 6);
twistbytes (data + 1, 4);
-
-
sayf ("%s (6) subroutine or common block definition",akt);
-
}
break;
case 7:{
- parstrip ((char *) data + 3, 6);
- twistbytes (data + 1, 4);
- char akt[7] = "SYMBOL";
- memcpy (akt, ((char *) data) + 3, 6);
- twistbytes (data + 1, 4);
-
- sayf ("%s (7) reference (call) to common item", akt);
+ char * dat =(char *) data; // Get byte pointer
+ twistbytes (data + 1, 4); // Do the endian thing
+ parstrip ((char *) data + 3, 6); // Strip parity bits away
+ char akt[7] = "SYMBOL";
+ memcpy (akt, dat + 3, 6); // Take the name
+ twistbytes (data + 1, 4); // repair the head
+ sayf ("%s (7) reference (call) to common item", akt);
}
break;