滑动平均滤波程序

DATAS SEGMENTSEGMENT buffer dbdb 20 dupdup innum dbdb 20 dupdup indata dbdb 20 dupdup outdata dbdb 20 dupdup outnum dbdb 20 dupdup input message dbdb Please input 20 numbers 0dh 0ah screen long dbdb please input screen long 0dh 0ah DATAS ENDSENDS CODES SEGMENTSEGMENT ASSUMEASSUME CS CODES DS DATAS STARTSTART MOV AX DATAS MOV DS AX call input mov ah 2h mov dl 0dh int 21h mov dl 0ah int 21h jmp circle a0 mov ah 01h int 21h cmp al q JZ OVER CMP AL Q JZ OVER cmp al a jz STARTSTART call inout1 circle call asc to dec mov dx offset screen long mov ah 09h int 21h call shift average call dec to asc call output jmp a0 OVER mov ah 4ch int 21h input procproc near mov dx offset input message mov ah 09h int 21h mov si 0 mov cx 20 a1 mov ah 01h int 21h mov innum si al inc si loop a1 ret input endpendp inout1 procproc near mov cx 20 mov si 0h mov di 0h a2 mov bl innum si mov buffer di bl inc si inc di loop a2 mov cx 19 mov si 00h mov di 01h a3 mov bl buffer si mov innum di bl inc si inc di loop a3 mov innum al mov ah 02h mov dl 0dh int 21h mov dl 0ah int 21h mov si 0h mov cx 20 a4 mov dl innum si mov ah 2h int 21h inc si loop a4 mov dl 0dh int 21h mov dl 0ah int 21h ret inout1 endpendp output procproc near mov si 0h mov cx 20 a5 mov dl outnum si mov ah 2h int 21h inc si loop a5 mov dl 0dh int 21h mov dl 0ah int 21h ret output endpendp asc to dec procproc near mov si 0h mov di 0h xor ax ax mov cx 20 a6 mov al innum si sub al 30h mov indata di al inc si inc di loop a6 ret asc to dec endpendp shift average procproc near mov ah 01h int 21h sub al 30h xor dx dx mov dl al mov di 00h xor bx bx mov cx 21 sub cx dx mov dh dl a10 xor ax ax mov si di a7 mov bl indata si add ax bx dec dl inc si cmp dl 0 jnz a7 div dh mov outdata di al inc di mov dl dh loop a10 sub dh 1 xor cx cx mov cl dh a9 mov si di mov bl indata si mov outdata di bl inc si inc di loop a9 mov ah 02h mov dl 0dh int 21h mov dl 0ah int 21h ret shift average endpendp dec to asc procproc near mov si 0h mov di 0h mov cx 20 a8 xor ax ax mov al outdata si