What a coincidence... I wipped this up last week:

;16 sample gemiddelde

$mod552
$debug(middel.abs)

bufsize equ 16

dseg

org 040h

pointer: ds 1
totall: ds 1 ;16-bits 'lopend' totaal
totalh: ds 1
buffer: ds 16 ;nieuwste eerst, oudste laatst

cseg

org 0
ljmp init

org 00400h
init: mov pointer,#buffer ;pointer MOET in lower 128 RAM staan

mov r0,#totall
clr a
mov b,bufsize+2
initloop: mov @r0,a
inc r0
djnz b,initloop

main: mov r0,#totall ;totaal + nieuwe waarde
xch a,@r0
add a,@r0
xch a,@r0
inc r0
xch a,@r0
addc a,#0
xch a,@r0

mov r0,pointer ;Nieuwe waarde in buffer, oudste eruit
xch a,@r0

xch a,pointer ;buffer pointer bijwerken
inc a
cjne a,#buffer+bufsize,noroll
mov a,#buffer
noroll: xch a,pointer

mov r0,#totall ;totaal - oudste
xch a,@r0
clr c
subb a,@r0
mov @r0,a
inc r0
mov a,@r0
subb a,#0
mov @r0,a

dec r0
mov a,@r0 ;totaal / 16
anl a,#0f0h
inc r0
orl a,@r0
swap a

;gemiddelde zit nu in a

end

Hans