汇编语言 王爽（第三版）课程设计一

assume cs:code

data segment
db '1975','1976','1977','1978','1979','1980','1981','1982','1983'
db '1984','1985','1986','1987','1988','1989','1990','1991','1992'
db '1993','1994','1995'

dd 16,22,382,1356,2390,8000,16000,24486,50065,97479,140417,197514
dd 345980,590827,803530,1183000,1843000,2759000,3753000,4649000,5937000

dw 3,7,9,13,28,38,130,220,476,778,1001,1442,2258,2793,4037,5635,8226
dw 11542,14430,15257,17800
data ends

temp segment
db 10 dup(0)
temp ends

stack segment
db 64 dup(0)
stack ends

code segment
start:
mov ax,stack
mov ss,ax
mov sp,64

mov ax,data
mov es,ax
mov ax,temp
mov ds,ax
mov si,0
mov bp,0
mov bx,0
mov di,0

mov cx,21
s:  push cx
mov ax,es:[bx]
mov ds:[si],ax
mov ax,es:[bx+2]
mov ds:[si+2],ax
mov byte ptr ds:[si+4],0

mov dh,24
sub dh,cl
mov dl,3
mov cl,2
call show_str

push dx
mov ax,es:[84+bp]
mov dx,es:[84+bp+2]
call dtoc
pop dx
add dl,10
call show_str

push dx
mov ax,es:[168+di]
mov dx,0
call dtoc
pop dx
add dl,10
call show_str

push dx
push cx
mov ax,es:[84+bp]
mov dx,es:[84+bp+2]
mov cx,es:[168+di]
call divdw
call dtoc
pop cx
pop dx
add dl,10
call show_str

add bx,4
add bp,4
add di,2

pop cx
loop s

mov ax,4c00h
int 21h

show_str:
push ax
push bx
push cx
push si
push di
push es

mov bl,cl
mov bh,0
mov ax,0b800h
mov es,ax
mov al,0a0h
mov ah,0
mul dh
mov di,ax
mov al,2h
mov ah,0
mul dl
add di,ax

write_str:
mov ch,0
mov cl,[si]
jcxz ok
mov es:[di],cl
mov es:[di+1],bl
inc si
add di,2
jmp short write_str
ok:
pop es
pop di
pop si
pop cx
pop bx
pop ax
ret

divdw:
push bx

push ax
mov ax,dx
mov dx,0
div cx
mov bx,ax
pop ax
div cx
mov cx,dx
mov dx,bx

pop bx
ret

dtoc:
push bx
push cx
push si
mov cx,0
push cx
mov bx,1
div_continue:
mov cx,10
call divdw
add cx,30H
push cx
inc bx

mov cx,dx
jcxz hzero
jmp short div_continue
hzero:
mov cx,ax
jcxz lzero
jmp short div_continue
lzero:
mov cx,bx
s_move:
pop bx
mov ds:[si],bx
inc si
loop s_move
pop si
pop cx
pop bx
ret

code ends

end start