chjo.
MOV R0, #40H ;adresa
MOV R1, #0 ;sucet
MOV R2, #0 ;pocet

EsteNebolo0A:
MOVX A, @R0
INC R0
CJNE A, #0AH, EsteNebolo0A

EsteNebolo0F:
ADD R1, A ;pridaj do suctu
INC R2 ;zvys pocet
MOVX A, @R0
INC R0
CJNE A, #0FH, EsteNebolo0F

ADD R1, A ;pridaj aj to posledne 0F do suctu
INC R2 ;zvys pocet

MOV R0, #30H
MOVX @R0, R1 ;sucet

INC R0
MOV A, R1
MOV B, R2
DIVAB
MOVX @R0, A ;priemer

Tak dajak zhruba, mozu tam byt nepresnosti ptz predpotopnu 8051 som nevidel asi 15rokov