2^i-a[i]

#define NOP addc(R0, 0, R0)
#define BR(x) beq(R31, x, R31)
.text
	BR(START)
	NOP
	NOP
START:
	addc(R31, 0, R0) ; pokazivac na pocetak niza tj i
	addc(R31, 5, R1) ; br elemenata niza
	addc(R31, 0, R4) ; privremeni registar
	addc(R31, 0, R6) ; suma
ZAD:
	ld(R0, 0, R2) ; a[i]
	shl(1, R0, R3) ; 2^i
	sub(R3, R2, R4) ; 2^i - a[i]
	shrc(R4, 4, R5) ; (2^i - a[i])/16
	add(R6, R5, R6) ; suma svega
	addc(R0, 1, R0) ; pomeram pokazivac za 1 mesto tj i+1
	subc(R1, 1, R1) ; smanjujem br elemenata
	bne(R1, ZAD, R31) ; dok god R1 nije nula prolazi kroz zadatak
	cmpltc(R6, 1, R7) ; R6<1? ako jeste, R7=1
	bne(R7, UPIS, R31) ; ako je R7=1
	st(R9, 0, R6)
	br(kraj)

UPIS:
	st(R8, 0, R6)
	br(kraj)

KRAJ:
	br(kraj)