opcode LevAdd, 0, k   
; Need to check..
	kVal xin
	aVal = a(kVal)
	a1 zar 1 ; CHANGE 
	zaw a1+aVal, 2 ; CHANGE
endop