//
//	metodo per verificare se un determinato bit è 1 o 0.
//	ha in ingresso la parola e la posizione e restituisce 1 se = 1, 0 altrimenti
//

.method bitValue(word, bit)
.var
x
.end-var

	BIPUSH 1
	ISTORE x
ciclo:	ILOAD bit
	IFEQ fine
	ILOAD x
	DUP
	ISTORE x
	IINC bit -1
	GOTO ciclo
fine:	ILOAD x
	ILOAD word
	IAND
	IRETURN

.end-method