ORG 400H

DIM EQU 32
V EQU 2500H
AVG EQU 2504H

CODE
XORL R0,R0 ;somma parziale
XORL R1,R1 ;spiazzamento
XORL R2,R2 ;contatore

loop:

CMPL #DIM, R2 ; R2 - 32
JZ calcola
ADDL V(R1),R0
ADDL #4, R1
ADDL #1, R2
jmp loop

calcola:
ASRL #5, R0 ; R0 = R0 / 5
MOVL R0, AVG

HALT
END