PDP-11. Сумма и произведение элементов массива

PDP-11.
Нужно сделать одну программу для расчета
1) суммы и
2) произведения элементов массива
ПРИМЕР!!!
2. Среднее арифметическое положительных элементов массива
Найти среднее арифметическое положительных элементов линейного массива.
org 1000
jsr pc,print_arr ;вывод массива
clr r3 ;в регистре r3 будет сумма массива
mov #array,r4;в регистре r4 указатель на элемент массива
;цикл сложения элементов массива
sum:
add (r4)+,r3 ;суммирование и сдвиг указателя
cmp r4,#end_of_array ;сравнение, если не конец массива,
bne sum ;продолжаем цикл
;вычисление количества элементов массива
mov #end_of_array,r1
sub #array,r1
asr r1 ;сдвиг вправо (деление на 2)
;r1=(end_of_array-array)/2
mov r3,r0
jsr pc,div ;вызываем подпрограмму деления
mov r2,r0
jsr pc,print_r0
halt
;в базовый набор команд PDP-11 не входит операция деления,
;в процессоре К1801ВМ1, на котором работает БК-0010 ее тоже нет,
;заменяем на вычитание в цикле.
;делит r0 на r1, частное в r2
div:
clr r2 ;обнуляем частное
div_loop:
sub r1,r0 ;вычитаем делитель из делимого
bcs end_div ;если в результате r0 стало меньше 0, выход
inc r2 ;иначе увеличиваем частное
br div_loop;и продолжаем цикл
end_div:
rts pc
array:
.word 2.,4.,6.,8.,18.,24.,17.,3.,17.
end_of_array:
print_arr:
clr r4
cyc:
mov array(r4),r0
jsr pc, print_r0
add #2,r4
cmp array(r4),end_of_array
bne cyc
jsr pc, print_newline
rts pc
print_r0:
MOV #NUMBER,R1
CLRB -(R1)
1: CLR R5
2: INC R5
SUB #10.,R0
BHIS 2
ADD #58.,R0
MOVB R0,-(R1)
MOV R5,R0
SOB R0,1
clr r2
emt 20
mov #space,r1
clr r2
emt 20
rts pc
print_newline:
mov #newline, r1
clr r2
emt 20
rts pc
space: .asciz " "
newline: .asciz
NUMBER=2000
.end