--- /dev/null
+#include <stdlib.h>
+#include <string.h>
+
+#include "data_block.hh"
+#include "data_block_0.hh"
+
+
+data_block::data_block(tape_block& idol)
+ :tape_block(idol)
+{
+}
+
+data_block::~data_block(){
+}
+
+int data_block::get_type(){
+ if ((init_state==TBS_OK)&&word_data)
+ return (word_data[0]&0xf000)>>12;
+ else
+ return block_type;
+}
+
+int data_block::get_subtype(){
+ if (get_type()==0)
+ return (new data_block_0(*this))->get_subtype();
+ else return 0;
+}