daten[0] = 0x1400;	// LDA
daten[1] = 156;

daten[2] = 0x2800;	// STAM
daten[3] = 200;		// store first parameter

daten[4] = 0x1400;	// LDA
daten[5] = 67;

daten[6] = 0x2800;	// STAM
daten[7] = 201;		// store second parameter

daten[8] = 0x1400;	// LDA
daten[9] = 0;

daten[10] = 0x2800;	// STAM
daten[11] = 202;	// set result zo 0

daten[12] = 0x5000;	// CALL
daten[13] = 203;

daten[14] = 0x1800;	// LDAM
daten[15] = 202;	// load result

daten[16] = 0xF000;	// NOP

// HALT

// *****************************************
// MUL
// *****************************************

daten[203] = 0x1800;		// LDAM
daten[204] = 201;			// b

daten[205] = 0x4018;	// BZ
daten[206] = 233;        // return result

daten[207] = 0x4020;	//BE
daten[208] = 219;       // b is even, b & 1 == 0

daten[209] = 0x1800;		// LDAM
daten[210] = 200;			// a

daten[211] = 0x2800;		// STAM
daten[212] = 216;			// copy a to add

daten[213] = 0x1800;		// LDAM
daten[214] = 202;			// result

daten[215] = 0x3440;		//ADD
daten[216] = 0;		// a

daten[217] = 0x2800;		// STAM
daten[218] = 202;			// result

daten[219] = 0x1800;		// LDAM
daten[220] = 200;			// a

daten[221] = 0x35C0;		// SHL
daten[222] = 0x0000;

daten[223] = 0x2800;		// STAM
daten[224] = 200;			// result

daten[225] = 0x1800;		// LDAM
daten[226] = 201;			// a

daten[227] = 0x3580;		// SHL
daten[228] = 0x0000;

daten[229] = 0x2800;		// STAM
daten[230] = 201;			// result

daten[231] = 0x4000;		//BA
daten[232] = 203;       // Loop

daten[233] = 0x1800;		// LDAM
daten[234] = 202;			// result

daten[235] = 0x6000;    // RETURN