王爽 汇编语言 课程设计1

assume cs:codesg

data segment
;year
db '1975','1976','1977','1978','1979','1980','1981','1982'
db '1983','1984','1985','1986','1987','1988','1989','1990'
db '1991','1992','1993','1994','1995'
;income
dd 16,22,382,1356,2390,8000,16000,24486
dd 50065,97479,140417,197514,345980,590827,803530,1183000
dd 1843000,2759000,3753000,4649000,5937000
;people number
dw 3,7,9,13,28,38,130,220
dw 476,778,1001,1442,2258,2793,4037,5635
dw 8226,11542,14430,15257,17800
;average
dw 21 dup (0)
;first number is divider,second number is dividend low-order
;third number is dividend high-order,final number is remainder
dw 0ah
dw 3 dup (0)
data ends

stack segment
dw 16 dup (0)
stack ends

codesg segment
start:
mov ax,stack
mov ss,ax
mov sp,20h

mov ax,data
mov ds,ax

mov ax,0b800h
mov es,ax

call compute_averg
call clear_scr
call show_year
call show_income
call show_Pnumber
call show_averg

mov ax,4c00h
int 21h

show_year:
push di
push bx
mov di,150h
mov bx,0
mov ah,2
mov cx,15h

year:
push cx
mov cx,4
push di

sh_ys:
mov al,ds:[bx]
mov es:[di],ax
inc bx
add di,2
loop sh_ys

pop di
add di,0a0h
pop cx
loop year

pop bx
pop di
ret

show_income:
push bp
push di
push si
mov bp,84
mov di,160h

mov cx,15h
get_Incnum:
push cx
push di

mov ax,ds:[bp]
mov ds:[254],ax
mov ax,ds:[bp+2]
mov ds:[256],ax
mov si,0

ILround:
mov dx,0
call divdw
add dx,30h
push dx
mov cx,ax
inc si
jcxz Iok
jmp ILround
Iok:
mov cx,si

Incnum:
pop ax
mov ah,2
mov es:[di],ax
add di,2
loop Incnum

add bp  ,4
pop di
add di,0a0h
pop cx
loop get_Incnum

pop si
pop di
pop bp
ret

show_Pnumber:
push si
push bp
push di
mov bp,168
mov di,176h

mov cx,15h
get_Pnumber:
push cx
push di
mov ax,ds:[bp]
mov si,0

PSround:
mov dx,0
div word ptr ds:[252]
add dx,30h
push dx
mov cx,ax
inc si
jcxz Sok
jmp PSround
Sok:
mov cx,si

Pnumber:
pop ax
mov ah,2
mov es:[di],ax
add di,2
loop Pnumber

add bp,2
pop di
add di,0a0h
pop cx
loop get_Pnumber

pop di
pop bp
pop si
ret

show_averg:
push bp
push di
mov bp,210
mov di,188h
mov cx,15h

get_Avergnum:
push cx
push di
mov ax,ds:[bp]
mov bx,0

ASround:
mov dx,0
div word ptr ds:[252]
add dx,30h
push dx
mov cx,ax
inc bx
jcxz Aok
jmp ASround
Aok:
mov cx,bx

Avergnum:
pop ax
mov ah,2
mov es:[di],ax
add di,2
loop Avergnum

add bp,2
pop di
add di,0a0h
pop cx
loop get_Avergnum

pop di
pop bp
ret

compute_averg:
push bx
push bp
push si
mov bx,210
mov bp,84
mov si,168
mov cx,15h

count:
mov ax,ds:[bp]
mov dx,ds:[bp+2]
div word ptr ds:[si]
mov ds:[bx],ax
add bp,4
add si,2
add bx,2
loop count

pop si
pop bp
pop bx
ret

divdw:
mov ax,ds:[256]
div word ptr ds:[252]
mov ds:[256],ax
mov ax,ds:[254]
div word ptr ds:[252]
mov ds:[254],ax
mov ds:[258],dx
or ax,ds:[256]
ret

clear_scr:
push bp
push di
mov bp,0
mov cx,16h

cs1:
mov di,0
push cx
mov cx,50h

cs2:
mov byte ptr es:[di+bp],0
mov byte ptr es:[di+bp+1],0
add di,2
loop cs2

add bp,0a0h
pop cx
loop cs1

pop di
pop bp
ret

codesg ends
end start