Что реализует данный код на ассемблере?

Question

[newstatistician1996]

Дана задача определить, что делает данный код . Подскажите пожалуйста, совсем плохо с ассемблером.
Начальные условия:
addr - адрес исходных значений
var1 - беззнаковое число, переменная
var2, var3 - переменные для хранения результата
Текст программы:

JMP     (label4)
label1:
	MOV.B   &var1,R15
	RLA.W   R15
	TST.W   addr(R15)
	JGE     (label2)
	INC.B   &var2
	JMP     (label3)
label2:
	MOV.B   &var1,R15
	RLA.W   R15
	CMP.W   #1,addr(R15)
	JL      (label3)
	INC.B   &var3
label3:
	INC.B   &var1
label4:
	MOV.B   &var1,R15
	RLA.W   R15
	TST.W   addr(R15)
	JNE     (label1)