// ################ ggT #######################
// ############################################

daten[0] = 0xF000;

daten[1] = 0x1800;		// LDAM, load a
daten[2] = 100;

daten[3] = 0x4018;		// BZ, (result = b)
daten[4] = 40;

daten[5] = 0x1800;		// LDAM, load b
daten[6] = 101;

daten[7] = 0x4018;		// BZ, (result = a)
daten[8] = 43;

daten[9] = 0x2800;		// STAM, save b for addition
daten[10] = 20;

daten[11] = 0x1800;		// LDAM, load a
daten[12] = 100;

daten[13] = 0x2800;		// STAM, save a for addition
daten[14] = 34;

daten[15] = 0x3540;		//NOT, calculate -a
daten[16] = 0;

daten[17] = 0x3440;		//ADD 1
daten[18] = 1;

daten[19] = 0x3440;		//ADD, calculate b-a
daten[20] = 0;

daten[21] = 0x4010;		// BN, a > b ?
daten[22] = 27;

daten[23] = 0x2800;		// STAM, store result in b
daten[24] = 101;

daten[25] = 0x4000;		//BA, lOOP back
daten[26] = 5;

daten[27] = 0x1800;		// LDAM, load b
daten[28] = 101;

daten[29] = 0x3540;		//NOT, calculate -b
daten[30] = 0;

daten[31] = 0x3440;		//ADD 1
daten[32] = 1;

daten[33] = 0x3440;		//ADD, calculate a-b
daten[34] = 0;

daten[35] = 0x2800;		// STAM, store result in a
daten[36] = 100;

daten[37] = 0x4000;		//BA, lOOP back
daten[38] = 5;

daten[40] = 0x1800;		// LDAM, load b
daten[41] = 101;

daten[43] = 0x1800;		// LDAM, load a
daten[44] = 100;

daten[100] = 768;
daten[101] = 912;