汇编程序题目

data segment

BUFFER1 db '圆亩WANG HUA 01982001'橘判森冲手

M EQU $-BUFFER1

data endsextra segment

BUFFER2 db m dup(?)

extra endscode segment assume cs:code,ds:data,es:extrastart:

mov ax, data

mov ds,ax

mov ax, extra

mov es,ax

cld

mov cx, M

mov si, offset BUFFER1

mov di, offset BUFFER2

rep movsb

code ends

end start

datasegment

teamdb 10 dup(?)

avr db 0

dataends

codesegment

assume cs:code,ds:data

start: mov ax,seg data

mov es,ax

mov di,0

mov ds,ax

mov si,0

mov al,3

mov cx,10

cld

@1: stosb

inc al

loop @1

call aver

call dspal

mov ah,4ch

int 21h

==================================

averproc near

mov cx,10

cld

clc

mov bx,0

@p1:lodsb

add bl,al

adc bh,0

loop @p1

mov ax,bx

mov bl,10

div bl

mov avr,al

ret

averendp

===============================

DSPAL PROC NEAR

PUSH AX

PUSH BX

PUSH CX

PUSH DX

PUSHF

XOR AH,AH

XOR CX,CX

MOV BL,10

@DSPAL1:

DIV BL

INC CX

MOV DL,AH

XOR AH,AH

ORDX,30H

PUSH DX

CMP AL,0

JNE @DSPAL1

MOV AH,2

@DISPAL2:

POP DX

INT 21H

LOOP @DISPAL2

MOV DL,32

INT 21H

POPF

POP DX

POP CX

POP BX

POP AX

RET

DSPAL ENDP

================================

codeends

end start

---