+/***************************************************************/
+/*!
+ *\brief Extract 6 byte symbol name from word memory.
+ *
+ *\param firstbyte the first byte of the desired symbol name
+ *\return a string containing the symbol name.
+ * Trailing spaces are included.
+ *\note The word_data is handled system-intependently big endian!
+ */
+string data_block::extract_label(int firstbyte){
+ string result=""; // Start with empty string
+
+ // We don't accept negative arguments!
+ if (firstbyte<0) return result;
+
+ // We also don't want segmentation faults!
+ if (word_size<(firstbyte/2+1)) return result;
+
+ // Here we pick out the characters.
+ for (int posi=firstbyte;posi<firstbyte+6;posi++)
+ result+=(word_data[posi/2]>>(8*(1-posi%2)))&0x7f;
+ return result;